subscribe.dfm

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

object SubscribeRoom: TSubscribeRoom
  Left = 303
  Top = 193
  Width = 537
  Height = 390
  BorderIcons = [biSystemMenu]
  Caption = #39044#23450#25151#38388
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  Scaled = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 240
    Top = 8
    Width = 90
    Height = 14
    Caption = #25151#38388#39044#23450#30331#35760
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 32
    Width = 513
    Height = 49
    Caption = #25151#38388#20449#24687
    TabOrder = 0
    object Label8: TLabel
      Left = 16
      Top = 24
      Width = 48
      Height = 12
      Caption = #25151#38388#21495#65306
    end
    object Label9: TLabel
      Left = 352
      Top = 24
      Width = 36
      Height = 12
      Caption = #20215#26684#65306
    end
    object Label12: TLabel
      Left = 192
      Top = 24
      Width = 60
      Height = 12
      Caption = #25151#38388#31867#22411#65306
    end
    object Label14: TLabel
      Left = 256
      Top = 24
      Width = 65
      Height = 13
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label15: TLabel
      Left = 392
      Top = 24
      Width = 3
      Height = 13
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 416
      Top = 24
      Width = 30
      Height = 12
      Caption = #20803'/'#22825
    end
    object RoomID: TEdit
      Left = 64
      Top = 20
      Width = 41
      Height = 21
      Color = cl3DLight
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      OnKeyPress = RoomIDKeyPress
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 88
    Width = 513
    Height = 273
    Caption = #23458#20154#30331#35760
    TabOrder = 1
    object Label2: TLabel
      Left = 24
      Top = 32
      Width = 60
      Height = 12
      Caption = #22995'    '#21517#65306
    end
    object Label3: TLabel
      Left = 256
      Top = 32
      Width = 60
      Height = 12
      Caption = #24615'    '#21035#65306
    end
    object Label4: TLabel
      Left = 256
      Top = 72
      Width = 60
      Height = 12
      Caption = #35777#20214#32534#21495#65306
    end
    object Label5: TLabel
      Left = 24
      Top = 112
      Width = 60
      Height = 12
      Caption = #20303'    '#22336#65306
    end
    object Label6: TLabel
      Left = 24
      Top = 192
      Width = 60
      Height = 12
      Caption = #32852#31995#26041#27861#65306
    end
    object Label10: TLabel
      Left = 256
      Top = 152
      Width = 60
      Height = 12
      Caption = #39044#30041#26102#38388#65306
    end
    object Label11: TLabel
      Left = 24
      Top = 72
      Width = 60
      Height = 12
      Caption = #35777#20214#31867#22411#65306
    end
    object Label16: TLabel
      Left = 24
      Top = 152
      Width = 60
      Height = 12
      Caption = #20154'    '#25968#65306
    end
    object Button1: TButton
      Left = 152
      Top = 232
      Width = 75
      Height = 25
      Caption = #39044'    '#23450
      TabOrder = 8
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 264
      Top = 232
      Width = 75
      Height = 25
      Caption = #36820#22238
      TabOrder = 9
      OnClick = Button2Click
    end
    object YD_name: TEdit
      Left = 80
      Top = 24
      Width = 121
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 0
      OnKeyPress = YD_nameKeyPress
    end
    object YD_sex: TComboBox
      Left = 312
      Top = 24
      Width = 121
      Height = 20
      Style = csDropDownList
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 12
      TabOrder = 1
      OnKeyPress = YD_sexKeyPress
      Items.Strings = (
        #30007
        #22899)
    end
    object YD_zjlx: TComboBox
      Left = 80
      Top = 64
      Width = 121
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 12
      TabOrder = 2
      OnKeyPress = YD_zjlxKeyPress
      Items.Strings = (
        #36523#20221#35777
        #39550#39542#35777
        #35686#23448#35777)
    end
    object YD_zjbh: TEdit
      Left = 312
      Top = 64
      Width = 121
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 3
      OnKeyPress = YD_zjbhKeyPress
    end
    object YD_add: TEdit
      Left = 80
      Top = 104
      Width = 353
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 4
      OnKeyPress = YD_addKeyPress
    end
    object YD_rs: TMaskEdit
      Left = 80
      Top = 144
      Width = 120
      Height = 20
      EditMask = '9;1;_'
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      MaxLength = 1
      TabOrder = 5
      Text = ' '
      OnKeyPress = YD_rsKeyPress
    end
    object YD_time: TMaskEdit
      Left = 312
      Top = 144
      Width = 120
      Height = 20
      EditMask = '!99/99/00;1;_'
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      MaxLength = 8
      TabOrder = 6
      Text = '  -  -  '
      OnKeyPress = YD_timeKeyPress
    end
    object YD_lxff: TEdit
      Left = 80
      Top = 184
      Width = 353
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 7
      OnKeyPress = YD_lxffKeyPress
    end
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'Hotel'
    TableName = 'RoomIn'
    Left = 160
    Top = 24
  end
  object Q_RoomInfo: TQuery
    DatabaseName = 'Hotel'
    RequestLive = True
    Left = 296
    Top = 16
  end
end