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

最新推荐文章于 2022-09-22 18:06:00 发布

hw_jiayou

最新推荐文章于 2022-09-22 18:06:00 发布

阅读量4.6k

点赞数 1

本文链接：https://blog.csdn.net/huangwei19900407/article/details/38678183

版权

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