umain.dfm

Delphi控件源码 d中小企业管理系统 免费试用 涵盖信息、任务、知识、沟通管理功能 立即下载免费试用。

object frmPer: TfrmPer
  Left = 62
  Top = 71
  BorderStyle = bsSingle
  Caption = #31179#39118#20154#20107#31649#29702#31995#32479'1.5'#27491#24335#29256#20043#26723#26696#31649#29702
  ClientHeight = 419
  ClientWidth = 682
  Color = 16759701
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = mnuPer
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object imgMain: TImage
    Left = 0
    Top = 0
    Width = 682
    Height = 400
    Align = alClient
    AutoSize = True
    Center = True
  end
  object sbPer: TStatusBar
    Left = 0
    Top = 400
    Width = 682
    Height = 19
    Color = 16759701
    Panels = <
      item
        Width = 200
      end
      item
        Width = 250
      end
      item
        Alignment = taRightJustify
        Width = 50
      end>
  end
  object mnuPer: TMainMenu
    AutoHotkeys = maManual
    OwnerDraw = True
    Left = 400
    Top = 16
    object miSys: TMenuItem
      Caption = #31995' '#32479'(&s)'
      object miChgPwd: TMenuItem
        Caption = #26356#26032#23494#30721
        OnClick = miChgPwdClick
      end
      object miAdmin: TMenuItem
        Caption = #31649'  '#29702'  '#21592
        OnClick = miAdminClick
      end
      object miLogin: TMenuItem
        Caption = #37325#26032#30331#24405
        OnClick = miLoginClick
      end
      object space01: TMenuItem
        Caption = '-'
      end
      object miExit: TMenuItem
        Caption = #36864#20986#31995#32479
        OnClick = miExitClick
      end
    end
    object miStaff: TMenuItem
      Caption = #21592#24037#20449#24687'(&e)'
      object miStaInfo: TMenuItem
        Caption = #21592#24037#26723#26696
        OnClick = miStaInfoClick
      end
      object miAdds: TMenuItem
        Caption = #20449#24687#28155#21152
        OnClick = miAddsClick
      end
      object miEdits: TMenuItem
        Caption = #20449#24687#26356#26032
        OnClick = miEditsClick
      end
      object miDels: TMenuItem
        Caption = #20449#24687#21024#38500
        OnClick = miDelsClick
      end
      object miInqus: TMenuItem
        Caption = #20449#24687#26597#35810
        OnClick = miInqusClick
      end
    end
    object miSet: TMenuItem
      Caption = #35774'  '#32622'(&u)'
      object miDep: TMenuItem
        Caption = #37096' '#38376
        OnClick = miDepClick
      end
      object miSetp: TMenuItem
        Caption = #21442'  '#25968
        OnClick = miSetpClick
      end
      object space02: TMenuItem
        Caption = '-'
      end
      object miTrs: TMenuItem
        Caption = #21322#36879#26126
        OnClick = miTrsClick
      end
    end
    object miData: TMenuItem
      Caption = #25968#25454#24211'(&d)'
      object miBkData: TMenuItem
        Caption = #22791'  '#20221
        OnClick = miBkDataClick
      end
      object miCData: TMenuItem
        Caption = #21387'  '#32553
        OnClick = miCDataClick
      end
      object miRepir: TMenuItem
        Caption = #20462'  '#22797
        OnClick = miRepirClick
      end
      object miReData: TMenuItem
        Caption = #36824'  '#21407
        OnClick = miReDataClick
      end
    end
    object miAbout: TMenuItem
      Caption = #20851' '#20110'(&a)...'
      OnClick = miAboutClick
    end
  end
  object tmrMain: TTimer
    OnTimer = tmrMainTimer
    Left = 464
    Top = 16
  end
  object tmrTime: TTimer
    OnTimer = tmrTimeTimer
    Left = 496
    Top = 16
  end
  object xmPer: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    DrawMenuBar = False
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    UseDimColor = False
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = False
    Active = True
    Left = 432
    Top = 16
  end
end