站内搜索：

VB人事管理系统(10)

来源：xiaoniu168.com 作者：本站原创添加时间：2012-01-24 点击数：20401

计算机毕业设计员工工资管理模块介绍：

3、frmGzgl（员工工资管理）：对应每个员工添加、修改、删除工资信息。维护新工资，需选择员工名称，此时调用员工管理表数据。输入该员工的工资情况，点击确定，该员工工资信息添加完成。点击取消，取消当前窗体。想要对某一员工的工资信息进行修改删除，可以选择该员工信息后，点击工资信息，此时显示该员工的工资信息，维护完成后点击保存，修改完成。点击删除，删除该员工的工资信息。点击取消，取消当前窗体。。查询按钮可以实现查询某年某月的员工工资记录。此时判断输入的查询日期格式是否正确。选中复杂工资模式前的复选框，工资信息列表显示某员工在某职位具体的工资情况。

以下是引用片段：

相关代码如下：
'将列表中指定的工资记录显示在工资列表中
If ddd.TextMatrix(ddd.Row, 0) = "" Then Exit Sub
Dim i As Long
Dim j As Long
With frmGzglsub
   .Text2.Text = Trim(ddd.TextMatrix(ddd.Row, 0))
   .Text3.Tag = Trim(ddd.TextMatrix(ddd.Row, 1))
   .Text3.Text = Trim(ddd.TextMatrix(ddd.Row, 3))
   j = 0
   For i = 4 To 10 Step 2
       If Trim(ddd.TextMatrix(ddd.Row, i)) <> "" Then
          .txt(j).Text = Trim(ddd.TextMatrix(ddd.Row, i))
          .Text(j).Text = Trim(ddd.TextMatrix(ddd.Row, i + 1))
       Else
          .Text(j).Enabled = False
       End If
       j = j + 1
   Next
   For i = 0 To .Combo2.ListCount - 1
       If .Combo2.List(i) = Mid(Me.lblDate.Caption, 1, 4) Then
          .Combo2.ListIndex = i
          Exit For
       End If
   Next
      For i = 0 To .Combo1.ListCount - 1
       If .Combo1.List(i) = Mid(Me.lblDate.Caption, 5, 2) Then
          .Combo1.ListIndex = i
          Exit For
       End If
   Next
   For i = 13 To 15
       .TxtAdd(i - 13).Text = Trim(Me.ddd.TextMatrix(ddd.Row, i))
   Next
   For i = 16 To 18
       .TxtDel(i - 16).Text = Trim(Me.ddd.TextMatrix(ddd.Row, i))
   Next
   .Text17.Text = Trim(Me.ddd.TextMatrix(ddd.Row, 19))
   .Text18.Tag = Trim(Me.ddd.TextMatrix(ddd.Row, ddd.Cols - 2))
   .Text18.Text = Trim(Me.ddd.TextMatrix(ddd.Row, ddd.Cols - 1))
   For i = 0 To .Combo1.ListCount - 1
      If .Combo1.List(i) = Mid(Me.lblDate.Caption, 5, 2) Then
         .Combo1.ListIndex = i
         Exit For
      End If
    Next
   .Show 1
End With
End Sub