frmrs2.frm

来自「企业人事管理系统,有考勤,人员管理等功能,值得研究,也是我付费弄来的,绝对超值」· FRM 代码 · 共 84 行

VERSION 5.00
Begin VB.Form frmRS2 
   Caption         =   "员工档案菜单"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu popRS 
      Caption         =   "popRS"
      Begin VB.Menu mnuDel 
         Caption         =   "删除"
      End
   End
   Begin VB.Menu popHM 
      Caption         =   "popHM"
      Begin VB.Menu mnuAddHM 
         Caption         =   "添加"
      End
      Begin VB.Menu mnuChgHM 
         Caption         =   "修改"
      End
      Begin VB.Menu mnuDelHM 
         Caption         =   "删除"
      End
   End
   Begin VB.Menu popJob 
      Caption         =   "popJob"
      Begin VB.Menu mnuAddJob 
         Caption         =   "添加"
      End
      Begin VB.Menu mnuChgJob 
         Caption         =   "修改"
      End
      Begin VB.Menu mnuDelJob 
         Caption         =   "删除"
      End
   End
End
Attribute VB_Name = "frmRS2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mnuAdd_Click()

End Sub

Private Sub Form_Load()
 
End Sub

Private Sub mnuAddJob_Click()
Call frmRS.cmdAddJob_Click
End Sub

Private Sub mnuChg_Click()

End Sub

Private Sub mnuChgJob_Click()
Call frmRS.cmdChgJob_Click
End Sub

'家庭成员
Private Sub mnuAddHM_Click()
Call frmRS.cmdAddHM_Click
End Sub

Private Sub mnuChgHM_Click()
Call frmRS.cmdChgHM_Click
End Sub

Private Sub mnuDelHM_Click()
Call frmRS.cmdDelHM_Click
End Sub

Private Sub mnuDelJob_Click()
 Call frmRS.cmdDelJob_Click
End Sub