药品库房管理系统
1.无需注册登录,支付后按照提示操作即可获取该资料.
2.资料以网页介绍的为准,下载后不会有水印.资料仅供学习参考之用.
密 惠 保
代码设计:
Public userdwname As String
think58 [版权所有：http://think58.com]
[资料来源：http://www.THINK58.com]Public username As String
内容来自think58
[资料来源：www.THINK58.com]
[资料来源：http://www.THINK58.com]
Public userright As String
Public conn As String
Private Sub Command1_Click()
Dim password As String
Dim respond As String
[资料来源：http://THINK58.com]
username = Text1.Text
think58
password = Text2.Text
On Error GoTo err1
Adodc1.ConnectionString = conn
Adodc1.RecordSource = "select * from usertab where 用户名=" & "'" & username & "'" & " and " & "密码=" & "'" & password & "'"
Adodc1.Refresh
think58
[资料来源：http://think58.com]
[资料来源：THINK58.com]
If Adodc1.Recordset.AbsolutePosition = adPosUnknown Then
respond = MsgBox("用户名或密码错误，请重新输入！", vbOKOnly, "警告")
If respond <> vbOKOnly Then
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
think58
[资料来源：http://THINK58.com]
[资料来源：http://THINK58.com]username = ""
[来源：http://www.think58.com]
password = ""
End If
Else
[资料来源：http://think58.com]
userright = Adodc1.Recordset.Fields("权限")
内容来自think58 [资料来源：http://think58.com]
[版权所有：http://think58.com]
Unload frmlogin
frmmain.Show
End If
think58好，好think58
Exit Sub
err1:
MsgBox "系统配置错误！无法与服务器连接！"
[资料来源：www.THINK58.com]
userright = "0"
think58.com [版权所有：http://think58.com]
[来源：http://www.think58.com]Unload Me
[来源：http://think58.com]
frmsysset.Show
End Sub
Private Sub Command2_Click()
End
think58.com
End Sub
[资料来源：http://think58.com]
think58 [资料来源：http://think58.com]
[版权所有：http://think58.com]Private Sub Form_Load()
[来源：http://www.think58.com]
Text1.Text = ""
[资料来源：http://think58.com]
Text2.Text = ""
think58.com [来源：http://www.think58.com]
'conn = Frmstart.pconn
conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\his.mdb;Persist Security Info=False"
[来源：http://think58.com]
End Sub
上一篇：工资管理系统
下一篇：学生公寓管理系统