gld100_02.dfm

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

inherited Gld100_02Form: TGld100_02Form
  Caption = #24065#21035#36164#26009#32500#25252
  ClientHeight = 128
  ClientWidth = 489
  PixelsPerInch = 96
  TextHeight = 12
  inherited Bevel1: TBevel
    Width = 473
    Height = 81
  end
  object lblCode: TLabel [1]
    Tag = 1
    Left = 24
    Top = 32
    Width = 48
    Height = 12
    Caption = #24065#21035#32534#21495
  end
  object lblName: TLabel [2]
    Tag = 1
    Left = 192
    Top = 32
    Width = 48
    Height = 12
    Caption = #24065#21035#21517#31216
  end
  object lblRate: TLabel [3]
    Tag = 1
    Left = 24
    Top = 56
    Width = 48
    Height = 12
    Caption = #32570#30465#27719#29575
  end
  object lblMark: TLabel [4]
    Left = 192
    Top = 56
    Width = 48
    Height = 12
    Caption = #24065#21035#31526#21495
  end
  inherited bbtnOk: TBitBtn
    Left = 304
    Top = 96
    TabOrder = 5
  end
  inherited bbtnExit: TBitBtn
    Left = 392
    Top = 96
    TabOrder = 6
  end
  object edtCode: TEdit [7]
    Left = 80
    Top = 24
    Width = 105
    Height = 20
    TabOrder = 0
  end
  object edtName: TEdit [8]
    Left = 248
    Top = 24
    Width = 217
    Height = 20
    TabOrder = 1
  end
  object edtRate: TEdit [9]
    Left = 80
    Top = 48
    Width = 105
    Height = 20
    TabOrder = 2
    OnKeyPress = edtRateKeyPress
  end
  object edtMark: TEdit [10]
    Left = 248
    Top = 48
    Width = 105
    Height = 20
    TabOrder = 3
  end
  object cbCurr: TCheckBox [11]
    Left = 384
    Top = 52
    Width = 81
    Height = 17
    Caption = #26412#20301#24065#21542
    Enabled = False
    TabOrder = 4
  end
  inherited pmUISet: TPopupMenu
    Top = 96
  end
  inherited ADOQuery1: TADOQuery
    SQL.Strings = (
      'select * from GLD100 order by G100_002')
    Top = 96
  end
end