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;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.1238968372345 seconds