© 1999-2048 dssz.net 粤ICP备11031372号
[VB] vb信息管理系统
说明: 很好的文档,有利于帮助学生课程设计 登陆界面设计的关键代码 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