神马品牌网上海到泰国旅游团:求助代码解释。谢谢
来源：百度文库 编辑：神马品牌网 时间：2024/04/28 08:11:14
Strxm = Combo1.Text
If Strxm <> "" Then
strsql = "select 密码 from 权限设置 where 姓名='" & Strxm & "'"
Data1.RecordSource = strsql
Data1.Refresh
Data1.Recordset.MoveFirst
If Data1.Recordset.EOF Then
MsgBox "没有此用户名", vbCritical, "错误"
ElseIf Strxm = "杨传明" And Text1.Text = "ycm" Then '终极用户杨传明的终极密码为"ycm" ,此用户密码不可更改
Frm_main.Show
Unload Frm_dl
Else
Strmm = Data1.Recordset.Fields("密码")
If Strmm = Text1.Text Then
Frm_main.Show
Unload Frm_dl
Else
MsgBox "您输入的姓名或密码错误", vbCritical, "错误"
End If
End If
Else
MsgBox "请输入用户名", vbInformation, "提示"
End If
Strxm = Combo1.Text //strxm为combo1的方本
If <> "" Then //Strxm不为空执行
strsql = "select 密码 from 权限设置 where 姓名='" & Strxm & "'" //SQL语言
Data1.RecordSource = strsql //记录集执行SQL语言
Data1.Refresh
Data1.Recordset.MoveFirst //记录指向第一条
If Data1.Recordset.EOF Then //记录集为空执行
MsgBox "没有此用户名", vbCritical, "错误" //弹出对话框
ElseIf Strxm = "杨传明" And Text1.Text = "ycm" Then '终极用户杨传明的终极密码为"ycm" ,此用户密码不可更改 //如果Strxm = "杨传明" 并且Text1.Text ="ycm"为真
Frm_main.Show //Frm_main窗体弹出
Unload Frm_dl //卸载Frm_dl 窗体
Else //否则Strmm=记录集中的密码
Strmm = Data1.Recordset.Fields("密码")
If Strmm = Text1.Text Then //如果Strmm = Text1的文本为真执行
Frm_main.Show //Frm_main窗体弹出
Unload Frm_dl //卸载Frm_dl 窗体
Else
MsgBox "您输入的姓名或密码错误", vbCritical, "错误" //弹出对话框
End If
End If //IF语言的结束
Else
MsgBox "请输入用户名", vbInformation, "提示" //弹出对话框
End If