运动会成绩管理系统-主要代码.docVIP

窗体代码 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 监听键盘回车 Command1.Value = True End If End Sub （Text1是账号，Text2是密码） 登陆 Private Sub Command1_Click() If Text1.Text And Text2.Text Then strsql = select * from 用户信息 where 用户名= Text1.Text and 密码= Text2.Text Set rs = cnn.Execute(strsql) If Not rs.EOF Then 输入的登录信息正确，则进入系统 主界面.Show Unload 登陆界面 Else MsgBox 您输入的登录信息有误，请重新输入！, vbOKOnly + vbExclamation, 提示 Text1.Text = Text2.Text = Text1.SetFocus End If Else MsgBox 您输入的帐号或密码有误！, vbOKOnly + vbExclamation, 警告 Text1.Text = Text2.Text = Text1.SetFocus End If End Sub 退出 Private Sub Command2_Click() i = MsgBox(确实要退出系统吗？, vbYesNo + vbExclamation, 系统警告) If i = vbYes Then End Else MsgBox 欢迎继续使用！, vbOKOnly, 系统提示 End If End Sub 主界面 Private Sub mnuedititem_Click(Index As Integer) 项目定义.Show 1 End Sub Private Sub mnusearchitem_Click(Index As Integer) 查询输出.SSTab1.Tab = 1 查询输出.Show 1 End Sub （mnu#####是项目定义的属性名称，其他的菜单省略了，都是****.Show1。查询输出菜单栏中包含了7项，但都属于同一窗体，所以加“查询输出.SSTab1.Tab = 1”后面的数字是对应的菜单） 定义比赛项目 项目名称：Text2；加入项目：Text1；项目、全能：SSTab1 添加：Command1 ；项目删除：Command2；：Command3，全能删除Command4 Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset, rs1 As ADODB.Recordset Private Sub Form_Load() Dim mypath As String Dim i As Integer Set cnn = New ADODB.Connection Set rs = New ADODB.Recordset Set rs1 = New ADODB.Recordset mypath = App.Path /data 获取当前路径 If Right(mypath, 1) / Then mypath = mypath + / cnn.Open Data Source= mypath db1.mdb ;Provider=Microsoft.Jet.OLEDB.4.0 连接并打开数据库 strsql1 = select count(*) from 运动项目名单 where 项目类型=全能项目 strsql2 = select 项目名称 from 运动项目名单 where 项目类型=全能项目 Set rs1 = cnn.Execute(strsql1) Set rs2 = cnn.Execute(strsql2) For i = 0 To rs1.Fields(0) - 1 Combo2.List(i) = rs2.Fields(0) rs2.MoveNext Next End Sub （Dim定义、连接数据库） Private Sub Combo1_Change() End Sub Private Sub Combo2_Click() strsql3 = select count(*) from Combo2.Text strsql4 = select 项目名称 from Combo2.Text