combox.dfm

采用Delphi7编写的个人通讯录

          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          object btnAbout: TButton
            Left = 10
            Top = 17
            Width = 95
            Height = 20
            Caption = #20851#20110'[H]'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnClick = ButtonSet
          end
          object btnExit: TButton
            Left = 10
            Top = 45
            Width = 95
            Height = 20
            Cancel = True
            Caption = #36864#20986'[Q]'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            OnClick = ButtonSet
          end
        end
      end
      object Panel2: TPanel
        Left = 2
        Top = 2
        Width = 634
        Height = 511
        Align = alClient
        BevelOuter = bvLowered
        TabOrder = 1
        object Panel5: TPanel
          Left = 1
          Top = 1
          Width = 632
          Height = 56
          Align = alTop
          BevelInner = bvLowered
          BevelOuter = bvNone
          TabOrder = 0
          DesignSize = (
            632
            56)
          object lblRecCount: TLabel
            Left = 493
            Top = 16
            Width = 42
            Height = 12
            Anchors = [akRight]
            Caption = #31532'[0]'#26465
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
          end
          object btnRelease: TButton
            Left = 117
            Top = 14
            Width = 96
            Height = 20
            Caption = #21047#26032#35760#24405'[S]'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnClick = ButtonSet
          end
          object btnadd: TButton
            Left = 9
            Top = 14
            Width = 95
            Height = 20
            Caption = #28155#21152#32852#31995#20154'[A]'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            OnClick = ButtonSet
          end
          object btnLast: TButton
            Left = 590
            Top = 14
            Width = 28
            Height = 20
            Anchors = [akRight]
            Caption = '>>'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 2
            OnClick = RecordLeader
          end
          object btnNext: TButton
            Left = 554
            Top = 14
            Width = 28
            Height = 20
            Anchors = [akRight]
            Caption = '>'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 3
            OnClick = RecordLeader
          end
          object btnPrev: TButton
            Left = 442
            Top = 14
            Width = 28
            Height = 20
            Anchors = [akRight]
            Caption = '<'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 4
            OnClick = RecordLeader
          end
          object btnFirst: TButton
            Left = 402
            Top = 14
            Width = 28
            Height = 20
            Anchors = [akRight]
            Caption = '<<'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 5
            OnClick = RecordLeader
          end
        end
        object dgList: TDBGrid
          Left = 1
          Top = 57
          Width = 632
          Height = 453
          Align = alClient
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          ParentFont = False
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDblClick = dgListDblClick
          OnKeyDown = dgListKeyDown
          Columns = <
            item
              Expanded = False
              FieldName = 'ID'
              Title.Caption = #32534#21495
              Width = 38
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Name'
              Title.Caption = #22995#21517
              Width = 69
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Sex'
              PickList.Strings = (
                #30007
                #22899)
              Title.Caption = #24615#21035
              Width = 31
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'HP'
              Title.Caption = #25163#26426
              Width = 104
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Phone'
              Title.Caption = #23478#24237#30005#35805
              Width = 101
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ComPhone'
              Title.Caption = #20844#21496#30005#35805
              Width = 94
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'QQ'
              Width = 95
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'PersonType'
              PickList.Strings = (
                #20146#25114
                #26379#21451
                #21516#23398
                #21516#20107
                #23458#25143
                #20854#20182)
              Title.Caption = #31867#22411
              Width = 57
              Visible = True
            end>
        end