operatormanage.~dfm

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

object OperatorManageForm: TOperatorManageForm
  Left = 387
  Top = 232
  Width = 411
  Height = 217
  Caption = #25805#20316#21592#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 20
    Top = 13
    Width = 173
    Height = 124
    Caption = #29992#25143#36164#26009
    TabOrder = 10
    object Label1: TLabel
      Left = 36
      Top = 20
      Width = 30
      Height = 13
      Caption = #22995#21517'  '
    end
    object Label2: TLabel
      Left = 36
      Top = 46
      Width = 27
      Height = 13
      Caption = #23494#30721' '
    end
    object Label3: TLabel
      Left = 15
      Top = 72
      Width = 58
      Height = 13
      Caption = #25152#23646#37096#38376
    end
    object Label4: TLabel
      Left = 36
      Top = 98
      Width = 27
      Height = 13
      Caption = #26085#26399' '
    end
  end
  object Edit1: TEdit
    Left = 89
    Top = 26
    Width = 98
    Height = 24
    TabOrder = 0
    OnExit = Edit1Exit
  end
  object Edit2: TEdit
    Left = 89
    Top = 52
    Width = 98
    Height = 24
    TabOrder = 1
  end
  object Edit3: TEdit
    Left = 89
    Top = 78
    Width = 98
    Height = 24
    TabOrder = 2
  end
  object Edit4: TEdit
    Left = 89
    Top = 104
    Width = 98
    Height = 24
    TabStop = False
    TabOrder = 3
  end
  object RadioGroup1: TRadioGroup
    Left = 200
    Top = 13
    Width = 97
    Height = 124
    Caption = #26435#38480#36873#25321
    TabOrder = 4
  end
  object CheckBox1: TCheckBox
    Left = 218
    Top = 33
    Width = 71
    Height = 13
    Caption = #31995#32479#31649#29702
    TabOrder = 5
  end
  object CheckBox2: TCheckBox
    Left = 218
    Top = 52
    Width = 63
    Height = 14
    Caption = #23458#25151#31649#29702
    TabOrder = 6
  end
  object CheckBox3: TCheckBox
    Left = 218
    Top = 72
    Width = 71
    Height = 13
    Caption = #35746#25151#31649#29702
    TabOrder = 7
  end
  object CheckBox4: TCheckBox
    Left = 218
    Top = 91
    Width = 71
    Height = 14
    Caption = #25910#38134#31649#29702
    TabOrder = 8
  end
  object CheckBox5: TCheckBox
    Left = 218
    Top = 111
    Width = 71
    Height = 13
    Caption = #26597#35810#31649#29702
    TabOrder = 9
  end
  object BitBtn1: TBitBtn
    Left = 65
    Top = 150
    Width = 72
    Height = 26
    Caption = #20445#23384
    TabOrder = 11
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      555555555555555555555555555555555555555555FF55555555555559055555
      55555555577FF5555555555599905555555555557777F5555555555599905555
      555555557777FF5555555559999905555555555777777F555555559999990555
      5555557777777FF5555557990599905555555777757777F55555790555599055
      55557775555777FF5555555555599905555555555557777F5555555555559905
      555555555555777FF5555555555559905555555555555777FF55555555555579
      05555555555555777FF5555555555557905555555555555777FF555555555555
      5990555555555555577755555555555555555555555555555555}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 234
    Top = 150
    Width = 72
    Height = 26
    Caption = #36864#20986
    TabOrder = 12
    OnClick = BitBtn2Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
      33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
      993337777F777F3377F3393999707333993337F77737333337FF993399933333
      399377F3777FF333377F993339903333399377F33737FF33377F993333707333
      399377F333377FF3377F993333101933399377F333777FFF377F993333000993
      399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
      99333773FF777F777733339993707339933333773FF7FFF77333333999999999
      3333333777333777333333333999993333333333377777333333}
    NumGlyphs = 2
  end
  object RadioGroup2: TRadioGroup
    Left = 305
    Top = 13
    Width = 79
    Height = 124
    Caption = #25805#20316#31867#22411
    TabOrder = 13
  end
  object RadioButton1: TRadioButton
    Left = 320
    Top = 39
    Width = 52
    Height = 14
    Caption = #22686#21152
    TabOrder = 14
  end
  object RadioButton2: TRadioButton
    Left = 320
    Top = 59
    Width = 46
    Height = 13
    Caption = #21024#38500
    TabOrder = 15
  end
  object RadioButton3: TRadioButton
    Left = 320
    Top = 85
    Width = 46
    Height = 13
    Caption = #20462#25913
    TabOrder = 16
  end
  object ADODataSet1: TADODataSet
    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'
    Parameters = <
      item
        Name = 'username'
        DataType = ftString
        Size = 6
        Value = Null
      end>
    Left = 328
    Top = 144
  end
end