u_form1.dfm

很好地delphi书籍源码

    end
    object Label12: TLabel
      Left = 12
      Top = 158
      Width = 42
      Height = 21
      Caption = #26597#35810
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = #21326#25991#26032#39759
      Font.Style = [fsItalic]
      ParentFont = False
    end
    object Label14: TLabel
      Left = 8
      Top = 200
      Width = 72
      Height = 12
      Caption = #26681#25454#23478#29992#30005#35805
    end
    object Label18: TLabel
      Left = 8
      Top = 296
      Width = 72
      Height = 12
      Caption = #26681#25454#25163#26426#21495#30721
    end
    object Label19: TLabel
      Left = 8
      Top = 248
      Width = 72
      Height = 12
      Caption = #26681#25454#20844#21496#30005#35805
    end
    object NameCB: TComboBox
      Left = 8
      Top = 52
      Width = 91
      Height = 20
      Ctl3D = False
      DropDownCount = 10
      ItemHeight = 12
      ParentCtl3D = False
      TabOrder = 0
      OnChange = NameCBChange
      Items.Strings = (
        ''
        #24352
        #29579
        #36213
        #26446
        #38065
        #23385
        #21608
        #21556
        #37073
        #20911
        #38472
        #35832
        #21355
        #33931
        #27784
        #38889
        #26472
        #26417
        #31206
        #23588
        #35768
        #21525
        #26045
        #23380
        #26361
        #20005
        #21326'  '
        #37329
        #39759
        #38518
        #23004
        #25114
        #35874
        #37049'  '
        #26575#27700#31398#31456
        #20113#33487#28504#33883'  '
        #22874#33539#24429#37070
        #40065#38886#26124#39532'  '
        #33495#20964#33457#26041
        #20446#20219#34945#26611'  '
        #37190#40077#21490#21776
        #36153#24265#23697#34203'  '
        #38647#36154#20522#27748)
    end
    object StateCB: TComboBox
      Left = 8
      Top = 102
      Width = 91
      Height = 20
      ItemHeight = 12
      TabOrder = 1
      OnChange = StateCBChange
      Items.Strings = (
        #23478#20154
        #20146#23646
        #21516#20107
        #21516#23398
        #29087#20154
        #26379#21451
        #23398#29983)
    end
    object H_PhoneCB: TComboBox
      Left = 8
      Top = 216
      Width = 91
      Height = 20
      ItemHeight = 12
      TabOrder = 2
      OnChange = H_PhoneCBChange
    end
    object HandsetCB: TComboBox
      Left = 8
      Top = 312
      Width = 91
      Height = 20
      ItemHeight = 12
      TabOrder = 3
      OnChange = HandsetCBChange
      Items.Strings = (
        '130'
        '131'
        '132'
        '133'
        '134'
        '135'
        '136'
        '137'
        '138'
        '139')
    end
    object C_PhoneCB: TComboBox
      Left = 9
      Top = 264
      Width = 90
      Height = 20
      ItemHeight = 12
      TabOrder = 4
      OnChange = C_PhoneCBChange
    end
  end
  object SBar: TStatusBar
    Left = 0
    Top = 382
    Width = 691
    Height = 28
    Panels = <>
    SimplePanel = True
  end
  object ModGB: TGroupBox
    Left = 23
    Top = 68
    Width = 259
    Height = 295
    Caption = #20462#25913#20449#24687
    Color = clScrollBar
    Ctl3D = False
    DragKind = dkDock
    DragMode = dmAutomatic
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 5
    Visible = False
    object Label6: TLabel
      Left = 38
      Top = 28
      Width = 28
      Height = 14
      Caption = #22995#21517
    end
    object Label7: TLabel
      Left = 10
      Top = 54
      Width = 56
      Height = 14
      Caption = #20303#23429#30005#35805
    end
    object Label8: TLabel
      Left = 10
      Top = 82
      Width = 56
      Height = 14
      Caption = #21333#20301#30005#35805
    end
    object Label9: TLabel
      Left = 38
      Top = 106
      Width = 28
      Height = 14
      Caption = #25163#26426
    end
    object Label10: TLabel
      Left = 38
      Top = 132
      Width = 28
      Height = 14
      Caption = #20851#31995
    end
    object Label11: TLabel
      Left = 38
      Top = 160
      Width = 28
      Height = 14
      Caption = #22791#27880
    end
    object NameEdit1: TEdit
      Left = 74
      Top = 26
      Width = 101
      Height = 20
      TabOrder = 0
    end
    object ModOkButton: TButton
      Tag = 1
      Left = 58
      Top = 218
      Width = 59
      Height = 21
      Caption = #30830#23450
      TabOrder = 1
      OnClick = ModOkButtonClick
    end
    object ModCancelButton: TButton
      Left = 132
      Top = 218
      Width = 59
      Height = 21
      Caption = #21462#28040
      TabOrder = 2
      OnClick = ModCancelButtonClick
    end
    object RelationCB1: TComboBox
      Left = 74
      Top = 128
      Width = 101
      Height = 22
      Style = csDropDownList
      DropDownCount = 10
      ItemHeight = 14
      TabOrder = 3
      Items.Strings = (
        ''
        #23478#20154
        #20146#23646
        #21516#20107
        #21516#23398
        #29087#20154
        #26379#21451
        #23398#29983)
    end
    object HomePhoneEdit1: TEdit
      Left = 74
      Top = 52
      Width = 125
      Height = 20
      TabOrder = 4
      Text = '   '
    end
    object CompanyEdit1: TEdit
      Left = 74
      Top = 76
      Width = 125
      Height = 20
      TabOrder = 5
    end
    object HandsetEdit1: TEdit
      Left = 74
      Top = 102
      Width = 125
      Height = 20
      TabOrder = 6
    end
    object NoteEdit1: TEdit
      Left = 74
      Top = 156
      Width = 153
      Height = 20
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 7
    end
  end
  object ImageList1: TImageList
    Left = 596
    Top = 10
    Bitmap = {
      494C01010D000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000004000000001001000000000000020
      0000000000000000000000000000000000000000000000000000000000000000