maincheck.dfm

完成酒店管理系统

object MainCheckFrm: TMainCheckFrm
  Left = 164
  Top = 95
  Width = 415
  Height = 298
  Caption = #25910#38134#31649#29702#31995#32479
  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 = 8
    Top = 8
    Width = 369
    Height = 193
    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 = 376
    Top = 32
    object N3: TMenuItem
      Caption = #31995#32479#31649#29702
      object N4: TMenuItem
        Caption = #29992#25143#26435#38480#21644#35774#32622
        OnClick = N4Click
      end
      object N5: TMenuItem
        Caption = #20462#25913#23494#30721
        OnClick = N5Click
      end
      object N6: TMenuItem
        Caption = #36864#20986#31995#32479
        OnClick = N6Click
      end
    end
    object N1: TMenuItem
      Caption = #39184#39278
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #23458#25151
      object N7: TMenuItem
        Caption = #25955#23458#25910#38134
        OnClick = N7Click
      end
      object N8: TMenuItem
        Caption = #22242#38431#25910#38134
        OnClick = N8Click
      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 = 376
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 376
    Top = 64
  end
end