login.txt

一个简单的数据库操作例子,特别适合初学者.vb数据库编程练习

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "对不起，请输入用户名！", 64, "信息提示"
ElseIf Text2.Text = "" Then
MsgBox "对不起，密码不能为空！", 64, "信息提示"
Else
Adodc1.RecordSource = "select * from 管理员"
Adodc1.Refresh
If Text1.Text = Adodc1.Recordset.Fields("name") And Text2.Text = Adodc1.Recordset.Fields("password") Then
'MsgBox "欢迎使用订单系统", 64, "登陆成功"
订单系统单机版.Show
Unload Me
Else
MsgBox "对不起，用户名或密码错误！", 64, "错误提示"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub