main.~dfm

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

object MainForm: TMainForm
  Left = 347
  Top = 263
  Width = 498
  Height = 219
  Caption = #37202#24215#31649#29702#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object MainMenu1: TMainMenu
    Left = 96
    Top = 48
    object N1: TMenuItem
      Caption = #31995#32479#31649#29702
      object N2: TMenuItem
        Caption = #25805#20316#21592#31649#29702
        OnClick = N2Click
      end
      object N3: TMenuItem
        Caption = #23494#30721#20462#25913
        OnClick = N3Click
      end
      object N4: TMenuItem
        Caption = #31995#32479#21021#22987#21270
        OnClick = N4Click
      end
      object N18: TMenuItem
        Caption = #35774#32622#20449#29992#21345
        OnClick = N18Click
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object N5: TMenuItem
        Caption = #25968#25454#22791#20221
      end
      object N8: TMenuItem
        Caption = #25968#25454#24674#22797
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object N6: TMenuItem
        Caption = #36864#20986
        OnClick = N6Click
      end
    end
    object N10: TMenuItem
      Caption = #23458#25151#31649#29702
      object N14: TMenuItem
        Caption = #23458#25151#21333#20215#35774#32622
        OnClick = N14Click
      end
      object N15: TMenuItem
        Caption = #23458#25151#35774#32622
        OnClick = N15Click
      end
      object N16: TMenuItem
        Caption = '-'
      end
      object N17: TMenuItem
        Caption = #23458#25151#26597#35810
        OnClick = N17Click
      end
    end
    object N11: TMenuItem
      Caption = #35746#25151#31649#29702
      object N19: TMenuItem
        Caption = #23458#25143#35746#25151
        OnClick = N19Click
      end
      object N20: TMenuItem
        Caption = #23458#25143#26597#35810
        OnClick = N20Click
      end
      object N21: TMenuItem
        Caption = #23458#20154#36864#35746
        OnClick = N21Click
      end
    end
    object N12: TMenuItem
      Caption = #25910#38134#31649#29702
      object N22: TMenuItem
        Caption = #23458#20154#36864#25151
        OnClick = N22Click
      end
      object N23: TMenuItem
        Caption = #26597#35810#25910#25903#24773#20917
        OnClick = N23Click
      end
      object N24: TMenuItem
        Caption = #25171#21360#24403#26085#25253#34920
        OnClick = N24Click
      end
    end
    object N13: TMenuItem
      Caption = #25968#25454#26597#35810
      object N25: TMenuItem
        Caption = #35746#25151#21382#21490#25968#25454#26597#35810
        OnClick = N25Click
      end
      object N26: TMenuItem
        Caption = #25910#25903#21382#21490#26597#35810
        OnClick = N26Click
      end
      object N27: TMenuItem
        Caption = #25910#25903#26126#32454#34920#26597#35810
        OnClick = N27Click
      end
    end
  end
  object Query1: TQuery
    DatabaseName = 'hotel_data'
    Left = 192
    Top = 48
  end
  object Database1: TDatabase
    AliasName = 'hotel'
    Connected = True
    DatabaseName = 'hotel_data'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sa')
    SessionName = 'Default'
    OnLogin = Database1Login
    Left = 232
    Top = 88
  end
end