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:=Query5.fieldbyname('mz').AsString; Edit6.Text:=Query5.fieldbyname('home_tel').AsString; Edit7.Text:=Query5.fieldbyname('tel').asstring; Edit8.Text:=Query5.fieldbyname('qq').asstring; Edit9.Text:=Query5.fieldbyname('email').asstring; ComboBox3.Text:=Query5.fieldbyname('type').AsString; Memo1.Lines.Text:=Query5.fieldbyname('remark').AsString; Edit4.Text:=Query5.fieldbyname('photo').asstring; if Query5.FieldByName('photo').AsString<>'' then begin Image1.Picture.LoadFromFile(Query5.FieldByName('photo').AsString); Image1.Visible:=False; Image2.Stretch := True; Image2.Width := Image1.Width; Image2.Height := Image1.Width; Image2.Picture.Assign( Image1.Picture ); end; end; end;