edituserunit.dfm

好用得程序

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