好用得程序

				object EditUserForm: TEditUserForm
				  Left = 299
				  Top = 247
				  Width = 253
				  Height = 318
				  Caption = 'EditUserForm'
				  Color = clBtnFace
				  Font.Charset = DEFAULT_CHARSET
				  Font.Color = clWindowText
				  Font.Height = -11
				  Font.Name = 'MS Sans Serif'
				  Font.Style = []
				  OldCreateOrder = False
				  Position = poOwnerFormCenter
				  OnClose = FormClose
				  OnCreate = FormCreate
				  OnShow = FormShow
				  PixelsPerInch = 96
				  TextHeight = 13
				  object Panel1: TPanel
				    Left = 0
				    Top = 0
				    Width = 245
				    Height = 225
				    Align = alTop
				    TabOrder = 0
				    object Label1: TLabel
				      Left = 14
				      Top = 22
				      Width = 36
				      Height = 13
				      Caption = #22995#21517#65306
				    end
				    object Label6: TLabel
				      Left = 14
				      Top = 186
				      Width = 36
				      Height = 13
				      Caption = #22791#27880#65306
				    end
				    object Label4: TLabel
				      Left = 14
				      Top = 153
				      Width = 36
				      Height = 13
				      Caption = #26435#38480#65306
				    end
				    object Label5: TLabel
				      Left = 14
				      Top = 120
				      Width = 36
				      Height = 13
				      Caption = #23494#30721#65306
				    end
				    object Label3: TLabel
				      Left = 14
				      Top = 87
				      Width = 36
				      Height = 13
				      Caption = #24615#21035#65306
				    end
				    object Label2: TLabel
				      Left = 14
				      Top = 54
				      Width = 36
				      Height = 13
				      Caption = #32534#21495#65306
				    end
				    object E_name: TEdit
				      Left = 56
				      Top = 24
				      Width = 161
				      Height = 21
				      TabOrder = 0
				    end
				    object E_ID: TEdit
				      Left = 56
				      Top = 56
				      Width = 161
				      Height = 21
				      TabOrder = 1
				    end
				    object E_SEX: TEdit
				      Left = 56
				      Top = 88
				      Width = 161
				      Height = 21
				      TabOrder = 2
				      Text = #30007
				      OnDblClick = E_SEXDblClick
				    end
				    object E_PASSWORD: TEdit
				      Left = 56
				      Top = 120
				      Width = 161
				      Height = 21
				      TabOrder = 3
				    end
				    object E_memo: TEdit
				      Left = 56
				      Top = 184
				      Width = 161
				      Height = 21
				      TabOrder = 4
				    end
				    object C_Rights: TComboBox
				      Left = 56
				      Top = 152
				      Width = 161
				      Height = 21
				      Style = csDropDownList
				      ItemHeight = 13
				      TabOrder = 5
				      Items.Strings = (
				        #31649#29702#21592
				        #19968#32423
				        #20108#32423
				        #19977#32423
				        #22235#32423
				        #38480#21046#32423)
				    end
				  end
				  object Panel_button: TPanel
				    Left = 0
				    Top = 227
				    Width = 245
				    Height = 64
				    Align = alBottom
				    BevelOuter = bvNone
				    ParentColor = True
				    TabOrder = 1
				    object Bevel_button: TBevel
				      Left = 0
				      Top = 1
				      Width = 265
				      Height = 7
				    end
				    object OKBtn: TButton
				      Left = 40
				      Top = 24
				      Width = 75
				      Height = 25
				      Caption = #30830#23450'[&O]'
				      TabOrder = 0
				      OnClick = OKBtnClick
				    end
				    object CancelBtn: TButton
				      Left = 144
				      Top = 24
				      Width = 75
				      Height = 25
				      Caption = #21462#28040'[&C]'
				      TabOrder = 1
				      OnClick = CancelBtnClick
				    end
				  end
				  object Query_data: TQuery
				    DatabaseName = 'HWSHOPDATA'
				    Left = 46
				    Top = 230
				  end
				end