unitmain.dfm

delphi做的名片管理软件

        Top = 136
        Width = 329
        Height = 21
        DataField = 'cemail'
        DataSource = DataModule1.DataSource2
        TabOrder = 8
        OnKeyPress = FormKeyPress
      end
      object DBEdit15: TDBEdit
        Left = 64
        Top = 88
        Width = 121
        Height = 21
        DataField = 'ctel'
        DataSource = DataModule1.DataSource2
        TabOrder = 9
        OnKeyPress = FormKeyPress
      end
      object DBEdit16: TDBEdit
        Left = 64
        Top = 112
        Width = 121
        Height = 21
        DataField = 'cfax'
        DataSource = DataModule1.DataSource2
        TabOrder = 10
        OnKeyPress = FormKeyPress
      end
      object DBEdit17: TDBEdit
        Left = 264
        Top = 240
        Width = 329
        Height = 21
        DataField = 'cbank'
        DataSource = DataModule1.DataSource2
        TabOrder = 11
      end
      object DBEdit18: TDBEdit
        Left = 64
        Top = 168
        Width = 121
        Height = 21
        DataField = 'office'
        DataSource = DataModule1.DataSource2
        TabOrder = 12
      end
      object DBEdit19: TDBEdit
        Left = 264
        Top = 216
        Width = 329
        Height = 21
        DataField = 'ctax'
        DataSource = DataModule1.DataSource2
        TabOrder = 13
      end
      object DBEdit20: TDBEdit
        Left = 264
        Top = 192
        Width = 329
        Height = 21
        DataField = 'ccode'
        DataSource = DataModule1.DataSource2
        TabOrder = 14
      end
      object DBEdit21: TDBEdit
        Left = 464
        Top = 88
        Width = 65
        Height = 21
        DataField = 'PID'
        DataSource = DataModule1.DataSource2
        TabOrder = 15
        Visible = False
      end
      object Button2: TButton
        Left = 240
        Top = 400
        Width = 57
        Height = 25
        Caption = #21024'  '#38500' '
        TabOrder = 16
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 160
        Top = 400
        Width = 57
        Height = 25
        Hint = #20462#25913#26412#26465#35760#24405
        Caption = #20462'  '#25913' '
        ParentShowHint = False
        ShowHint = True
        TabOrder = 17
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 320
        Top = 400
        Width = 57
        Height = 25
        Caption = #21462'  '#28040' '
        TabOrder = 18
        OnClick = Button4Click
      end
      object Edit1: TEdit
        Left = 264
        Top = 88
        Width = 121
        Height = 21
        TabOrder = 19
      end
      object DBMemo1: TDBMemo
        Left = 64
        Top = 272
        Width = 529
        Height = 121
        DataField = 'memo1'
        DataSource = DataModule1.DataSource2
        TabOrder = 20
      end
      object DBEdit24: TDBEdit
        Left = 464
        Top = 48
        Width = 129
        Height = 21
        DataField = 'power'
        DataSource = DataModule1.DataSource2
        TabOrder = 21
        OnKeyPress = FormKeyPress
      end
      object DBEdit25: TDBEdit
        Left = 64
        Top = 192
        Width = 121
        Height = 21
        DataField = 'memo2'
        DataSource = DataModule1.DataSource2
        TabOrder = 22
      end
      object DBEdit26: TDBEdit
        Left = 64
        Top = 216
        Width = 121
        Height = 21
        DataField = 'memo3'
        DataSource = DataModule1.DataSource2
        TabOrder = 23
      end
      object DBEdit27: TDBEdit
        Left = 64
        Top = 240
        Width = 121
        Height = 21
        DataField = 'memo4'
        DataSource = DataModule1.DataSource2
        TabOrder = 24
      end
      object DBComboBox1: TDBComboBox
        Tag = 1
        Left = 240
        Top = 8
        Width = 57
        Height = 21
        DataField = 'sex'
        DataSource = DataModule1.DataSource2
        ItemHeight = 13
        Items.Strings = (
          #30007
          #22899)
        TabOrder = 25
      end
      object DBComboBox2: TDBComboBox
        Left = 240
        Top = 32
        Width = 145
        Height = 21
        DataField = 'duty'
        DataSource = DataModule1.DataSource2
        ItemHeight = 13
        Items.Strings = (
          #24635#32463#29702
          #32844#21592)
        TabOrder = 26
      end
      object DBComboBox3: TDBComboBox
        Left = 64
        Top = 136
        Width = 121
        Height = 21
        DataField = 'area'
        DataSource = DataModule1.DataSource2
        ItemHeight = 13
        Items.Strings = (
          #36797#23425
          #21513#26519
          #40657#40857#27743
          #21271#20140
          #22825#27941
          #22235#24029
          #27827#21271
          #27827#21335
          #20869#33945#21476
          #23665#19996
          #23665#35199
          #27993#27743
          #31119#24314
          #28023#21335
          #24191#35199#22766#26063#33258#27835#21306
          #20113#21335
          #29976#32899
          #35199#34255
          #38738#28023
          #28246#21335
          #28246#21271
          #23425#22799#22238#26063#33258#27835#21306
          #26032#30086#32500#21566#23572#26063#33258#27835#21306
          #20854#23427)
        TabOrder = 27
        OnKeyPress = FormKeyPress
      end
      object DBComboBox4: TDBComboBox
        Left = 464
        Top = 24
        Width = 129
        Height = 21
        DataField = 'industry'
        DataSource = DataModule1.DataSource2
        ItemHeight = 13
        Items.Strings = (
          #24314#24037
          #35745#31639#26426
          #24037#19994
          #20854#23427)
        TabOrder = 28
        OnKeyPress = FormKeyPress
      end
      object DBEdit2: TDBEdit
        Left = 0
        Top = 400
        Width = 121
        Height = 21
        DataField = 'Pname'
        DataSource = DataModule1.DataSource2
        TabOrder = 29
        Visible = False
      end
    end
  end
  object ComboBox2: TComboBox
    Left = 225
    Top = 8
    Width = 152
    Height = 21
    ImeMode = imAlpha
    ItemHeight = 13
    TabOrder = 1
    Text = #26597#35810#26465#20214
    Items.Strings = (
      #22995#21517
      #20844#21496#21517#31216
      #34892#19994
      #22269#23478'/'#22320#21306
      #32844#21153)
  end
  object PageControl2: TPageControl
    Left = 0
    Top = 40
    Width = 217
    Height = 465
    ActivePage = TabSheet3
    Images = ImageList1
    TabOrder = 2
    object TabSheet3: TTabSheet
      Caption = #20998#32452
      object TreeView1: TTreeView
        Left = 0
        Top = 8
        Width = 209
        Height = 417
        Color = clInactiveCaptionText
        DragMode = dmAutomatic
        Images = ImageList1
        Indent = 19
        PopupMenu =