unit SettingForm;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, ImgList, Grids, DBGrids, ExtCtrls, StdCtrls,
  Buttons, DB, ADODB, DBCtrls, Mask;    type
  TSetting = class(TForm)
    TreeView1: TTreeView;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    ADOQuery1: TADOQuery;
    ADOCommand1: TADOCommand;
    DataSource1: TDataSource;
    DBRadioGroup1: TDBRadioGroup;
    procedure FormCreate(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure treeshow();//定义将数据库表以treeview形式显示
    { Public declarations }      end;
type
 Ttable=array[1..200,1..3] of string;
var
  Setting: TSetting;
  mytable:Ttable;      implementation
{$R *.dfm} 
procedure TSetting.treeshow();
var
pnode:TTreeNode;
i:integer;
scode,scodel,sname:string;
ItemLevel,ParentIndex:integer;    begin
adoquery1.Open;
i:=1;
while not adoquery1.Eof do
begin
scode:=adoquery1.FieldByName('类别号').AsString;
scodel:=adoquery1.FieldByName('人物代码').AsString;
sname:=adoquery1.FieldByName('类别').AsString;
ItemLevel:=adoquery1.FieldByName('ItemLevel').AsInteger;
ParentIndex:=adoquery1.FieldByName('ParentIndex').AsInteger;
mytable[i,1]:=scode;
mytable[i,2]:=scodel;
mytable[i,3]:=sname;
i:=i 1;
if (ItemLevel=0) then
begin
treeview1.Items.AddFirst(nil,sname);
end
else
begin
pnode:=treeview1.Items.Item[ParentIndex];
treeview1.Items.AddChild(pnode,sname);
end;
adoquery1.Next;
end;
end;    procedure TSetting.FormCreate(Sender: TObject);
begin
treeshow();
end;//此时 打开窗体即可显示数据库表里对应的数据结构和资料了    procedure TSetting.TreeView1Click(Sender: TObject);//希望通过TreeView1Click在DBRadioGroup中显示相应内容
var
temp:integer;
pnode:TTreeNode;
begin
edit1.Text:=treeview1.Selected.Text;
if treeview1.Selected.Parent.Index<>-1 then
edit2.Text:=treeview1.Selected.Parent.Text
else
edit2.Text:='人物结构';
DBRadioGroup1.ItemIndex := TreeView1.Selected.Index;//Fishman的提议 我加在这里 如果没有这一句 即使DBRadioGroup1通过DateSouce连接了性别字段 也显示不了
edit3.Text:=mytable[treeview1.Selected.AbsoluteIndex 1,2];
temp:=length(edit3.Text)-1;
temp:=round(temp/2);
edit5.Text:=inttostr(temp);
if treeview1.Selected.Parent.index<>-1 then
edit4.Text:=mytable[treeview1.Selected.Parent.AbsoluteIndex 1,2]
else
edit4.Text:='0';
end;    procedure TSetting.Button1Click(Sender: TObject);//对该表作做的保存 这里没有涉及DBRadioGroup1的保存 这里我将DBRadioGroup1-->DateSource1-->ADOQuery1(SQL设为select * from 数据库表 Active设为True)
DBRadioGroup1中datafield设为数据库表字段“性别” 我下面原来的代码保存不含 字段“性别”的保存     var
i,temp:integer;
name,number,absindex,itemindex,itemlevel,parentindex:string;
order,code,s,sp:string;
pnode:TTreeNode;
begin
adocommand1.CommandText:='set IDENTITY_insert 人物表 on';
adocommand1.Execute;
adocommand1.CommandText:='select * into zztemp from 人物表';
adocommand1.Execute;
adocommand1.CommandText:='delete from 人物表';
adocommand1.Execute;
adocommand1.CommandText:='insert into 人物表([内部编号],[类别],[AbsIndex],[ItemIndex],[ItemLevel],[ParentIndex],[类别号],[人物代码],[人物名称]) values(''100'',''人物结构'',''0'',''0'',''0'',''-1'',''0'',''0'',''人物结构'')';
adocommand1.Execute;    for i:=2 to treeview1.Items.Count do
 begin
 pnode:=treeview1.Items.Item[i-1];
 name:=pnode.Text;
 number:=inttostr(100 pnode.AbsoluteIndex);
 absindex:=inttostr(pnode.AbsoluteIndex);
 itemindex:=inttostr(pnode.Index);
 parentindex:=inttostr(pnode.Parent.AbsoluteIndex);
 s:=inttostr(pnode.Index);
  if length(s)=1 then
   s:='0' s
   else
   s:=s;
   order:=s;
while pnode.Parent<>nil do
 begin
   sp:=inttostr(pnode.Parent.Index);
   if length(sp)=1 then
   sp:='0' sp
   else
   sp:=sp;
   s:=sp s;
   pnode:=pnode.Parent;
 end;
   code:=copy(s,2,length(s));
   temp:=length(code)-1;
   temp:=round(temp/2);
   itemlevel:=inttostr(temp);
  adocommand1.CommandText:='insert into 人物表([内部编号],[类别],[AbsIndex],[ItemIndex],[ItemLevel],[ParentIndex],[类别号],[人物代码],[人物名称]) values(''' number ''',''' name ''',''' absindex ''',''' itemindex ''',''' itemlevel ''',''' parentindex ''',''' order ''',''' code ''',''' name ''')';
  adocommand1.Execute;
 end;
 adocommand1.CommandText:='set IDENTITY_insert 人物表 off';
adocommand1.Execute;
adocommand1.Commandtext:='drop table zztemp';
adocommand1.Execute;
MessageBox(0,'对人物表所作的修改已经保存成功！','成功',MB_OK);
treeview1.Items.Clear;
adoquery1.Active:=false;
adoquery1.Active:=true;
treeshow();
end;

引言: Hi baby2321, 試試 DBRadioGroup1.ItemIndex := TreeView1.Selected.Index; 或是 DBRadioGroup1.ItemIndex := RadioGroup1.Items.IndexOf(TTreeView.Selected.Text);//改为这样可显示 < face="Verdana, Arial, Helvetica"> 我觉得运用 Fishman的方法 理论上应该可以实现啊 为什么DBRadioGroup1虽可以显示 但不完全是按照数据库表的相应字段显示？？？

procedure TSetting.TreeView1Click(Sender: TObject);
...    RadioGroup1.ItemIndex := TreeView1.Selected.Index;//原来是“DBRadioGroup1.ItemIndex := TreeView1.Selected.Index”
...
 

 
procedure TSetting.Button1Click(Sender: TObject);//对该表作做的保存
var
i,temp:integer;
name,number,absindex,itemindex,itemlevel,parentindex:string;
order,code,s,sp:string;
sex:string;//定义一个新的变量来对应“性别”字段 用于数据库“性别”字段的保存
pnode:TTreeNode;
begin
adocommand1.CommandText:='set IDENTITY_insert 人物表 on';
adocommand1.Execute;
adocommand1.CommandText:='select * into zztemp from 人物表';
adocommand1.Execute;
adocommand1.CommandText:='delete from 人物表';
adocommand1.Execute;
adocommand1.CommandText:='insert into 人物表([内部编号],[类别],[AbsIndex],[ItemIndex],[ItemLevel],[ParentIndex],[类别号],[人物代码],[人物名称],[性别]) values(''100'',''人物结构'',''0'',''0'',''0'',''-1'',''0'',''0'',''人物结构'',''NULL'')';//加入对性别字段的保存处理步骤一
adocommand1.Execute;    for i:=2 to treeview1.Items.Count do
 begin
 pnode:=treeview1.Items.Item[i-1];
 name:=pnode.Text;    sex:=RadioGroup1.Items.IndexOf(pnode.index) //此处报错 无法通过
对sex处理的这个地方不知该怎么写 恳请赐教    number:=inttostr(100 pnode.AbsoluteIndex);
 absindex:=inttostr(pnode.AbsoluteIndex);
 itemindex:=inttostr(pnode.Index);
 parentindex:=inttostr(pnode.Parent.AbsoluteIndex);
 s:=inttostr(pnode.Index);
  if length(s)=1 then
   s:='0' s
   else
   s:=s;
   order:=s;
while pnode.Parent<>nil do
 begin
   sp:=inttostr(pnode.Parent.Index);
   if length(sp)=1 then
   sp:='0' sp
   else
   sp:=sp;
   s:=sp s;
   pnode:=pnode.Parent;
 end;
   code:=copy(s,2,length(s));
   temp:=length(code)-1;
   temp:=round(temp/2);
   itemlevel:=inttostr(temp);
  adocommand1.CommandText:='insert into 人物表([内部编号],[类别],[AbsIndex],[ItemIndex],[ItemLevel],[ParentIndex],[类别号],[人物代码],[人物名称],[性别]) values(''' number ''',''' name ''',''' absindex ''',''' itemindex ''',''' itemlevel ''',''' parentindex ''',''' order ''',''' code ''',''' name ''',''' sex ''')';
  adocommand1.Execute;
 end;
 adocommand1.CommandText:='set IDENTITY_insert 人物表 off';
adocommand1.Execute;
adocommand1.Commandtext:='drop table zztemp';
adocommand1.Execute;
MessageBox(0,'对人物表所作的修改已经保存成功！','成功',MB_OK);
treeview1.Items.Clear;
adoquery1.Active:=false;//作用于TForm1.treeshow()
adoquery1.Active:=true;
treeshow();
end;

i:=RadioGroup1.ItemIndex;
if (i>=0) and (i     
        

 
procedure TSetting.Button1Click(Sender: TObject);//对该表作做的保存
var
i,temp:integer;
name,number,absindex,itemindex,itemlevel,parentindex:string;
order,code,s,sp:string;
sex:string;
...
for i:=2 to treeview1.Items.Count do
 begin
 pnode:=treeview1.Items.Item[i-1];
 name:=pnode.Text;
 sex:=RadioGroup1.Items[RadioGroup1.ItemIndex];//上面有i:=2 to treeview1.Items.Count 此处应该有所调整 但不知怎么把变量i考虑进去
...
 adocommand1.CommandText:='insert into 人物表([内部编号],[类别],[AbsIndex],[ItemIndex],[ItemLevel],[ParentIndex],[类别号],[人物代码],[人物名称],[性别]) values(''' number ''',''' name ''',''' absindex ''',''' itemindex ''',''' itemlevel ''',''' parentindex ''',''' order ''',''' code ''',''' name ''',''' sex ''')';
  adocommand1.Execute;
....
end;

引言: 我以为你只是保存当前记录。 你如果想保存所有的记录的话，那么你就只好记录所有记录更新后的SEX值了。 不过坦白说一句，保存一个修改至于这么费事要把整个数据库倒腾一次吗？！

  
procedure TSetting.Button1Click(Sender: TObject);//对该表作做的保存
var
...
sex:string;
...
for i:=2 to treeview1.Items.Count do
 begin
 pnode:=treeview1.Items.Item[i-1];
 name:=pnode.Text;
 sex:=RadioGroup1.Items[i-1];//不知这里对应 i-1 是否正确...
...
 adocommand1.CommandText:='set IDENTITY_insert 人物表 on';
 adocommand1.Execute;
 adocommand1.CommandText:='insert into 人物表([内部编号],[类别],[AbsIndex],[ItemIndex],[ItemLevel],[ParentIndex],[类别号],[人物代码],[人物名称],[性别]) values(''' number ''',''' name ''',''' absindex ''',''' itemindex ''',''' itemlevel ''',''' parentindex ''',''' order ''',''' code ''',''' name ''',''' sex ''')';
 adocommand1.Execute;
 adocommand1.CommandText:='set IDENTITY_insert 人物表 off';
 adocommand1.Execute;
....
end;

procedure TForm1.Button1Click(Sender: TObject);//保存
var
i,temp:integer;
name,number,absindex,itemindex,itemlevel,parentindex:string;
order,code,s,sp:string;
pnode:TTreeNode;
//树形图节点
begin
for i:=2 to treeview1.Items.Count do
 begin
 pnode:=treeview1.Items.Item[i-1];
 name:=pnode.Text;
 number:=inttostr(300 pnode.AbsoluteIndex);
 //内部编码设为从300开始 这种方式也出现‘无法更新标识列‘内部编码’’的问题 我原本是希望通过‘内部编码’ 实现和i自增的一个对应
 absindex:=inttostr(pnode.AbsoluteIndex);
 itemindex:=inttostr(pnode.Index);
 parentindex:=inttostr(pnode.Parent.AbsoluteIndex);
 s:=inttostr(pnode.Index);
  if length(s)=1 then
   s:='0' s
   else
   s:=s;
   order:=s;
while pnode.Parent<>nil do
 begin
   sp:=inttostr(pnode.Parent.Index);
   if length(sp)=1 then
   sp:='0' sp
   else
   sp:=sp;
   s:=sp s;
   pnode:=pnode.Parent;
   end;
   code:=copy(s,2,length(s));
   temp:=length(code)-1;
   temp:=round(temp/2);
   itemlevel:=inttostr(temp);
   
  adocommand1.CommandText:='update 人物表 set [内部编号]=''' number ''',[类别]=''' name ''',[AbsIndex]=''' absindex ''',[ItemIndex]=''' itemindex ''',[ItemLevel]=''' itemlevel ''',[ParentIndex]=''' parentindex ''',[类别号]=''' order ''',[人物代码]=''' code ''',[人物名称]=''' name '''';//由原来的insert改为update
  adocommand1.Execute;
  end;
MessageBox(0,'对人物表所作的修改已经保存成功！','成功',MB_OK);
//刷新树形图的显示
treeview1.Items.Clear;
adoquery1.Active:=false;
adoquery1.Active:=true;
treeshow();
end;