//利用adoquery,后台用的是asecc
begin
gk_dbm.SP_RKQuery.Close;
gk_dbm.SP_RKQuery.SQL.Clear;//其中RQ为adoquery的参数
gk_dbm.SP_RKQuery.SQL.Add('select * from sp_rk where 入库日期=:RQ');
gk_dbm.SP_RKQuery.Parameters[0].Value:=strtodate(self.XZJHQR_COB.Text); try
gk_dbm.sprk_query_open;
except
on E:EdatabaseError do
messagebox(self.Handle,'数据加载出错!','出错',mb_ok);
end;
if gk_dbm.SP_RKQuery.Active then
begin
self.DataSource1.DataSet:=nil;
self.DataSource1.DataSet:=gk_dbm.SP_RKQuery;
self.dbgrid1.datasource:=datasource1;
end;
end;
begin
gk_dbm.SP_RKQuery.Close;
gk_dbm.SP_RKQuery.SQL.Clear;//其中RQ为adoquery的参数
gk_dbm.SP_RKQuery.SQL.Add('select * from sp_rk where 入库日期=:RQ');
gk_dbm.SP_RKQuery.Parameters[0].Value:=strtodate(self.XZJHQR_COB.Text); try
gk_dbm.sprk_query_open;
except
on E:EdatabaseError do
messagebox(self.Handle,'数据加载出错!','出错',mb_ok);
end;
if gk_dbm.SP_RKQuery.Active then
begin
self.DataSource1.DataSet:=nil;
self.DataSource1.DataSet:=gk_dbm.SP_RKQuery;
self.dbgrid1.datasource:=datasource1;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货