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

《运动会成绩管理系统-主要代码》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、窗体代码PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then'监听键盘回车Command1.Value=TrueEndIfEndSub（Text1是账号，Text2是密码）登陆PrivateSubCommand1_Click()IfText1.Text<>""AndText2.Text<>""Thenstrsql="select*from用户信息where用户名='"&Text1.Text&"'and密码='"&Text2.Text&"'"Setrs=cnn.E

2、xecute(strsql)IfNotrs.EOFThen'输入的登录信息正确，则进入系统主界面.ShowUnload登陆界面ElseMsgBox"您输入的登录信息有误，请重新输入！",vbOKOnly+vbExclamation,"提示"Text1.Text=""Text2.Text=""Text1.SetFocusEndIfElseMsgBox"您输入的帐号或密码有误！",vbOKOnly+vbExclamation,"警告"Text1.Text=""Text2.Text=""Text1.SetFocusEndIfEndSu

3、b退出PrivateSubCommand2_Click()i=MsgBox("确实要退出系统吗？",vbYesNo+vbExclamation,"系统警告")Ifi=vbYesThenEndElseMsgBox"欢迎继续使用！",vbOKOnly,"系统提示"EndIfEndSub主界面PrivateSubmnuedititem_Click(IndexAsInteger)项目定义.Show1EndSubPrivateSubmnusearchitem_Click(IndexAsInteger)查询输出.SSTab1.Tab=1查询

4、输出.Show1EndSub（mnu#####是项目定义的属性名称，其他的菜单省略了，都是****.Show1。查询输出菜单栏中包含了7项，但都属于同一窗体，所以加“查询输出.SSTab1.Tab=1”后面的数字是对应的菜单）定义比赛项目项目名称：Text2；加入项目：Text1；项目、全能：SSTab1添加：Command1；项目删除：Command2；：Command3，全能删除Command4DimcnnAsADODB.ConnectionDimrsAsADODB.Recordset,rs1AsADODB.Recordse

5、tPrivateSubForm_Load()DimmypathAsStringDimiAsIntegerSetcnn=NewADODB.ConnectionSetrs=NewADODB.RecordsetSetrs1=NewADODB.Recordsetmypath=App.Path&"/data"'获取当前路径IfRight(mypath,1)<>"/"Thenmypath=mypath+"/"cnn.Open"DataSource="&mypath&"db1.mdb"&";Provider=Microsoft.Jet.OLE

6、DB.4.0"'连接并打开数据库strsql1="selectcount(*)from运动项目名单where项目类型='全能项目'"strsql2="select项目名称from运动项目名单where项目类型='全能项目'"Setrs1=cnn.Execute(strsql1)Setrs2=cnn.Execute(strsql2)Fori=0Tors1.Fields(0)-1Combo2.List(i)=rs2.Fields(0)rs2.MoveNextNextEndSub（Dim定义、连接数据库）PrivateSubCombo

7、1_Change()EndSubPrivateSubCombo2_Click()strsql3="selectcount(*)from"&Combo2.Text&""strsql4="select项目名称from"&Combo2.Text&""Setrs1=cnn.Execute(strsql3)Setrs2=cnn.Execute(strsql4)Fori=0Tors1.Fields(0)-1List1.List(i)=rs2.Fields(0)rs2.MoveNextNextEndSubPrivateSubCombo3_Ch

8、ange()EndSubPrivateSubCommand2_Click()IfText2.Text=""ThenMsgBox"请先输入项目或编号",vbOKOnly+vbExclamation,"提示"Elsestrsql="select*from运动项目名单