VB+access员工信息管理系统设计与实现(16)
rs("考勤日期") = DTPicker1.Value
rs("出勤天数") = Text5.Text
rs("假期加班") = Text6.Text
rs("其他加班") = Text7.Text
rs("出差天数") = Text8.Text
rs("旷工天数") = Text9.Text
rs("迟到次数") = Text10.Text
rs("早退次数") = Text11.Text
rs("备注") = Text12.Text
rs("部门名称") = Combo1.Text
rs.Update
MsgBox "数据添加成功", 64, "信息提示"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 员工考勤信息表"
Adodc1.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
DTPicker1.Value = Now
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Combo1.Text = ""
Else
MsgBox "该员工考勤信息已经存在了", 16, "警告"
End If
End If
End Sub
Private Sub DataGrid1_Click()
If Adodc1.Recordset.RecordCount <= 0 Then
MsgBox "当前表是空表", 16, "信息提示"
Else
Text1.Text = Adodc1.Recordset.Fields(0)
Text2.Text = Adodc1.Recordset.Fields(1)
Text3.Text = Adodc1.Recordset.Fields(2)
DTPicker1.Value = Adodc1.Recordset.Fields(3)
Text5.Text = Adodc1.Recordset.Fields(5)
Text6.Text = Adodc1.Recordset.Fields(6)