VB+access员工信息管理系统设计与实现(16)
时间:2016-12-22 10:57 来源:毕业论文 作者:毕业论文 点击:次
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) (责任编辑:qin) |