毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

数据库课程设计-人事工资管理系统 第9页

更新时间:2008-7-13:  来源:毕业论文

数据库课程设计-人事工资管理系统 第9页

sMeg = "出勤"

End Select

If intCount <> 1 Then

sMeg = sMeg & "不能为空!"

MsgBox sMeg, vbOKOnly + vbExclamation, "警告"

txtItem(intCount).SetFocus

Exit Sub

End If

End If

Next intCount

If gintMode = 1 Then

txtSQL = "select * from checkin where kqid='" & Trim(txtid) & "' and kqdate= '" & Format(cboYear.Text & "-" & cboMonth.Text & "-01", "yyyy-mm-dd") & "'"

If mrc.EOF = False Then

MsgBox "已经存在该员工在该月的考勤记录!", vbOKOnly + vbExclamation, "警告"

Exit Sub

End If

mrc.Close

txtSQL = "delete * from renshi1 where id='" & Trim(Text(0)) & "'"

Set mrc = ExecuteSQL(txtSQL, msgtext)

txtSQL = "select * from renshi1"

Set mrc = ExecuteSQL(txtSQL, msgtext)

For intCount = 0 To 2

mrc.Fields(intCount) = Trim(Text(intCount))

Next intCount

mrc.Update

MsgBox "添加记录成功!", vbOKOnly, "提示"

frmrenshi.ZOrder 1

frmrenshi.Show

Command1.Enabled = True

first.Enabled = True

 

                                                                 

课程设计说明书                 NO.25

last.Enabled = True

End If

If gintMode = 2 Then

txtSQL = "select * from renshi1"

Set mrc = ExecuteSQL(txtSQL, msgtext)

mrc.Fields(intCount) = Text(intCount).Text

mrc.Update

MsgBox "记录修改成功!", vbOKOnly, "提示"

cmdchange.Enabled = True

Command1.Enabled = True

cmddelete.Enabled = True

End If

mrc.Close

End If

txtSQL = "select * from department"

Set mrc = ExecuteSQL(txtSQL, msgtext)

mrc.AddNew

For intCount = 0 To 2

mrc.Fields(intCount) = Trim(Text(intCount))

mrc.Update

MsgBox "记录添加成功!", vbOKOnly + vbExclamation, "警告"

cmdok.Enabled = True

cmdchange.Caption = "修改"

For i = 0 To 2

Text(i).Text = ""mblchange = False

Next i frmbumen.Show

ElseIf cmdchange.Caption = "修改" Then

txtSQL = "select * from department where dpid='" & Trim(Text(0)) & "'"

Set mrc = ExecuteSQL(txtSQL, msgtext)

For i = 0 To 2

mrc.Fields(i) = Text(i).Text

Next i

若图片无法显示请联系QQ752018766,数据库课程设计-人事工资管理系统 第9页免费,转发

请注明源于www.751com.cn

Unload Me

End If

End Sub

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] 

数据库课程设计-人事工资管理系统 第9页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。