几个小技巧

最新推荐文章于 2023-10-30 16:10:59 发布

原创最新推荐文章于 2023-10-30 16:10:59 发布 · 455 阅读

CC 4.0 BY-SA版权

本文展示了一个使用Delphi进行数据库查询的例子，包括条件筛选、字段读取等操作，并通过RichEdit和Memo组件显示查询结果。

Adoquery1.Close;
Adoquery1.Sql.Clear;
Adoquery1.Sql.Add('Select top 10 * from OxfordDict');
if checkbox3.Checked =True then
begin
Adoquery1.Sql.Add('where f1 like '''+trim(Edit1.Text)+'%'+'''');
end else
begin
Adoquery1.Sql.Add('where f1 = '''+trim(Edit1.Text)+'''');
end;
Adoquery1.Sql.Add('order by f8');
Adoquery1.Open;
richEdit1.Text:=Adoquery1.FieldByName('F2').AsString;
Memo3.Text:=Adoquery1.FieldByName('WExample').AsString;
Edit3.Text:=Adoquery1.FieldByName('F3').AsString;
//Memo2.Text:=Adoquery1.FieldByName('F7').AsString;
Adoquery1.Locate('f1', Trim(Edit1.Text) , []);
//加入到CombBox的项中

//计算下一次要加入的单词序号
Adoquery5.Close;
Adoquery5.Sql.Clear;
Adoquery5.Sql.Add('Select count(*) as A1 from '+Combobox3.Text);
//Adoquery4.Sql.Add('where f4<''1000''');
Adoquery5.Open;