gl_enter_changeexchangerate.dfm

一个MRPII系统源代码版本

inherited Frm_Gl_Enter_ChangeExchangeRate: TFrm_Gl_Enter_ChangeExchangeRate
  Left = 244
  Top = 161
  Caption = '期末调汇'
  ClientHeight = 267
  ClientWidth = 402
  PixelsPerInch = 96
  TextHeight = 12
  object Label2: TLabel [0]
    Left = 49
    Top = 56
    Width = 84
    Height = 12
    Caption = '汇兑损益科目：'
  end
  inherited btn_ok: TButton
    Left = 113
    Top = 221
    Caption = '确定(&E)'
  end
  inherited btn_Cancel: TButton
    Left = 214
    Top = 221
    OnClick = btn_CancelClick
  end
  object Edt_CLKmCode: TLinkEdit [3]
    Left = 130
    Top = 49
    Width = 89
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 2
    OnButtonClick = Edt_CLKmCodeButtonClick
    OnExit = Edt_CLKmCodeExit
    OnKeyDown = Edt_CLKmCodeKeyDown
  end
  object Edt_ClKmName: TEdit [4]
    Left = 221
    Top = 49
    Width = 121
    Height = 20
    Enabled = False
    TabOrder = 3
  end
  object DBGridEh: TDBGridEh [5]
    Left = 48
    Top = 80
    Width = 294
    Height = 121
    DataSource = DataSource
    TabOrder = 4
    TitleFont.ChArset = GB2312_CHArSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      Item
        FieldName = 'CurrencyFlag'
        Width = 88
      end
      Item
        FieldName = 'FirstExchRate'
        Width = 54
      end
      Item
        FieldName = 'LastExchRate'
        Width = 54
      end>
  end
  inherited AdoQry_Tmp: TAdoQuery
    Top = 65528
  end
  object AdoQuery: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_kl1;Data Source=ExtDATASERV' +
      'ER'
    BeforeInsert = AdoQueryBeforeInsert
    Parameters = <>
    SQL.Strings = (
      'DeclAre @CurrentYear Int,'
      '        @CurrentMonth Int,'
      '        @NextYear Int,'
      '        @NextMonth Int'
      'select @CurrentYear = AccountPeriodYear,'
      '       @CurrentMonth = AccountPeriodMonth'
      '  from Gl_AccountPeriod'
      ' where CurrentPeriod=1'
      ''
      
        'select @NextYear = DatePArt(yy,DateAdd(mm,1,Convert(varchAr,@Cur' +
        'rentYear)+'#39'.'#39'+Convert(varchAr,@CurrentMonth)+'#39'.01'#39')),'
      
        '       @NextMonth = DatePArt(mm,DateAdd(mm,1,Convert(varchAr,@Cu' +
        'rrentYear)+'#39'.'#39'+Convert(varchAr,@CurrentMonth)+'#39'.01'#39'))'
      ''
      'select Currency.CurrencyCode,'
      '       Currency.CurrencyName,'
      
        '       Currency.CurrencyCode+'#39' '#39'+Currency.CurrencyName as Curren' +
        'cyFlag,'
      
        '       Sum(case when DatePArt(yy,ExchRate.ExchMonth+'#39'.01'#39')=@Curr' +
        'entYear'
      
        '                     and DatePArt(mm,ExchRate.ExchMonth+'#39'.01'#39')=@' +
        'CurrentMonth '
      '                then ExchRate.ExchRate '
      '           else 0.0'
      '           end )as FirstExchRate,'
      
        '       Sum(case when DatePArt(yy,ExchRate.ExchMonth+'#39'.01'#39')=@Next' +
        'Year'
      
        '                     and DatePArt(mm,ExchRate.ExchMonth+'#39'.01'#39')=@' +
        'NextMonth '
      '                then ExchRate.ExchRate '
      '           else 0.0'
      '           end ) as LastExchRate'
      ' from Currency'
      'join ExchRate on Currency.CurrencyCode = ExchRate.CurrencyCode'
      'where Currency.IsMaster<>1'
      ' group by Currency.CurrencyCode,CurrencyName')
    Left = 288
    Top = 120
    object AdoQueryCurrencyCode: TStringField
      DisplayLabel = '货币代码'
      FieldName = 'CurrencyCode'
      ReadOnly = True
      Size = 3
    end
    object AdoQueryCurrencyName: TStringField
      DisplayLabel = '货币名称'
      FieldName = 'CurrencyName'
      ReadOnly = True
      Size = 30
    end
    object AdoQueryCurrencyFlag: TStringField
      DisplayLabel = '货币标识'
      FieldName = 'CurrencyFlag'
      ReadOnly = True
      Size = 34
    end
    object AdoQueryFirstExchRate: TBCDField
      DisplayLabel = '期初汇率'
      FieldName = 'FirstExchRate'
      ReadOnly = True
      Precision = 32
      Size = 8
    end
    object AdoQueryLastExchRate: TBCDField
      DisplayLabel = '期末汇率'
      FieldName = 'LastExchRate'
      ReadOnly = True
      Precision = 32
      Size = 8
    end
  end
  object DataSource: TDataSource
    DataSet = AdoQuery
    Left = 64
    Top = 200
  end
end