main.dfm

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

object MainForm: TMainForm
  Left = 274
  Top = 222
  Width = 410
  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 = 16
    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 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 = #31561#32423#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 = #35746#25151#26597#35810
        OnClick = N20Click
      end
      object N21: TMenuItem
        Caption = #23458#20154#36864#35746
        OnClick = N21Click
      end
    end
    object N12: TMenuItem
      Caption = #36864#25151#31649#29702
      object N22: TMenuItem
        Caption = #23458#20154#36864#25151
        OnClick = N22Click
      end
      object N23: TMenuItem
        Caption = #25910#25903#26597#35810
        OnClick = N23Click
      end
      object N24: TMenuItem
        Caption = #25171#21360#25253#34920
        OnClick = N24Click
      end
    end
    object N13: TMenuItem
      Caption = #21382#21490#20449#24687#26597#35810
      object N25: TMenuItem
        Caption = #35746#25151#20449#24687#26597#35810
        OnClick = N25Click
      end
      object N26: TMenuItem
        Caption = #25910#25903#20449#24687#26597#35810
        OnClick = N26Click
      end
      object N27: TMenuItem
        Caption = #25910#25903#26126#32454#26597#35810
        OnClick = N27Click
      end
    end
  end
  object ADOConnection1: TADOConnection
    Connected = True
    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
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 32
    Top = 8
  end
  object ADODataSet1: TADODataSet
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'username'
        DataType = ftString
        Size = 6
        Value = Null
      end>
    Left = 208
    Top = 40
  end
end