怎样设计简单的系统登陆模块
能只通过odbc链接数据库吗
能不用const模块，不用类模块吗

数据库的 不是很懂
这里期待高手到来

引用:

原帖由 替身 于 2008-6-1 02:12 发表
数据库的 不是很懂
这里期待高手到来

我看楼上2位发帖时间呆了

楼主是00：30

一楼是02：12

佩服。

引用:

原帖由 canhui87 于 2008-6-1 00:30 发表
怎样设计简单的系统登陆模块
能只通过odbc链接数据库吗
能不用const模块，不用类模块吗

系统登陆模块？是不是一个用来登陆的东东？
1，将用户密码信息放在一个地方（比如数据库里面，当然也可以是文件里面、注册表里面、甚至是一个网络位置，这个密码一般情况下都是加密的）
2，然后做一个界面让别人输入用户名、密码（甚至再搞个验证码之类的）
3，将上面输入的用户名密码验证码跟你的用户密码信息和验证码进行对比，对了就登陆成功，错了就登陆失败

const模块？指的什么东东？

希望提供简单的登陆模块
自己找的许多都是要用类函数
那就要设置类模块了
麻烦

这个是用adodc控件连接 sql数据库的
但还是有问题
求解
启动时
输入用户名admin和密码admin后 提示
实事错误‘-2147217900（80040e14）’:
对象'Refresh'的方法'IAdodc'失败
一调试就指向Adodc1.Refresh
我的sql数据库 登陆表是users
列username和pwd

窗体代码
Dim tim As Integer
Dim myval As String


Private Sub Cmd_Cancel_Click()
  End
End Sub

Private Sub Cmd_ok_Click()
Adodc1.RecordSource = "select * from users where username=" + txtuser.Text + ""
Adodc1.Refresh
If txtuser.Text <> "" And txtpwd.Text <> "" And txtpwd.Text = Adodc1.Recordset.Fields("密码") Then
   Load frmmain
   frmmain.Show
   Unload Me
Else
  If tim = 3 Then
    myval = MsgBox("密码错误！", 0, "")
  If myval = vbOK Then End
End If
   If txtuser.Text = "" Then
     MsgBox ("请输入用户名！")
     txtuser.SetFocus
   Else
     If txtuser.Text <> Adodc1.Recordset.Fields("用户名") Then
       MsgBox ("用户名不存在，请重新输入")
       txtuser.SetFocus
     Else
       If txtpwd.Text <> Adodc1.Recordset.Fields("密码") Then
         MsgBox ("密码错误。请重新输入")
         tim = tim + 1
       txtpwd.SetFocus
       End If
     End If
   End If
End If

End Sub

Adodc1.RecordSource = "select * from users where username=" +txtuser.Text + ""
更改以后
Adodc1.RecordSource = "select * from users where username=" & "'" & txtuser.Text  &  "'"
记得带上引号~还有字符串连接 建议使用 &

对象'Refresh'的方法'IAdodc'失败
无法更新的原因是你记录源有错误 把鼠标放到 记录源上就可以看出来区别了

相关代码
  adoLogin.ConnectionString = PublicStr
  adoLogin.RecordSource = "select * from tbOA_user where username='" + Text1.Text + "' and userpwd='" +  Text2.Text + "'"
  adoLogin.Refresh
  If adoLogin.Recordset.RecordCount > 0 Then
        frmmain.show
  end if

谢谢楼主！