bas_exchrate.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_ExchRate: TFrm_Bas_ExchRate
  Left = 122
  Top = 53
  Caption = '外币汇率'
  ClientHeight = 490
  ClientWidth = 597
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 597
  end
  inherited Pnl_Title: TPanel
    Width = 597
    Caption = '外币汇率'
    inherited Image2: TImage
      Width = 597
    end
  end
  inherited Pnl_Head: TPanel
    Width = 597
    inherited Image1: TImage
      Width = 597
    end
    inherited Lbl_Order: TLabel
      Width = 6
      Caption = ''
    end
    object Label1: TLabel
      Left = 483
      Top = 22
      Width = 96
      Height = 12
      Caption = '汇率=外币/本位币'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 485
    Width = 597
    Height = 5
    inherited Image4: TImage
      Width = 597
      Height = 5
    end
  end
  inherited Pnl_Body: TPanel
    Width = 597
    Height = 388
    inherited Image3: TImage
      Width = 597
      Height = 388
    end
    inherited DBGridEh: TDBGridEh
      Width = 597
      Height = 388
      Columns = <
        Item
          FieldName = 'EXCHMonth'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '月份'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CURRENCYCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币代码'
          Width = 65
          KeyList.Strings = ()
        end
        Item
          FieldName = 'currencyName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币名称'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ExchRate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '汇率'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ExchRateREMArK'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 196
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 53
    Top = 75
  end
  inherited ActionList: TActionList
    Left = 32
    Top = 32
  end
  inherited AdoQry_Main: TAdoQuery
    CurSorType = ctStatic
    SQL.Strings = (
      '    Select e.*,c.currencyName '
      '       from ExchRate e join currency c on '
      '            c.currencyCode=e.currencyCode')
    Left = 224
    Top = 289
    object AdoQry_MainEXCHMonth: TStringField
      FieldName = 'EXCHMonth'
      Origin = 'ExchRate'
      FixedChAr = True
      Size = 7
    end
    object AdoQry_MainCURRENCYCode: TStringField
      FieldName = 'CURRENCYCode'
      Origin = 'ExchRate'
      Size = 2
    end
    object AdoQry_MaincurrencyName: TStringField
      FieldName = 'currencyName'
      Origin = 'currency'
      Size = 30
    end
    object AdoQry_MainExchRate: TFloatField
      FieldName = 'ExchRate'
      Origin = 'ExchRate'
    end
    object AdoQry_MainExchRateREMArK: TStringField
      FieldName = 'ExchRateREMArK'
      Origin = 'ExchRate'
      Size = 60
    end
  end
  inherited DataSource: TDataSource
    Left = 328
    Top = 153
  end
  inherited ExtPrintReport: TExtPrintReport
    Title1 = '外币汇率维护'
  end
end