main.dfm

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

object Form1: TForm1
  Left = 311
  Top = 190
  Width = 275
  Height = 204
  BorderIcons = [biSystemMenu]
  Caption = #36890#29992#26705#25343#27927#28020#31649#29702#31995#32479#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000007777777777700000000000000000000FFFFFFFFFF7700000000000
    00000000FFFFFFFFFFFF7000000000000000000FF700007FFFFF700000000000
    000000FF70777707FFFF00000000000000000FF70FF07707FFF0000000000000
    0000FF70FF0F7807FF00000000000000000FF70FF0FF807FF000000000000000
    000F70FF0FF000FF000000000000000000000FF0FF0000F00000000000000000
    0000000000000800008000080000000000000000000000000802222080000000
    0000000000000000802222220800000000000000000000000222222220000000
    8000080000000000022222222000000805555080000000000AAA222220000080
    55555508000000000FFAA22220000005DDDD55500000000080FFA2220800000D
    DDDDD55000000000080FA2208000000DDDDDD55000080000808000080000000F
    FDDDD550008033330800000000000080FFDDD508080333333080000000000008
    0FDD5080003BBBB333000000000000008000080000BBBBBB3300000000000000
    0000000000BBBBBB33000000000000000000000000FFBBBB3300000000000000
    00000000080FFBBB3080000000000000000000000080FBB30800000000000000
    000000000008000080000000000000000000000000000000000000000000FFFF
    FFFFFFFC000FFFF8000FFFF0000FFFE0000FFFC0000FFF80000FFF00008FFE00
    01FFFC0003FFFC0087FFFE018FFFFF939C0FFFFFF807FFFFF003FFFFF003F03F
    F003E01FF003C00FF003C00FF003C00FF807C00E040FC00C03FFC00801FFE018
    01FFF03801FFFFF801FFFFF801FFFFF801FFFFFC03FFFFFE07FFFFFFFFFF}
  OldCreateOrder = False
  Position = poDesktopCenter
  Scaled = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 48
    Top = 8
    Width = 180
    Height = 14
    Caption = #36890#29992#26705#25343#27927#28020#31649#29702#31995#32479#31649#29702
    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 = 249
    Height = 137
    TabOrder = 0
    object Label2: TLabel
      Left = 32
      Top = 32
      Width = 48
      Height = 13
      AutoSize = False
      Caption = #29992#25143#21517#65306
    end
    object Label3: TLabel
      Left = 32
      Top = 72
      Width = 48
      Height = 13
      AutoSize = False
      Caption = #23494'  '#30721#65306
    end
    object PassWord: TEdit
      Left = 80
      Top = 64
      Width = 121
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      PasswordChar = '*'
      TabOrder = 0
      OnKeyPress = PassWordKeyPress
    end
    object Button1: TButton
      Left = 40
      Top = 104
      Width = 75
      Height = 25
      Caption = #30331'  '#24405
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 136
      Top = 104
      Width = 75
      Height = 25
      Caption = #21462'  '#28040
      TabOrder = 2
      OnClick = Button2Click
    end
  end
  object username: TComboBox
    Left = 88
    Top = 56
    Width = 121
    Height = 20
    Style = csDropDownList
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ItemHeight = 12
    TabOrder = 1
    OnSelect = usernameSelect
  end
  object Database1: TDatabase
    Connected = True
    DatabaseName = 'hotel'
    LoginPrompt = False
    Params.Strings = (
      'username='
      'password=wyj7410260912jyw')
    SessionName = 'Default'
    Left = 16
    Top = 24
  end
  object T_user: TTable
    DatabaseName = 'Hotel'
    TableName = 'sn_manager'
    Left = 120
    Top = 32
  end
  object Q_operator: TQuery
    DatabaseName = 'Hotel'
    RequestLive = True
    SQL.Strings = (
      'select * from operator')
    Left = 176
    Top = 32
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'Hotel'
    TableName = 'sn_manager'
    Left = 64
    Top = 24
  end
end