sfc_mnlistout_p.pas

一个MRPII系统源代码版本

unit Sfc_MnListOut_P;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Common, ExtCtrls, QuickRpt, Db, AdODB, Grids, DBGrids, StdCtrls,
  Mask, DBCtrls, QrCtrls,printers;

Type
  TFrm_Sfc_MnListOut_P= Class(TFrm_Base_Common)
    AdoQry_Head: TAdoQuery;
    AdoQry_Line: TAdoQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    QuickRep1: TQuickRep;
    ColumnHeaderBand1: TQRBand;
    DetailBand1: TQRBand;
    PageFooterBand1: TQRBand;
    QRLabel2: TQRLabel;
    QRDBText1: TQRDBText;
    QRLabel1: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRShApe1: TQRShApe;
    QRShApe2: TQRShApe;
    QRShApe3: TQRShApe;
    QRShApe4: TQRShApe;
    QRShApe5: TQRShApe;
    QRShApe6: TQRShApe;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRShApe7: TQRShApe;
    QRShApe8: TQRShApe;
    QRShApe9: TQRShApe;
    QRShApe10: TQRShApe;
    QRShApe11: TQRShApe;
    QRShApe12: TQRShApe;
    QRShApe13: TQRShApe;
    title2: TQRLabel;
    title1: TQRLabel;
    title0: TQRLabel;
    QLSysParamValueC: TQRLabel;
    QRLabel3: TQRLabel;
    EmployeeName: TQRLabel;
    QRShApe14: TQRShApe;
    QRShApe15: TQRShApe;
    QRShApe16: TQRShApe;
    QRShApe17: TQRShApe;
    QRShApe18: TQRShApe;
    QRLabel8: TQRLabel;
    printtime1: TQRLabel;
    QRShApe20: TQRShApe;
    QRShApe21: TQRShApe;
    QRLabel9: TQRLabel;
    QRDBText5: TQRDBText;
    QRBand1: TQRBand;
    QRLabel4: TQRLabel;
    EmployeeName1: TQRLabel;
    QRLabel10: TQRLabel;
    printtime: TQRLabel;
    QRShApe22: TQRShApe;
    QRShApe19: TQRShApe;
    QRSysData1: TQRSysData;
    lbl_PageCount: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel11: TQRLabel;
  private
    { Private declarations }
    FWHCode,FBillNo:string;
    FBillTypeCode:string;
    FHtot:Double;
    FHNoTaxtot:Double;
    FH:Double;
    FPreview:Boolean;
    FModuleCode:string;
    ISall:boolean;
  public
    { Public declarations }
    procedure SetDBConnect(AdOConnection:TAdOConnection); Override;
    procedure SetFormParam(FrmParam1,FrmParam2,FrmParam3,FrmParam4,FrmParam5,
     FrmParam6:String);Override;
    procedure check_all(tf:boolean);
  end;

var
  Frm_Sfc_MnListOut_P: TFrm_Sfc_MnListOut_P;

implementation

uses Sys_Global,Sfc_MnRequest_B;

{$R *.DFM}
procedure TFrm_Sfc_MnListOut_P.check_all(tf:boolean);
begin
  ISall:=tf;
end;
procedure TFrm_Sfc_MnListOut_P.SetFormParam(FrmParam1, FrmParam2, FrmParam3,
  FrmParam4, FrmParam5, FrmParam6: String);
begin
  inherited;
  FBillNo:=lowercase(FrmParam1);
  FWHCode:=lowercase(FrmParam2);
  FBillTypeCode:=lowercase(FrmParam3);
  FPreview:=(lowercase(FrmParam4)='preview');
  FModuleCode:=lowercase(FrmParam5);
end;

procedure TFrm_Sfc_MnListOut_P.SetDBConnect(AdOConnection:TAdOConnection);
var
  tmpBillid:string;
  sqltext:string;
begin
  inherited;
  AdoQry_Head.Connection:=AdoConnection;
  AdoQry_Line.Connection:=AdoConnection;

  with AdoQry_Tmp do
  begin
    Close;
    SQL.clear;
    SQL.Text:='Select SysParamValueC from SysParam Where SysParamCode=''Name0''';
    open;
  end;
  QLSysParamValueC.Caption:=AdoQry_Tmp.fieldbyname('SysParamValueC').asstring+'领料清单';

  {
   if FPreview then
   begin
     QuickRep1.Prepare;
     QLPageTot1.Caption:='页 共'+Trim(inttoStr(QuickRep1.QRPrinter.PageCount))+'页' ;
     QLPageTot.Caption:=QLPageTot1.Caption;
     QuickRep1.Preview;
   end
   else
     begin
     QuickRep1.Prepare;
     QLPageTot1.Caption:='页 共'+Trim(inttoStr(QuickRep1.QRPrinter.PageCount))+'页' ;
     QLPageTot.Caption:=QLPageTot1.Caption;
     QuickRep1.print;
     end;
     }
end;
end.