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 tfilestream流操作1

Delphi webbrowser ie 窗口选择中，选中的文字内容

Delphi中如何判断mediaplayer控件所播放的文件是否播放完毕？

Delphi firedac 下的 sqlite [9] - 关于排序

Delphi程序不受windows日期格式的影响

Delphi 窗体不可用

Delphi 拷贝文件夹内所有内容

Delphi 解决Delphi indy10下 utf8码转换的问题

Delphi中使用词霸2005的动态库xdictgrb.dll实现屏幕取词

Delphi 直接将html字符串读入webbrowser中

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

转载请注明出处：木庄网络博客 » Delphi TADOQuery的用法