gl_enter_balancesheet_p.pas

一个MRPII系统源代码版本

unit Gl_Enter_BalanceSheet_P;

Interface

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

Type
  TFrm_Gl_Enter_BalanceSheet_P = Class(TFrm_Base_Common)
    QR: TQuickRep;
    ColumnHeaderBand1: TQRBand;
    QRLabel4: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRSysData1: TQRSysData;
    QRLabel12: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRLabel16: TQRLabel;
    DetailBand1: TQRBand;
    Qdbtxt_LineNo: TQRDBText;
    QdbTxt_UomName: TQRDBText;
    Qdbtxt_MoQty: TQRDBText;
    QLbl_Pages: TQRLabel;
    QRLabel11: TQRLabel;
    QRSysData2: TQRSysData;
    AdoQry_Main: TAdoQuery;
    QRShApe1: TQRShApe;
    QRShApe2: TQRShApe;
    QRShApe4: TQRShApe;
    QRShApe5: TQRShApe;
    QRShApe6: TQRShApe;
    QRShApe7: TQRShApe;
    QRShApe10: TQRShApe;
    QRShApe11: TQRShApe;
    QRShApe12: TQRShApe;
    QRShApe13: TQRShApe;
    QRShApe14: TQRShApe;
    QRLbl_Title: TQRLabel;
    PrinterSetupDialog1: TPrinterSetupDialog;
    Qrlbl_Caption: TQRLabel;
    QrLbl_IsoCode: TQRLabel;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRDBText1: TQRDBText;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRShApe3: TQRShApe;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRShApe15: TQRShApe;
    QRShApe16: TQRShApe;
    QRShApe17: TQRShApe;
    QRShApe18: TQRShApe;
    SummAryBand1: TQRBand;
    QRLabel17: TQRLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    procedure SetDBConnect(AdOConnection:TAdOConnection);Override;
    procedure GetHeadData(AdoQuery:TAdoQuery;Status:String);
    { Public declarations }
  end;

var
  Frm_Gl_Enter_BalanceSheet_P: TFrm_Gl_Enter_BalanceSheet_P;

implementation

uses Sys_Global;

{$R *.DFM}

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

procedure TFrm_Gl_Enter_BalanceSheet_P.GetHeadData(AdoQuery:TAdoQuery;status:String);
var
  SqlText:String;
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;
{  Try
    AdoQry_Tmp.Close;
    AdoQry_Tmp.SQL.Text:='Drop Table #TmPmoQrep ';
    AdoQry_Tmp.ExecSQL; //删除临时表
  Except
  end;  }
  SqlText:=' Create Table #TMpSheet ('
          +' assetproject varChAr(60) Null, plineno integer Null,'
          +' Firstproject varchAr(120) Null,lastproject varChAr(120) Null,oweproject varchAr(60) null,'
          +' plineno1 integer Null, Firstproject1 varchAr(120) Null,lastproject1 varchAr(120) null'
          +'  )';
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.Text:=SqlText;
  AdoQry_Tmp.ExecSQL; //建立临时表
  AdoQuery.First;
  While Not AdoQuery.Eof Do
  begin
    SqlText:=' Insert  #tMpSheet (assetproject,plineno,Firstproject,lastproject,oweproject,plineno1,Firstproject1,lastproject1)'
            +' Values('
            +quotedstr(AdoQuery.fieldbyname('assetproject').Asstring)+','
            +inttostr(AdoQuery.fieldbyname('plineno').asinteger)+','
            +quotedstr(AdoQuery.fieldbyname('Firstproject').Asstring)+','
            +quotedstr(AdoQuery.fieldbyname('lastproject').Asstring)+','
            +quotedstr(AdoQuery.fieldbyname('owesprossessoryproject').Asstring)+','
            +inttostr(AdoQuery.fieldbyname('plineno1').asinteger)+','
            +quotedstr(AdoQuery.fieldbyname('Firstproject1').Asstring)+','
            +quotedstr(AdoQuery.fieldbyname('lastproject1').Asstring)+')';
    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  #tMpSheet ';
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.Text:=SqlText;
  AdoQry_Tmp.Open;
  Qr.Prepare;
  QLbl_Pages.Caption:=IntToStr(Qr.PageNumber);
  SqlText:=' Drop Table #TMpSheet ';
  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_Gl_Enter_BalanceSheet_P.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Frm_Gl_Enter_BalanceSheet_P:=Nil;
end;

end.