⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 ye.pas

📁 应对服装行业的生产成本控制系统
💻 PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
help.Caption:='   查询完毕!';
end;

procedure TFrmye.DBGrid1KeyPress(Sender: TObject; var Key: Char);
var
  sk,fk,glfy,sj,sxf,ye,cye: String;
  i: integer;
begin
if not ClientDataSet2.RecordCount>0 then  exit;
sk:='0';
fk:='0';
glfy:='0';
sj:='0';
sxf:='0';
ye:='0';
cye:='0';
if key=#13 then
begin
   for i := 0 to (DBGrid1.SelectedRows.Count - 1) do
  begin
    DBGrid1.DataSource.DataSet.GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
 if DBGrid1.DataSource.DataSet.FieldByName('sk').AsString<>'' then sk:= formatfloat('0.00',strtofloat(sk)+DBGrid1.DataSource.DataSet.FieldByName('sk').AsFloat);
 if DBGrid1.DataSource.DataSet.FieldByName('fk').AsString<>'' then fk:=formatfloat('0.00',strtofloat(fk)+DBGrid1.DataSource.DataSet.FieldByName('fk').AsFloat);
 if DBGrid1.DataSource.DataSet.FieldByName('glfy').AsString<>'' then glfy:= formatfloat('0.00',strtofloat(glfy)+DBGrid1.DataSource.DataSet.FieldByName('glfy').AsFloat);
 if DBGrid1.DataSource.DataSet.FieldByName('sj').AsString<>'' then sj:=formatfloat('0.00',strtofloat(sj)+DBGrid1.DataSource.DataSet.FieldByName('sj').AsFloat);
 if DBGrid1.DataSource.DataSet.FieldByName('sxf').AsString<>'' then sxf:= formatfloat('0.00',strtofloat(sxf)+DBGrid1.DataSource.DataSet.FieldByName('sxf').AsFloat);
 if DBGrid1.DataSource.DataSet.FieldByName('ye').AsString<>'' then ye:=formatfloat('0.00',strtofloat(ye)+DBGrid1.DataSource.DataSet.FieldByName('ye').AsFloat);
 if DBGrid1.DataSource.DataSet.FieldByName('cye').AsString<>'' then cye:= formatfloat('0.00',strtofloat(cye)+DBGrid1.DataSource.DataSet.FieldByName('cye').AsFloat);
  end;
help.Caption:='收款'+sk+'付款'+fk+'管理费用'+glfy+'税前余额'+ye+'出口退税'+sj+'手续费'+sxf+'余额'+ye;
end;
end;

function TFrmye.hz:boolean;
var
  sk,fk,glfy,sj,sxf,ye,cye: String;
  i: integer;
begin
if not ClientDataSet2.RecordCount>0 then exit;
sk:='0';
fk:='0';
glfy:='0';
sj:='0';
sxf:='0';
ye:='0';
cye:='0';
   ClientDataSet2.DisableControls;
   ClientDataSet2.First;
   for i := 1 to ClientDataSet2.RecordCount do
  begin
 if ClientDataSet2.FieldByName('sk').AsString<>'' then sk:= formatfloat('0.00',strtofloat(sk)+ClientDataSet2.FieldByName('sk').AsFloat);
 if ClientDataSet2.FieldByName('fk').AsString<>'' then fk:=formatfloat('0.00',strtofloat(fk)+ClientDataSet2.FieldByName('fk').AsFloat);
 if ClientDataSet2.FieldByName('glfy').AsString<>'' then glfy:= formatfloat('0.00',strtofloat(glfy)+ClientDataSet2.FieldByName('glfy').AsFloat);
 if ClientDataSet2.FieldByName('sj').AsString<>'' then sj:=formatfloat('0.00',strtofloat(sj)+ClientDataSet2.FieldByName('sj').AsFloat);
 if ClientDataSet2.FieldByName('sxf').AsString<>'' then sxf:= formatfloat('0.00',strtofloat(sxf)+ClientDataSet2.FieldByName('sxf').AsFloat);
 if ClientDataSet2.FieldByName('ye').AsString<>'' then ye:=formatfloat('0.00',strtofloat(ye)+ClientDataSet2.FieldByName('ye').AsFloat);
 if ClientDataSet2.FieldByName('cye').AsString<>'' then cye:= formatfloat('0.00',strtofloat(cye)+ClientDataSet2.FieldByName('cye').AsFloat);
 ClientDataSet2.Next;
  end;
 ClientDataSet2.First;
 ClientDataSet2.EnableControls;
 try
 clientDataSet1.Close;
 clientDataSet1.SQL.Clear;
 clientDataSet1.SQL.Add('delete from zhbb');
 clientDataSet1.ExecSQL;
 clientDataSet1.Close;
 clientDataSet1.SQL.Clear;
 clientDataSet1.SQL.Add('select * from zhbb');
 clientDataSet1.Open;
 clientDataSet1.Append;
  ClientDataSet1.FieldByName('je').AsString:=sk;
  ClientDataSet1.FieldByName('zhrmb').AsString:=fk;
  ClientDataSet1.FieldByName('kcrmb').AsString:=glfy;
  ClientDataSet1.FieldByName('ssrmb').AsString:=sj;
  ClientDataSet1.FieldByName('je1').AsString:=sxf;
  ClientDataSet1.FieldByName('zhrmb1').AsString:=ye;
  ClientDataSet1.FieldByName('kcrmb1').AsString:=cye;
