< SQL SERVER 2000 案例教程>>,冶金工业出版社,这本书的代码

				object SearchUserForm: TSearchUserForm
				  Left = 202
				  Top = 110
				  Width = 337
				  Height = 238
				  Caption = #26597#35810#29992#25143
				  Color = clBtnFace
				  Font.Charset = DEFAULT_CHARSET
				  Font.Color = clWindowText
				  Font.Height = -11
				  Font.Name = 'MS Sans Serif'
				  Font.Style = []
				  OldCreateOrder = False
				  PixelsPerInch = 96
				  TextHeight = 13
				  object Checkname: TCheckBox
				    Left = 32
				    Top = 32
				    Width = 97
				    Height = 17
				    Caption = #29992#25143#21517
				    Font.Charset = DEFAULT_CHARSET
				    Font.Color = clWindowText
				    Font.Height = -16
				    Font.Name = 'MS Sans Serif'
				    Font.Style = []
				    ParentFont = False
				    TabOrder = 0
				  end
				  object Edit1: TEdit
				    Left = 136
				    Top = 32
				    Width = 145
				    Height = 28
				    Font.Charset = DEFAULT_CHARSET
				    Font.Color = clWindowText
				    Font.Height = -16
				    Font.Name = 'MS Sans Serif'
				    Font.Style = []
				    ParentFont = False
				    TabOrder = 1
				  end
				  object Checkpower: TCheckBox
				    Left = 32
				    Top = 88
				    Width = 97
				    Height = 17
				    Caption = #26435' '#38480
				    Font.Charset = DEFAULT_CHARSET
				    Font.Color = clWindowText
				    Font.Height = -16
				    Font.Name = 'MS Sans Serif'
				    Font.Style = []
				    ParentFont = False
				    TabOrder = 2
				  end
				  object powertype: TComboBox
				    Left = 136
				    Top = 80
				    Width = 145
				    Height = 28
				    Font.Charset = DEFAULT_CHARSET
				    Font.Color = clWindowText
				    Font.Height = -16
				    Font.Name = 'MS Sans Serif'
				    Font.Style = []
				    ItemHeight = 20
				    ParentFont = False
				    TabOrder = 3
				  end
				  object Search: TButton
				    Left = 32
				    Top = 136
				    Width = 89
				    Height = 33
				    Caption = #26597'  '#25214
				    Font.Charset = DEFAULT_CHARSET
				    Font.Color = clWindowText
				    Font.Height = -16
				    Font.Name = 'MS Sans Serif'
				    Font.Style = []
				    ParentFont = False
				    TabOrder = 4
				    OnClick = SearchClick
				  end
				  object Button1: TButton
				    Left = 192
				    Top = 136
				    Width = 89
				    Height = 33
				    Caption = #36864'  '#20986
				    Font.Charset = DEFAULT_CHARSET
				    Font.Color = clWindowText
				    Font.Height = -16
				    Font.Name = 'MS Sans Serif'
				    Font.Style = []
				    ParentFont = False
				    TabOrder = 5
				    OnClick = Button1Click
				  end
				end