mainform.dfm

来自「档案信息管理系统」· DFM 代码 · 共 82 行

object ArchMainForm: TArchMainForm
  Left = 276
  Top = 151
  Width = 700
  Height = 511
  Caption = #20154#20107#26723#26696#31649#29702#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  OldCreateOrder = False
  ShowHint = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 446
    Width = 692
    Height = 19
    Panels = <>
    ParentShowHint = False
    ShowHint = True
  end
  object MainMenu1: TMainMenu
    AutoHotkeys = maManual
    object loginsystem: TMenuItem
      Caption = #31995#32479#30331#24405
      object UserLogin: TMenuItem
        Caption = #29992#25143#30331#24405
        Hint = #36755#20837#30456#24212#30340#23494#30721#30331#24405#31995#32479
        OnClick = UserLoginClick
      end
      object ShiftMenu: TMenuItem
        Caption = #20999#25442#29992#25143
        OnClick = ShiftMenuClick
      end
      object ExitMenu: TMenuItem
        Caption = #36864#20986#31995#32479
        OnClick = ExitMenuClick
      end
    end
    object ArchManager: TMenuItem
      Caption = #26723#26696#31649#29702
      GroupIndex = 1
      object ArchMenu: TMenuItem
        Caption = #26723#26696#32500#25252
        OnClick = ArchMenuClick
      end
      object ArchSearch: TMenuItem
        Caption = #26597#35810#26723#26696
        OnClick = ArchSearchClick
      end
    end
    object SysManager: TMenuItem
      Caption = #31995#32479#31649#29702
      GroupIndex = 2
      object AccountMenu: TMenuItem
        Caption = #31995#32479#24080#25143
        OnClick = AccountMenuClick
      end
      object DepDataMenu: TMenuItem
        Caption = #37096#38376#25968#25454#24211
        OnClick = DepDataMenuClick
      end
      object DataBacupMenu: TMenuItem
        Caption = #25968#25454#22791#20221#24674#22797
        OnClick = DataBacupMenuClick
      end
    end
    object HelpMenu: TMenuItem
      Caption = #24110#21161
      GroupIndex = 5
    end
  end
end