📄 unit14.pas
字号:
11:
begin
ds12:=ch19.Caption;
num:=num+1;
end;
12:
begin
ds13:=ch19.Caption;
num:=num+1;
end;
13:
begin
ds14:=ch19.Caption;
num:=num+1;
end;
14:
begin
ds15:=ch19.Caption;
num:=num+1;
end;
15:
begin
ds16:=ch19.Caption;
num:=num+1;
end;
16:
begin
ds17:=ch19.Caption;
num:=num+1;
end;
17:
begin
ds18:=ch19.Caption;
num:=num+1;
end;
18:
begin
ds19:=ch19.Caption;
num:=num+1;
end;
end;
end;
if ch20.Checked=true then
begin
case num of
0:
begin
ds1:=ch20.Caption;
num:=num+1;
end;
1:
begin
ds2:=ch20.Caption;
num:=num+1;
end;
2:
begin
ds3:=ch20.Caption;
num:=num+1;
end;
3:
begin
ds4:=ch20.Caption;
num:=num+1;
end;
4:
begin
ds5:=ch20.Caption;
num:=num+1;
end;
5:
begin
ds6:=ch20.Caption;
num:=num+1;
end;
6:
begin
ds7:=ch20.Caption;
num:=num+1;
end;
7:
begin
ds8:=ch20.Caption;
num:=num+1;
end;
8:
begin
ds9:=ch20.Caption;
num:=num+1;
end;
9:
begin
ds10:=ch20.Caption;
num:=num+1;
end;
10:
begin
ds11:=ch20.Caption;
num:=num+1;
end;
11:
begin
ds12:=ch20.Caption;
num:=num+1;
end;
12:
begin
ds13:=ch20.Caption;
num:=num+1;
end;
13:
begin
ds14:=ch20.Caption;
num:=num+1;
end;
14:
begin
ds15:=ch20.Caption;
num:=num+1;
end;
15:
begin
ds16:=ch20.Caption;
num:=num+1;
end;
16:
begin
ds17:=ch20.Caption;
num:=num+1;
end;
17:
begin
ds18:=ch20.Caption;
num:=num+1;
end;
18:
begin
ds19:=ch20.Caption;
num:=num+1;
end;
19:
begin
ds20:=ch20.Caption;
num:=num+1;
end;
end;
end;
if ch21.Checked=true then
begin
case num of
0:
begin
ds1:=ch21.Caption;
num:=num+1;
end;
1:
begin
ds2:=ch21.Caption;
num:=num+1;
end;
2:
begin
ds3:=ch21.Caption;
num:=num+1;
end;
3:
begin
ds4:=ch21.Caption;
num:=num+1;
end;
4:
begin
ds5:=ch21.Caption;
num:=num+1;
end;
5:
begin
ds6:=ch21.Caption;
num:=num+1;
end;
6:
begin
ds7:=ch21.Caption;
num:=num+1;
end;
7:
begin
ds8:=ch21.Caption;
num:=num+1;
end;
8:
begin
ds9:=ch21.Caption;
num:=num+1;
end;
9:
begin
ds10:=ch21.Caption;
num:=num+1;
end;
10:
begin
ds11:=ch21.Caption;
num:=num+1;
end;
11:
begin
ds12:=ch21.Caption;
num:=num+1;
end;
12:
begin
ds13:=ch21.Caption;
num:=num+1;
end;
13:
begin
ds14:=ch21.Caption;
num:=num+1;
end;
14:
begin
ds15:=ch21.Caption;
num:=num+1;
end;
15:
begin
ds16:=ch21.Caption;
num:=num+1;
end;
16:
begin
ds17:=ch21.Caption;
num:=num+1;
end;
17:
begin
ds18:=ch21.Caption;
num:=num+1;
end;
18:
begin
ds19:=ch21.Caption;
num:=num+1;
end;
19:
begin
ds20:=ch21.Caption;
num:=num+1;
end;
20:
begin
ds21:=ch21.Caption;
num:=num+1;
end;
end;
end;
case num of
0:
showmessage('没有任何指定的部门');
1:
BEGIN
showmessage(ds1);
table1.Filter:='部门'+'='+''''+ds1+'''';
table1.Filtered:=true;
END;
2:
begin
showmessage(ds1+','+ds2);
table1.Filter:='部门'+'='+''''+ds1+'''' + ' or ' + '部门'+'='+''''+ds2+'''';
table1.filtered:=true;
end;
3:
begin
showmessage(ds1+','+ds2+','+ds3);
table1.Filter:='部门'+'='+''''+ds1+'''' + ' or ' + '部门'+'='+''''+ds2+''''+
' or ' + '部门'+'='+''''+ds3+'''';
table1.filtered:=true;
end;
4:
begin
showmessage(ds1+','+ds2+','+ds3+','+ds4);
table1.Filter:='部门'+'='+''''+ds1+'''' + ' or ' + '部门'+'='+''''+ds2+''''+
' or ' + '部门'+'='+''''+ds3+''''+' or ' + '部门'+'='+''''+ds4+'''';
table1.filtered:=true;
end;
5:
begin
showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5);
table1.Filter:='部门'+'='+''''+ds1+'''' + ' or ' + '部门'+'='+''''+ds2+''''+
' or ' + '部门'+'='+''''+ds3+''''+' or ' + '部门'+'='+''''+ds4+''''
+' or ' + '部门'+'='+''''+ds5+'''';
table1.filtered:=true;
end;
6:
begin
showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6);
table1.Filter:='部门'+'='+''''+ds1+'''' + ' or ' + '部门'+'='+''''+ds2+''''+
' or ' + '部门'+'='+''''+ds3+''''+' or ' + '部门'+'='+''''+ds4+''''
+' or ' + '部门'+'='+''''+ds5+''''+' or ' + '部门'+'='+''''+ds6+'''';
table1.filtered:=true;
end;
7:
begin
showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6+','+ds7);
table1.Filter:='部门'+'='+''''+ds1+'''' + ' or ' + '部门'+'='+''''+ds2+''''+
' or ' + '部门'+'='+''''+ds3+''''+' or ' + '部门'+'='+''''+ds4+''''
+' or ' + '部门'+'='+''''+ds5+''''+' or ' + '部门'+'='+''''+ds6+''''+
' or ' + '部门'+'='+''''+ds7+'''';
table1.filtered:=true;
end;
8:
begin
showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6+','+ds7+','+ds8);
table1.Filter:='部门'+'='+''''+ds1+'''' + ' or ' + '部门'+'='+''''+ds2+''''+
' or ' + '部门'+'='+''''+ds3+''''+' or ' + '部门'+'='+''''+ds4+''''
+' or ' + '部门'+'='+''''+ds5+''''+' or ' + '部门'+'='+''''+ds6+''''+
' or ' + '部门'+'='+''''+ds7+''''+' or ' + '部门'+'='+''''+ds8+'''';
table1.filtered:=true;
end;
9:
begin
showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6+','+ds7+','+ds8+','+ds9);
table1.Filter:='部门'+'='+''''+ds1+'''' + ' or ' + '部门'+'='+''''+ds2+''''+
' or ' + '部门'+'='+''''+ds3+''''+' or ' + '部门'+'='+''''+ds4+''''
+' or ' + '部门'+'='+''''+ds5+''''+' or ' + '部门'+'='+''''+ds6+''''+
' or ' + '部门'+'='+''''+ds7+''''+' or ' + '部门'+'='+''''+ds8+''''
+' or ' + '部门'+'='+''''+ds9+'''';
table1.filtered:=true;
end;
10:
begin
showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6+','+ds7+','+ds8+','+ds9+','+ds10);
table1.Filter:='部门'+'='+''''+ds1+'''' + ' or ' + '部门'+'='+''''+ds2+''''+
' or ' + '部门'+'='+''''+ds3+''''+' or ' + '部门'+'='+''''+ds4+''''
+' or ' + '部门'+'='+''''+ds5+''''+' or ' + '部门'+'='+''''+ds6+''''+
' or ' + '部门'+'='+''''+ds7+''''+' or ' + '部门'+'='+''''+ds8+''''
+' or ' + '部门'+'='+''''+ds9+''''+' or ' + '部门'+'='+''''+ds10+'''';
table1.filtered:=true;
end;
11:
begin
showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6+','+ds7+','+ds8+','+ds9+','+ds10+','+ds11);
table1.Filter:='部门'+'='+''''+ds1+'''' + ' or ' + '部门'+'='+''''+ds2+''''+
' or ' + '部门'+'='+''''+ds3+''''+' or ' + '部门'+'='+''''+ds4+''''
+' or ' + '部门'+'='+''''+ds5+''''+' or ' + '部门'+'='+''''+ds6+''''+
' or ' + '部门'+'='+''''+ds7+''''+' or ' + '部门'+'='+''''+ds8+''''
+' or ' + '部门'+'='+''''+ds9+''''+' or ' + '部门'+'='+''''+ds10+''''
+' or ' + '部门'+'='+''''+ds11+'''';
table1.filtered:=true;
end;
end;
edit1.Text:=inttostr(table1.RecordCount);
sum:=0 ;
WITH TABLE1 DO
BEGIN
DISABLECONTROLS;
FIRST;
WHILE NOT EOF DO
BEGIN
EDIT;
sum:=sum+FIELDBYNAME('实发工资').AsFloat;
NEXT
END;
EnableControls;
END;
// qrexpr1.Expression:=floattostr(sum);
edit2.Text:=floattostr(sum);
quickreport8.QRLabel9.Caption:=edit1.Text;
quickreport8.QRLabel10.Caption:=edit2.Text;
end;
procedure Tform14.Button2Click(Sender: TObject);
begin
quickreport8.QRLabel7.Visible:=false;
quickreport8.QRLabel8.Visible:=false;
quickreport8.QRLabel9.Visible:=false;
quickreport8.QRLabel10.Visible:=false;
quickreport8.QRLabel7.Enabled:=false;
quickreport8.QRLabel8.Enabled:=false;
quickreport8.QRLabel9.Enabled:=false;
quickreport8.QRLabel10.Enabled:=false;
//quickreport7.QRExpr49.Visible:=true;
//quickreport7.QRExpr49.Enabled:=true;
//quickreport7.QRExpr50.Enabled:=false;
//quickreport7.QRExpr50.Visible:=false;
case num of
0:
showmessage('没有任何指定的部门可打印');
1:
BEGIN
showmessage('现在打印'+ds1+'请装纸');
table1.Filter:='部门'+'='+''''+ds1+'''';
table1.Filtered:=true;
form1.dszm.Text:=ds1;
quickreport8.Table1.Filter:=table1.Filter;
quickreport8.Table1.Filtered:=true;
quickreport8.preview;
showmessage(ds1+'的工资表打印完毕');
END;
2:
BEGIN
showmessage('现在打印'+ds1+'请装纸');
table1.Filter:='部门'+'='+''''+ds1+'''';
table1.Filtered:=true;
form1.dszm.Text:=ds1;
quickreport8.Table1.Filter:=table1.Filter;
quickreport8.Table1.Filtered:=true;
quickreport8.preview;
showmessage(ds1+'的工资表打印完毕');
showmessage('现在打印'+ds2+'请装纸');
table1.Filter:='部门'+'='+''''+ds2+'''';
table1.Filtered:=true;
form1.dszm.Text:=ds2;
quickreport8.Table1.Filter:=table1.Filter;
quickreport8.Table1.Filtered:=true;
quickreport8.preview;
showmessage(ds2+'的工资表打印完毕');
END;
3:
BEGIN
showmessage('现在打印'+ds1+'请装纸');
table1.Filter:='部门'+'='+''''+ds1+'''';
table1.Filtered:=true;
form1.dszm.Text:=ds1;
quickreport8.Table1.Filter:=table1.Filter;
quickreport8.Table1.Filtered:=true;
quickreport8.preview;
showmessage(ds1+'的工资表打印完毕');
showmessage('现在打印'+ds2+'请装纸');
table1.Filter:='部门'+'='+''''+ds2+'''';
table1.Filtered:=true;
form1.dszm.Text:=ds2;
quickreport8.Table1.Filter:=table1.Filter;
quickreport8.Table1.Filtered:=true;
quickreport8.preview;
showmessage(ds2+'的工资表打印完毕');
showmessage('现在打印'+ds3+'请装纸');
table1.Filter:='部门'+'='+''''+ds3+'''';
table1.Filtered:=true;
form1.dszm.Text:=ds3;
quickreport8.Table1.Filter:=table1.Filter;
quickreport8.Table1.Filtered:=true;
quickreport8.preview;
showmessage(ds3+'的工资表打印完毕');
END;
4:
BEGIN
showmessage('现在打印'+ds1+'请装纸');
table1.Filter:='部门'+'='+''''+ds1+'''';
table1.Filtered:=true;
form1.dszm.Text:=ds1;
quickreport8.Table1.Filter:=table1.Filter;
quickreport8.Table1.Filtered:=true;
quickreport8.preview;
showmessage(ds1+'的工资表打印完毕');
showmessage('现在打印'+ds2+'请装纸');
table1.Filter:='部门'+'='+''''+ds2+'''';
table1.Filtered:=true;
form1.dszm.Text:=ds2;
quickreport8.Table1.Filter:=table1.Filter;
quickreport8.Table1.Filtered:=true;
quickreport8.preview;
showmessage(ds2+'的工资表打印完毕');
showmessage('现在打印'+ds3+'请装纸');
table1.Filter:='部门'+'='+''''+ds3+'''';
table1.Filtered:=true;
form1.dszm.Text:=ds3;
quickreport8.Table1.Filter:=table1.Filter;
quickreport8.Table1.Filtered:=true;
quickreport8.preview;
showmessage(ds3+'的工资表打印完毕');
showmessage('现在打印'+ds4+'请装纸');
table1.Filter:='部门'+'='+''''+ds4+'''';
table1.Filtered:=true;
form1.dszm.Text:=ds4;
quickreport8.Table1.Filter:=table1.Filter;
quickreport8.Table1.Filtered:=true;
quickreport8.preview;
showmessage(ds4+'的工资表打印完毕');
END;
5:
BEGIN
showmessage('现在打印'+ds1+'请装纸');
table1.Filter:='部门'+'='+''''+ds1+'''';
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -