引用3楼q740362425的回复:其实我也是个新手..只不过做的项目刚好是登陆那地方
“项目”-“添加模块”:
ModuleVariable
PublicUserAsstring
PublicUserNAMEAsstring
EndModule
然后登陆的时候给User赋值
PrivateSubButton_login_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton_login.Click
IfTextBox_user.Text.Trim=""Then
MsgBox("用户名不能为空!",MsgBoxStyle.Critical,"错误")
TextBox_user.Focus()
ExitSub
EndIf
IfTextBox_pwd.Text.Trim=""Then
MsgBox("密码不能为空!",MsgBoxStyle.Critical,"错误")
TextBox_pwd.Focus()
ExitSub
EndIf
DimsqlAsString
DimmyconnAsOdbc.OdbcConnection=NewOdbc.OdbcConnection
myconn.ConnectionString=odbcProductString
DimmycommAsOdbc.OdbcCommand=NewOdbc.OdbcCommand
mycomm.Connection=myconn
DimmyreaderAsOdbc.OdbcDataReader
Try
sql="select用户名,真实姓名,密码from用户基本信息表where用户名='"+TextBox_user.Text.Trim+"'and密码='"+TextBox_pwd.Text.Trim+"'"
mycomm.CommandText=sql
myconn.Open()
myreader=mycomm.ExecuteReader
IfNotmyreader.HasRowsThen
MsgBox("用户名或密码错!",MsgBoxStyle.Critical,"错误")
ExitSub
EndIf
myreader.Read()
当前用户=myreader.GetString(0).Trim
当前用户姓名=myreader.GetString(1).Trim
用户密码=myreader.GetString(2).Trim
Me.Hide()
主窗体对象.ShowDialog()'显示主窗体
CatchexAsException
MsgBox(ex.Message,MsgBoxStyle.Critical)
EndTry
EndSub
这是登录窗口的代码,给user赋值要怎么弄?
还有我要调用的用户ID是在另外一个程序中的,是不是要将赋值后的内容存入数据库?
|