📄 u_p_zhxd.pas
字号:
unit U_P_ZHXD;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, QuickRpt, Qrctrls, Db, ADODB;
type
TF_P_ZHXD = class(TForm)
QuickRep1: TQuickRep;
QRBand1: TQRBand;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRDBText8: TQRDBText;
QRLabel9: TQRLabel;
QRDBText9: TQRDBText;
QRLabel10: TQRLabel;
QRDBText10: TQRDBText;
QRLabel11: TQRLabel;
QRDBText11: TQRDBText;
QRLabel12: TQRLabel;
QRLabel14: TQRLabel;
QRLabel13: TQRLabel;
QRLabel15: TQRLabel;
QRLabel16: TQRLabel;
QRLabel17: TQRLabel;
QRLabel18: TQRLabel;
QRLabel19: TQRLabel;
QRLabel20: TQRLabel;
QRLabel21: TQRLabel;
QRDBText12: TQRDBText;
QRDBText13: TQRDBText;
QRLabel22: TQRLabel;
QRDBText14: TQRDBText;
QRLabel23: TQRLabel;
QRShape11: TQRShape;
QRShape12: TQRShape;
QRShape13: TQRShape;
QRShape14: TQRShape;
QRShape15: TQRShape;
QRShape16: TQRShape;
QRShape17: TQRShape;
QRShape18: TQRShape;
QRShape4: TQRShape;
QRBand2: TQRBand;
QRImage1: TQRImage;
PageFooterBand1: TQRBand;
ADOQueryZHXDBB: TADOQuery;
QRBand3: TQRBand;
QRImage2: TQRImage;
QRImage3: TQRImage;
QRImage4: TQRImage;
QRImage5: TQRImage;
QRImage6: TQRImage;
QRImage7: TQRImage;
QRImage8: TQRImage;
QRImage15: TQRImage;
QRImage14: TQRImage;
QRImage13: TQRImage;
QRImage12: TQRImage;
QRImage11: TQRImage;
QRImage10: TQRImage;
QRImage9: TQRImage;
QRL1: TQRLabel;
QRL2: TQRLabel;
QRL3: TQRLabel;
QRL4: TQRLabel;
QRL5: TQRLabel;
QRL6: TQRLabel;
QRL7: TQRLabel;
QRL14: TQRLabel;
QRL13: TQRLabel;
QRL12: TQRLabel;
QRL11: TQRLabel;
QRL10: TQRLabel;
QRL9: TQRLabel;
QRL8: TQRLabel;
QRLabel24: TQRLabel;
QRSysData2: TQRSysData;
QRLabel26: TQRLabel;
QRShape1: TQRShape;
QRDBRichText1: TQRDBRichText;
QRDBRichText2: TQRDBRichText;
QRShape2: TQRShape;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure QuickRep1AfterPreview(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
F_P_ZHXD: TF_P_ZHXD;
iZHXD: Integer;
strP_ZHXD:string;
implementation
uses U_DM, U_P_Choose,U_zhxd,u_zhxdcx;
{$R *.DFM}
procedure TF_P_ZHXD.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
F_P_ZHXD:=nil;
Action:=caFree;
end;
procedure TF_P_ZHXD.QuickRep1AfterPreview(Sender: TObject);
begin
F_P_ZHXD.Close;
end;
procedure TF_P_ZHXD.FormCreate(Sender: TObject);
begin
with ADOQueryZHXDBB do
begin
Close;
SQL.Clear;
SQL.Add('select * from xs_zhxd where DingDanNo=:DingDanNo ');
Parameters.ParamByName('DingDanNo').value := strP_ZHXD;
Open;
end;
///////
{if ZHXDCXshow=true then
begin
QuickRep1.DataSet:=ADOQueryZHXDBB;
ADOQueryZHXDBB.Close;
ADOQueryZHXDBB.SQL.Clear;
ADOQueryZHXDBB.SQL.Add('select * from xs_zhxd where DingDanNo='''+f_zhxdcx.DBEditDingDanNo.text+'''');
ADOQueryZHXDBB.Open; }
{QRDBText8.Lines.Text:=ADOQueryZHXDBB.FieldByName('InvoiceNo').AsString;
QRDBText14.Lines.Text:=ADOQueryZHXDBB.FieldByName('JiangYin').AsString;
QRDBText9.Lines.Text:=ADOQueryZHXDBB.FieldByName('Messrs').AsString;
QRDBText10.Lines.Text:=ADOQueryZHXDBB.FieldByName('ShippedPer').AsString;
QRDBText13.Lines.Text:=ADOQueryZHXDBB.FieldByName('Sailing').AsString;
QRDBText11.Lines.Text:=ADOQueryZHXDBB.FieldByName('Port').AsString;
QRDBText12.Lines.Text:=ADOQueryZHXDBB.FieldByName('Destination').AsString; }
//QRMemo9.Lines.Text:=ADOQueryZHXDBB.FieldByName('ShippingMarks').AsString;
//QRDBText1.Lines.Text:=ADOQueryZHXDBB.FieldByName('xianghao').AsString;
//QRDBRichText1.Lines.Text:=ADOQueryZHXDBB.FieldByName('xianghao').AsString;
///
{ end;
////
if ZHXDshow =true then
begin
QuickRep1.DataSet:=DM.ADOQueryZHXDCX;
QRDBText8.DataSet:=DM.ADOQueryZHXDCX;
QRDBText9.DataSet:=DM.ADOQueryZHXDCX;
QRDBText10.DataSet:=DM.ADOQueryZHXDCX;
QRDBText11.DataSet:=DM.ADOQueryZHXDCX;
QRDBText12.DataSet:=DM.ADOQueryZHXDCX;
QRDBText13.DataSet:=DM.ADOQueryZHXDCX;
QRDBText14.DataSet:=DM.ADOQueryZHXDCX;
//QRDBText1.DataSet:=DM.ADOQueryZHXDCX;
QRDBRichText1.DataSet:=DM.ADOQueryZHXDCX;
DM.ADOQueryZHXDCX.Close;
DM.ADOQueryZHXDCX.SQL.Clear;
DM.ADOQueryZHXDCX.SQL.Add('select * from xs_zhxd where DingDanNo='''+f_zhxd.DBEditDingDanNo.Text+'''');
DM.ADOQueryZHXDCX.Open;}
{QRDBText8.Lines.Text:=DM.ADOQueryZHXDCX.FieldByName('InvoiceNo').AsString;
QRDBText14.Lines.Text:=DM.ADOQueryZHXDCX.FieldByName('JiangYin').AsString;
QRDBText9.Lines.Text:=DM.ADOQueryZHXDCX.FieldByName('Messrs').AsString;
QRDBText10.Lines.Text:=DM.ADOQueryZHXDCX.FieldByName('ShippedPer').AsString;
QRDBText13.Lines.Text:=DM.ADOQueryZHXDCX.FieldByName('Sailing').AsString;
QRDBText11.Lines.Text:=DM.ADOQueryZHXDCX.FieldByName('Port').AsString;
QRDBText12.Lines.Text:=DM.ADOQueryZHXDCX.FieldByName('Destination').AsString;}
//QRMemo9.Lines.Text:=DM.ADOQueryZHXDCX.FieldByName('ShippingMarks').AsString;
//QRDBText1.Lines.Text:=DM.ADOQueryZHXDCX.FieldByName('xianghao').AsString;
// QRDBRichText1.:=DM.ADOQueryZHXDCX.FieldByName('xianghao').AsString;
// end;
if not flagxyqx then
begin
QRL1.Caption:=F_P_Choose.Label16.caption;
QRL2.Caption:=F_P_Choose.Label17.caption;
QRL3.Caption:=F_P_Choose.Label18.caption;
QRL4.Caption:=F_P_Choose.Label19.caption;
QRL5.Caption:=F_P_Choose.Label20.caption;
QRL6.Caption:=F_P_Choose.Label21.caption;
QRL7.Caption:=F_P_Choose.Label22.caption;
QRL8.Caption:=F_P_Choose.Label23.caption;
QRL9.Caption:=F_P_Choose.Label24.caption;
QRL10.Caption:=F_P_Choose.Label25.caption;
QRL11.Caption:=F_P_Choose.Label26.caption;
QRL12.Caption:=F_P_Choose.Label27.caption;
QRL13.Caption:=F_P_Choose.Label28.caption;
QRL14.Caption:=F_P_Choose.Label29.caption;
end;
if flagxyqx then
begin
QRL1.Caption:='';
QRL2.Caption:='';
QRL3.Caption:='';
QRL4.Caption:='';
QRL5.Caption:='';
QRL6.Caption:='';
QRL7.Caption:='';
QRL8.Caption:='';
QRL9.Caption:='';
QRL10.Caption:='';
QRL11.Caption:='';
QRL12.Caption:='';
QRL13.Caption:='';
QRL14.Caption:='';
QRShape2.Enabled:=false;
end;
//QRLabel24.Caption:=QRSysData1.qrsDetailCount/
QuickRep1.Prepare;
QRLabel26.Caption := IntToStr(QuickRep1.QRPrinter.PageCount);
QuickRep1.QRPrinter.Free;
QuickRep1.QRPrinter := nil;
end;
procedure TF_P_ZHXD.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
//iZHXD:=iZHXD+1;
// if Odd(iZHXD) then
// Exit
// else begin
{ QRLabel1.Caption:='';
QRLabel2.Caption:='';
QRLabel3.Caption:='';
QRLabel4.Caption:='';
QRLabel5.Caption:='';
QRLabel6.Caption:='';
QRLabel7.Caption:='';
QRLabel8.Caption:='';
QRLabel9.Caption:='';
QRLabel10.Caption:='';
QRLabel11.Caption:='';
QRLabel12.Caption:='';
QRLabel13.Caption:='';
QRLabel14.Caption:='';
QRLabel15.Caption:='';
QRLabel16.Caption:='';
QRLabel17.Caption:='';
QRLabel18.Caption:='';
QRLabel19.Caption:='';
QRLabel20.Caption:='';
QRLabel21.Caption:='';
QRLabel22.Caption:='';
QRLabel23.Caption:='';
QRLabel24.Caption:='';
QRLabel25.Caption:='';
QRLabel26.Caption:='';
QRLabel27.Caption:='';
QRLabel28.Caption:='';
QRLabel29.Caption:='';
QRShape11.Enabled:=False;
QRShape12.Enabled:=False;
QRShape3.Enabled:=False;
QRShape4.Enabled:=False;
QRShape15.Enabled:=False;
QRShape16.Enabled:=False;
QRShape17.Enabled:=False;
QRShape18.Enabled:=False;
QRShape13.Enabled:=False;
QRShape14.Enabled:=False; }
// end;
end;
procedure TF_P_ZHXD.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if ZHXDshow=true then
DM.ADOQueryZHXDCX.Close;
if ZHXDcxshow=true then
ADOQueryZHXDBB.Close;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -