none
用这个模块要怎么写登陆? RRS feed

  • 问题

  • 模块名为DataModule Module DataModule Public Function GetDataSet(ByVal StrSql As String) As DataSet '返回dataSet Dim DataConnection As OleDb.OleDbConnection Dim ConnectStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\My Documents\Visual Studio 2008\Projects\蓝龙管理系统\蓝龙管理系统\Data\lanlong.mdb" Dim DataSet As Data.DataSet Dim DataAdapter As Data.Common.DataAdapter Dim OleDbDataAdapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter Dim comm As OleDb.OleDbCommand Try comm = New OleDb.OleDbCommand DataConnection = New OleDb.OleDbConnection DataConnection.ConnectionString = ConnectStr DataAdapter = New OleDb.OleDbDataAdapter(StrSql, DataConnection) DataSet = New DataSet DataSet.Clear() DataAdapter.Fill(DataSet) DataConnection.Close() Catch MsgBox(Err.Description) End Try End Function End Module ‘》》》》》》》》》》》》》》》》》》 在Form2中写代码! 控件Text1,Text2,按钮Command1 数据库的名字模块中已经有写了!表名为User1,字段名为用户名,密码(这2个!) 代码老是写不对!
    2009年7月14日 7:06

答案

  • HI,
      你做事先登陆,如果你数据库保存了用户账号和密码,你就可以调用数据库查询方法,来验证用户的密码是否正确。
      你这个方法仅仅是数据的填充,还需要从DataSet里解析出来做比较。
       你也可以直接写个存储过程,参数是UserName 和PassWord数据库里验证就可以了。
    Frank.Xu Lei--谦卑若愚,好学若饥
    专注于.NET平台下分布式应用系统开发和企业应用系统集成
    Focus on Distributed Applications Development and EAI based on .NET
    老徐的博客:http://frank_xl.cnblogs.com
    2009年7月17日 10:10
    版主

全部回复

  • Module DataModule
        Public Function GetDataSet(ByVal StrSql As String) As DataSet '返回dataSet
            Dim DataConnection As OleDb.OleDbConnection
            Dim ConnectStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\My Documents\Visual Studio 2008\Projects\蓝龙管理系统\蓝龙管理系统\Data\lanlong.mdb"
            Dim DataSet As Data.DataSet
            Dim DataAdapter As Data.Common.DataAdapter
            Dim OleDbDataAdapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter
            Dim comm As OleDb.OleDbCommand
    
            Try
                comm = New OleDb.OleDbCommand
                DataConnection = New OleDb.OleDbConnection
                DataConnection.ConnectionString = ConnectStr
                DataAdapter = New OleDb.OleDbDataAdapter(StrSql, DataConnection)
                DataSet = New DataSet
                DataSet.Clear()
                DataAdapter.Fill(DataSet)
    
                DataConnection.Close()
    
            Catch
                MsgBox(Err.Description)
            End Try
        End Function
    
    
    End Module
    这样看比较容易看
    2009年7月14日 7:09
  • HI,
      你做事先登陆,如果你数据库保存了用户账号和密码,你就可以调用数据库查询方法,来验证用户的密码是否正确。
      你这个方法仅仅是数据的填充,还需要从DataSet里解析出来做比较。
       你也可以直接写个存储过程,参数是UserName 和PassWord数据库里验证就可以了。
    Frank.Xu Lei--谦卑若愚,好学若饥
    专注于.NET平台下分布式应用系统开发和企业应用系统集成
    Focus on Distributed Applications Development and EAI based on .NET
    老徐的博客:http://frank_xl.cnblogs.com
    2009年7月17日 10:10
    版主
  • 如果仅仅为了验证用户密码不一定需要dataset~直接select userid form User1 Where 用户名=Text1.text and 密码=Text2.text~如果搜索结果为空就说明没有匹配项~要不就用户名错要不就密码错~否则会把用户id搜索出来~
    宠辱不惊,看庭前花开花落。去留无意,望天上云卷云舒。
    2009年7月17日 15:05
    版主
  • 使用 ExecuteScalar 判断返回结果就行了
    知识改变命运,奋斗成就人生!
    2009年7月20日 4:31
    版主