您的位置：首页 > 编程语言 > Delphi

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

2014-08-19 10:24 507 查看

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;

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航