gl_qry_chginfoforeigncurrencyrate.pas

一个MRPII系统源代码版本

unit Gl_Qry_ChgInfoForeignCurrencyRate;

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_ChgInfoForeignCurrencyRate = Class(TFrm_Base_Qry)
    AdoQry_MainAccountPeriod: TStringField;
    AdoQry_MainForeignRate: TFloatField;
    AdoQry_MainChangeForeignRate: TFloatField;
    AdoQry_MainRemArk: TStringField;
    AdoQry_MainChgEmployeeCode: TStringField;
    Employee: TStringField;
    AdoQry_MainChgEmployeeB: TStringField;
    AdoQry_MainChgTime: TDateTimeField;
    AdoQry_MainChgType: TStringField;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;    
  end;

var
  Frm_Gl_Qry_ChgInfoForeignCurrencyRate: TFrm_Gl_Qry_ChgInfoForeignCurrencyRate;

implementation
uses Gl_Qry_ChgInfoForeignCurrencyRate_C;
{$R *.DFM}
procedure TFrm_Gl_Qry_ChgInfoForeignCurrencyRate.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
  SelectFromSql:=' select Gl_ForeignCurrencyRateHistory.AccountPeriod,'+
                 ' Gl_ForeignCurrencyRateHistory.ForeignRate,'+
                 ' Gl_ForeignCurrencyRateHistory.ChangeForeignRate,'+
                 ' Gl_ForeignCurrencyRateHistory.RemArk,'+
                 ' Gl_ForeignCurrencyRateHistory.ChgEmployeeCode,'+
                 ' Employee.EmployeeName,'+
                 ' Gl_ForeignCurrencyRateHistory.ChgEmployeeCode+'' ''+Employee.EmployeeName as ChgEmployeeB,'+
                 ' Gl_ForeignCurrencyRateHistory.ChgTime,'+
                 ' Gl_ForeignCurrencyRateHistory.ChgType'+
         ' from   Gl_ForeignCurrencyRateHistory'+
         ' left join Employee on Gl_ForeignCurrencyRateHistory.ChgEmployeeCode=Employee.EmployeeCode';

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


end.