maindinner.dfm

完成酒店管理系统

object MainDinnerFrm: TMainDinnerFrm
  Left = 188
  Top = 134
  Width = 426
  Height = 305
  Caption = #27426#36814#36827#20837#39184#39278#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
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 16
    Top = 8
    Width = 361
    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 = 432
    Top = 8
    object S1: TMenuItem
      Caption = #31995#32479'(&S)'
      object U1: TMenuItem
        Caption = #29992#25143#26435#38480#21644#35774#32622'(&U)'
        OnClick = U1Click
      end
      object P1: TMenuItem
        Caption = #20462#25913#23494#30721'(&P)'
        OnClick = P1Click
      end
      object E1: TMenuItem
        Caption = #36864#20986#31995#32479'(&E)'
        OnClick = E1Click
      end
    end
    object D1: TMenuItem
      Caption = #25968#25454#31649#29702'(&D)'
      object U2: TMenuItem
        Caption = #29992#25143#31649#29702'(&U)'
        OnClick = U2Click
      end
      object D2: TMenuItem
        Caption = #33756#21333#31649#29702'(&I)'
        OnClick = D2Click
      end
      object P2: TMenuItem
        Caption = #35746#39184#31649#29702'(&P)'
        OnClick = P2Click
      end
    end
    object N1: TMenuItem
      Caption = #25968#25454#26597#35810'(&S)'
      object U3: TMenuItem
        Caption = #29992#25143#26597#35810'(&U)'
        OnClick = U3Click
      end
      object M1: TMenuItem
        Caption = #33756#21333#26597#35810'(&M)'
        OnClick = M1Click
      end
      object D3: TMenuItem
        Caption = #35746#21333#26597#35810'(&D)'
        OnClick = D3Click
      end
    end
    object H1: TMenuItem
      Caption = #24110#21161'(&H)'
      object A1: TMenuItem
        Caption = #20851#20110'(&A)'
      end
    end
  end
  object ADOQuery1: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Manage.mdb;Persist ' +
      'Security Info=False'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From Users')
    Left = 384
    Top = 48
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 408
    Top = 88
  end
end