Question

请问用VB6。0如何写1个程序的登陆窗口要专业点

1个frmlogin
1个combo1的控件 combo1（用户名称&U）
1个text的控件txtPassword.text（密码&P）
2个Command控件CmdOk（确定) 和CmdCancel（取消）
当CmdOk确定按扭 按下后密码帐号都是对的 就进入 frmmain
怎么写的？
数据库：DB
表：user
提取字段为username与password
编号 username userpass
1 admin admin
2 liu liu
谢谢W931115，但是错误代码有问题，请再帮忙看看

Answer 1

出什么错了你也得告诉我啊。。改过了 你再试试
实在不行我把源代码发给你算了
qq390882098

草蛋baidu..写好了被吞了

用DAO写.
在工程-引用添加Microsoft DAO 3.6 Object Library的引用
DAO应付本地的Access绰绰有余

DAO本身也是一个很经典的接口
用DAO不用模块 不用多余的代码 简单易懂
数据编程的入门者最适合了

Option Explicit

Dim i As Integer
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim rs As DAO.Recordset

Private Sub Form_Load()

'初始化,设定数据库位置
Set db = OpenDatabase(App.Path & "\db.mdb", True, False)
'初始化 设定表名称
Set tbl = db.TableDefs("user")
'初始化 打开表
Set rs = tbl.OpenRecordset()

'从数据库读取用户名并添加到combo1
Combo1.Clear
rs.MoveFirst
For i = 1 To rs.RecordCount
Combo1.AddItem rs.Fields("username")
rs.MoveNext
Next i
End Sub

Private Sub cmdOK_Click()
rs.MoveFirst
For i = 1 To rs.RecordCount
If Combo1.Text = rs.Fields("username") Then
If txtPassword.Text = rs.Fields("password") Then
Load frmMain
frmMain.Show
Else
MsgBox "密码错误"
Exit Sub
End If
Else
rs.MoveNext
End If
Next i
End Sub

很古老的的一个验证方式 大体上就是先比对用户名再比对密码 如果在数据库的这一行找不到用户名就找下一行直到数据库结尾 找到用户名之后比对密码

Answer 2

使用ADO链接ACCESS数据库可以吗？
这个简单，有偿服务，一块钱我帮你写。
愿意回复我消息，
百度上有免费的呢自己搜搜慢慢学学就会了，