tf.~dfm

我自己写的一个有关酒店管理系统的代码 大家

object tFForm: TtFForm
  Left = 311
  Top = 147
  Width = 477
  Height = 342
  Caption = #23458#20154#36864#25151
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #26999#20307'_GB2312'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 14
  object Label1: TLabel
    Left = 32
    Top = 24
    Width = 56
    Height = 14
    Caption = #35746#25151#32534#21495
  end
  object Label2: TLabel
    Left = 240
    Top = 24
    Width = 56
    Height = 14
    Caption = #23458#25151#32534#21495
  end
  object Label3: TLabel
    Left = 32
    Top = 56
    Width = 56
    Height = 14
    Caption = #20303#23458#22995#21517
  end
  object Label4: TLabel
    Left = 240
    Top = 56
    Width = 56
    Height = 14
    Caption = #35777#20214#21495#30721
  end
  object Label5: TLabel
    Left = 32
    Top = 88
    Width = 56
    Height = 14
    Caption = #30331#35760#26085#26399
  end
  object Label6: TLabel
    Left = 240
    Top = 88
    Width = 56
    Height = 14
    Caption = #32467#36134#26085#26399
  end
  object Label7: TLabel
    Left = 32
    Top = 120
    Width = 56
    Height = 14
    Caption = #23458#25151#21333#20215
  end
  object Label8: TLabel
    Left = 256
    Top = 120
    Width = 42
    Height = 14
    Caption = #25240#25187#29575
  end
  object Label9: TLabel
    Left = 32
    Top = 152
    Width = 56
    Height = 14
    Caption = #20854#20182#36153#29992
  end
  object Label10: TLabel
    Left = 240
    Top = 152
    Width = 56
    Height = 14
    Caption = #24212#25910#37329#39069
  end
  object Label11: TLabel
    Left = 56
    Top = 184
    Width = 28
    Height = 14
    Caption = #25276#37329
  end
  object Label12: TLabel
    Left = 240
    Top = 184
    Width = 56
    Height = 14
    Caption = #23454#25910#37329#39069
  end
  object Label13: TLabel
    Left = 32
    Top = 216
    Width = 56
    Height = 14
    Caption = #20303#25151#31867#22411
  end
  object Label15: TLabel
    Left = 56
    Top = 248
    Width = 28
    Height = 14
    Caption = #35828#26126
  end
  object Edit1: TEdit
    Left = 96
    Top = 16
    Width = 121
    Height = 22
    TabOrder = 0
    Text = 'Edit1'
    OnExit = Edit1Exit
  end
  object Edit2: TEdit
    Left = 304
    Top = 16
    Width = 121
    Height = 22
    TabOrder = 1
    Text = 'Edit2'
  end
  object Edit3: TEdit
    Left = 96
    Top = 48
    Width = 121
    Height = 22
    TabOrder = 2
    Text = 'Edit3'
  end
  object Edit4: TEdit
    Left = 304
    Top = 48
    Width = 121
    Height = 22
    TabOrder = 3
    Text = 'Edit4'
  end
  object Edit5: TEdit
    Left = 96
    Top = 80
    Width = 121
    Height = 22
    TabOrder = 4
    Text = 'Edit5'
  end
  object Edit6: TEdit
    Left = 304
    Top = 80
    Width = 121
    Height = 22
    TabOrder = 5
    Text = 'Edit6'
  end
  object Edit7: TEdit
    Left = 96
    Top = 112
    Width = 121
    Height = 22
    TabOrder = 6
    Text = 'Edit7'
  end
  object Edit8: TEdit
    Left = 304
    Top = 112
    Width = 121
    Height = 22
    TabOrder = 7
    Text = 'Edit8'
  end
  object Edit9: TEdit
    Left = 96
    Top = 144
    Width = 121
    Height = 22
    TabOrder = 8
    Text = 'Edit9'
  end
  object Edit10: TEdit
    Left = 304
    Top = 144
    Width = 121
    Height = 22
    TabOrder = 9
    Text = 'Edit10'
  end
  object Edit11: TEdit
    Left = 96
    Top = 176
    Width = 121
    Height = 22
    TabOrder = 10
    Text = 'Edit11'
  end
  object Edit12: TEdit
    Left = 304
    Top = 176
    Width = 121
    Height = 22
    TabOrder = 11
    Text = 'Edit12'
  end
  object Edit13: TEdit
    Left = 96
    Top = 208
    Width = 121
    Height = 22
    TabOrder = 12
    Text = 'Edit13'
  end
  object Edit14: TEdit
    Left = 96
    Top = 240
    Width = 329
    Height = 22
    TabOrder = 13
    Text = 'Edit14'
  end
  object BitBtn1: TBitBtn
    Left = 120
    Top = 280
    Width = 75
    Height = 25
    Caption = #30830#23450
    TabOrder = 14
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
      7700333333337777777733333333008088003333333377F73377333333330088
      88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
      000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
      FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
      99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
      99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
      99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
      93337FFFF7737777733300000033333333337777773333333333}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 288
    Top = 280
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 15
    OnClick = BitBtn2Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
      03333377777777777F333301111111110333337F333333337F33330111111111
      0333337F333333337F333301111111110333337F333333337F33330111111111
      0333337F333333337F333301111111110333337F333333337F33330111111111
      0333337F3333333F7F333301111111B10333337F333333737F33330111111111
      0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
      0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
      0333337F377777337F333301111111110333337F333333337F33330111111111
      0333337FFFFFFFFF7F3333000000000003333377777777777333}
    NumGlyphs = 2
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Se' +
      'ttings\Administrator\My Documents\Delphi 7'#25968#25454#24211#24212#29992#25216#26415#19982#32534#31243#23454#20363'\'#22823#31995#32479#33539#20363'\'#37202#24215#31649 +
      #29702#31995#32479'\hotel.mdb;Persist Security Info=False'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 16
    Top = 8
  end
  object ADODataSet1: TADODataSet
    Parameters = <>
    Left = 24
    Top = 56
  end
end