📄 unit15.pas
字号:
7:
begin
ds8:=ch12.Caption;
num:=num+1;
end;
8:
begin
ds9:=ch12.Caption;
num:=num+1;
end;
9:
begin
ds10:=ch12.Caption;
num:=num+1;
end;
10:
begin
ds11:=ch12.Caption;
num:=num+1;
end;
11:
begin
ds12:=ch12.Caption;
num:=num+1;
end;
end;
end;
if ch13.Checked=true then
begin
case num of
0:
begin
ds1:=ch13.Caption;
num:=num+1;
end;
1:
begin
ds2:=ch13.Caption;
num:=num+1;
end;
2:
begin
ds3:=ch13.Caption;
num:=num+1;
end;
3:
begin
ds4:=ch13.Caption;
num:=num+1;
end;
4:
begin
ds5:=ch13.Caption;
num:=num+1;
end;
5:
begin
ds6:=ch13.Caption;
num:=num+1;
end;
6:
begin
ds7:=ch13.Caption;
num:=num+1;
end;
7:
begin
ds8:=ch13.Caption;
num:=num+1;
end;
8:
begin
ds9:=ch13.Caption;
num:=num+1;
end;
9:
begin
ds10:=ch13.Caption;
num:=num+1;
end;
10:
begin
ds11:=ch13.Caption;
num:=num+1;
end;
11:
begin
ds12:=ch13.Caption;
num:=num+1;
end;
12:
begin
ds13:=ch13.Caption;
num:=num+1;
end;
end;
end;
if ch14.Checked=true then
begin
case num of
0:
begin
ds1:=ch14.Caption;
num:=num+1;
end;
1:
begin
ds2:=ch14.Caption;
num:=num+1;
end;
2:
begin
ds3:=ch14.Caption;
num:=num+1;
end;
3:
begin
ds4:=ch14.Caption;
num:=num+1;
end;
4:
begin
ds5:=ch14.Caption;
num:=num+1;
end;
5:
begin
ds6:=ch14.Caption;
num:=num+1;
end;
6:
begin
ds7:=ch14.Caption;
num:=num+1;
end;
7:
begin
ds8:=ch14.Caption;
num:=num+1;
end;
8:
begin
ds9:=ch14.Caption;
num:=num+1;
end;
9:
begin
ds10:=ch14.Caption;
num:=num+1;
end;
10:
begin
ds11:=ch14.Caption;
num:=num+1;
end;
11:
begin
ds12:=ch14.Caption;
num:=num+1;
end;
12:
begin
ds13:=ch14.Caption;
num:=num+1;
end;
13:
begin
ds14:=ch14.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 Tform15.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+'''';
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;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -