-
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;