1、设置BDE连接
2、将TQuery组件放入程序Form窗体
3、设置TQuery属性
4、程序Demo
with Query5 do
begin
Query5.Close;
Query5.SQL.clear;
str:='select *from msn where name=:name';
Query5.SQL.add(str);
Query5.ParamByName('name').value:=TreeView1.Selected.Text;
Query5.Open;
if(Query5.RecordCount>0)and(TreeView1.Selected<>nil) then
begin
Edit2.Text:=Query5.fieldbyname('num').asstring;
Edit3.Text:=Query5.fieldbyname('name').AsString;
ComboBox2.Text:=Query5.fieldbyname('sex').AsString;
DateTimePicker1.Date:=Query5.fieldbyname('birthday').Value;
Edit5.Text:=Q