basemoney.dfm

来自「产品信息系统!关于产品基础信息的系统!功能强大!」· DFM 代码 · 共 105 行

inherited frmBaseMoney: TfrmBaseMoney
  Top = 147
  Caption = #24065#31181#22522#30784#36164#26009
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter [0]
    Left = 217
    Top = 23
    Width = 4
    Height = 325
    Cursor = crHSplit
  end
  object DBGrid1: TDBGrid [2]
    Left = 0
    Top = 23
    Width = 217
    Height = 325
    Align = alLeft
    DataSource = dsBaseInfo
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'fMoney'
        Width = 90
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fRate'
        Visible = True
      end>
  end
  object Panel1: TPanel [3]
    Left = 221
    Top = 23
    Width = 315
    Height = 325
    Align = alClient
    TabOrder = 2
    object Label1: TLabel
      Left = 32
      Top = 48
      Width = 65
      Height = 13
      Caption = #24065#31181#21517#31216#65306
    end
    object Label2: TLabel
      Left = 56
      Top = 96
      Width = 39
      Height = 13
      Caption = #31246#29575#65306
    end
    object DBEdit1: TDBEdit
      Left = 96
      Top = 40
      Width = 121
      Height = 21
      DataField = 'fMoney'
      DataSource = dsBaseInfo
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 96
      Top = 88
      Width = 121
      Height = 21
      DataField = 'fRate'
      DataSource = dsBaseInfo
      TabOrder = 1
    end
  end
  inherited ALToolbar: TActionList
    Left = 464
    Top = 16
  end
  inherited QBaseInfo: TADOQuery
    Active = True
    SQL.Strings = (
      'Select * from tMoney')
    Left = 392
    Top = 0
    object QBaseInfofMoney: TWideStringField
      DisplayLabel = #24065#31181#21517#31216
      FieldName = 'fMoney'
      Size = 50
    end
    object QBaseInfofRate: TFloatField
      DisplayLabel = #31246#29575
      FieldName = 'fRate'
    end
  end
  inherited dsBaseInfo: TDataSource
    Left = 432
    Top = 8
  end
end