Delphi代码解释

来源:百度知道 编辑:UC知道 时间:2024/06/19 17:55:08
麻烦解释下,谢谢了!!
procedure TForm1.Button1Click(Sender: TObject);
begin
datasource1.DataSet :=adoquery1; //在datasource1里连接的是ADOTable1, 怎么又连上ADOQuery1?
adoquery1.Connection:=adoconnection1; //和在ADOQuery属性里连接效果一样吗?
with ADOQuery1 do
begin
close;
SQL.Clear;
sql.Add(' select 客户全称,单价,报价日期 from 商品报价表 where 报价日期 between :a and :b'); // :a and :b 什么意思啊?
parameters.ParamByName('a').Value :=Datetimetostr(datetimepicker1.time); //what?
parameters.ParamByName('b').Value :=Datetimetostr(datetimepicker2.time);
open;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
adotable1.Active :=true; //在ADOTable1属性里可以直接改吧?
end;
end.

datasource1.DataSet :=adoquery1;
这句话的意思是把Adoquery1 作为DataSource的数据集控件
adoquery1.Connection:=adoconnection1
和在ADOQuery属性里连接效果一样
select 客户全称,单价,报价日期 from 商品报价表 where 报价日期 between :a and :b'
:XXX 表示XXX是要传如的一个参数, and 是where 的条件的一部分 .