运动会成绩管理系统代码及界面.pdfVIP

第七章 代码设计和界面设计 一 代码设计 1 运动会成绩管理系统： Private Sub Command1_Click() Dim str, people As String Dim st As New ADODB.Recordset Dim rs As ADODB.Command Call OpenDB str = select * from 登入表 where 用户名= Text1.Text st.Open str, Conn If (st.BOF = True And st.EOF = True) Then MsgBox 该用户名不存在，输入有误！ Conn.Close Set Conn = Nothing Exit Sub Else If Text2.Text = st.Fields(密码).Value Then 登入界面.Show Me.Hide Else MsgBox 密码错误！！！, vbInformation, vbOKOnly Conn.Close Set Conn = Nothing Exit Su