gl_qry_changeexchangerate.pas

一个MRPII系统源代码版本

unit Gl_Qry_ChangeExchangeRate;

Interface

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

Type
  TFrm_Gl_Qry_ChangeExchangeRate = Class(TFrm_Base_Outer)
    AdoQry_MainInvMonth: TStringField;
    AdoQry_MainKmId: TIntegerField;
    AdoQry_MainKmCode: TStringField;
    AdoQry_MainKmName: TStringField;
    AdoQry_MainFCurrecy: TStringField;
    AdoQry_MainCurrencyName: TStringField;
    AdoQry_MainFirstFBalance: TFloatField;
    AdoQry_MainFirstBalance: TFloatField;
    AdoQry_MainFCurrencyRate: TFloatField;
    AdoQry_MainFCurrencyRate_End: TFloatField;
    AdoQry_MainFirstBalance_End: TFloatField;
    AdoQry_MainDiverSity: TFloatField;
    AdoQry_MainEmployeeCode_Create: TStringField;
    AdoQry_MainEmployeeName: TStringField;
    AdoQry_MainDate_Create: TDateTimeField;
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
  end;

var
  Frm_Gl_Qry_ChangeExchangeRate: TFrm_Gl_Qry_ChangeExchangeRate;

implementation
uses Sys_Global;
{$R *.DFM}

{ TFrm_Gl_Qry_Credence }

procedure TFrm_Gl_Qry_ChangeExchangeRate.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
var CurrentYear , CurrentMonth :Integer;
begin
  inherited;
  Act_Look.Enabled := False;
  Act_Look.Visible := False;

  ExecuteSQl(AdoQry_Tmp,'select * from Gl_AccountPeriod'
                       +' where CurrentPeriod=1',0);
  CurrentYear := AdoQry_Tmp.fieldbyname('AccountPeriodYear').AsInteger;
  CurrentMonth := AdoQry_Tmp.fieldbyname('AccountPeriodMonth').AsInteger;
  SelectFromSQL := ' select InvMonth,                  '
                   +'      ChArgeExchangeRate.KmId,     '
                   +'     Gl_AccountSubject.KmCode,    '
                   +'      Gl_AccountSubject.KmName,   '
                   +'      ChArgeExchangeRate.FCurrecy, '
                   +'      Currency.CurrencyName,      '
                   +'      FirstFBalance,              '
                   +'      FirstBalance,               '
                   +'      FCurrencyRate,              '
                   +'      FCurrencyRate_End,          '
                   +'      FirstBalance_End,           '
                   +'      DiverSity,                  '
                   +'      EmployeeCode_Create,        '
                +'         EmployeeName,               '
                +'         Date_Create                 '
                +'  from ChArgeExchangeRate             '
                +'  join Gl_AccountSubject on ChArgeExchangeRate.KmId=Gl_AccountSubject.KmId   '
                +'  left join Currency on ChArgeExchangeRate.FCurrecy=Currency.CurrencyCode    '
                +'  left join Employee on ChArgeExchangeRate.EmployeeCode_Create=Employee.EmployeeCode  ';
  Condition := ' Convert(int,SubString(InvMonth,1,4))='+IntToStr(CurrentYear)
                +'    and Convert(int,SubString(InvMonth,6,2))='+IntToStr(CurrentMonth) ;
  OrderByFields:='InvMonth';
  GetData;
end;

procedure TFrm_Gl_Qry_ChangeExchangeRate.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Gl_Qry_ChangeExchangeRate := Nil;
end;

end.