📄 frmmdi.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.MDIForm frmMDI
BackColor = &H00808000&
Caption = "考勤系统"
ClientHeight = 8310
ClientLeft = 165
ClientTop = 450
ClientWidth = 11880
Icon = "frmMDI.frx":0000
LinkTopic = "MDIForm1"
Picture = "frmMDI.frx":030A
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin ComctlLib.Toolbar tlbMain
Align = 1 'Align Top
Height = 750
Left = 0
TabIndex = 1
Top = 0
Width = 11880
_ExtentX = 20955
_ExtentY = 1323
ButtonWidth = 1455
ButtonHeight = 1164
Appearance = 1
ImageList = "imlToolbarIcons"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 5
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "tbCollection"
Object.ToolTipText = "打卡数据采集"
Object.Tag = ""
ImageIndex = 2
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "tbLeave"
Object.ToolTipText = "请假登记"
Object.Tag = ""
ImageIndex = 3
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "mClose"
Object.Tag = ""
ImageIndex = 1
EndProperty
EndProperty
End
Begin ComctlLib.StatusBar stbMain
Align = 2 'Align Bottom
Height = 360
Left = 0
TabIndex = 0
Top = 7950
Width = 11880
_ExtentX = 20955
_ExtentY = 635
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 5
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
AutoSize = 2
Key = ""
Object.Tag = ""
Object.ToolTipText = "日期"
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 5
AutoSize = 2
TextSave = "16:36"
Key = ""
Object.Tag = ""
Object.ToolTipText = "时间"
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
AutoSize = 2
Text = "操作员"
TextSave = "操作员"
Key = "stbOperater"
Object.Tag = ""
Object.ToolTipText = "操作员"
EndProperty
BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Text = "操作级别"
TextSave = "操作级别"
Key = "stbLevel"
Object.Tag = ""
Object.ToolTipText = "操作级别"
EndProperty
BeginProperty Panel5 {0713E89F-850A-101B-AFC0-4210102A8DA7}
AutoSize = 1
Object.Width = 10134
Text = "提示信息"
TextSave = "提示信息"
Key = "stbMsg"
Object.Tag = ""
Object.ToolTipText = "提示信息"
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin ComctlLib.ImageList imlToolbarIcons
Left = 2265
Top = 1740
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 42
ImageHeight = 38
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 3
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":E8C0
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":FC12
Key = ""
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMDI.frx":10F64
Key = ""
EndProperty
EndProperty
End
Begin VB.Menu mnuFile
Caption = "文件(&F)"
Begin VB.Menu mnuFileReg
Caption = "登录(&L)..."
End
Begin VB.Menu mnuFileBar1
Caption = "-"
End
Begin VB.Menu mnuFileExit
Caption = "退出(&X)"
End
End
Begin VB.Menu mnuEdit
Caption = "编辑(&E)"
Visible = 0 'False
Begin VB.Menu mnuEditCut
Caption = "剪切(&T)"
Shortcut = ^X
End
Begin VB.Menu mnuEditCopy
Caption = "复制(&C)"
Shortcut = ^C
End
Begin VB.Menu mnuEditPaste
Caption = "粘贴(&P)"
Shortcut = ^V
End
End
Begin VB.Menu mnuApp
Caption = "应用(&A)"
Begin VB.Menu mnuAppCollection
Caption = "打卡数据采集(&C)..."
End
Begin VB.Menu mnuAppBar1
Caption = "-"
End
Begin VB.Menu mnuAppDefine
Caption = "班次定义(&D)..."
End
Begin VB.Menu mnuAppPlan
Caption = "日常排班(&P)..."
End
Begin VB.Menu mnuAppChange
Caption = "调班换班(&H)..."
End
Begin VB.Menu mnuAppBar2
Caption = "-"
End
Begin VB.Menu mnuAppLeave
Caption = "请假登记(&L)..."
End
Begin VB.Menu mnuAppAbsent
Caption = "其他缺席登记(B)..."
End
End
Begin VB.Menu mnuGuard
Caption = "数据管理(&G)"
Begin VB.Menu mnuGuardBase
Caption = "基本数据管理(&B)..."
End
Begin VB.Menu mnuGuardEmployee
Caption = "员工管理(&E)..."
End
Begin VB.Menu mnuGuardBar1
Caption = "-"
End
Begin VB.Menu mnuGuardRight
Caption = "权限管理(&R)..."
End
Begin VB.Menu mnuGuardBar2
Caption = "-"
End
Begin VB.Menu mnuGuardLib
Caption = "数据库管理..."
End
End
Begin VB.Menu mnuRep
Caption = "报表中心(&R)"
Begin VB.Menu mnuRepShift
Caption = "班次表(&S)..."
Visible = 0 'False
End
Begin VB.Menu mnuRepPlan
Caption = "排班表(&P)..."
Visible = 0 'False
End
Begin VB.Menu mnuRepDyn
Caption = "日动态考勤报表(&D)"
End
Begin VB.Menu mnuRepFlow
Caption = "打卡流水报表(&F)..."
End
Begin VB.Menu mnuRepBar1
Caption = "-"
End
Begin VB.Menu mnuRepKQ
Caption = "考勤明细报表(&K)..."
End
Begin VB.Menu mnuRepMonth
Caption = "考勤月报表(&M)..."
End
End
Begin VB.Menu mnuCard
Caption = "IC卡管理(&I)"
Begin VB.Menu mnuCardNew
Caption = "发新卡(&N)..."
End
Begin VB.Menu mnuCardChange
Caption = "更换IC卡(&C)..."
End
Begin VB.Menu mnuCardBar1
Caption = "-"
End
Begin VB.Menu mnuPowerOn
Caption = "上电"
End
Begin VB.Menu mnuPowerOff
Caption = "下电"
End
Begin VB.Menu mnuATR
Caption = "复位应答"
End
Begin VB.Menu mnuReadMain
Caption = "读主存储器"
End
Begin VB.Menu mnuReadProtect
Caption = "读保护存储器"
End
Begin VB.Menu mnuSecurity
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -