bde连接mysql设置,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:=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;