Delphi TADOQuery的用法


本文整理自网络,侵删。

 
//刷新一下复合框,同时清除分类输入框
procedure TmainForm.RefreshClass;
begin
  comboBox1.Items.Clear;
  edit3.Text:='';
  qr.Close;
  qr.SQL.Clear;
  qr.SQL.Add('select cls_name from tb_article_class');
  qr.Open;
  if not qr.Eof then
  begin
    qr.First;
    while not qr.Eof do
    begin
      combobox1.Items.Add(qr.FieldByName('cls_name').AsString);
      qr.Next; 
    end;
  end;
  //qr.Close;
end;

相关阅读 >>

Delphi 获取系统当前活动窗口的句柄及对应的进程名

Delphi 坐标截图如何实现

Delphi 自动把combobox控件的内容里没有的内容加入列表中

Delphi xe5也可以开发 google glass应用

Delphi opendialog控件用法

Delphi dll注入x86/x64/win2k~win8.1全可用

Delphi从路径取得文件名的简易方法

Delphi计算md5

Delphi ioutils单元3查找并搜索文件夹信息

Delphi 图像灰度化处理

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...