运动会成绩管理系统主要代码.docx
- 文档编号:12706762
- 上传时间:2023-04-21
- 格式:DOCX
- 页数:94
- 大小:1.01MB
运动会成绩管理系统主要代码.docx
《运动会成绩管理系统主要代码.docx》由会员分享,可在线阅读,更多相关《运动会成绩管理系统主要代码.docx(94页珍藏版)》请在冰豆网上搜索。
运动会成绩管理系统主要代码
窗体代码
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then'监听键盘回车
Command1.Value=True
EndIf
EndSub
(Text1是账号,Text2是密码)
登陆
PrivateSubCommand1_Click()
IfText1.Text<>""AndText2.Text<>""Then
strsql="select*from用户信息where用户名='"&Text1.Text&"'and密码='"&Text2.Text&"'"
Setrs=cnn.Execute(strsql)
IfNotrs.EOFThen'输入的登录信息正确,则进入系统
主界面.Show
Unload登陆界面
Else
MsgBox"您输入的登录信息有误,请重新输入!
",vbOKOnly+vbExclamation,"提示"
Text1.Text=""
Text2.Text=""
Text1.SetFocus
EndIf
Else
MsgBox"您输入的帐号或密码有误!
",vbOKOnly+vbExclamation,"警告"
Text1.Text=""
Text2.Text=""
Text1.SetFocus
EndIf
EndSub
退出
PrivateSubCommand2_Click()
i=MsgBox("确实要退出系统吗?
",vbYesNo+vbExclamation,"系统警告")
Ifi=vbYesThen
End
Else
MsgBox"欢迎继续使用!
",vbOKOnly,"系统提示"
EndIf
EndSub
主界面
PrivateSubmnuedititem_Click(IndexAsInteger)
项目定义.Show1
EndSub
PrivateSubmnusearchitem_Click(IndexAsInteger)
查询输出.SSTab1.Tab=1
查询输出.Show1
EndSub
(mnu#####是项目定义的属性名称,其他的菜单省略了,都是****.Show1。
查询输出菜单栏中包含了7项,但都属于同一窗体,所以加“查询输出.SSTab1.Tab=1”后面的数字是对应的菜单)
定义比赛项目
项目名称:
Text2;加入项目:
Text1;项目、全能:
SSTab1
添加:
Command1;项目删除:
Command2;
:
Command3,全能删除Command4
DimcnnAsADODB.Connection
DimrsAsADODB.Recordset,rs1AsADODB.Recordset
PrivateSubForm_Load()
DimmypathAsString
DimiAsInteger
Setcnn=NewADODB.Connection
Setrs=NewADODB.Recordset
Setrs1=NewADODB.Recordset
mypath=App.Path&"/data"'获取当前路径
IfRight(mypath,1)<>"/"Thenmypath=mypath+"/"
cnn.Open"DataSource="&mypath&"db1.mdb"&";Provider=Microsoft.Jet.OLEDB.4.0"'连接并打开数据库
strsql1="selectcount(*)from运动项目名单where项目类型='全能项目'"
strsql2="select项目名称from运动项目名单where项目类型='全能项目'"
Setrs1=cnn.Execute(strsql1)
Setrs2=cnn.Execute(strsql2)
Fori=0Tors1.Fields(0)-1
Combo2.List(i)=rs2.Fields(0)
rs2.MoveNext
Next
EndSub
(Dim定义、连接数据库)
PrivateSubCombo1_Change()
EndSub
PrivateSubCombo2_Click()
strsql3="selectcount(*)from"&Combo2.Text&""
strsql4="select项目名称from"&Combo2.Text&""
Setrs1=cnn.Execute(strsql3)
Setrs2=cnn.Execute(strsql4)
Fori=0Tors1.Fields(0)-1
List1.List(i)=rs2.Fields(0)
rs2.MoveNext
Next
EndSub
PrivateSubCombo3_Change()
EndSub
PrivateSubCommand2_Click()
IfText2.Text=""Then
MsgBox"请先输入项目或编号",vbOKOnly+vbExclamation,"提示"
Else
strsql="select*from运动项目名单where项目名称='"&Text2.Text&"'"
Setrs=cnn.Execute(strsql)
Ifrs.EOF=TrueThen
MsgBox"该库中没有此项目!
",vbOKOnly,"提示"
Text1.Text=""
Text2.Text=""
Else
strsql2="delete*from运动项目名单where项目名称='"&Text2.Text&"'"
cnn.Execute(strsql2)
MsgBox"该项目已删除!
",vbOKOnly,"提示"
Text1.Text=""
Text2.Text=""
EndIf
EndIf
EndSub
PrivateSubCommand3_Click()
IfText1.Text=""Then
MsgBox"请先输入项目",vbOKOnly+vbExclamation,"提示"
Else
strsql11="insertinto"&Combo2.Text&"values('"&Text1.Text&"')"
cnn.Execute(strsql11)
Text1.Text=""
strsql3="selectcount(*)from"&Combo2.Text&""
strsql4="select项目名称from"&Combo2.Text&""
Setrs1=cnn.Execute(strsql3)
Setrs2=cnn.Execute(strsql4)
Fori=0Tors1.Fields(0)-1
List1.List(i)=rs2.Fields(0)
rs2.MoveNext
Next
EndIf
EndSub
PrivateSubCommand4_Click()
strsql12="delete*from"&Combo2.Text&"where项目名称='"&List1.Text&"'"
cnn.Execute(strsql12)
List1.RemoveItemList1.ListIndex
Text1.Text=""
strsql3="selectcount(*)from"&Combo2.Text&""
strsql4="select项目名称from"&Combo2.Text&""
Setrs1=cnn.Execute(strsql3)
Setrs2=cnn.Execute(strsql4)
Fori=0Tors1.Fields(0)-1
List1.List(i)=rs2.Fields(0)
rs2.MoveNext
Next
EndSub
PrivateSubCommand1_Click()
IfText2.Text=""Then
MsgBox"请先输入项目或编号",vbOKOnly+vbExclamation,"提示"
Else
strsql="select*from运动项目名单where项目名称='"&Text2.Text&"'"
Setrs=cnn.Execute(strsql)
Ifrs.EOF=TrueThen'该项目暂时在库中不存在,可以入库
IfCombo1.Text="全能项目"Then
strsql1="insertinto运动项目名单(项目名称,项目类型)values('"+Text2.Text+"','"+Combo1.Text+"')"
strsql2="createtable"&Text2.Text&"(项目名称char(20))"
strsql3="createtable"&Text2.Text&"成绩(姓名char(20),项目名称char(20),成绩char(10))"
cnn.Execute(strsql1)
cnn.Execute(strsql2)
cnn.Execute(strsql3)
MsgBox"该项目已经添加成功!
",vbOKOnly,"提示"
Text2.Text=""
Else
strsql11="insertinto运动项目名单values('"+Text2.Text+"','"+Combo1.Text+"','"&Combo3.Text&"')"
cnn.Execute(strsql11)
MsgBox"该项目已经添加成功!
",vbOKOnly,"提示"
Text2.Text=""
EndIf
Else
MsgBox"您输入的该项目已经存在于库中!
",vbOKOnly,"提示"
Text2.Text=""
EndIf
EndIf
EndSub
PrivateSubSSTab1_DblClick()
EndSub
PrivateSubText1_Change()
EndSub
PrivateSubText2_Change()
EndSub
设置工作岗位
编号:
Text1;名称:
Text2;添加:
Command1;删除:
Command2
DimcnnAsADODB.Connection
DimrsAsADODB.Recordset
PrivateSubForm_Load()
DimmypathAsString
Setcnn=NewADODB.Connection
Setrs=NewADODB.Recordset
mypath=App.Path&"/data"'获取当前路径
IfRight(mypath,1)<>"/"Thenmypath=mypath+"/"
cnn.Open"DataSource="&mypath&"db1.mdb"&";Provider=Microsoft.Jet.OLEDB.4.0"'连接并打开数据库
EndSub
(定义、连接数据库)
PrivateSubCommand1_Click()
IfText1.Text=""OrText2.Text=""Then
MsgBox"请先输入岗位或编号",vbOKOnly+vbExclamation,"提示"
Else
strsql="select*from岗位表where岗位编号='"&Text1.Text&"'and岗位名称='"&Text2.Text&"'"
Setrs=cnn.Execute(strsql)
Ifrs.EOF=TrueThen'该岗位暂时在库中不存在,可以入库
strsql1="insertinto岗位表values('"+Text1.Text+"','"+Text2.Text+"')"
cnn.Execute(strsql1)
MsgBox"该岗位已添加成功!
",vbOKOnly,"提示"
Text1.Text=""
Text2.Text=""
Else
MsgBox"您输入的该岗位或编号已经存在于库中!
",vbOKOnly,"提示"
Text1.Text=""
Text2.Text=""
EndIf
EndIf
EndSub
PrivateSubCommand2_Click()
IfText1.Text=""AndText2.Text=""Then
MsgBox"请先输入岗位或编号",vbOKOnly+vbExclamation,"提示"
Else
strsql="select*from岗位表where岗位编号='"&Text1.Text&"'or岗位名称='"&Text2.Text&"'"
Setrs=cnn.Execute(strsql)
Ifrs.EOF=TrueThen
MsgBox"该库中没有此岗位!
",vbOKOnly,"提示"
Text1.Text=""
Text2.Text=""
Else
strsql2="delete*from岗位表where岗位编号='"&Text1.Text&"'or岗位名称='"&Text2.Text&"'"
cnn.Execute(strsql2)
MsgBox"该岗位已删除!
",vbOKOnly,"提示"
Text1.Text=""
Text2.Text=""
EndIf
EndIf
EndSub
PrivateSubText1_Change()
EndSub
PrivateSubText2_Change()
EndSub
录入工作人员
姓名:
Text1;修改:
Command1;删除:
Command2
DimcnnAsADODB.Connection
DimrsAsADODB.Recordset
PrivateSubForm_Load()
DimmypathAsString
Setcnn=NewADODB.Connection
Setrs=NewADODB.Recordset
mypath=App.Path&"/data"'获取当前路径
IfRight(mypath,1)<>"/"Thenmypath=mypath+"/"
cnn.Open"DataSource="&mypath&"db1.mdb"&";Provider=Microsoft.Jet.OLEDB.4.0"'连接并打开数据库
strsql0="selectcount(*)from岗位表"
strsql10="select岗位名称from岗位表"
Setrs=cnn.Execute(strsql0)
Sum=Val(rs.Fields(0))+1
Setrs=cnn.Execute(strsql10)
Combo1.List(0)=""
Fori=1ToSum-1'为课程名称选项的值进行初始化处理
Combo1.List(i)=rs.Fields(0)
rs.MoveNext
Next
EndSub
(定义、连接数据库)
PrivateSubCommand2_Click()
IfText1.Text=""OrCombo1.Text=""Then
MsgBox"请先输入姓名和岗位!
",vbOKOnly+vbExclamation,"提示"
Else
strsql7="select*from工作人员表where姓名='"&Text1.Text&"'and岗位='"&Combo1.Text&"'"
Setrs=cnn.Execute(strsql7)
Ifrs.EOF=FalseThen'该岗位存在,可以进行删除
strsql6="delete*from工作人员表where姓名='"&Text1.Text&"'and岗位='"&Combo1.Text&"'"
cnn.Execute(strsql6)
MsgBox"删除成功!
",vbOKOnly,"提示"
Text1.Text=""
Else
MsgBox"此岗位不存在!
",vbOKOnly,"警告"
Text1.Text=""
EndIf
EndIf
EndSub
PrivateSubCommand1_Click()
IfText1.Text=""OrCombo1.Text=""Then
MsgBox"请先输入姓名和岗位",vbOKOnly+vbExclamation,"提示"
Else
strsql="select*from工作人员表where姓名='"&Text1.Text&"'"
Setrs=cnn.Execute(strsql)
Ifrs.EOF=TrueThen'该岗位没被您选择,可以入库
strsql3="insertinto工作人员表values('"+Text1.Text+"','"+Combo1.Text+"')"
cnn.Execute(strsql3)
MsgBox"修改成功!
",vbOKOnly,"提示"
Text1.Text=""
Else
strsq2="select*from工作人员表where姓名='"&Text1.Text&"'and'"+Combo1.Text+"'"
Setrs=cnn.Execute(strsq2)
Ifrs.EOF=TrueThen
MsgBox"您已经选过了此岗位!
",vbYesNoCancel+vbExclamation,"提示"
Else
strsql4="insertinto工作人员表values('"+Text1.Text+"','"+Combo1.Text+"')"
cnn.Execute(strsql4)
MsgBox"修改成功!
",vbOKOnly,"提示"
Text1.Text=""
EndIf
EndIf
EndIf
EndSub
PrivateSubText1_Change()
EndSub
姓名:
Text1;学号:
Text2;代表队:
Text3;确定:
Command1;删除:
Command2;取消:
Command3;
:
MSHFlexGrid1
DimcnnAsADODB.Connection
DimrsAsADODB.Recordset,rs1AsADODB.Recordset,rs2AsADODB.Recordset,rs3AsADODB.Recordset,rs4AsADODB.Recordset,rs5AsADODB.Recordset
PrivateSubForm_Load()
DimmypathAsString
Setcnn=NewADODB.Connection
Setrs=NewADODB.Recordset
mypath=App.Path&"/data"'获取当前路径
IfRight(mypath,1)<>"/"Thenmypath=mypath+"/"
cnn.Open"DataSource="&mypath&"db1.mdb"&";Provider=Microsoft.Jet.OLEDB.4.0"'连接并打开数据库
strsql1="selectcount(*)from运动项目名单"
strsql2="select项目名称from运动项目名单"
Setrs1=cnn.Execute(strsql1)
Setrs2=cnn.Execute(strsql2)
Fori=0Tors1.Fields(0)-1
Combo1.List(i)=rs2.Fields(0)
rs2.MoveNext
Next
EndSub
PrivateSubCommand1_Click()
IfText1.Text=""OrText2.Text=""Then
MsgBox"请先输入姓名和学号",vbOKOnly+vbExclamation,"提示"
Else
strsql="select*from运动员名单where姓名='"&Text1.Text&"'or学号='"&Text2.Text&"'"
Setrs=cnn.Execute(strsql)
Ifrs.EOF=TrueThen'该运动员不存在,可以入库
strsql1="insertinto运动员名单values('"+Text2.Text+"','"&Text1.Text&"','"+Combo2.Text+"','"+Text4.Text+"')"
strsql3="insertinto运动员参赛情况values('"+Text1.Text+"','"+Combo1.Text+"')"
cnn.Execute(strsql1)
cnn.Execute(strsql3)
strsql12
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 运动会 成绩管理系统 主要 代码