📄 jzprint.pas
字号:
unit jzprint;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
QuickRpt, Qrctrls, ExtCtrls, DBTables, Db;
type
Tjzbprintform = class(TForm)
qr1: TQuickRep;
QRBand1: TQRBand;
QRLabel1: TQRLabel;
QRLabel23: TQRLabel;
QRSubDetail2: TQRSubDetail;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel9: TQRLabel;
QRLabel10: TQRLabel;
QRSubDetail3: TQRSubDetail;
QRDBText27: TQRDBText;
QRDBText28: TQRDBText;
QRDBText32: TQRDBText;
QRDBText33: TQRDBText;
QRDBText34: TQRDBText;
QRDBText35: TQRDBText;
QRDBText36: TQRDBText;
Panel1: TPanel;
QRBand2: TQRBand;
Query1: TQuery;
QRLabel13: TQRLabel;
jzfs: TQRLabel;
QRLabel15: TQRLabel;
gzzh: TQRLabel;
mff: TQRLabel;
mxf: TQRLabel;
QRSubDetail1: TQRSubDetail;
g00: TQRLabel;
rm: TQRLabel;
g40: TQRLabel;
rcsm: TQRLabel;
QRSubDetail4: TQRSubDetail;
g21: TQRLabel;
g31: TQRLabel;
g41: TQRLabel;
g51: TQRLabel;
g61: TQRLabel;
g71: TQRLabel;
g81: TQRLabel;
QRSubDetail5: TQRSubDetail;
q1: TQuery;
q2: TQuery;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
QRDBText8: TQRDBText;
QRDBText9: TQRDBText;
QRDBText10: TQRDBText;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRLabel14: TQRLabel;
QRLabel19: TQRLabel;
sm: TQRLabel;
QRLabel20: TQRLabel;
scsm: TQRLabel;
QRSubDetail11: TQRSubDetail;
QRLabel31: TQRLabel;
xm: TQRLabel;
QRSubDetail6: TQRSubDetail;
g03: TQRLabel;
g13: TQRLabel;
g23: TQRLabel;
g33: TQRLabel;
g43: TQRLabel;
g53: TQRLabel;
g63: TQRLabel;
g73: TQRLabel;
g83: TQRLabel;
QRSubDetail8: TQRSubDetail;
QRDBText11: TQRDBText;
QRDBText12: TQRDBText;
QRDBText13: TQRDBText;
QRDBText15: TQRDBText;
QRDBText16: TQRDBText;
QRDBText18: TQRDBText;
QRDBText19: TQRDBText;
QRDBText20: TQRDBText;
QRDBText14: TQRDBText;
QRSubDetail9: TQRSubDetail;
QRLabel18: TQRLabel;
dhf: TQRLabel;
QRSubDetail10: TQRSubDetail;
QRLabel17: TQRLabel;
hm: TQRLabel;
QRLabel21: TQRLabel;
yjm: TQRLabel;
QRLabel22: TQRLabel;
mcs: TQRLabel;
QRLabel25: TQRLabel;
QRLabel26: TQRLabel;
mm: TQRLabel;
QRLabel27: TQRLabel;
ym: TQRLabel;
QRLabel28: TQRLabel;
jym: TQRLabel;
jj: TQRLabel;
QRLabel24: TQRLabel;
zk: TQRLabel;
QRLabel11: TQRLabel;
QRLabel12: TQRLabel;
QRLabel29: TQRLabel;
QRLabel30: TQRLabel;
QRSysData1: TQRSysData;
QRLabel32: TQRLabel;
QRImage2: TQRImage;
QRLabel33: TQRLabel;
khfzz: TQRLabel;
QRLabel34: TQRLabel;
QRLabel35: TQRLabel;
Query2: TQuery;
QRLabel16: TQRLabel;
QRLabel38: TQRLabel;
procedure FormCreate(Sender: TObject);
procedure QRSubDetail10AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
jzbprintform: Tjzbprintform;
implementation
uses dataproc, jk, newjzform;
{$R *.DFM}
procedure Tjzbprintform.FormCreate(Sender: TObject);
begin
query1.close;
query1.sql.clear;
query1.sql.add('Select UnitName from syssetup');
query1.open;
QRLabel1.Caption:=trim(unpassname(query1.Fields[0].asstring))+'桑拿部宾客帐单';
QRLabel29.Caption:=trim(unpassname(query1.Fields[0].asstring))+'：恭祝您万事如意，欢迎您再次光临！';
query1.close;
Query1.UnPrepare;
query1.sql.clear;
// query1.RequestLive:=true;
QRLabel1.Font:=Panel1.Font;
QRLabel1.Left:=strtoint(floattostr(int((QRBand1.Width-QRLabel1.Width)/2)));
QRLabel29.Left:=strtoint(floattostr(int((QRBand1.Width-QRLabel29.Width)/2)));
QRLabel23.Caption:=formatdatetime('yyyy',now)+'年'+formatdatetime('mm',now)+'月'+formatdatetime('dd',now)+'日';
QRLabel23.Left:=strtoint(floattostr(int((QRBand1.Width-QRLabel23.Width)/2)));
query1.Active :=false;
query1.sql.clear;
query1.sql.add('select handno,s.sexname,begtime,acctime,endtime,money,csmoney from nowin,lssex s where ((accno=:paccno) and (nowin.sex=s.sex)) ');
query1.sql.add('union (select handno,s.sexname,begtime,acctime,endtime,money,csmoney from changeroom,lssex s where ((accno=:pac) and (changeroom.sex=s.sex)) )');
// query1.sql.add('select handno,s.sexname,begtime,acctime,endtime,money,csmoney from nowin,lssex s where ((accno=:paccno) and (nowin.sex=s.sex)) ');
// query1.sql.add('union (select handno,s.sexname,begtime,acctime,endtime,money,csmoney from changeroom,lssex s where ((accno=:pac) and (changeroom.sex=s.sex)) )');
query1.ParamByName ('paccno').asstring:=paccount;
query1.ParamByName ('pac').asstring:=paccount;
query1.Prepare;
query1.Open;
query1.active:=true;
q2.Active :=false;
q2.sql.clear;
q2.sql.add('select custom.handno,lssex.sexname,cusitem.cusname,custom.cusprice,custom.cusnum,custom.money,custom.isxj,custom.ismd,custom.regtime,custom.djcode');
q2.sql.add(' from custom,cusitem,lssex where ((accno=:paccno) and (custom.cuscode=cusitem.cuscode) and (custom.sex=lssex.sex))');
q2.ParamByName ('paccno').asstring:=paccount;
q2.Prepare;
q2.Open;
tbooleanfield(q2.Fields[6]).displayvalues:='是;否';
tbooleanfield(q2.Fields[7]).displayvalues:='是;否';
q2.active:=true;
query2.Active :=false;
query2.sql.clear;
query2.sql.add('select distinct djcode from nowin where (accno=:paccno)');
query2.ParamByName ('paccno').asstring:=paccount;
query2.Prepare;
query2.Open;
QRLabel35.Caption:='';
while not query2.Eof do
begin
QRLabel35.Caption:=QRLabel35.Caption+','+query2.Fields[0].AsString;
query2.Next;
end;
{ q1.Active :=false;
q1.sql.clear;
q1.sql.add('select roomno,extension,begtime,address,phmoney,agnomen,fwf,hjmoney,dftel from phonedb where roomno in (select roomno from nowin where accno=:paccno) and begtime>=(select min(begtime) from nowin where accno=:paccno)');
q1.ParamByName ('paccno').asstring:=paccount;
q1.Prepare;
q1.Open;
q1.active:=true;
}
jzfs.Caption:=newjz.jzfsname.Text;
if (trim(jzfs.Caption)='挂帐') or (trim(jzfs.Caption)='记帐') then
begin
QRLabel15.Enabled:=true;
gzzh.Enabled:=true;
gzzh.Caption:=newjz.gzno.Text;
end;
if newjz.mxf.Checked then
mxf.Enabled:=true;
if newjz.mfj.Checked then
mff.Enabled:=true;
rm.Caption:=newjz.rm.Text;
rcsm.Caption:=newjz.rcsm.Text;
sm.Caption:=newjz.sm.Text;
scsm.Caption:=newjz.scsm.Text;
xm.Caption:=newjz.xm.Text;
dhf.Caption:=newjz.dhf.Text;
hm.Caption:=newjz.hm.Text;
yjm.Caption:=newjz.yjm.Text;
mcs.Caption:=newjz.mcs.Text;
zk.Caption:=newjz.zk.Text;
jj.Caption:=newjz.jj.Text;
khfzz.Caption:=newjz.kh.Text;
mm.Caption:=newjz.mm.Text;
ym.Caption:=newjz.ym.Text;
jym.Caption:=newjz.jym.Text;
if trim(xm.Caption)='0' then
begin
QRSubDetail4.Enabled:=false;
QRSubDetail5.Enabled:=false;
QRSubDetail11.Enabled:=false;
end;
if trim(dhf.Caption)='0' then
begin
QRSubDetail6.Enabled:=false;
QRSubDetail8.Enabled:=false;
QRSubDetail9.Enabled:=false;
end;
if trim(QRDBText7.Caption)<>'True' then QRDBText7.Caption:='否';
if trim(rcsm.Caption)='0' then
begin
g40.Enabled:=false;
rcsm.Enabled:=false;
end;
if trim(sm.Caption)='0' then
begin
QRLabel19.Enabled:=false;
sm.Enabled:=false;
end;
if trim(scsm.Caption)='0' then
begin
QRLabel20.Enabled:=false;
scsm.Enabled:=false;
end;
if trim(mcs.Caption)<>'0' then
begin
QRLabel22.Enabled:=true;
mcs.Enabled:=true;
end;
if trim(zk.Caption)<>'100' then
begin
QRLabel24.Enabled:=true;
zk.Enabled:=true;
end;
if trim(jj.Caption)<>'0' then
begin
QRLabel25.Enabled:=true;
jj.Enabled:=true;
end;
if trim(mm.Caption)<>'0' then
begin
QRLabel26.Enabled:=true;
mm.Enabled:=true;
end;
if trim(newjz.kh.Text)='' then
QRLabel33.Caption:='';
if trim(newjz.kh.Text)<>'' then
begin
QRLabel16.Enabled:=true;
query2.Active:=false;
query2.SQL.Clear;
query2.SQL.Add('select 卡号,(select max(消费日期) from hykxfmx where 卡号=s.卡号 ) as 日期,(select (储值-消费) from hykmx where hykmx.卡号=s.卡号) as 余额 from hykxfmx s where 卡号='''+trim(newjz.kh.Text)+'''');
query2.Prepare;
query2.Open;
QRLabel16.Caption:='本会员卡上次消费日期:'+query2.Fields[1].AsString+',上次余额:'+query2.Fields[2].AsString+', 本次余额:'+floattostr(query2.Fields[2].Asfloat-strtofloat(hm.Caption));
end;
// QRSubDetail1.Print;
//QuickRep1.
// qr1.preview;
//srrbForm.Query1
end;
procedure Tjzbprintform.QRSubDetail10AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
// QRLabel36.Enabled:=true;
// QRLabel37.Enabled:=true;
// QRLabel29.Enabled:=true;
QRLabel38.Enabled:=false;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -