www.pudn.com > VB-KAOQINXITONG.zip > frmMainAttendMenu.frm
VERSION 5.00
Object = "{B9D938CE-50EE-40B2-9FA2-79A3112F4788}#4.0#0"; "BNCtrlGroup.ocx"
Begin VB.Form frmMainMenu
AutoRedraw = -1 'True
BackColor = &H00993F2F&
BorderStyle = 3 'Fixed Dialog
ClientHeight = 645
ClientLeft = 525
ClientTop = 2235
ClientWidth = 8310
DrawStyle = 6 'Inside Solid
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmMainAttendMenu.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 645
ScaleWidth = 8310
ShowInTaskbar = 0 'False
WindowState = 2 'Maximized
Begin BNCtrlGroup.BNButton cmdTest
Height = 360
Left = 1425
TabIndex = 1
Top = 165
Width = 1245
_ExtentX = 2196
_ExtentY = 635
Caption = "工具2"
CapAlign = 2
BackStyle = 2
cFore = 65535
cFHover = 65535
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mode = 0
Value = 0 'False
cBack = 10043183
End
Begin BNCtrlGroup.BNButton cmdTools
Height = 360
Left = 165
TabIndex = 0
Top = 165
Width = 1155
_ExtentX = 2037
_ExtentY = 635
Caption = "工具1"
CapAlign = 2
BackStyle = 2
cFore = 65535
cFHover = 65535
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mode = 0
Value = 0 'False
cBack = 10043183
End
Begin VB.Menu mnuDepartment
Caption = "机构(&D)"
Begin VB.Menu mnuDeptEmp
Caption = "机构员工管理(&M)"
Shortcut = ^M
End
End
Begin VB.Menu mnuEmpolyee
Caption = "员工(&E)"
Begin VB.Menu mnuCardManage
Caption = "发行员工卡(&I)"
End
Begin VB.Menu mnuBar11
Caption = "-"
End
Begin VB.Menu mnuEmpWkTmSet
Caption = "员工班次设置(&C)"
End
Begin VB.Menu mnuHolidayInput
Caption = "请假登记(&H)"
End
Begin VB.Menu mnuSignCard
Caption = "手工签卡(&S)"
End
Begin VB.Menu mnuClassChange
Caption = "班次调换(&W)"
End
Begin VB.Menu mnuAssignAttend
Caption = "指定考勤(&A)"
End
Begin VB.Menu mnuDeptAdjust
Caption = "部门调整(&J)"
End
Begin VB.Menu mnuWorkAddPlan
Caption = "加班单安排(&P)"
End
Begin VB.Menu mnuWorkAdjust
Caption = "工时调换(&T)"
End
Begin VB.Menu mnuBar12
Caption = "-"
End
Begin VB.Menu mnuDevRight
Caption = "设备打卡权限(&R)"
End
Begin VB.Menu mnuBar13
Caption = "-"
End
Begin VB.Menu mnuClassPlan
Caption = "月排班(&M)"
End
End
Begin VB.Menu mnuData
Caption = "数据处理(&P)"
Begin VB.Menu mnuPickData
Caption = "读取QCH2000称重数据(&P)"
End
Begin VB.Menu mnuBar21
Caption = "-"
Index = 0
End
Begin VB.Menu mnuSaveMilieu
Caption = "保存现场数据(&S)"
End
Begin VB.Menu mnuSaveDelete
Caption = "保存并删除数据(&D)"
End
Begin VB.Menu mnuBar22
Caption = "-"
End
Begin VB.Menu mnuResumeMilieu
Caption = "恢复现场数据(&R)"
End
Begin VB.Menu mnuAppendData
Caption = "追加新的数据(&A)"
End
Begin VB.Menu mnuBar23
Caption = "-"
End
Begin VB.Menu mnuCheckData
Caption = "数据整理(&Z)"
End
Begin VB.Menu mnuCardDetail
Caption = "查询打卡数据(&C)"
End
Begin VB.Menu mnuBar24
Caption = "-"
End
Begin VB.Menu mnuCardTotal
Caption = "打卡数据统计(&T)"
End
Begin VB.Menu mnuAttendCal
Caption = "计算员工出勤(&U)"
End
Begin VB.Menu mnuAttendRetouch
Caption = "出勤结果修正(&M)"
End
Begin VB.Menu mnuBar25
Caption = "-"
End
Begin VB.Menu mnuAttendObnormal
Caption = "异常出勤计算(&B)"
End
End
Begin VB.Menu mnuReport
Caption = "查询报表(&R)"
Begin VB.Menu mnuEmpWkTmQuery
Caption = "查询员工出勤(&A)"
End
Begin VB.Menu mnuDeviceReport
Caption = "系统设备报表(&V)"
End
Begin VB.Menu mnuBar31
Caption = "-"
End
Begin VB.Menu mnuEmpWkTm
Caption = "员工出勤日报表(&D)"
End
Begin VB.Menu mnuEmpSpecCard
Caption = "员工特卡日报表(&S)"
End
Begin VB.Menu mnuMonth1
Caption = "员工出勤月报表(&M)"
End
Begin VB.Menu mnuBar32
Caption = "-"
End
Begin VB.Menu mnuClassSwitch
Caption = "班次调换报表(&C)"
End
Begin VB.Menu mnuHolidayRpt
Caption = "请假登记报表(&H)"
End
Begin VB.Menu mnuBar33
Caption = "-"
End
Begin VB.Menu mnuHistory
Caption = "历史记录(&L)"
End
Begin VB.Menu mnuQuery
Caption = "数据查询(&Q)"
End
End
Begin VB.Menu mnuSetup
Caption = "设置(&S)"
Begin VB.Menu mnuDevManage
Caption = "设备资料管理(&D)"
End
Begin VB.Menu mnuSystem
Caption = "制度设置(&S)"
End
Begin VB.Menu mnuWkTmSet
Caption = "班次设置(&C)"
End
Begin VB.Menu mnuHoliSystem
Caption = "请假制度(&H)"
End
Begin VB.Menu mnuHoliday
Caption = "节假日定义(&F)"
End
Begin VB.Menu mnuBar34
Caption = "-"
End
Begin VB.Menu mnuSystemSetup
Caption = "系统设置(&T)"
End
End
Begin VB.Menu mnuTool
Caption = "工具(&O)"
Begin VB.Menu mnuChangePwd
Caption = "修改用户口令(&P)"
End
Begin VB.Menu mnuOperManage
Caption = "操作员维护(&O)"
End
Begin VB.Menu mnuReLogin
Caption = "重新登录(&L)"
End
Begin VB.Menu mnuBar43
Caption = "-"
End
Begin VB.Menu mnuHostManager
Caption = "上位机管理(&H)"
End
Begin VB.Menu mnuDeviceSet
Caption = "设备资料(&S)"
Begin VB.Menu mnuDeviceSetup
Caption = "设备设置(&D)"
End
Begin VB.Menu mnuDNWhite
Caption = "下载白名单(&W)"
End
Begin VB.Menu mnuRemoveControl
Caption = "设备远程控制(&F)"
End
End
Begin VB.Menu mnuBar41
Caption = "-"
End
Begin VB.Menu mnuShowTools
Caption = "工具面板(&B)"
Checked = -1 'True
End
Begin VB.Menu mnuUpdate
Caption = "软件升级(&U)"
End
Begin VB.Menu mnuBar42
Caption = "-"
End
Begin VB.Menu mnuProgram
Caption = "外挂程序(&E)"
Index = 0
End
End
Begin VB.Menu mnuHelp
Caption = "帮助(&H)"
Begin VB.Menu mnuHelpAbout
Caption = "关于(&A)"
End
End
Begin VB.Menu mnuExit
Caption = "退出!(&X)"
NegotiatePosition= 3 'Right
End
Begin VB.Menu mnuTime
Caption = "时间(&T)"
End
End
Attribute VB_Name = "frmMainMenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdTools_Click()
frmInnerTest.Show IIf(gTAppLicInfo.CtrlRunSingle, vbModal, vbModeless)
End Sub
Private Sub cmdTest_Click()
frmInnerTools.Show IIf(gTAppLicInfo.CtrlRunSingle, vbModal, vbModeless)
End Sub
Private Sub Form_Load()
Me.Show
End Sub