except
ClientDataSet2.EnableControls;
showmessage('数据汇总失败!');
end;
end;

function TFrmye.js:boolean;
var
  i: integer;
begin
if not ClientDataSet2.Active then exit;
if not ClientDataSet2.RecordCount>0 then exit;
   ClientDataSet2.DisableControls;
   ClientDataSet2.First;
 try
for i := 1 to ClientDataSet2.RecordCount do
  begin
ClientDataSet2.Edit;
ClientDataSet2.FieldByName('ye').AsString:=formatfloat('0.00',ClientDataSet2.FieldByName('sk').AsFloat-ClientDataSet2.FieldByName('fk').AsFloat-ClientDataSet2.FieldByName('glfy').AsFloat);
ClientDataSet2.FieldByName('sj').AsString:=formatfloat('0.00',ClientDataSet2.FieldByName('sj').AsFloat);
ClientDataSet2.FieldByName('sxf').AsString:=formatfloat('0.00',ClientDataSet2.FieldByName('sxf').AsFloat);
ClientDataSet2.FieldByName('cye').AsString:=formatfloat('0.00',ClientDataSet2.FieldByName('sk').AsFloat-ClientDataSet2.FieldByName('fk').AsFloat-ClientDataSet2.FieldByName('glfy').AsFloat+ClientDataSet2.FieldByName('sj').AsFloat-ClientDataSet2.FieldByName('sxf').AsFloat);
ClientDataSet2.Next;
  end;
 ClientDataSet2.First;
 ClientDataSet2.EnableControls;
except
 ClientDataSet2.EnableControls;
showmessage('数据汇总失败!');
end;
end;

function TFrmye.checkye(ks:string):string;
var
commandstring,commandstring0,relation,cx,wb,jg:string;
begin
wb:='''外币''';
relation:=' = ''';
cx:='';
commandstring0:=' where (dbo.khlxb.ks'+relation+cx+trim(ks)+cx+''')';
commandstring:='SELECT dbo.khlxb.ks, ISNULL';
commandstring:=commandstring+'((SELECT SUM(dbo.skb.zhrmb) zhrmb ';
commandstring:=commandstring+'FROM dbo.skb ';
commandstring:=commandstring+'WHERE dbo.skb.ks = dbo.khlxb.ks), 0) AS sk, ISNULL';
commandstring:=commandstring+'((SELECT SUM(dbo.fkb.zhrmb) zhrmb1 ';
commandstring:=commandstring+'FROM dbo.fkb ';
commandstring:=commandstring+'WHERE dbo.fkb.ks = dbo.khlxb.ks), 0) AS fk, ISNULL';
commandstring:=commandstring+'((SELECT SUM(dbo.glfyb.je) je ';
commandstring:=commandstring+'FROM dbo.glfyb ';
commandstring:=commandstring+'WHERE dbo.glfyb.ks = dbo.khlxb.ks), 0) AS glfy, ISNULL(MIN(tc.jszc), 0) AS sj, ';
commandstring:=commandstring+'ISNULL(sx.sxf, 0) AS sxf ';
commandstring:=commandstring+'FROM dbo.khlxb LEFT OUTER JOIN ';
commandstring:=commandstring+'(SELECT dbo.skb.ks, ISNULL';
commandstring:=commandstring+'((SELECT SUM(dbo.fkkpb.dksj) dksj ';
commandstring:=commandstring+'FROM dbo.fkkpb ';
commandstring:=commandstring+'WHERE dbo.fkkpb.ks = dbo.skb.ks), 0) ';
commandstring:=commandstring+'- ISNULL(SUM(dbo.skb.zhrmb * (0.17 - dbo.hbhlb.tsl)), 0) - ISNULL';
commandstring:=commandstring+'((SELECT SUM(dbo.skkpb.dksj) dksj1 ';
commandstring:=commandstring+'FROM dbo.skkpb ';
commandstring:=commandstring+'WHERE dbo.skkpb.ks = dbo.skb.ks), 0) AS jszc ';
commandstring:=commandstring+'FROM dbo.skb INNER JOIN ';
commandstring:=commandstring+'dbo.hbhlb ON dbo.skb.hbmc = dbo.hbhlb.hbmc ';
commandstring:=commandstring+'WHERE (dbo.hbhlb.bb = '+wb;
commandstring:=commandstring+') ';
commandstring:=commandstring+'GROUP BY dbo.skb.ks ';
commandstring:=commandstring+'UNION ';
commandstring:=commandstring+'SELECT dbo.skb.ks, ISNULL(SUM(dbo.skb.zhrmb * dbo.hbhlb.tsl), 0) ';
commandstring:=commandstring+'AS jszc1 ';
commandstring:=commandstring+'FROM dbo.skb INNER JOIN ';
commandstring:=commandstring+'dbo.hbhlb ON dbo.skb.hbmc = dbo.hbhlb.hbmc ';
commandstring:=commandstring+'WHERE (dbo.hbhlb.bb = '+wb;
commandstring:=commandstring+') ';
commandstring:=commandstring+'GROUP BY dbo.skb.ks) tc ON dbo.khlxb.ks = tc.ks LEFT OUTER JOIN ';
commandstring:=commandstring+'(SELECT dbo.skb.ks, SUM(dbo.skb.zhrmb * dbo.hbhlb.fhbl) AS sxf ';
commandstring:=commandstring+'FROM dbo.skb INNER JOIN ';
commandstring:=commandstring+'dbo.hbhlb ON dbo.skb.hbmc = dbo.hbhlb.hbmc ';
commandstring:=commandstring+'GROUP BY dbo.skb.ks) sx ON dbo.khlxb.ks = sx.ks ';
commandstring:=commandstring+commandstring0;
commandstring:=commandstring+' GROUP BY dbo.khlxb.ks, sx.sxf';
  try
ClientDataSet2.DisableControls;
ClientDataSet2.Close;
ClientDataSet2.CommandText:=commandstring;
ClientDataSet2.Open;
ClientDataSet2.EnableControls;
if ClientDataSet2.RecordCount>0 then
begin
jg:='     税前余额为'+formatfloat('0.00',ClientDataSet2.FieldByName('sk').AsFloat-ClientDataSet2.FieldByName('fk').AsFloat-ClientDataSet2.FieldByName('glfy').AsFloat);
jg:=jg+'      余额为'+formatfloat('0.00',ClientDataSet2.FieldByName('sk').AsFloat-ClientDataSet2.FieldByName('fk').AsFloat-ClientDataSet2.FieldByName('glfy').AsFloat+ClientDataSet2.FieldByName('sj').AsFloat-ClientDataSet2.FieldByName('sxf').AsFloat);
checkye:=jg;
end;
except
ClientDataSet2.EnableControls;
showmessage('数据库没有打开!');
end;
if ClientDataSet2.Active then ClientDataSet2.Active:=false;
end;

procedure TFrmye.BfbhzClick(Sender: TObject);
var
commandstring0,relation,cx,wb:string;
begin
 relation:=' like ''';
    cx:='%';

wb:='''外币''';
commandstring0:='';
if (trim(qfb.Text)<>'') and (cfb.Checked) then
   begin
    relation:=' like ''';
    cx:='%';
