[数据库] 人事管理系统及论文

简介：添加用户信息的实现： Dim sql As String Dim rs_adduser As New ADODB.Recordset Dim rs_adduser1 As New ADODB.Recordset Dim rs_adduser2 As New ADODB.Recordset Dim rs_adduser3 As New ADODB.Recordset If Trim(Combo1.Text) = "" T...

论文简介
相关论文
论文下载

添加用户信息的实现：
Dim sql As String
Dim rs_adduser As New ADODB.Recordset
Dim rs_adduser1 As New ADODB.Recordset
Dim rs_adduser2 As New ADODB.Recordset
Dim rs_adduser3 As New ADODB.Recordset
If Trim(Combo1.Text) = "" Then
MsgBox "请选择用户类别", vbOKOnly vbExclamation, ""
Combo1.SetFocus
Exit Sub
End If
If Trim(Text1.Text) = "" Then
MsgBox "员工号不能为空", vbOKOnly vbExclamation, ""
Text1.SetFocus
Exit Sub
End If
If Trim(Text2.Text) = "" Then
MsgBox " 姓名不能为空", vbOKOnly vbExclamation, ""
Text2.SetFocus
Exit Sub
End If
'与第一个表联
sql = "select * from 员工信息 where 员工号='"

查看评论已有0位网友发表了看法

栏目导航

随机论文

[数据库] 人事管理系统及论文

栏目导航

热门关键词

最新论文

随机论文