frmmain.frm

企业工资管理系统是典型的信息管理系统(MIS),是现代企事业单位管理部门不可缺少的部分,人事部门通过使用该系统

VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "工资管理系统"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuGL 
      Caption         =   "职工管理(&G)"
      Begin VB.Menu mnuAdd 
         Caption         =   "新增职工资料"
      End
      Begin VB.Menu mnuDel 
         Caption         =   "删除职工资料"
      End
      Begin VB.Menu mnuEdit 
         Caption         =   "编辑职工资料"
      End
      Begin VB.Menu mnusp1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuBMGL 
         Caption         =   "部门管理"
      End
   End
   Begin VB.Menu mnuGZ 
      Caption         =   "工资发放"
      Begin VB.Menu mnuOne 
         Caption         =   "单人发放"
      End
      Begin VB.Menu mnuDept 
         Caption         =   "部门发放"
      End
      Begin VB.Menu mnuAll 
         Caption         =   "全部发放"
      End
   End
   Begin VB.Menu mnuSearch 
      Caption         =   "记录查找"
      Begin VB.Menu mnuZL 
         Caption         =   "查找职工资料"
      End
      Begin VB.Menu mnuFF 
         Caption         =   "查找工资发放情况"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mnuAdd_Click()
actiontype = "Add"
frmZGXX.Show

End Sub

Private Sub mnuAll_Click()

Load frmCQ

frmCQ.Adodc1.ConnectionString = constr
frmCQ.Adodc1.RecordSource = "select * from 基本工资表 Order by 员工编号"
frmCQ.Adodc1.Refresh

frmCQ.Adodc1.Recordset.MoveFirst
frmCQ.Show

End Sub

Private Sub mnuBMGL_Click()
frmBM.Show

End Sub

Private Sub mnuDel_Click()
actiontype = "Del"
frmZGXX.Show

End Sub

Private Sub mnuDept_Click()
Dim str As String

str = InputBox("请输入部门名称：")

If str = "" Then Exit Sub

Load frmCQ

frmCQ.Adodc1.ConnectionString = constr
frmCQ.Adodc1.RecordSource = "select * from 基本工资表 where 所属部门 = " & Trim(str) & " Order by 员工编号"

If frmCQ.Adodc1.Recordset.RecordCount = 0 Then
MsgBox "没有相应的记录！"
Unload frmCQ
Exit Sub
End If

frmCQ.Adodc1.Recordset.MoveFirst
frmCQ.Show
End Sub

Private Sub mnuEdit_Click()
actiontype = "Edit"
frmZGXX.Show

End Sub

Private Sub mnuFF_Click()
frmsearch2.Show

End Sub

Private Sub mnuOne_Click()
Dim str As String

str = InputBox("请输入员工编号：")

If str = "" Then Exit Sub


Load frmCQ

frmCQ.Adodc1.ConnectionString = constr
frmCQ.Adodc1.RecordSource = "select * from 基本工资表 where 员工编号 like " & str & " Order by 员工编号"
frmCQ.Adodc1.Refresh

If frmCQ.Adodc1.Recordset.RecordCount = 0 Then
MsgBox "没有相应的记录！"
Unload frmCQ
Exit Sub
End If

frmCQ.Show

End Sub

Private Sub mnuZL_Click()
frmsearch1.Show

End Sub