说明: 很好的文档,有利于帮助学生课程设计 登陆界面设计的关键代码 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 +
<xhtt512444525> 上传 | 大小:288kb