|
发表于 2010-9-8 08:47:26
|
显示全部楼层
var
lBeginDate,lEndDate,lSQFileter,lDeptID:string;
const
CSQLFILTER='HH_DATE>=''%s'' and HH_DATE<=''%s'' '
+' and HH_TBDW like ''%s''';
begin
//Inherited;
lBeginDate:=FormatDateTime('yyyy-MM',dtpKS.Date);
lEndDate:=FormatDateTime('yyyy-MM',dtpJS.Date);
lDeptID:=dsbBMB.DataSet.FieldByName('dwdm').AsString;
lSQFileter:=Format(CSQLFILTER,[lBeginDate,lEndDate,lDeptID+'%']);
dsbWXHX.DataSet.Close;
TSqlDataSet(dsbWXHX.DataSet).SQLFiltered:=True;
TSqlDataSet(dsbWXHX.DataSet).SQLFilter:=lSQFileter;
dsbWXHX.DataSet.Open;
dsbWXHXMX.DataSet.Close;
dsbWXHXMX.DataSet.open;
end;
主从连接是在信息中设置的。
|
-
-
1.jpg
217.33 KB, 下载次数: 189
|