以下是模块 ::
Public con As New Connection '定义数据连接,公共变量
Public coon, coom As String
Public str As Currency
Sub main()
ChDir App.Path '转换相对路径
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xx.mdb;Persist Security Info=False"
'定义数据库连接,xx为数据库名
con.CursorLocation = adUseClient '以客户端的方式打开
con.Open ' 打开连接
frm_学校上报表.Show'这个是登陆窗体名
End Sub
以 下为登陆窗体代码:
Dim rec As New Recordset
Dim rs As New Recordset
Private Sub Command1_Click()
If (Text1.Text = "") Or (Text2.Text = "") Then
MsgBox "用户名和密码不能为空!", vbOKOnly, "错误"
Exit Sub
End If
coon = Text1.Text
coom = Text2.Text
sql = "select * from dl where gly='" + coon + "' and mm='" + coom + "'" gly是登陆表里的用户名字段..mm为表里的密码字段..
Set rs = con.Execute(sql)
If rs.EOF Then
MsgBox "用户名和密码错误!", vbOKOnly, "错误"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Exit Sub
Else
Unload Me
frmmain.Show
End If
End Sub
你参考一下吧
也可以在加个权限字段...用判断..if 。。。then....不为超级管理员的不让进入系统..重要部分
--------------------------签名档----------------------
http://www.huaianyingyuan.com http://www.0517kk.com
http://www.8meinv.com http://www.huaianyingyuan.com/bbs/
http://fengxiong.tbwtb.com http://qudou.tbwtb.com
http://dianshiju.haqvod.com
http://quban.tbwtb.com http://www.haqvod.com
http://dsj.haqvod.com
http://www.tbwtb.com http://jianfei.tbwtb.com
http://www.huaianseo.com http://zuixin.haqvod.com
◆◆
评论读取中....
请登录后再发表评论!
◆◆
修改失败,请稍后尝试