cllrcx.pas

来自「应对服装行业的生产成本控制系统」· PAS 代码 · 共 1,513 行 · 第 1/3 页

end
else
begin
qcm.Text:='';
end;
if (trim(qsl.Text)<>'') and (csl.Checked) then
   begin
    relation:=' like ''';
    cx:='%';
  if  commandstring=commandtring1 then
  begin
commandstring:=commandstring+' where (dbo.cllrb.sl'+relation+cx+trim(qsl.Text)+cx+''')';
end
else
begin
commandstring:=commandstring+' and (dbo.cllrb.sl'+relation+cx+trim(qsl.Text)+cx+''')';
end;
end
else
begin
qsl.Text:='';
end;
if (trim(qgxmc.Text)<>'') and (cgxmc.Checked) then
   begin
    relation:=' like ''';
    cx:='%';
  if  commandstring=commandtring1 then
  begin
commandstring:=commandstring+' where (dbo.cllrb.gxmc'+relation+cx+trim(qgxmc.Text)+cx+''')';
end
else
begin
commandstring:=commandstring+' and (dbo.cllrb.gxmc'+relation+cx+trim(qgxmc.Text)+cx+''')';
end;
end
else
begin
qgxmc.Text:='';
end;
if (trim(qdj.Text)<>'') and (cdj.Checked) then
   begin
    relation:=' like ''';
    cx:='%';
  if  commandstring=commandtring1 then
  begin
commandstring:=commandstring+' where (dbo.cllrb.dj'+relation+cx+trim(qdj.Text)+cx+''')';
end
else
begin
commandstring:=commandstring+' and (dbo.cllrb.dj'+relation+cx+trim(qdj.Text)+cx+''')';
end;
end
else
begin
qdj.Text:='';
end;
if (trim(qxs.Text)<>'') and (cxs.Checked) then
   begin
    relation:=' like ''';
    cx:='%';
  if  commandstring=commandtring1 then
  begin
commandstring:=commandstring+' where (dbo.cllrb.xs'+relation+cx+trim(qxs.Text)+cx+''')';
end
else
begin
commandstring:=commandstring+' and (dbo.cllrb.xs'+relation+cx+trim(qxs.Text)+cx+''')';
end;
end
else
begin
qxs.Text:='';
end;
if (trim(qcz.Text)<>'') and (ccz.Checked) then
   begin
    relation:=' like ''';
    cx:='%';
  if  commandstring=commandtring1 then
  begin
commandstring:=commandstring+' where (dbo.cllrb.cz'+relation+cx+trim(qcz.Text)+cx+''')';
end
else
begin
commandstring:=commandstring+' and (dbo.cllrb.cz'+relation+cx+trim(qcz.Text)+cx+''')';
end;
end
else
begin
qcz.Text:='';
end;
if (trim(qbz.Text)<>'') and (cbz.Checked) then
   begin
    relation:=' like ''';
    cx:='%';
  if  commandstring=commandtring1 then
  begin
commandstring:=commandstring+' where (dbo.cllrb.bz'+relation+cx+trim(qbz.Text)+cx+''')';
end
else
begin
commandstring:=commandstring+' and (dbo.cllrb.bz'+relation+cx+trim(qbz.Text)+cx+''')';
end;
end
else
begin
qbz.Text:='';
end;
if (trim(qczy.Text)<>'') and (cczy.Checked) then
   begin
    relation:=' like ''';
    cx:='%';
  if  commandstring=commandtring1 then
  begin
commandstring:=commandstring+' where (dbo.cllrb.czy'+relation+cx+trim(qczy.Text)+cx+''')';
end
else
begin
commandstring:=commandstring+' and (dbo.cllrb.czy'+relation+cx+trim(qczy.Text)+cx+''')';
end;
end
else
begin
qczy.Text:='';
end;
commandstring:=commandstring+' group by fz,ys,cm,gxmc,dj,xs';
commandstring:=commandstring+' order by fz,ys,cm,gxmc,dj,xs';
commandstringq:=commandstring;
DataModule1.ClientDataSet25.DisableControls;
DataModule1.ClientDataSet25.Close;
DataModule1.ClientDataSet25.CommandText:=commandstring;
DataModule1.ClientDataSet25.Open;
hz;
DataModule1.ClientDataSet25.EnableControls;
except
DataModule1.clientdataset25.EnableControls;
showmessage('数据库没有打开!');
end;
end;

procedure TFrmcllrcx.ByghzClick(Sender: TObject);
var
commandtring1,relation,cx:string;
begin
 relation:=' like ''';
    cx:='%';
commandstring:='select yg,ys,cm,gxmc,dj,xs,sum(sl) as sl,sum(cz) as cz from dbo.cllrb';
commandtring1:=commandstring;
  try
if (trim(qddh.Text)<>'') and (cddh.Checked) then
   begin
 relation:=' like ''';
    cx:='%';
  if  commandstring=commandtring1 then
  begin
commandstring:=commandstring+' where (dbo.cllrb.ddh'+relation+cx+trim(qddh.Text)+cx+''')';
end
else
begin
commandstring:=commandstring+' and (dbo.cllrb.ddh'+relation+cx+trim(qddh.Text)+cx+''')';
end;
end
else
begin
qddh.Text:='';
end;
if (trim(qclh.Text)<>'') and (cclh.Checked) then
   begin
 relation:=' like ''';
    cx:='%';
  if  commandstring=commandtring1 then
  begin
commandstring:=commandstring+' where (dbo.cllrb.clh'+relation+cx+trim(qclh.Text)+cx+''')';
end
else
begin
commandstring:=commandstring+' and (dbo.cllrb.clh'+relation+cx+trim(qclh.Text)+cx+''')';
end;
end
else
begin
qclh.Text:='';
end;
if cqq.Checked then
 begin
if commandstring=commandtring1 then
begin
relation:=' >= ''';
    cx:='';
commandstring:=commandstring+' where (dbo.cllrb.rq'+ relation+FormatDateTime('yyyy-mm-dd',qq.Date)+cx+''')';
end
else
begin
relation:=' >= ''';
    cx:='';
commandstring:=commandstring+' and (dbo.cllrb.rq'+ relation+FormatDateTime('yyyy-mm-dd',qq.Date)+cx+''')';
end;
end;
if czq.Checked then
 begin
if commandstring=commandtring1 then
begin
relation:=' < ''';
    cx:='';
commandstring:=commandstring+' where (dbo.cllrb.rq'+ relation+FormatDateTime('yyyy-mm-dd',zq.Date+1)+cx+''')';
end
else
begin
relation:=' < ''';
    cx:='';
commandstring:=commandstring+' and (dbo.cllrb.rq'+ relation+FormatDateTime('yyyy-mm-dd',zq.Date+1)+cx+''')';
end;
end;
if (trim(qgh.Text)<>'') and (cgh.Checked) then
   begin
    relation:=' like ''';
    cx:='%';
  if  commandstring=commandtring1 then
  begin
commandstring:=commandstring+' where (dbo.cllrb.gh'+relation+cx+trim(qgh.Text)+cx+''')';
end
else
begin
commandstring:=commandstring+' and (dbo.cllrb.gh'+relation+cx+trim(qgh.Text)+cx+''')';
end;
end
else
begin
qgh.Text:='';
end;
if (trim(qfb.Text)<>'') and (cfb.Checked) then
   begin
    relation:=' like ''';
    cx:='%';
  if  commandstring=commandtring1 then
  begin
commandstring:=commandstring+' where (dbo.cllrb.fb'+relation+cx+trim(qfb.Text)+cx+''')';
end
else
begin
commandstring:=commandstring+' and (dbo.cllrb.fb'+relation+cx+trim(qfb.Text)+cx+''')';
end;
end
else
begin
qfb.Text:='';
end;
if (trim(qfz.Text)<>'') and (cfz.Checked) then
   begin
    relation:=' like ''';
    cx:='%';
  if  commandstring=commandtring1 then
  begin
commandstring:=commandstring+' where (dbo.cllrb.fz'+relation+cx+trim(qfz.Text)+cx+''')';
end
else
begin
commandstring:=commandstring+' and (dbo.cllrb.fz'+relation+cx+trim(qfz.Text)+cx+''')';
end;
end
else
begin
qfz.Text:='';
end;
if (trim(qyg.Text)<>'') and (cyg.Checked) then
   begin
    relation:=' like ''';
    cx:='%';
  if  commandstring=commandtring1 then
  begin
commandstring:=commandstring+' where (dbo.cllrb.yg'+relation+cx+trim(qyg.Text)+cx+''')';
end
else
begin
commandstring:=commandstring+' and (dbo.cllrb.yg'+relation+cx+trim(qyg.Text)+cx+''')';
end;
end
else
begin
qyg.Text:='';
end;
if (trim(qbh.Text)<>'') and (cbh.Checked) then
   begin
    relation:=' like ''';
    cx:='%';
  if  commandstring=commandtring1 then
  begin
commandstring:=commandstring+' where (dbo.cllrb.bh'+relation+cx+trim(qbh.Text)+cx+''')';
end
else
begin
commandstring:=commandstring+' and (dbo.cllrb.bh'+relation+cx+trim(qbh.Text)+cx+''')';
end;
end
else
begin
qbh.Text:='';
end;
if (trim(qys.Text)<>'') and (cys.Checked) then
   begin
    relation:=' like ''';
    cx:='%';
  if  commandstring=commandtring1 then
  begin
commandstring:=commandstring+' where (dbo.cllrb.ys'+relation+cx+trim(qys.Text)+cx+''')';
end
else
begin
commandstring:=commandstring+' and (dbo.cllrb.ys'+relation+cx+trim(qys.Text)+cx+''')';
end;
end
else
begin
qys.Text:='';
end;
if (trim(qcm.Text)<>'') and (ccm.Checked) then
   begin
    relation:=' like ''';
    cx:='%';
  if  commandstring=commandtring1 then
  begin
commandstring:=commandstring+' where (dbo.cllrb.cm'+relation+cx+trim(qcm.Text)+cx+''')';
end
else
begin
commandstring:=commandstring+' and (dbo.cllrb.cm'+relation+cx+trim(qcm.Text)+cx+''')';
end;
end
else
begin
qcm.Text:='';
end;
if (trim(qsl.Text)<>'') and (csl.Checked) then
   begin
    relation:=' like ''';
    cx:='%';
  if  commandstring=commandtring1 then
  begin
commandstring:=commandstring+' where (dbo.cllrb.sl'+relation+cx+trim(qsl.Text)+cx+''')';
end
else
begin
commandstring:=commandstring+' and (dbo.cllrb.sl'+relation+cx+trim(qsl.Text)+cx+''')';
end;
end
else
begin
qsl.Text:='';
end;
if (trim(qgxmc.Text)<>'') and (cgxmc.Checked) then
   begin
    relation:=' like ''';
    cx:='%';
  if  commandstring=commandtring1 then
  begin
commandstring:=commandstring+' where (dbo.cllrb.gxmc'+relation+cx+trim(qgxmc.Text)+cx+''')';
end
else
begin
commandstring:=commandstring+' and (dbo.cllrb.gxmc'+relation+cx+trim(qgxmc.Text)+cx+''')';
end;
end
else
begin
qgxmc.Text:='';
end;
if (trim(qdj.Text)<>'') and (cdj.Checked) then
   begin
    relation:=' like ''';
    cx:='%';
  if  commandstring=commandtring1 then
  begin
commandstring:=commandstring+' where (dbo.cllrb.dj'+relation+cx+trim(qdj.Text)+cx+''')';
end
else
begin
commandstring:=commandstring+' and (dbo.cllrb.dj'+relation+cx+trim(qdj.Text)+cx+''')';
end;
end
else
begin
qdj.Text:='';
end;
if (trim(qxs.Text)<>'') and (cxs.Checked) then
   begin
    relation:=' like ''';
    cx:='%';
  if  commandstring=commandtring1 then
  begin
commandstring:=commandstring+' where (dbo.cllrb.xs'+relation+cx+trim(qxs.Text)+cx+''')';
end
else
begin
commandstring:=commandstring+' and (dbo.cllrb.xs'+relation+cx+trim(qxs.Text)+cx+''')';
end;
end
else
begin
qxs.Text:='';
end;
if (trim(qcz.Text)<>'') and (ccz.Checked) then
   begin
    relation:=' like ''';
    cx:='%';
  if  commandstring=commandtring1 then
  begin
commandstring:=commandstring+' where (dbo.cllrb.cz'+relation+cx+trim(qcz.Text)+cx+''')';
end
else
begin
commandstring:=commandstring+' and (dbo.cllrb.cz'+relation+cx+trim(qcz.Text)+cx+''')';
end;
end
else
begin
qcz.Text:='';
end;
if (trim(qbz.Text)<>'') and (cbz.Checked) then
   begin
    relation:=' like ''';
    cx:='%';
  if  commandstring=commandtring1 then
  begin
commandstring:=commandstring+' where (dbo.cllrb.bz'+relation+cx+trim(qbz.Text)+cx+''')';
end
else
begin
commandstring:=commandstring+' and (dbo.cllrb.bz'+relation+cx+trim(qbz.Text)+cx+''')';
end;
end
else
begin
qbz.Text:='';
end;
if (trim(qczy.Text)<>'') and (cczy.Checked) then
   begin
    relation:=' like ''';
    cx:='%';
  if  commandstring=commandtring1 then
  begin
commandstring:=commandstring+' where (dbo.cllrb.czy'+relation+cx+trim(qczy.Text)+cx+''')';
end
else
begin
commandstring:=commandstring+' and (dbo.cllrb.czy'+relation+cx+trim(qczy.Text)+cx+''')';
end;
end
else
begin
qczy.Text:='';
end;
commandstring:=commandstring+' group by yg,ys,cm,gxmc,dj,xs';
commandstring:=commandstring+' order by yg,ys,cm,gxmc,dj,xs';
commandstringq:=commandstring;
DataModule1.ClientDataSet25.DisableControls;
DataModule1.ClientDataSet25.Close;
DataModule1.ClientDataSet25.CommandText:=commandstring;
DataModule1.ClientDataSet25.Open;
hz;
DataModule1.ClientDataSet25.EnableControls;
except
DataModule1.clientdataset25.EnableControls;
showmessage('数据库没有打开!');
end;
end;
function TFrmcllrcx.hz:boolean;
var
  sl,cz: String;
  i: integer;
begin
sl:='0';
cz:='0';
if not DataModule1.ClientDataSet25.RecordCount>0 then exit;
   DataModule1.ClientDataSet25.First;
   for i := 1 to DataModule1.ClientDataSet25.RecordCount do
  begin
 if DataModule1.ClientDataSet25.FieldByName('sl').AsString<>'' then sl:= formatfloat('0',strtofloat(sl)+DataModule1.ClientDataSet25.FieldByName('sl').AsFloat);
 if DataModule1.ClientDataSet25.FieldByName('cz').AsString<>'' then cz:= formatfloat('0.00',strtofloat(cz)+DataModule1.ClientDataSet25.FieldByName('cz').AsFloat);
 DataModule1.ClientDataSet25.Next;
  end;
 DataModule1.ClientDataSet25.First;
help.Caption:='  合计数量为'+sl+'  合计产值为'+cz;
end;
procedure TFrmcllrcx.DBGrid5KeyPress(Sender: TObject; var Key: Char);
var
  sl,cz: String;
  i: integer;
begin
sl:='0';
cz:='0';
if key=#13 then
begin
   for i := 0 to (DBGrid5.SelectedRows.Count - 1) do
  begin
    DBGrid5.DataSource.DataSet.GotoBookmark(pointer(DBGrid5.SelectedRows.Items[i]));
 if DBGrid5.DataSource.DataSet.FieldByName('sl').AsString<>'' then sl:= formatfloat('0',strtofloat(sl)+DBGrid5.DataSource.DataSet.FieldByName('sl').AsFloat);
 if DBGrid5.DataSource.DataSet.FieldByName('cz').AsString<>'' then cz:= formatfloat('0.00',strtofloat(cz)+DBGrid5.DataSource.DataSet.FieldByName('cz').AsFloat);
  end;
help.Caption:='  合计数量为'+sl+'  合计金额为'+cz;
end;
end;

end.