毕业设计编写一个管理信息系统，但是老师总是挑毛病，到现在也没有改好,大部分已经做出来了,只剩下一小部分了.急需高人指点。

[此贴子已经被作者于2006-4-22 6:32:27编辑过]

你的 我看看 才知道怎么改阿 ？

你先把程序拿出来吧

Private Sub Command1_Click()
Dim mrc As ADODB.Recordset
txtsql = "select username from use where username='" & Trim(Text1.Text) & "'"
Set mrc = ExecuteSQL(txtsql)
If mrc.EOF = True Then
MsgBox " 用户名错误！", vbExclamation + vbOKOnly, "警告"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Exit Sub
End If
username = mrc.Fields(0)
txtsql = "select username from use where password='" & Trim(Text2.Text) & "'"
Set mrc = ExecuteSQL(txtsql)
If mrc.EOF = True Then
MsgBox " 密码错误！", vbExclamation + vbOKOnly, "警告"
Text2.SetFocus
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
Exit Sub
End If

MDIForm1.Show
Unload Me
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub

高手们帮我看看哪有错或者知道用户名和密码是什么吗？谢谢各位支持！~~~~~~~~~~

还有.要是你这个源码是下的.又是宾馆管理系统的话就是我说的了.表名出错.哈....