sn_new.dfm

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

object Form11: TForm11
  Left = 400
  Top = 182
  Width = 329
  Height = 309
  BorderIcons = [biSystemMenu]
  Caption = #26032#21333#21495
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  Scaled = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 152
    Top = 8
    Width = 51
    Height = 16
    AutoSize = False
    Caption = #26032#21333#21495
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 32
    Width = 305
    Height = 57
    Caption = #26032#22686#25163#29260#21495
    TabOrder = 0
    object Label2: TLabel
      Left = 48
      Top = 32
      Width = 84
      Height = 13
      AutoSize = False
      Caption = #35831#36755#20837#25163#29260#21495#65306
    end
    object HandNo: TEdit
      Left = 136
      Top = 24
      Width = 121
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 0
      OnKeyPress = HandNoKeyPress
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 96
    Width = 153
    Height = 177
    Caption = #25163#29260#21495#21015#34920
    TabOrder = 3
    object LB_handno: TListBox
      Left = 16
      Top = 16
      Width = 121
      Height = 153
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 12
      TabOrder = 0
      OnClick = LB_handnoClick
    end
  end
  object Button1: TButton
    Left = 200
    Top = 120
    Width = 75
    Height = 25
    Caption = #22686'  '#21152
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 200
    Top = 160
    Width = 75
    Height = 25
    Caption = #21024'  '#38500
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 200
    Top = 200
    Width = 75
    Height = 25
    Caption = #30830'  '#23450
    TabOrder = 4
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 200
    Top = 240
    Width = 75
    Height = 25
    Caption = #21462'  '#28040
    TabOrder = 5
    OnClick = Button4Click
  end
  object Q_repeat: TQuery
    DatabaseName = 'Hotel'
    Left = 232
  end
  object T_lsh: TTable
    DatabaseName = 'Hotel'
    TableName = 'lsh'
    Left = 80
    Top = 8
  end
  object T_SnFolio: TTable
    DatabaseName = 'Hotel'
    TableName = 'SnFolio'
    Left = 120
    Top = 8
  end
  object T_SnAccount: TTable
    DatabaseName = 'Hotel'
    TableName = 'Sn_Account'
    Left = 80
    Top = 40
  end
  object T_spinmp: TTable
    DatabaseName = 'hotel'
    TableName = 'Sn_DinList'
    Left = 168
    Top = 96
  end
end