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;