Delphi 点击节点某个选项显示相对应的数据信息.rar

Delphi 点击Tree节点的某个选项后，右侧会对应显示出数据信息，左侧的树节点信息从Access数据库读取出来，实际上当我们单击左侧数据的时候，右侧数据同样是从Access数据库读取，只不过关联的ID，就是左侧的数据项，实现这一功能，对应的代码为： 　　procedure TForm1.TreeView1Click(Sender: TObject); 　　begin 　　 with ADOQuery2 do 　　 begin 　　 Close; 　　 SQL.Clear; 　　 SQL.Add('Select * From msn where 姓名 =:a'); 　　 Parameters.ParamByName('a').Value:=TreeView1.Selected.Text; 　　 Prepared; 　　 open; 　　 end; 　　 if (ADOQuery2.RecordCount>0)and(Treeview1.Selected <> Nil) then 　　 with ADOQuery2 do 　　 begin 　　 Edit1.Text:=ADOQuery2.fieldbyname('ID').AsString; 　　 Edit2.Text:=ADOQuery2.fieldbyname('姓名').AsString; 　　 Combobox1.Text:=ADOQuery2.fieldbyname('性别').AsString; 　　 DatetimePicker1.Date:=ADOQuery2.fieldbyname('出生日期').Value; 　　 Edit3.Text:=ADOQuery2.fieldbyname('民族').AsString; 　　 Edit4.Text:=ADOQuery2.fieldbyname('家庭电话').AsString; 　　 Edit5.Text:=ADOQuery2.fieldbyname('手机号码').AsString; 　　 Edit6.Text:=ADOQuery2.fieldbyname('QQ号码').AsString; 　　 Edit7.Text:=ADOQuery2.fieldbyname('E_mail').AsString; 　　 Memo1.Lines.Text:=ADOQuery2.fieldbyname('备注').AsString; 　　 Combobox2.Text:=ADOQuery2.fieldbyname('类型').AsString; 　　 end; 　　end;