gl_enter_passcredenceh1.pas

一个MRPII系统源代码版本

unit Gl_Enter_PassCredenceH1;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Check_Head, Menus, Db, ActnList, AdODB, Grids, DBGridEh, StdCtrls,
  ExtCtrls, ComCtrls, ToolWin, ExtPrintReport, jpeg;

Type
  TFrm_Gl_Enter_PassCredenceH1 = Class(TFrm_Base_Check_Head)
    AdoQry_HeadCredenceId: TAutoIncField;
    AdoQry_HeadCharacterNo: TStringField;
    AdoQry_HeadCredenceDate: TDateTimeField;
    AdoQry_HeadCredenceType: TIntegerField;
    AdoQry_HeadBillAmount: TIntegerField;
    AdoQry_HeadTotalDebitAmount: TFloatField;
    AdoQry_HeadTotalCreditAmount: TFloatField;
    AdoQry_HeadCreateEmployeeCode: TStringField;
    AdoQry_HeadSignFlag: TIntegerField;
    AdoQry_HeadCashierEmployeeCode: TStringField;
    AdoQry_HeadTallyFlag: TIntegerField;
    AdoQry_HeadTallyEmployeeCode: TStringField;
    AdoQry_HeadAssessFlag: TIntegerField;
    AdoQry_HeadAssessorEmployeeCode: TStringField;
    AdoQry_HeadCharacterName: TStringField;
    AdoQry_HeadCreateEmployeeName: TStringField;
    AdoQry_HeadCashierEmployeeName: TStringField;
    AdoQry_HeadTallyEmployeeName: TStringField;
    AdoQry_HeadAssessorEmployeeName: TStringField;
    AdoQry_HeadCreateEmployeeFlag: TStringField;
    AdoQry_HeadCashierFlag: TStringField;
    AdoQry_HeadTallyerFlag: TStringField;
    AdoQry_HeadAssessorFlag: TStringField;
    AdoQry_HeadCredenceNo: TStringField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Gl_Enter_PassCredenceH1: TFrm_Gl_Enter_PassCredenceH1;

implementation

uses Sys_Global, Gl_Enter_PassCredence1;

{$R *.DFM}

{ TFrm_Gl_Enter_PassCredenceH }

procedure TFrm_Gl_Enter_PassCredenceH1.InitForm(
  AdOConnection: TAdOConnection; ReadOnly: Boolean);
var
  SqlText:String;
begin
  inherited;
  SqlText := ' Select Gl_Credence.*,Gl_CredenceType.CharacterName,A.EmployeeName As CreateEmployeeName,'
            +'        Gl_Credence.CreateEmployeeCode+'' ''+A.EmployeeName As CreateEmployeeFlag,'
            +'        B.EmployeeName As CashierEmployeeName,Gl_Credence.CashierEmployeeCode+'' ''+B.EmployeeName As CashierFlag,'
            +'        C.EmployeeName As TallyEmployeeName,Gl_Credence.TallyEmployeeCode+'' ''+C.EmployeeName As TallyerFlag,'
            +'        D.EmployeeName As AssessorEmployeeName,Gl_Credence.AssessorEmployeeCode+'' ''+D.EmployeeName As AssessorFlag '
            +' Into #Gl_Credence1 From Gl_Credence   '
            +'      Join Gl_CredenceType  '
            +'      On Gl_Credence.CharacterNo = Gl_CredenceType.CharacterNo  '
            +'      Left Join Employee A  '
            +'      On Gl_Credence.CreateEmployeeCode = A.EmployeeCode  '
            +'      Left Join Employee B  '
            +'      On Gl_Credence.CashierEmployeeCode = B.EmployeeCode  '
            +'      Left Join Employee C   '
            +'      On Gl_Credence.TallyEmployeeCode = C.EmployeeCode  '
            +'      Left Join Employee D '
            +'      On Gl_Credence.AssessorEmployeeCode = D.EmployeeCode ';
  ExecuteSql(AdoQry_Tmp,SqlText,1);
  SelectFromSql := ' Select * From #Gl_Credence1';
  OrderByFields := ' CredenceNo';
  Condition := ' SignFlag = 0 ';
  GetData;
  Frm_Check_Body:=TFrm_Gl_Enter_PassCredence1.Create(Application);
end;

procedure TFrm_Gl_Enter_PassCredenceH1.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  try
   Executesql(AdoQry_Tmp,'Drop Table #Gl_Credence1',1);
  except
  end;
end;

end.