VB编程问题

追问：来自手机问问思路我知道就是部分代码错误或有问题

答案：以前写的代码你可以参考下
登陆界面代码：

Private Sub Command1_Click()
On Error Resume Next
List1.Clear: List2.Clear
Open "c:\123.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
List1.AddItem Mid(s, 1, InStr(s, "||") - 1)
List2.AddItem Mid(s, InStr(s, "||") + 2)
Loop
Close #1
For I = 0 To List1.ListCount - 1
If Text1.Text = List1.List(I) And Text2.Text = List2.List(I) Then: Unload Me: Form3.Show: Exit Sub
If Text1.Text = List1.List(I) And Text2.Text <> List2.List(I) Then MsgBox "密码错误": Exit Sub
Next
MsgBox "该账号不存在"
End Sub


Private Sub Form_Load()
Command1.Caption = "登录"
End Sub
注册界面代码：

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "帐号不能为空"
ElseIf Text2.Text = "" Then
MsgBox "密码不能为空"
Else
MsgBox "注册成功"


Form1.Show
Open ("c:\123.txt") For Append As #1
Print #1, Text1.Text & "||" & Text2.Text
Close #1
End If
Unload Me
End Sub


Private Sub Command2_Click()
Unload Me
Form1.Show
End Sub代码自己写。
注册的时候帐号和密码保存到数据库的一个表里，登陆的时候从数据库该表读取帐号和密码进行匹配，对了就进入主窗体。
上面几楼的大概都可以了的，如你还不满意，可以留下你的邮箱，我帮你写，会更详细哦。

上一个：VB编程问题
下一个：VB编程问题