mainroom.~dfm

完成酒店管理系统

object MainRoomFrm: TMainRoomFrm
  Left = 200
  Top = 161
  Width = 434
  Height = 304
  Caption = #27426#36814#36827#20837#23458#25151#20027#30028#38754#65281
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 8
    Top = 0
    Width = 337
    Height = 233
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object MainMenu1: TMainMenu
    Left = 368
    Top = 8
    object S1: TMenuItem
      Caption = #31995#32479'(&S)'
      object U1: TMenuItem
        Caption = #29992#25143#21644#26435#38480#35774#32622'(&U)'
        OnClick = U1Click
      end
      object N2: TMenuItem
        Caption = #20462#25913#23494#30721'(&P)'
        OnClick = N2Click
      end
      object N3: TMenuItem
        Caption = #36864#20986'(&E)'
        OnClick = N3Click
      end
    end
    object W1: TMenuItem
      Caption = #20303#23487#30331#35760'(&W)'
      object T1: TMenuItem
        Caption = #25955#23458#20303#23487#30331#35760' (&T)'
        OnClick = T1Click
      end
      object G1: TMenuItem
        Caption = #22242#20307#20303#23487#30331#35760'(&G)'
        OnClick = G1Click
      end
    end
    object P1: TMenuItem
      Caption = #26053#23458#26597#35810'(&P)'
      object T2: TMenuItem
        Caption = #25955#23458#20449#24687#26597#35810'(&T)'
        OnClick = T2Click
      end
      object G2: TMenuItem
        Caption = #22242#20307#26053#23458#26597#35810'(&G)'
        OnClick = G2Click
      end
      object N4: TMenuItem
        Caption = #21382#21490#32426#24405#26597#35810'(&H)'
        OnClick = N4Click
      end
    end
    object S2: TMenuItem
      Caption = #23458#25151#26597#35810'(&S)'
      object A1: TMenuItem
        Caption = #23458#25151#20449#24687#26597#35810'(&A)'
        OnClick = A1Click
      end
      object K1: TMenuItem
        Caption = #25151#24577#26597#35810'(&K)'
        OnClick = K1Click
      end
    end
    object H1: TMenuItem
      Caption = #24110#21161'(&H)'
      object A2: TMenuItem
        Caption = #20851#20110'(&A)'
      end
    end
  end
  object ADOTable1: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Manage.mdb;Persist ' +
      'Security Info=False'
    CursorType = ctStatic
    TableName = 'Users'
    Left = 352
    Top = 64
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 360
    Top = 104
  end
end