TADOQuery的用法一 - Delphi

最新推荐文章于 2021-06-25 13:48:08 发布

weixin_30569033

最新推荐文章于 2021-06-25 13:48:08 发布

阅读量157

点赞数

原文链接：http://www.cnblogs.com/sures/p/6083378.html

版权

查询：

//刷新一下复合框，同时清除分类输入框
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;