unit6.dfm

一个很小的个人通讯录管理程序,ACCESS数据,要装XP控件,内符

object fSearch: TfSearch
  Left = 211
  Top = 138
  Width = 775
  Height = 512
  Caption = #26597#35810#30028#38754
  Color = 15198183
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object pnlsearch: TPanel
    Left = 0
    Top = 0
    Width = 393
    Height = 485
    Align = alLeft
    BevelOuter = bvNone
    Color = 15198183
    Ctl3D = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 0
    object btnSearch: TBitBtn
      Left = 285
      Top = 157
      Width = 100
      Height = 36
      Caption = #26597#35810'[&Q]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = btnSearchClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333FF3FF3333333333CC30003333333333773777333333333C33
        3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
        33003377333337F33377333333333C333300333F333337F33377339333333C33
        3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
        330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
        330077F377F337F33377993399333C33330077FF773337F33377399993333C33
        33333777733337F333FF333333333C33300033333333373FF7773333333333CC
        3000333333333377377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object btnExit: TBitBtn
      Left = 286
      Top = 320
      Width = 100
      Height = 33
      Caption = #36864#20986'[&X]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = btnExitClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
        F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
        000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
        338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
        45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
        3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
        F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
        000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
        338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
        4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
        8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
        333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
        0000}
      NumGlyphs = 2
    end
    object grpbxQry: TGroupBox
      Left = 0
      Top = 0
      Width = 265
      Height = 485
      Align = alLeft
      Caption = #35774#23450#26597#35810#26465#20214
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      object ClQrySlt: TCheckListBox
        Left = 10
        Top = 15
        Width = 104
        Height = 437
        Color = clInfoBk
        Ctl3D = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ItemHeight = 47
        Items.Strings = (
          #25152#23646#20998#31867
          #22995#21517
          #20844#21496
          #21150#20844#30005#35805
          #20303#23429#30005#35805
          #31227#21160#30005#35805
          'EMAIL'
          'OICQ'
          'MSN')
        ParentCtl3D = False
        ParentFont = False
        Style = lbOwnerDrawFixed
        TabOrder = 0
      end
      object Edit1: TEdit
        Left = 128
        Top = 32
        Width = 121
        Height = 19
        TabOrder = 1
      end
      object Edit2: TEdit
        Left = 128
        Top = 80
        Width = 121
        Height = 19
        TabOrder = 2
      end
      object Edit3: TEdit
        Left = 128
        Top = 120
        Width = 121
        Height = 19
        TabOrder = 3
      end
      object Edit4: TEdit
        Left = 128
        Top = 168
        Width = 121
        Height = 19
        TabOrder = 4
      end
      object Edit5: TEdit
        Left = 128
        Top = 216
        Width = 121
        Height = 19
        TabOrder = 5
      end
      object Edit6: TEdit
        Left = 128
        Top = 264
        Width = 121
        Height = 19
        TabOrder = 6
      end
      object Edit7: TEdit
        Left = 128
        Top = 312
        Width = 121
        Height = 19
        TabOrder = 7
      end
      object Edit8: TEdit
        Left = 128
        Top = 360
        Width = 121
        Height = 19
        TabOrder = 8
      end
      object Edit9: TEdit
        Left = 128
        Top = 408
        Width = 121
        Height = 19
        TabOrder = 9
      end
    end
    object grpbxZh: TGroupBox
      Left = 286
      Top = 64
      Width = 96
      Height = 46
      Caption = #32452#21512#26465#20214
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      object rbtnAnd: TRadioButton
        Left = 4
        Top = 23
        Width = 41
        Height = 17
        Caption = #19982
        Checked = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        TabStop = True
      end
      object rbtnOr: TRadioButton
        Left = 50
        Top = 23
        Width = 35
        Height = 17
        Caption = #25110
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
    end
    object btnPrt: TBitBtn
      Left = 286
      Top = 215
      Width = 100
      Height = 34
      Caption = #25171#21360'[&P]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = btnPrtClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
    object btnExport: TBitBtn
      Left = 285
      Top = 269
      Width = 100
      Height = 36
      Caption = #23548#20986'[&E]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = btnExportClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
        333333333333337FF3333333333333903333333333333377FF33333333333399
        03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
        99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
        99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
        03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
        33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
        33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
        3333777777333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
  end
  object Panel1: TPanel
    Left = 393
    Top = 0
    Width = 374
    Height = 485
    Align = alClient
    Color = 15198183
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 1
      Top = 1
      Height = 483
      Color = clMaroon
      ParentColor = False
    end
    object DBGrid1: TDBGrid
      Left = 4
      Top = 1
      Width = 369
      Height = 483
      Align = alClient
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DBGrid1DblClick
      Columns = <
        item
          Expanded = False
          FieldName = 'GroupName'
          Title.Caption = #25152#23646#20998#31867
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Name_Cn'
          Title.Caption = #22995#21517
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Sex'
          Title.Caption = #24615#21035
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Corp'
          Title.Caption = #20844#21496
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Position'
          Title.Caption = #32844#20301
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'OfficePhone'
          Title.Caption = #21150#20844#30005#35805
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'HomePhone'
          Title.Caption = #20303#23429#30005#35805
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MobilePhone'
          Title.Caption = #31227#21160#30005#35805
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Email'
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Address'
          Title.Caption = #22320#22336
          Width = 100
          Visible = True
        end>
    end
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = DM.qSearch
    Left = 353
    Top = 16
  end
end