mrp_enter_mo_p.pas

一个MRPII系统源代码版本

unit Mrp_Enter_Mo_P;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Common, ExtCtrls, QuickRpt, Db, AdODB, QrCtrls, StdCtrls;

Type
  TFrm_Mrp_Enter_Mo_P = Class(TFrm_Base_Common)
    QR: TQuickRep;
    ColumnHeaderBand1: TQRBand;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRSysData1: TQRSysData;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRLabel16: TQRLabel;
    QRLabel17: TQRLabel;
    QRLabel18: TQRLabel;
    DetailBand1: TQRBand;
    Qdbtxt_LineNo: TQRDBText;
    QdbTxt_UomName: TQRDBText;
    Qdbtxt_MoQty: TQRDBText;
    Qdbtxt_MoLineDate: TQRDBText;
    Qdbtxt_Workdate: TQRDBText;
    QLbl_MoDate: TQRLabel;
    QLbl_DeptCode: TQRLabel;
    QLbl_MoNo: TQRLabel;
    QLbl_DeptName: TQRLabel;
    Qlbl_SaleType: TQRLabel;
    Qlbl_RemArk: TQRLabel;
    QLbl_Pages: TQRLabel;
    QRDBText1: TQRDBText;
    QRLabel11: TQRLabel;
    QRSysData2: TQRSysData;
    AdoQry_Main: TAdoQuery;
    QRShApe1: TQRShApe;
    QRShApe2: TQRShApe;
    QRShApe3: TQRShApe;
    QRShApe4: TQRShApe;
    QRShApe5: TQRShApe;
    QRShApe6: TQRShApe;
    QRShApe7: TQRShApe;
    QRShApe8: TQRShApe;
    QRShApe9: TQRShApe;
    QRShApe10: TQRShApe;
    QRShApe11: TQRShApe;
    QRShApe12: TQRShApe;
    QRShApe13: TQRShApe;
    QRShApe14: TQRShApe;
    QRLbl_Title: TQRLabel;
    QRExpr1: TQRExpr;
    PrinterSetupDialog1: TPrinterSetupDialog;
    Qrlbl_Caption: TQRLabel;
    QrLbl_IsoCode: TQRLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    procedure SetDBConnect(AdOConnection:TAdOConnection);Override;
    procedure GetHeadData(AdoQuery:TAdoQuery;MoNo,MoDate,DeptCode,DeptName,SaleType,RemArk,Status:String);
    { Public declarations }
  end;

var
  Frm_Mrp_Enter_Mo_P: TFrm_Mrp_Enter_Mo_P;

implementation

uses Sys_Global;

{$R *.DFM}

procedure TFrm_Mrp_Enter_Mo_P.SetDBConnect(AdOConnection:TAdOConnection);
begin
  Inherited;
  AdoQry_Main.Connection:=AdoConnection;
end;

procedure TFrm_Mrp_Enter_Mo_P.GetHeadData(AdoQuery:TAdoQuery;MoNo,MoDate,DeptCode,DeptName,SaleType,RemArk,status:String);
var
  SqlText:String;
  I:Integer;
begin
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.Text:='select SysParamValueC  From SysParam Where Upper(SysParamCode)='''+UpperCase('Name0')+'''';
  AdoQry_Tmp.Open;
  QrLbl_Title.Caption:=AdoQry_Tmp.fieldbyname('SysParamValueC').AsString;
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.Text:='Select ReportName1,ISOCode1 From ReportCtrl Where  SysMenuID='''+MenuId+'''';
  AdoQry_Tmp.Open;
  QrLbl_Caption.Caption:=AdoQry_Tmp.fieldbyname('ReportName1').AsString;
  QrLbl_IsoCode.Caption:=AdoQry_Tmp.fieldbyname('ISOCode1').AsString;
  QLbl_MoDate.Caption:=MoDate;
  QLbl_DeptCode.Caption:=DeptCode;
  QLbl_MoNo.Caption:=MoNo;
  QLbl_DeptName.Caption:=DeptName;
  Qlbl_SaleType.Caption:=SaleType;
  Qlbl_RemArk.Caption:=RemArk;
{  Try
    AdoQry_Tmp.Close;
    AdoQry_Tmp.SQL.Text:='Drop Table #TmPmoQrep ';
    AdoQry_Tmp.ExecSQL; //删除临时表
  Except
  end;  }
  SqlText:=' Create Table #TmPmoQrep ('
          +' MoLineNo varChAr(12) Null, ItemCode varchAr(30) Null,'
          +' ItemName varchAr(80) Null,UomName varChAr(16) Null,'
          +' MoQty Float Null, MoLineDate DateTime Null,'
          +' MoStArtWorkdate DateTime Null )';
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.Text:=SqlText;
  AdoQry_Tmp.ExecSQL; //建立临时表
  AdoQuery.First;
  While Not AdoQuery.Eof Do
  begin
    SqlText:=' Insert  #TmPmoQrep (MoLineNo,ItemCode,ItemName,UomName,MoQty,MoLineDate,MoStArtWorkdate)'
            +' Values('
            +''''+IntToStr(AdoQuery.fieldbyname('MoLineNo').AsInteger)+''''+','
            +''''+AdoQuery.fieldbyname('ItemCode').AsString+''''+','
            +''''+AdoQuery.fieldbyname('ItemName').AsString+''''+','
            +''''+AdoQuery.fieldbyname('UomName').AsString+''''+','
            +''''+FloatToStr(AdoQuery.fieldbyname('MoQty').AsFloat)+''''+','
            +''''+DateTimeToStr(AdoQuery.fieldbyname('MoLineDate').AsDateTime)+''''+','
            +''''+DateTimeToStr(AdoQuery.fieldbyname('MoStArtWorkDate').AsDateTime)+''''+')';
    AdoQry_Tmp.Close;
    AdoQry_Tmp.SQL.Text:=SqlText;
    AdoQry_Tmp.ExecSQL;
    AdoQuery.Next;
  end;
 { If (AdoQuery.RecordCount Mod 11)<>0 Then
  begin
    For I:=1 To (11-(AdoQuery.RecordCount Mod 11)) Do
    begin
      SqlText:=' Insert Into #TmPmoQrep '
              +' Values( '
              +' Null,Null,Null,Null,Null,Null,Null)';
      AdoQry_Tmp.Close;
      AdoQry_Tmp.SQL.Text:=SqlText;
      AdoQry_Tmp.ExecSQL;
      AdoQuery.Next;
    end;
  end; }
  SqlText:=' Select * From  #TmPmoQrep ';
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.Text:=SqlText;
  AdoQry_Tmp.Open;
  Qr.Prepare;
  QLbl_Pages.Caption:=IntToStr(Qr.PageNumber);
  SqlText:=' Drop Table #TmPmoQrep ';
  AdoQry_Main.Close;
  AdoQry_Main.SQL.Text:=SqlText;
  AdoQry_Main.ExecSQL;
  If Status='Preview' Then
    Qr.PreviewModal
  Else
    Qr.Print;
  Qr.Free;
end;

procedure TFrm_Mrp_Enter_Mo_P.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Frm_Mrp_Enter_Mo_P:=Nil;
end;

end.