VB连接数据库(登录)
登录界面的设置(通过不同的权限选择进而进入不同的主界面~) (连接数据库~)
首先界面如下所示:
说明:“用户名”,“密码”,“权限”三个Label的“BorderStyle”属性设置为“0-tansparent”以使字体背景透明。
因为要连数据库,所以首先添加一个“引用”和一个“部件”(此处利用的是Access97版本以上的数据库)建立了一个“login”数据库和一个“login”
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
,如下:
库和表建好后,进入VB界面
选择“
工程
路基工程安全技术交底工程项目施工成本控制工程量增项单年度零星工程技术标正投影法基本原理
”-“引用”
选择“工程”—“部件”
将“ADO”控件加入窗体,并设置其“visible”属性为“false”
代码:
添加一“模块”,用来
书
关于书的成语关于读书的排比句社区图书漂流公约怎么写关于读书的小报汉书pdf
写公共的代码
窗体加载中的代码:
Private Sub Form_Load() CenterForm Me
Set conn = New ADODB.Connection Set rs = New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\login.mdb"
rs.Open "select * from login", conn, 2, 2
cmbright.AddItem "管理员"
cmbright.AddItem "教师"
cmbright.AddItem "学生"
End Sub
点击登录按钮
Private Sub Command1_Click()
If txtuname.Text = "" Then MsgBox "用户名不能为空,请输入用户名~", vbCritical, "提示" Else
rs.MoveFirst
rs.Find "uname= '" & Trim(txtuname.Text) & "' "
If rs.EOF Then
txtuname.Text = ""
txtpwd.Text = ""
txtuname.SetFocus
MsgBox "用户名输入错误,请选择~", vbCritical, "提示"
Else
If txtpwd.Text = "" Then
MsgBox "密码不能为空,请输入密码~", vbCritical, "提示"
txtpwd.Text = ""
txtpwd.SetFocus
ElseIf rs.Fields("upwd") = txtpwd.Text Then
Select Case rs.Fields("right")
Case 0
If cmbright.Text = "管理员" Then
MsgBox "管理员已成功登录~", vbExclamation, "提示"
Else
MsgBox "您没有此权限~", vbOKOnly + vbCritical, "提示"
End If
Case 1
If cmbright.Text = "教师" Then
MsgBox "教师已成功登录~", vbExclamation, "提示"
Else
MsgBox "您没有此权限~", vbOKOnly + vbCritical, "提示"
End If
Case 2
If cmbright.Text = "学生" Then
MsgBox "学生已成功登录~", vbExclamation, "提示"
Else
MsgBox "您没有此权限~", vbOKOnly + vbCritical, "提示"
End If
End Select
Else
MsgBox ("密码输入错误,请重新输入~"), vbCritical, "提示"
txtpwd.Text = ""
txtpwd.SetFocus
End If
End If
End If
End Sub
点击退出按钮
Private Sub Command2_Click()
Unload Me
End Sub
验证如下: