cw_login.~dfm

结于初学者来说这对数据库是一个很好的例子

object Form2: TForm2
  Left = 380
  Top = 213
  Width = 283
  Height = 205
  Caption = #31995#32479#30331#38470
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 112
    Top = 8
    Width = 65
    Height = 19
    AutoSize = False
    Caption = #31995#32479#30331#24405
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 32
    Width = 257
    Height = 137
    TabOrder = 0
    object Label2: TLabel
      Left = 40
      Top = 32
      Width = 48
      Height = 13
      AutoSize = False
      Caption = #29992#25143#21517#65306
    end
    object Label3: TLabel
      Left = 40
      Top = 72
      Width = 48
      Height = 13
      AutoSize = False
      Caption = #23494'    '#30721#65306
    end
    object PassWord: TEdit
      Left = 88
      Top = 64
      Width = 121
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      PasswordChar = '*'
      TabOrder = 0
      OnKeyPress = PassWordKeyPress
    end
    object Button1: TButton
      Left = 56
      Top = 104
      Width = 75
      Height = 25
      Caption = #30331'  '#24405
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 152
      Top = 104
      Width = 75
      Height = 25
      Caption = #21462'  '#28040
      TabOrder = 2
      OnClick = Button2Click
    end
    object username: TComboBox
      Left = 88
      Top = 24
      Width = 121
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 3
      OnSelect = usernameSelect
    end
  end
  object Database2: TDatabase
    Connected = True
    DatabaseName = 'hotel'
    LoginPrompt = False
    Params.Strings = (
      'username='
      'password=wyj7410260912jyw')
    SessionName = 'Default'
    Left = 16
    Top = 24
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'Hotel'
    TableName = 'Manager'
    Left = 64
    Top = 24
  end
  object T_user: TTable
    DatabaseName = 'Hotel'
    TableName = 'Manager'
    Left = 160
    Top = 24
  end
  object Q_operator: TQuery
    DatabaseName = 'Hotel'
    RequestLive = True
    SQL.Strings = (
      'select * from operator')
    Left = 232
  end
end