combox.dfm

采用Delphi7编写的个人通讯录

object Form1: TForm1
  Left = 27
  Top = 115
  Width = 771
  Height = 593
  Caption = #20010#20154#36890#35759#24405
  Color = clBtnFace
  DefaultMonitor = dmPrimary
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 763
    Height = 25
    ButtonHeight = 18
    ButtonWidth = 72
    Caption = 'ToolBar1'
    Customizable = True
    EdgeBorders = []
    EdgeInner = esNone
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    List = True
    Menu = MainMenu1
    ParentFont = False
    ShowCaptions = True
    TabOrder = 0
    Transparent = True
    Wrapable = False
  end
  object sBar: TStatusBar
    Left = 0
    Top = 540
    Width = 763
    Height = 26
    Panels = <
      item
        Text = '  '#23436#25104
        Width = 150
      end
      item
        Width = 250
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 25
    Width = 763
    Height = 515
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object Panel3: TPanel
      Left = 0
      Top = 0
      Width = 763
      Height = 515
      Align = alClient
      BevelInner = bvLowered
      BevelOuter = bvSpace
      Caption = ' '
      TabOrder = 0
      object Splitter1: TSplitter
        Left = 636
        Top = 2
        Width = 2
        Height = 511
        Cursor = crHSplit
        Align = alRight
        Visible = False
      end
      object Panel4: TPanel
        Left = 638
        Top = 2
        Width = 123
        Height = 511
        Align = alRight
        BevelOuter = bvLowered
        Caption = ' '
        TabOrder = 0
        object GroupBox2: TGroupBox
          Left = 5
          Top = 10
          Width = 114
          Height = 159
          Caption = #26597#35810#25968#25454
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          object ddlConType: TComboBox
            Left = 10
            Top = 52
            Width = 95
            Height = 20
            Style = csDropDownList
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ItemHeight = 12
            ItemIndex = 0
            ParentFont = False
            TabOrder = 0
            Text = #22995#21517
            Items.Strings = (
              #22995#21517
              #25163#26426
              #23478#24237#30005#35805
              'QQ'#21495)
          end
          object txtQuery: TEdit
            Left = 9
            Top = 86
            Width = 95
            Height = 20
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 1
          end
          object btnQuery: TButton
            Left = 13
            Top = 121
            Width = 88
            Height = 20
            Caption = #24320#22987#26597#35810'[&F]'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 2
            OnClick = ButtonSet
          end
          object ddlPersonType: TComboBox
            Left = 10
            Top = 20
            Width = 95
            Height = 20
            Style = csDropDownList
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ItemHeight = 12
            ItemIndex = 0
            ParentFont = False
            TabOrder = 3
            Text = #20840#37096#35760#24405
            Items.Strings = (
              #20840#37096#35760#24405
              #20146#25114
              #26379#21451
              #21516#23398
              #21516#20107
              #23458#25143
              #20854#20182)
          end
        end
        object GroupBox3: TGroupBox
          Left = 5
          Top = 176
          Width = 114
          Height = 109
          Caption = #25968#25454#32500#25252
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          object btnModify: TButton
            Left = 10
            Top = 17
            Width = 95
            Height = 20
            Caption = #20462#25913#35760#24405'[R]'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnClick = ButtonSet
          end
          object btnSave: TButton
            Left = 10
            Top = 43
            Width = 95
            Height = 20
            Caption = #25209#37327#20462#25913'[Y]'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            OnClick = ButtonSet
          end
          object btnDelete: TButton
            Left = 10
            Top = 70
            Width = 95
            Height = 20
            Caption = #21024#38500#35760#24405'[D]'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 2
            OnClick = ButtonSet
          end
        end
        object GroupBox1: TGroupBox
          Left = 4
          Top = 292
          Width = 115
          Height = 81
          Caption = #20851#20110
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12