delphi通过BDE方式连接数据库以及程序Demo

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