gl_qry_chginfoaccountsubject.pas

一个MRPII系统源代码版本

unit Gl_Qry_ChgInfoAccountSubject;

Interface

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

Type
  TFrm_Gl_Qry_ChgInfoAccountSubject = Class(TFrm_Base_Qry)
    AdoQry_MainKmCode: TStringField;
    AdoQry_MainKmHelpCode: TStringField;
    AdoQry_MainKmName: TStringField;
    AdoQry_MainKmType: TIntegerField;
    AdoQry_MainKmProperty: TIntegerField;
    AdoQry_MainPageType: TIntegerField;
    AdoQry_MainFCurrecyCalculate: TIntegerField;
    AdoQry_MainFCurrecy: TStringField;
    AdoQry_MainCurrencyName: TStringField;
    AdoQry_MainCurrencyB: TStringField;
    AdoQry_MainAmountCalculate: TIntegerField;
    AdoQry_MainUomCode: TStringField;
    AdoQry_MainCashControl: TIntegerField;
    AdoQry_MainKmFreeze: TIntegerField;
    AdoQry_MainDepArtCalculate: TIntegerField;
    AdoQry_MainPersonCalculate: TIntegerField;
    AdoQry_MainCustomerCalculate: TIntegerField;
    AdoQry_MaInvendorCalculate: TIntegerField;
    AdoQry_MainProjectCalculate: TIntegerField;
    AdoQry_MainTotalKmCode: TStringField;
    AdoQry_MainChgType: TStringField;
    AdoQry_MainChgEmployeeCode: TStringField;
    AdoQry_MainEmployeeName: TStringField;
    AdoQry_MainChgEmployeeB: TStringField;
    AdoQry_MainChgTime: TDateTimeField;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;    
  end;

var
  Frm_Gl_Qry_ChgInfoAccountSubject: TFrm_Gl_Qry_ChgInfoAccountSubject;

implementation
uses Gl_Qry_ChgInfoAccountSubject_C;
{$R *.DFM}
procedure TFrm_Gl_Qry_ChgInfoAccountSubject.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
  SelectFromSql:=' select Gl_AccountSubjectHistory.KmCode,'+
                 ' Gl_AccountSubjectHistory.KmHelpCode,'+
                 ' Gl_AccountSubjectHistory.KmName,'+
                 ' Gl_AccountSubjectHistory.KmType,'+
                 ' Gl_AccountSubjectHistory.KmProperty,'+
                 ' Gl_AccountSubjectHistory.PageType,'+
                 ' Gl_AccountSubjectHistory.FCurrecyCalculate,'+
                 ' Gl_AccountSubjectHistory.FCurrecy,'+
                 ' Currency.CurrencyName,'+
                 ' Gl_AccountSubjectHistory.FCurrecy+'' ''+Currency.CurrencyName as CurrencyB,'+
                 ' Gl_AccountSubjectHistory.AmountCalculate,'+
                 ' Gl_AccountSubjectHistory.UomCode,'+
                 ' Uom.UomName,'+
                 ' Gl_AccountSubjectHistory.CashControl,'+
                 ' Gl_AccountSubjectHistory.KmFreeze,'+
                 ' Gl_AccountSubjectHistory.DepArtCalculate,'+
                 ' Gl_AccountSubjectHistory.PersonCalculate,'+
                 ' Gl_AccountSubjectHistory.CustomerCalculate,'+
                 ' Gl_AccountSubjectHistory.VendorCalculate,'+
                 ' Gl_AccountSubjectHistory.ProjectCalculate,'+
                 ' Gl_AccountSubjectHistory.TotalKmCode,'+
                 ' Gl_AccountSubjectHistory.ChgType,'+
                 ' Gl_AccountSubjectHistory.ChgEmployeeCode,'+
                 ' Employee.EmployeeName,'+
                 ' Gl_AccountSubjectHistory.ChgEmployeeCode+'' ''+Employee.EmployeeName as ChgEmployeeB,'+
                 ' Gl_AccountSubjectHistory.ChgTime'+
         ' from  Gl_AccountSubjectHistory'+
         ' left join Currency on Gl_AccountSubjectHistory.FCurrecy=Currency.CurrencyCode'+
         ' left join Uom on Gl_AccountSubjectHistory.UomCode=Uom.UomName'+
         ' left join Employee on Gl_AccountSubjectHistory.ChgEmployeeCode=Employee.EmployeeCode';



  OrderByFields:=' chgtime ';
  Frm_Sys_Condition:=TFrm_Gl_Qry_ChgInfoAccountSubject_C.Create(self);
  Act_Filter.Execute;
  conditionuserDefine:=condition;
  Frm_Sys_Condition:=nil;
end;


end.