各位大侠:当ADOQuery在异步执行状态下怎么等待它的返回值(在线等)

wooden954 2003-08-21 10:45:44
如题,我需要使ADOQuery在异步状态下执行,但又要等待它的返回值,这个问题有没有办法解决呢?
...全文
59 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
hnhb 2003-08-22
  • 打赏
  • 举报
回复
OnFetchComplete
Delphi 点击Tree节点的某个选项后,右侧会对应显示出数据信息,左侧的树节点信息从Access数据库读取出来,实际上当我们单击左侧数据的时候,右侧数据同样是从Access数据库读取,只不过关联的ID,就是左侧的数据项,实现这一功能,对应的代码为:   procedure TForm1.TreeView1Click(Sender: TObject);   begin    with ADOQuery2 do    begin    Close;    SQL.Clear;    SQL.Add('Select * From msn where 姓名 =:a');    Parameters.ParamByName('a').Value:=TreeView1.Selected.Text;    Prepared;    open;    end;    if (ADOQuery2.RecordCount>0)and(Treeview1.Selected <> Nil) then    with ADOQuery2 do    begin    Edit1.Text:=ADOQuery2.fieldbyname('ID').AsString;    Edit2.Text:=ADOQuery2.fieldbyname('姓名').AsString;    Combobox1.Text:=ADOQuery2.fieldbyname('性别').AsString;    DatetimePicker1.Date:=ADOQuery2.fieldbyname('出生日期').Value;    Edit3.Text:=ADOQuery2.fieldbyname('民族').AsString;    Edit4.Text:=ADOQuery2.fieldbyname('家庭电话').AsString;    Edit5.Text:=ADOQuery2.fieldbyname('手机号码').AsString;    Edit6.Text:=ADOQuery2.fieldbyname('QQ号码').AsString;    Edit7.Text:=ADOQuery2.fieldbyname('E_mail').AsString;    Memo1.Lines.Text:=ADOQuery2.fieldbyname('备注').AsString;    Combobox2.Text:=ADOQuery2.fieldbyname('类型').AsString;    end;   end;

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