学生信息管理系统代码.pdfVIP

主要代码如下： 1、登录界面代码： Dim cn As New ADODB.Connection Dim rst As New ADODB.Recordset Private Sub Command1_Click() Set cn = New ADODB.Connection Set rst = New ADODB.Recordset Static i% cn.ConnectionString = Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=students info;Data Source=C1847 cn.Open usna = Trim(Text1.T ext) mysql = select * from 用户表 where 用户名 = usna rst.Open mysql, cn If rst.EOF Then MsgBox 用户名不存在！ cn