TextFocus Txt5 Exit Sub End If
End If End If
strSql = \工号='\ Set rs = ExecuteSQL(strSql, strMsg)
If rs.EOF = False Then
MsgBox \已有相同的记录，无法添加到数据库！\警告\
TextFocus txtGH1 rs.Close
If ChkBoxJJ.Value = True Then
strSql = \ Set rs = ExecuteSQL(strSql, strMsg) rs.AddNew
rs.Fields(\工号\ rs.Fields(\姓名\ rs.Fields(\工作日\ rs.Fields(\产品类型一\ rs.Fields(\产品类型二\ rs.Fields(\产品类型三\ If Txt1.Text = \ rs.Fields(\数量一\ Else
rs.Fields(\数量一\ End If
If Txt3.Text = \ rs.Fields(\数量二\
36
Else
rs.Fields(\数量二\ End If
If Txt5.Text = \ rs.Fields(\数量三\ Else
rs.Fields(\数量三\ End If
If txt2.Text = \ rs.Fields(\单价一\ Else
rs.Fields(\单价一\ End If
If txt4.Text = \ rs.Fields(\单价二\ Else
rs.Fields(\单价二\ End If
If txt6.Text = \ rs.Fields(\单价三\ Else
rs.Fields(\单价三\ End If
rs.Fields(\每日汇总\ rs.Update rs.Close Set rs = Nothing End If
If ChkBoxJS.Value = True Then strSql = \ Set rs = ExecuteSQL(strSql, strMsg)
37
rs.AddNew
rs.Fields(\工号\ rs.Fields(\工作日\ rs.Fields(\上班时间\ rs.Fields(\下班时间\ rs.Fields(\上班时间\ rs.Fields(\下班时间\ End If End Sub
rs.Fields(\单价\ rs.Fields(\工作小时数\ rs.Fields(\加班时间\ rs.Fields(\加班单价\ rs.Fields(\记时汇总\ rs.Update rs.Close Set rs = Nothing End If
If ChkBoxJJ.Value = True Or ChkBoxJS.Value = True Then MsgBox \添加成功\ Else
MsgBox \添加失败\ same = 2: same2 = 4 End If
If same = 2 And same2 = 4 Then Exit Sub Else
strSql = \ Set rs = ExecuteSQL(strSql, strMsg) rs.AddNew
rs.Fields(\工号\ rs.Fields(\工作日\ rs.Update End If 'Call RefreshGrid 38
4.5、员工月工资结算、产量汇总、综合处理
在该窗体中输入相应的信息，完成月工资结算、产量汇总、综合处理具体如图4-7所示，相应部分代码如下：
图4-7 月工资结算、产量汇总、综合处理
相应部分代码如下：
Dim strSql As String Dim strMsg As String Dim rs As ADODB.Recordset Dim dj1 As Integer Dim dj2 As Integer Dim dj3 As Integer
'记件统计
strSql = \工号='\
39
Set rs = ExecuteSQL(strSql, strMsg) If rs.EOF = False Then
TextNO.Text = rs.Fields(\工号\ TextNAMe.Text = rs.Fields(\姓名\ Combod.Value = rs.Fields(\工作日\alue Textlx(0).Text = rs.Fields(\产品类型一\ dj1 = rs.Fields(\单价一\ dj2 = rs.Fields(\单价二\ dj3 = rs.Fields(\单价三\
Textlx(1).Text = rs.Fields(\产品类型二\ Textlx(2).Text = rs.Fields(\产品类型三\ rs.Close
strSql = \sum(数量一) as 数量一,sum(数量二) as 数量二,sum(数量三) as 数量三,sum(每日汇总) as 每日汇总 from salary group by 工号='\ Set rs = ExecuteSQL(strSql, strMsg)
Textsl(0).Text = rs.Fields(\数量一\ Textsl(1).Text = rs.Fields(\数量二\ Textsl(2).Text = rs.Fields(\数量三\ Textzj(0).Text = Val(Textsl(0).Text) * dj1 Textzj(1).Text = Val(Textsl(1).Text) * dj2 Textzj(2).Text = Val(Textsl(2).Text) * dj3
Txtgj.Text = Val(Textzj(0).Text) + Val(Textzj(1).Text) + Val(Textzj(2).Text)
'奖金 福利结算 rs.Close
strSql = \工号='\ Set rs = ExecuteSQL(strSql, strMsg) Text(0).Text = rs.Fields(\奖金\ Text(1).Text = rs.Fields(\津贴\ Text(2).Text = rs.Fields(\福利\ Text(3).Text = rs.Fields(\其他项目\ '扣除 rs.Close
40