slectuser.dfm

自己做的通讯录程序

object frmSelectUser: TfrmSelectUser
  Left = 239
  Top = 129
  Width = 462
  Height = 349
  BorderIcons = [biSystemMenu]
  Caption = #36873#25321#29992#25143
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object lbUserList: TListBox
    Left = 0
    Top = 41
    Width = 454
    Height = 209
    Align = alTop
    BevelInner = bvLowered
    BevelKind = bkFlat
    BevelOuter = bvRaised
    BorderStyle = bsNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = #20223#23435'_GB2312'
    Font.Style = []
    ItemHeight = 19
    ParentFont = False
    TabOrder = 0
    OnDblClick = lbUserListDblClick
  end
  object btOK: TBitBtn
    Left = 56
    Top = 272
    Width = 113
    Height = 33
    Caption = #30830#23450
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 6566400
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = btOKClick
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 288
    Top = 272
    Width = 113
    Height = 33
    Caption = #25918#24323
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 6566400
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn2Click
    Kind = bkCancel
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 454
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    Caption = #35831#36873#25321#19968#20010#29992#25143
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 6591262
    Font.Height = -27
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
    TabOrder = 3
  end
  object ADOQuery1: TADOQuery
    Connection = Form1.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'Select * from Users')
    Left = 136
    Top = 136
  end
end