UC知道谁帮我解答下这些功能模块的作用
来源：百度知道 编辑：UC知道 时间：2024/05/26 18:21:01
登陆
代码
Private Sub Cmdexit_Click()
End
End Sub
Private Sub Cmdok_Click()
Dim username1 As String, username2 As String
username1 = Text1.Text
If Option1.Value Then
Set Text3.DataSource = Adodc1
Text3.DataField = "口令"
Adodc1.Recordset.MoveFirst
If username1 <> "" Then
username2 = "用户名='" & username1 & "'"
Adodc1.Recordset.Find username2
If Adodc1.Recordset.EOF Then
MsgBox "用户名错误请重输", 16, "错误"
Else
If Text2.Text <> Text3.Text Then
MsgBox "密码错误请重输", 16, "错误"
Text2.Text = ""
Else
MDIForm1.Show
Form1.Hide
End If
End If
End If
Else
If Option2.Value Then
Set Text3.DataSource = Adodc2
Text3.DataFie
代码
Private Sub Cmdexit_Click()
End
End Sub
Private Sub Cmdok_Click()
Dim username1 As String, username2 As String
username1 = Text1.Text
If Option1.Value Then
Set Text3.DataSource = Adodc1
Text3.DataField = "口令"
Adodc1.Recordset.MoveFirst
If username1 <> "" Then
username2 = "用户名='" & username1 & "'"
Adodc1.Recordset.Find username2
If Adodc1.Recordset.EOF Then
MsgBox "用户名错误请重输", 16, "错误"
Else
If Text2.Text <> Text3.Text Then
MsgBox "密码错误请重输", 16, "错误"
Text2.Text = ""
Else
MDIForm1.Show
Form1.Hide
End If
End If
End If
Else
If Option2.Value Then
Set Text3.DataSource = Adodc2
Text3.DataFie
这是vb的代码吧.
Cmdok_Click()
应该是一个button(名为Cmdok)的单击事件.
Option1,Option2应该是两个单选按钮,
Text1是用来输入用户名(/工号)的文本框,,Text2是用来输入密码的文本框,Text3是保存从数据库查询Text1的值得到密码的文本框(应该是隐藏的).
根据代码分析,这段代码就是一段XX系统登陆窗口的登陆按钮的单击事件.
大致功能:
1.先是判断Option1被选择的话就是对应数据库中的"用户名"项,
Option2被选择的话就是对应数据库中的"工号"项(估计这两个应该是不能同时选择--即"工号"和"用户名"不能同时选择.如果是这样的话,程序写的有点繁琐.)
2.根据Text1中输入的用户名(/工号),去数据库中检索,找不到就提示(弹出小对话框) "用户名错误请重输", 找到了就读取出"口令"字段,放在Text3中.
3.然后Text3和Text2(手动输入的)密码进行比较,不一致的话就提示"密码错误请重输",一致的话就打开名为"MDIForm1"的窗体,同时隐藏本窗体.