自己定义的全局模块
Imports System.Data
Imports System.DBNull
Imports System.Data.SqlClient
Module Module1
Public UserName As String
Public pepdom As Integer
Public CL As Integer
Public M As Integer
Public c_id As String = ""
Public m_id As String = ""
Public EN As Boolean
Public o_id As String
Public SU As Double
'定义系统的公共变量'
Public objDataSet As DataSet
'定义一个数据集对象'
Public objDataView As DataView
'定义一个数据视图对象'
Public objDataAdpter As SqlDataAdapter
'定义一个数据适配器对象'
Public objSqlConnection As SqlConnection = New SqlConnection("data source=(local);initial catalog=FoodSvc;" & "intergrated security=SSPI;user id=sa")
'定义一个数据连接对象,并初始化'
Public objCurrencyManager As CurrencyManager
'定义一个当前的绑定管理对象'
Public UserSqlstr As String = "SELECT *FROM UserInfo"
'定义了查询语句'
Public Function GetDataFromDB(ByVal sqlstr As String) As DataSet
objDataSet = New DataSet()
objDataSet.Clear()
'实例化一个数据集对象'
Try
objSqlConnection.Open()
'打开数据库连接'
objDataAdpter = New SqlDataAdapter(sqlstr, objSqlConnection)
'将数据库的数据映射到数据适配器'
objDataAdpter.Fill(objDataSet)
'填充数据集的数据'
objSqlConnection.Close()
'关闭数据连接
Catch ex As Exception
MsgBox("错误号: " & Err.Number & "错误描述:" & Err.Description)
End Try
Return objDataSet
objDataSet = Nothing
End Function
Public Function UpdateData(ByVal sqlstr As String) As Boolean
Dim objCommand As SqlCommand = New SqlCommand() '定义Command对象
Try
objSqlConnection.Open() '打开数据库连接
objCommand.Connection = objSqlConnection '定义Command对象使用的SqlConnection对象
objCommand.CommandText = sqlstr '设置要对数据源执行的SQL语句
objCommand.CommandType = CommandType.Text 'SQL文本命令的形式执行SQL语句
objCommand.ExecuteNonQuery() '执行SQL语句
objSqlConnection.Close() '关闭数据库连接
Catch ex As Exception
MsgBox("错误号: " & Err.Number & "错误描述: " & Err.Description)
Return False
End Try
Return True
End Function
End Module
登录窗体的编写
Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class login
Inherits System.Windows.Forms.Form
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim User As String
Dim Password As String
Dim sqlstr As String
User = Me.TextBox1.Text.Trim '将用户输入的账号存变量user中
Password = Me.TextBox2.Text.Trim '密码存入变量password中
'从数据库表UserInfo中查找账号为User密码为Password中
sqlstr = "SELECT * FROM UserInfo WHERE user_id= " & _
"'" & User & "' AND user_pwd='" & Password & "'"
Dim objDataRow As DataRow
Try
objDataRow = GetDataFromDB(sqlstr).Tables(0).Rows(0)
Catch ex As Exception
MsgBox("密码和账号不符,请重试,并检查该账号是否存在。", _
MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "系统登录失败")
Me.TextBox2.Text = ""
Exit Sub
End Try
UserName = User
pepdom = objDataRow.Item(2) '获得该账号的登录登等级
Dim frmmain As New main()
frmmain.Show() '弹出系统窗体
Me.Finalize()
End Sub
运行一直显示“密码和账号不符,请重试,并检查该账号是否存在”
把Try...Catch后的改成 MsgBox("错误号: " & Err.Number & "错误描述:" & Err.Description)
其余不变,则提示,"Module1类型初始值设定项引发异常" 那应该怎么改呢
下面数据库有关的表
user_id user_pwd user_pepdom
admin 963951 0