mainsail.~dfm

来自「完成酒店管理系统」· ~DFM 代码 · 共 130 行

object MainSailFrm: TMainSailFrm
  Left = 233
  Top = 142
  Width = 433
  Height = 333
  Caption = #27426#36814#36827#20837#38144#21806#20998#26512#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 = 8
    Top = 8
    Width = 337
    Height = 249
    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 = 352
    object S1: TMenuItem
      Caption = #31995#32479'(&S)'
      object U1: TMenuItem
        Caption = #29992#25143#21644#26435#38480#35774#32622'(&U)'
        OnClick = U1Click
      end
      object N1: TMenuItem
        Caption = '--------------------'
      end
      object P1: TMenuItem
        Caption = #20462#25913#23494#30721'(&P)'
        OnClick = P1Click
      end
      object X1: TMenuItem
        Caption = #36864#20986#31995#32479'(&E)'
        OnClick = X1Click
      end
    end
    object I1: TMenuItem
      Caption = #36164#26009#36755#20837'(&I)'
      object S2: TMenuItem
        Caption = #33829#19994#20449#24687'(&S)'
        OnClick = S2Click
      end
      object R1: TMenuItem
        Caption = #23458#25151#20449#24687'(&R)'
        OnClick = R1Click
      end
      object D1: TMenuItem
        Caption = #39184#21381#20449#24687'(&D)'
        OnClick = D1Click
      end
      object N2: TMenuItem
        Caption = '--------------'
      end
      object N3: TMenuItem
        Caption = #31246#29575#35774#23450'(&I)'
        OnClick = N3Click
      end
      object D2: TMenuItem
        Caption = #25240#25187#35774#23450'(&D)'
        OnClick = D2Click
      end
      object fuwu1: TMenuItem
      end
    end
    object C1: TMenuItem
      Caption = #20449#24687#26597#35810'(&C)'
      object yingye1: TMenuItem
        Caption = #33829#19994#20998#26512'(&S)'
        OnClick = yingye1Click
      end
      object R2: TMenuItem
        Caption = #23458#25151#20998#26512'(&R)'
        OnClick = R2Click
      end
      object D3: TMenuItem
        Caption = #39184#21381#20998#26512'(&D)'
        OnClick = D3Click
      end
      object N4: TMenuItem
        Caption = '-------------'
      end
      object R3: TMenuItem
        Caption = #33829#19994#20998#26512#25253#34920'(&R)'
      end
      object C2: TMenuItem
        Caption = #23458#25151#20998#26512#25253#34920'(&C)'
      end
      object O1: TMenuItem
        Caption = #39184#21381#20998#26512#25253#34920'(&O)'
      end
    end
    object H1: TMenuItem
      Caption = #24110#21161'(&H)'
      object A1: TMenuItem
        Caption = #20851#20110'(&A)'
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 352
    Top = 72
  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 = 32
  end
end