gl_enter_foreigncurrencyrateh.dfm

一个MRPII系统源代码版本

inherited Frm_Gl_Enter_ForeignCurrencyRateH: TFrm_Gl_Enter_ForeignCurrencyRateH
  Caption = '外币汇率'
  Windowstate = wsMaximized
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '外币汇率'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 78
      Caption = '外币代码/月份'
    end
    inherited Lbl_Order: TLabel
      Width = 24
      Caption = '全部'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      Columns = <
        Item
          FieldName = 'CURRENCYCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币代码'
          Width = 59
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币名称'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AccountPeriod'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '月份'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ForeignRate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '记帐汇率'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ChangeForeignRate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '调整汇率'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 533
    Top = 179
  end
  inherited AdoQry_Head: 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'
    CurSorType = ctStatic
    SQL.Strings = (
      
        'Select Gl_ForeignCurrencyRate.*,Currency.CurrencyName From Gl_Fo' +
        'reignCurrencyRate'
      
        '                                     Join Currency On Gl_Foreign' +
        'CurrencyRate.CurrencyCode=Currency.CurrencyCode'
      ''
      ' ')
    Left = 328
    Top = 233
    object AdoQry_HeadForeignCurrencyRateID: TAutoIncField
      FieldName = 'ForeignCurrencyRateID'
      Origin = 'Gl_ForeignCurrencyRate'
      ReadOnly = True
    end
    object AdoQry_HeadCURRENCYCode: TStringField
      FieldName = 'CURRENCYCode'
      Origin = 'Gl_ForeignCurrencyRate'
      Size = 3
    end
    object AdoQry_HeadAccountPeriod: TStringField
      FieldName = 'AccountPeriod'
      Origin = 'Gl_ForeignCurrencyRate'
      Size = 7
    end
    object AdoQry_HeadForeignRate: TFloatField
      FieldName = 'ForeignRate'
      Origin = 'Gl_ForeignCurrencyRate'
    end
    object AdoQry_HeadChangeForeignRate: TFloatField
      FieldName = 'ChangeForeignRate'
      Origin = 'Gl_ForeignCurrencyRate'
    end
    object AdoQry_HeadRemArk: TStringField
      FieldName = 'RemArk'
      Origin = 'Gl_ForeignCurrencyRate'
      Size = 30
    end
    object AdoQry_HeadCurrencyName: TStringField
      FieldName = 'CurrencyName'
      Origin = 'Currency'
      Size = 30
    end
  end
  inherited DataSource: TDataSource
    Left = 456
    Top = 177
  end
end