umain.dfm

一个很好的通讯录源码！可以学到很多小型mis的基本思想。有添加、删除、编辑等功能。

object frmmain: Tfrmmain
  Left = 253
  Top = 181
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #30005#23376#36890#35759#24405
  ClientHeight = 443
  ClientWidth = 628
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001002020040000000000E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000004440000000000000000000000
    0000004431400000000000000000000000000044334040000000000000000000
    0000040444404400000000000000000000000444000444000000000000000000
    0000447774077440000000000000000000004777740787700000000000000000
    0004447770778F740000000000000000000477774078FF774000000000000000
    004447770778FFF7744000000000000000477774078FF8FF8774400440000000
    04447770778F87FFF7777444000000000477774078FF78FF7F9F844400000000
    4447770778F87FFFF978444400000000477774078F878FF87FF8444000000004
    447770778F78FF877F8444400000000477774078FF7FFF778F84440000000044
    47770778878FF878F8444400000000477774078F77FFF777F844400000000444
    7770778F78FFF88F8444400000000477774047FF7FFF87FF8444000000000447
    7700048FFFF877F844441100000100777400047FFFF778F84440031013100000
    00000048FF877F844440003100000000000000478FF8FF844400000033100000
    0000000478FFF8444400000000000000000000004778F8444000000000000000
    0000000004477444400000000000000000000000000444440000000000000000
    000000000000044000000000000000000000000000000000000000000000FFE3
    FFFFFFC0FFFFFF807FFFFF803FFFFF001FFFFF001FFFFE000FFFFE000FFFFC00
    07FFFC0001FFF800007FF8000003F0000007F0000007E000000FE000000FC000
    001FC000001F8000003F8000003F0000007F0000007F0000003E81800091C380
    01CFFFC001F1FFC003FFFFE003FFFFF007FFFFFC07FFFFFF0FFFFFFFFFFF}
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 628
    Height = 419
    Align = alTop
    BorderStyle = bsSingle
    Caption = ' '
    TabOrder = 0
    object TreeView1: TTreeView
      Left = 1
      Top = 4
      Width = 135
      Height = 270
      Hint = #21452#20987#26377#20851#31867#22411#21487#20197#26597#30475#21040#27492#31867#22411#30340#25152#20197#20449#24687'!'
      BevelInner = bvLowered
      BevelOuter = bvSpace
      Images = ImageList1
      Indent = 19
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 0
      TabStop = False
      OnDblClick = TreeView1DblClick
      Items.Data = {
        01000000210000000000000000000000FFFFFFFFFFFFFFFF0000000007000000
        08B7D6D7E9C0E0D0CD1D0000000100000002000000FFFFFFFFFFFFFFFF000000
        000000000004C7D7C6DD1D0000000100000002000000FFFFFFFFFFFFFFFF0000
        00000000000004C5F3D3D11D0000000100000002000000FFFFFFFFFFFFFFFF00
        0000000000000004CDACD1A71D0000000100000002000000FFFFFFFFFFFFFFFF
        000000000000000004CDACCAC21D0000000100000002000000FFFFFFFFFFFFFF
        FF000000000000000004BFCDBBA71D0000000100000002000000FFFFFFFFFFFF
        FFFF000000000000000004C6E4CBFC210000000100000002000000FFFFFFFFFF
        FFFFFF000000000000000008C8ABB2BFBCC7C2BC}
    end
    object Panel2: TPanel
      Left = 139
      Top = 4
      Width = 361
      Height = 271
      BevelInner = bvSpace
      BevelOuter = bvLowered
      Caption = ' '
      TabOrder = 1
      object Label1: TLabel
        Left = 32
        Top = 8
        Width = 36
        Height = 12
        Caption = #22995#21517#65306
      end
      object Label2: TLabel
        Left = 32
        Top = 29
        Width = 36
        Height = 12
        Caption = #24180#40836#65306
      end
      object Label3: TLabel
        Left = 32
        Top = 50
        Width = 36
        Height = 12
        Caption = #24615#21035#65306
      end
      object Label4: TLabel
        Left = 32
        Top = 71
        Width = 36
        Height = 12
        Caption = #32593#21517#65306
      end
      object Label5: TLabel
        Left = 8
        Top = 92
        Width = 60
        Height = 12
        Caption = #20303#23429#30005#35805#65306
      end
      object Label6: TLabel
        Left = 32
        Top = 112
        Width = 36
        Height = 12
        Caption = #25163#26426#65306
      end
      object Label7: TLabel
        Left = 20
        Top = 133
        Width = 48
        Height = 12
        Caption = #23567#28789#36890#65306
      end
      object Label8: TLabel
        Left = 172
        Top = 8
        Width = 60
        Height = 12
        Caption = #20986#29983#24180#26376#65306
      end
      object Label9: TLabel
        Left = 196
        Top = 29
        Width = 36
        Height = 12
        Caption = #27665#26063#65306
      end
      object Label10: TLabel
        Left = 196
        Top = 50
        Width = 36
        Height = 12
        Caption = #34880#22411#65306
      end
      object Label11: TLabel
        Left = 184
        Top = 71
        Width = 48
        Height = 12
        Caption = #65329#65329#21495#65306
      end
      object Label12: TLabel
        Left = 172
        Top = 92
        Width = 60
        Height = 12
        Caption = #21333#20301#30005#35805#65306
      end
      object Label13: TLabel
        Left = 196
        Top = 112
        Width = 36
        Height = 12
        Caption = #20256#30495#65306
      end
      object Label14: TLabel
        Left = 196
        Top = 133
        Width = 36
        Height = 12
        Caption = #37038#32534#65306
      end
      object Label15: TLabel
        Left = 8
        Top = 154
        Width = 60
        Height = 12
        Caption = #23478#24237#20303#22336#65306
      end
      object Label16: TLabel
        Left = 32
        Top = 175
        Width = 36
        Height = 12
        Caption = #32593#22336#65306
      end
      object Label17: TLabel
        Left = 20
        Top = 196
        Width = 48
        Height = 12
        Caption = 'E_mail'#65306
      end
      object Label18: TLabel
        Left = 32
        Top = 214
        Width = 36
        Height = 12
        Caption = #22791#27880#65306
      end
      object edtname: TEdit
        Left = 64
        Top = 3
        Width = 90
        Height = 20
        TabOrder = 0
        Text = 'edtname'
      end
      object edtage: TEdit
        Left = 64
        Top = 25
        Width = 90
        Height = 20
        TabOrder = 2
        Text = 'edtage'
        OnKeyPress = edtageKeyPress
      end
      object edtename: TEdit
        Left = 64
        Top = 66
        Width = 90
        Height = 20
        TabOrder = 7
        Text = 'edtename'
      end
      object edtadrtel: TEdit
        Left = 64
        Top = 86
        Width = 90
        Height = 20
        MaxLength = 12
        TabOrder = 9
        Text = 'edtadrtel'
        OnKeyPress = edtadrtelKeyPress
      end
      object edttel: TEdit
        Left = 64
        Top = 108
        Width = 90
        Height = 20
        MaxLength = 11
        TabOrder = 11
        Text = 'edttel'
        OnKeyPress = edtageKeyPress
      end
      object edtxlt: TEdit
        Left = 64
        Top = 129
        Width = 90
        Height = 20
        MaxLength = 7
        TabOrder = 13
        Text = 'edtxlt'
        OnKeyPress = edtageKeyPress
      end
      object cbbsex: TComboBox
        Left = 64
        Top = 46
        Width = 90
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 4
        Items.Strings = (
          #30007
          #22899)
      end
      object dtpbirthday: TDateTimePicker
        Left = 228
        Top = 3
        Width = 120
        Height = 20
        CalAlignment = dtaLeft