inv100_02.dfm

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

inherited Inv100_02Form: TInv100_02Form
  Left = 228
  Top = 172
  Caption = #20179#24211#36164#26009#32500#25252
  ClientHeight = 248
  ClientWidth = 521
  PixelsPerInch = 96
  TextHeight = 12
  inherited Bevel1: TBevel
    Width = 505
    Height = 201
  end
  object lblCode: TLabel [1]
    Tag = 1
    Left = 24
    Top = 32
    Width = 48
    Height = 12
    Caption = #20179#24211#32534#21495
  end
  object lblName: TLabel [2]
    Tag = 1
    Left = 208
    Top = 32
    Width = 48
    Height = 12
    Caption = #20179#24211#21517#31216
  end
  object lblAddress: TLabel [3]
    Left = 24
    Top = 56
    Width = 48
    Height = 12
    Caption = #20179#24211#22320#22336
  end
  object lblRegion: TLabel [4]
    Left = 208
    Top = 80
    Width = 48
    Height = 12
    Caption = #25152#23646#22320#21306
  end
  object lblPhone: TLabel [5]
    Left = 24
    Top = 104
    Width = 48
    Height = 12
    Caption = #30005#35805#21495#30721
  end
  object lblFax: TLabel [6]
    Left = 264
    Top = 104
    Width = 48
    Height = 12
    Caption = #20256#30495#21495#30721
  end
  object lblEmpID: TLabel [7]
    Left = 24
    Top = 128
    Width = 48
    Height = 12
    Caption = #32852#31995#20154#21592
  end
  object lblZip: TLabel [8]
    Left = 24
    Top = 80
    Width = 48
    Height = 12
    Caption = #37038#25919#32534#30721
  end
  object sbEmpID: TSpeedButton [9]
    Left = 202
    Top = 120
    Width = 22
    Height = 20
    Flat = True
    Glyph.Data = {
      F6060000424DF606000000000000360000002800000018000000180000000100
      180000000000C006000000000000000000000000000000000000FF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000000000
      000000FF00FFFF00FFFF00FFFF00FFFF00FF000000000000000000FF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FF000000C0C0C0000000FF00FFFF00FFFF00FFFF00FFFF00FF000000C0C0C0
      000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FF000000000000000000808080FF00FFFF00FFFF00FF80
      8080000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0000000000000000000000000000
      00000000000000000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFBF0000BF0000BF0000BF0000000000C0C0C0
      000000000000000000000000C0C0C0000000000000000000000000FF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFFFFFFFFFF
      FFFF000000C0C0C0000000000000000000000000C0C0C0000000000000000000
      000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
      00FFFFFF80808080808000000000000000000000000000000000000000000000
      0000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFBF0000FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000
      00C0C0C0000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFF808080808080FFFFFF808080
      000000000000808080808080FFFFFF000000000000FF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000000000FF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
      00FFFFFF808080808080FFFFFF808080000000000000808080808080FFFFFF00
      0000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFBF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFBF0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFBF0000BF0000BF0000BF0000BF0000BF0000
      BF0000BF0000BF0000BF0000BF0000BF0000FF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000C0C0C0BF0000BF
      0000C0C0C0BF0000BF0000C0C0C0BF0000BF0000C0C0C0BF0000FF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
      00BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF
      0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
    OnClick = sbEmpIDClick
  end
  inherited bbtnOk: TBitBtn
    Left = 344
    Top = 216
    TabOrder = 11
  end
  inherited bbtnExit: TBitBtn
    Left = 432
    Top = 216
    TabOrder = 12
  end
  object edtCode: TEdit [12]
    Left = 80
    Top = 24
    Width = 121
    Height = 20
    TabOrder = 0
  end
  object edtName: TEdit [13]
    Left = 264
    Top = 24
    Width = 233
    Height = 20
    TabOrder = 1
  end
  object edtAddress: TEdit [14]
    Left = 80
    Top = 48
    Width = 417
    Height = 20
    TabOrder = 2
  end
  object edtPhone: TEdit [15]
    Left = 80
    Top = 96
    Width = 177
    Height = 20
    TabOrder = 5
  end
  object edtFax: TEdit [16]
    Left = 320
    Top = 96
    Width = 177
    Height = 20
    TabOrder = 6
  end
  object edtEmpID: TEdit [17]
    Left = 80
    Top = 120
    Width = 121
    Height = 20
    TabOrder = 7
    OnExit = edtEmpIDExit
  end
  object edtZip: TEdit [18]
    Left = 80
    Top = 72
    Width = 121
    Height = 20
    TabOrder = 3
  end
  object edtEmpName: TEdit [19]
    Left = 232
    Top = 120
    Width = 265
    Height = 20
    Color = clBtnFace
    Enabled = False
    TabOrder = 8
  end
  object cbIsAllocate: TCheckBox [20]
    Tag = 1
    Left = 80
    Top = 152
    Width = 305
    Height = 17
    Caption = #20801#35768#23558#35813#20179#24211#30340#26009#21697#30340#29616#26377#24211#23384#20998#37197#32473#38144#21806#23450#21333
    TabOrder = 9
  end
  object cbIsMRP: TCheckBox [21]
    Tag = 1
    Left = 80
    Top = 176
    Width = 305
    Height = 17
    Caption = #20801#35768#35813#20179#24211#30340#26009#21697#21442#19982' MRP'#65288#29289#26009#38656#27714#35745#21010#65289#30340#35745#31639
    TabOrder = 10
  end
  object cbRegion: TdxLookupTreeView [22]
    Left = 264
    Top = 72
    Width = 233
    Height = 20
    CanSelectParents = False
    ParentColor = False
    TabOrder = 4
    TabStop = True
    TreeViewColor = clWindow
    TreeViewCursor = crDefault
    TreeViewFont.Charset = DEFAULT_CHARSET
    TreeViewFont.Color = clWindowText
    TreeViewFont.Height = -11
    TreeViewFont.Name = 'MS Sans Serif'
    TreeViewFont.Style = []
    TreeViewIndent = 19
    TreeViewReadOnly = False
    TreeViewShowButtons = True
    TreeViewShowHint = False
    TreeViewShowLines = True
    TreeViewShowRoot = True
    TreeViewSortType = stNone
    DividedChar = '.'
    ListSource = dsOrd120
    KeyField = 'O120_001'
    ListField = 'O120_002'
    Options = [trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
    ParentField = 'O120_003'
    TextStyle = tvtsShort
    Alignment = taLeftJustify
  end
  inherited pmUISet: TPopupMenu
    Top = 192
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      
        'select A.*,B.O120_002,C.H150_002,C.H150_003 from (INV100 A left ' +
        'join ORD120 B on A.I100_005=B.O120_001) left join HRM150 C on A.' +
        'I100_009=C.H150_001 order by A.I100_002')
    Top = 192
  end
  object qryOrd120: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from ORD120')
    Left = 424
    Top = 72
  end
  object dsOrd120: TDataSource
    DataSet = qryOrd120
    Left = 392
    Top = 72
  end
  object qryHrm150: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select H150_001,H150_002,H150_003 from HRM150 order by H150_002')
    Left = 136
    Top = 120
    object qryHrm150H150_001: TAutoIncField
      FieldName = 'H150_001'
      ReadOnly = True
      Visible = False
    end
    object qryHrm150H150_002: TWideStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'H150_002'
    end
    object qryHrm150H150_003: TWideStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldName = 'H150_003'
    end
  end
end