group.dfm

自己做的通讯录程序

object frmGroup: TfrmGroup
  Left = 214
  Top = 75
  Width = 565
  Height = 260
  Caption = #32452#21035#32500#25252
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 16
    Width = 84
    Height = 19
    Caption = #32452#21035#24773#20917
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lbGroup: TListBox
    Left = 16
    Top = 40
    Width = 209
    Height = 177
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 16
    ParentFont = False
    TabOrder = 0
    OnClick = lbGroupClick
  end
  object btnMoveDown: TBitBtn
    Left = 232
    Top = 168
    Width = 33
    Height = 49
    TabOrder = 1
    OnClick = btnMoveDownClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
      333333333337F33333333333333033333333333333373F333333333333090333
      33333333337F7F33333333333309033333333333337373F33333333330999033
      3333333337F337F33333333330999033333333333733373F3333333309999903
      333333337F33337F33333333099999033333333373333373F333333099999990
      33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333300033333333333337773333333}
    Layout = blGlyphTop
    NumGlyphs = 2
  end
  object BtnMoveUp: TBitBtn
    Left = 232
    Top = 96
    Width = 33
    Height = 49
    TabOrder = 2
    OnClick = BtnMoveUpClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
      3333333333777F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
      3333333777737777F333333099999990333333373F3333373333333309999903
      333333337F33337F33333333099999033333333373F333733333333330999033
      3333333337F337F3333333333099903333333333373F37333333333333090333
      33333333337F7F33333333333309033333333333337373333333333333303333
      333333333337F333333333333330333333333333333733333333}
    Layout = blGlyphTop
    NumGlyphs = 2
  end
  object GroupBox1: TGroupBox
    Left = 280
    Top = 40
    Width = 265
    Height = 129
    Caption = #32452#21035#32500#25252
    TabOrder = 3
    object editGroupName: TEdit
      Left = 24
      Top = 31
      Width = 217
      Height = 37
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -29
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentFont = False
      TabOrder = 0
    end
    object btGroupAdd: TBitBtn
      Left = 24
      Top = 77
      Width = 73
      Height = 36
      Caption = #28155#21152
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = btGroupAddClick
    end
    object btGroupUpdate: TBitBtn
      Left = 96
      Top = 77
      Width = 73
      Height = 36
      Caption = #20462#25913
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = btGroupUpdateClick
    end
    object btGroupDelete: TBitBtn
      Left = 168
      Top = 77
      Width = 73
      Height = 36
      Caption = #21024#38500
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = btGroupDeleteClick
    end
  end
  object btnClose: TBitBtn
    Left = 376
    Top = 181
    Width = 145
    Height = 36
    Caption = #20851#38381
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = btnCloseClick
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;Data Source=Addre' +
      'ssList'
    LoginPrompt = False
    Provider = 'MSDASQL.1'
    Left = 120
    Top = 8
  end
end