几个小技巧

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;