gl_enter_foreigncurrencyrate.dfm

一个MRPII系统源代码版本

inherited Frm_Gl_Enter_ForeignCurrencyRate: TFrm_Gl_Enter_ForeignCurrencyRate
  Left = 13
  Top = 69
  Caption = '外币汇率'
  ClientHeight = 422
  ClientWidth = 753
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 753
  end
  inherited Pnl_Title: TPanel
    Width = 753
    Caption = '外币汇率'
  end
  inherited Pnl_Head: TPanel
    Width = 753
    Height = 64
    object Label1: TLabel
      Left = 41
      Top = 16
      Width = 36
      Height = 12
      Caption = '货币：'
    end
    object Label3: TLabel
      Left = 280
      Top = 16
      Width = 36
      Height = 12
      Caption = '月份：'
    end
    object Label4: TLabel
      Left = 560
      Top = 16
      Width = 60
      Height = 12
      Caption = '调整汇率：'
    end
    object Label5: TLabel
      Left = 405
      Top = 16
      Width = 60
      Height = 12
      Caption = '记帐汇率：'
    end
    object Label14: TLabel
      Left = 41
      Top = 39
      Width = 36
      Height = 12
      Caption = '备注：'
    end
    object Edt_CurrencyCode: TLinkEdit
      Left = 80
      Top = 12
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 0
      OnButtonClick = CurrencyHint1
      OnExit = Edt_CurrencyCodeExit
      OnKeyDown = CurrencyHint
    end
    object Edt_CurrencyName: TEdit
      Left = 134
      Top = 12
      Width = 121
      Height = 20
      TabOrder = 1
    end
    object Edt_AccountPeriod: TMaskEdit
      Left = 316
      Top = 12
      Width = 60
      Height = 20
      EditMask = '!9999/99;1;_'
      MaxLength = 7
      TabOrder = 2
      Text = '    .  '
      OnEnter = Edt_AccountPeriodEnter
      OnExit = Edt_AccountPeriodExit
    end
    object Edt_ChangeForeignRate: TEdit
      Left = 624
      Top = 12
      Width = 60
      Height = 20
      TabOrder = 4
      OnExit = FloatCheck
    end
    object Edt_ForeignRate: TEdit
      Left = 473
      Top = 12
      Width = 60
      Height = 20
      TabOrder = 3
      OnExit = FloatCheck
    end
    object Edt_RemArk: TEdit
      Left = 80
      Top = 35
      Width = 454
      Height = 20
      TabOrder = 5
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 396
    Width = 753
  end
  inherited Pnl_Body: TPanel
    Top = 121
    Width = 753
    Height = 275
    inherited DBGridEh: TDBGridEh
      Width = 753
      Height = 275
      Columns = <
        Item
          FieldName = 'AccountPeriodDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '日期'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ForeignRate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '记帐汇率'
          Width = 83
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ChangeForeignRate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '调整汇率'
          Width = 88
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 493
    Top = 163
  end
  inherited ActionList: TActionList
    inherited Act_InsertLine: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_DeleteLine: TAction
      Enabled = False
      Visible = False
    end
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdysjmrm;Data Source=192.168.0.1' +
      '51;Use procedure for Prepare=1;Auto Translate=True;Packet Size=4' +
      '096;Workstation ID=XYB'
    SQL.Strings = (
      'Select * from Gl_ForeignCurrencyRateLine')
    object AdoQry_BodyForeignCurrencyRateID: TIntegerField
      FieldName = 'ForeignCurrencyRateID'
    end
    object AdoQry_BodyAccountPeriodDate: TIntegerField
      FieldName = 'AccountPeriodDate'
    end
    object AdoQry_BodyForeignRate: TFloatField
      FieldName = 'ForeignRate'
    end
    object AdoQry_BodyChangeForeignRate: TFloatField
      FieldName = 'ChangeForeignRate'
    end
    object AdoQry_BodyRemArk: TStringField
      FieldName = 'RemArk'
      Size = 30
    end
  end
  inherited DataSource: TDataSource
    Left = 568
    Top = 225
  end
end