wmlandform1.~dfm

管理

object WMLandForm: TWMLandForm
  Left = 253
  Top = 176
  Width = 273
  Height = 195
  Caption = #29992#25143#39564#35777' . . .'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 249
    Height = 113
    Caption = #36523#20221#39564#35777'....  '
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 33
      Width = 36
      Height = 12
      Caption = #29992#25143#65306
    end
    object Label2: TLabel
      Left = 16
      Top = 75
      Width = 36
      Height = 12
      Caption = #23494#30721#65306
    end
    object ComboBox1: TComboBox
      Left = 57
      Top = 27
      Width = 176
      Height = 20
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
      ItemHeight = 12
      TabOrder = 0
    end
    object Edit1: TEdit
      Left = 58
      Top = 69
      Width = 173
      Height = 20
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
      PasswordChar = '#'
      TabOrder = 1
      OnKeyDown = Edit1KeyDown
    end
  end
  object Button1: TButton
    Left = 94
    Top = 130
    Width = 75
    Height = 25
    Caption = #30830#23450'(&E)'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 178
    Top = 130
    Width = 75
    Height = 25
    Caption = #21462#28040
    TabOrder = 2
    OnClick = Button2Click
  end
  object adoland: TADODataSet
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    CommandText = 'select UserID, USerName, Password, ReMark from TsUSer'
    Parameters = <>
    Left = 128
    Top = 64
    object adolandUserID: TAutoIncField
      FieldName = 'UserID'
      ReadOnly = True
    end
    object adolandUSerName: TStringField
      FieldName = 'USerName'
      Size = 50
    end
    object adolandPassword: TIntegerField
      FieldName = 'Password'
    end
  end
end