commandstring0:=' where (dbo.fbb.fb'+relation+cx+trim(qfb.Text)+cx+''')';
end;
commandstring:='SELECT dbo.fbb.fb,sum(ye) ye,sum(cye) cye, ISNULL';
commandstring:=commandstring+'((SELECT SUM(dbo.skb.zhrmb) zhrmb ';
commandstring:=commandstring+'FROM dbo.skb ';
commandstring:=commandstring+'WHERE dbo.skb.fb = dbo.fbb.fb), 0) AS sk, ISNULL';
commandstring:=commandstring+'((SELECT SUM(dbo.fkb.zhrmb) zhrmb1 ';
commandstring:=commandstring+'FROM dbo.fkb ';
commandstring:=commandstring+'WHERE dbo.fkb.fb = dbo.fbb.fb), 0) AS fk, ISNULL';
commandstring:=commandstring+'((SELECT SUM(dbo.glfyb.je) je ';
commandstring:=commandstring+'FROM dbo.glfyb ';
commandstring:=commandstring+'WHERE dbo.glfyb.fb = dbo.fbb.fb), 0) AS glfy, ISNULL(MIN(tc.jszc), 0) AS sj, ';
commandstring:=commandstring+'ISNULL(sx.sxf, 0) AS sxf ';
commandstring:=commandstring+'FROM dbo.fbb LEFT OUTER JOIN ';
commandstring:=commandstring+'(SELECT dbo.skb.fb, ISNULL';
commandstring:=commandstring+'((SELECT SUM(dbo.fkkpb.dksj) dksj ';
commandstring:=commandstring+'FROM dbo.fkkpb ';
commandstring:=commandstring+'WHERE dbo.fkkpb.fb = dbo.skb.fb), 0) ';
commandstring:=commandstring+'- ISNULL(SUM(dbo.skb.zhrmb * (0.17 - dbo.hbhlb.tsl)), 0) - ISNULL';
commandstring:=commandstring+'((SELECT SUM(dbo.skkpb.dksj) dksj1 ';
commandstring:=commandstring+'FROM dbo.skkpb ';
commandstring:=commandstring+'WHERE dbo.skkpb.fb = dbo.skb.fb), 0) AS jszc ';
commandstring:=commandstring+'FROM dbo.skb INNER JOIN ';
commandstring:=commandstring+'dbo.hbhlb ON dbo.skb.hbmc = dbo.hbhlb.hbmc ';
commandstring:=commandstring+'WHERE (dbo.hbhlb.bb = '+wb;
commandstring:=commandstring+') ';
commandstring:=commandstring+'GROUP BY dbo.skb.fb ';
commandstring:=commandstring+'UNION ';
commandstring:=commandstring+'SELECT dbo.skb.fb, ISNULL(SUM(dbo.skb.zhrmb * dbo.hbhlb.tsl), 0) ';
commandstring:=commandstring+'AS jszc1 ';
commandstring:=commandstring+'FROM dbo.skb INNER JOIN ';
commandstring:=commandstring+'dbo.hbhlb ON dbo.skb.hbmc = dbo.hbhlb.hbmc ';
commandstring:=commandstring+'WHERE (dbo.hbhlb.bb = '+wb;
commandstring:=commandstring+') ';
commandstring:=commandstring+'GROUP BY dbo.skb.fb) tc ON dbo.fbb.fb = tc.fb LEFT OUTER JOIN ';
commandstring:=commandstring+'(SELECT dbo.skb.fb, SUM(dbo.skb.zhrmb * dbo.hbhlb.fhbl) AS sxf ';
commandstring:=commandstring+'FROM dbo.skb INNER JOIN ';
commandstring:=commandstring+'dbo.hbhlb ON dbo.skb.hbmc = dbo.hbhlb.hbmc ';
commandstring:=commandstring+'GROUP BY dbo.skb.fb) sx ON dbo.fbb.fb = sx.fb ';
commandstring:=commandstring+commandstring0;
commandstring:=commandstring+' GROUP BY dbo.fbb.fb, sx.sxf';
commandstringq:=commandstring;
dbgrid1.DataSource:=DataSource2;
  try
ClientDataSet2.DisableControls;
ClientDataSet2.Close;
ClientDataSet2.CommandText:=commandstring;
ClientDataSet2.Open;
ClientDataSet2.EnableControls;
bprint.Enabled:=true;
js;
hz;
except
ClientDataSet2.EnableControls;
showmessage('数据库没有打开!');
end;
help.Caption:='   查询完毕!';
end;

end.
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -