Question

VB技术上的问题。

我想给老师弄一个教学平台，但我没VB代码知识，现在在学习中，首先我弄了一个登陆界面。问题，写什么代码能使密码部分显示*号，并且校对帐号和密码，正确后运行另一个.exe文件？

Answer 1

新建工程
添加窗体
用office新建一个access数据库
新建表（登陆）
字段（账户）（密码）2个字段
在新建的vb窗体上添加2个textbox控件在控件和2个commandbutton属性栏中将控件名改成下边的样子
将text1改成txtUserName（用户名输入框）
将text2改成txtPassword（密码输入框）
将text2的passwordchars属性改成 * 号
将command1改成cmdOK（登陆按钮）
将command2改成cmdCancel（取消按钮）
点击工程---部件---添加一个microsoft ADO Data control 6.0控件
将控件放入窗体中右击adodc1----属性----生成---提供程序---选择Microsoft jet 4.0 ole db provider---下一步-----选择数据库地址-----测试连接-----确定-----记录源---输入SELECT * From 登陆

复制下面代码

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
Dim x
Private Sub cmdOK_Click()
On Error GoTo 1
If x = 3 Then
MsgBox "对不起！你3次密码都未输入正确，系统认为你无权登录本系统。", vbQuestion, "登录"
Unload Me
GoTo 1
End If
If Len(txtUserName) = 0 Then
MsgBox "对不起！您无法登陆。用户名未输入，请输入后重新登陆！", vbQuestion, "登录"
GoTo 1
End If

If Len(txtPassword) = 0 Then
MsgBox "对不起！您无法登陆。密码未输入，请输入密码后重新登陆！", vbQuestion, "登录"
GoTo 1
End If

Adodc1.RecordSource = "SELECT * From 登陆 WHERE 账户= '" & txtUserName.Text & "' and 密码 = '" & txtPassword.Text & "'"
Adodc1.Refresh
a = Adodc1.Recordset.RecordCount
If a = 0 And txtPassword.Text <> xtmm Then
MSG = "对不起！你无法登陆。用户名或密码错误，请确认后再输入！你还有" & 2 - x & "次密码输入机会！"
MsgBox MSG, vbQuestion, "登录"
txtPassword.SetFocus
txtPassword.SelStart = 0
txtPassword.SelLength = Len(txtPassword.Text)
x = x + 1
Else
mz = DataCombo1
Me.Visible = False
主窗口.Show

End If

Exit Sub
1

End Sub

Answer 2

在文本框的PasswordChar属性里输入一个*号即可显示*号,校对帐号和密码的代码就是判断,比如
if text1.text = "xxx" and text2.text = "123456" then 运行另一个.exe文件

Answer 3

text1.passwordchar=“*” 这个属性可以设置密码为*，校队账号和密码，还有权限之类的东西。所以你需要有数据库平台，将相关信息存放在数据中，然后从数据库中查询数据和输入的数据作对比，看用户输入的信息存在与否。当输入正确，验证通过然后实例化另一个窗体、、、系统规划就是这样。懂得吧！understand？有什么问题再说吧！

Answer 4

textbox有属性的passwordChar属性里面填*，校队账号和密码用判断就行！正确后不用运行另一个exe你直接画一个成功登陆的Form就行了！