运动会成绩管理系统主要代码Word下载.docx
- 文档编号:1477334
- 上传时间:2023-04-30
- 格式:DOCX
- 页数:94
- 大小:1.01MB
运动会成绩管理系统主要代码Word下载.docx
《运动会成绩管理系统主要代码Word下载.docx》由会员分享,可在线阅读,更多相关《运动会成绩管理系统主要代码Word下载.docx(94页珍藏版)》请在冰点文库上搜索。
IfNotrs.EOFThen'
输入的登录信息正确,则进入系统
主界面.Show
Unload登陆界面
Else
MsgBox"
您输入的登录信息有误,请重新输入!
vbOKOnly+vbExclamation,"
提示"
Text1.Text="
Text2.Text="
Text1.SetFocus
EndIf
Else
您输入的帐号或密码有误!
警告"
退出
PrivateSubCommand2_Click()
i=MsgBox("
确实要退出系统吗?
vbYesNo+vbExclamation,"
系统警告"
)
Ifi=vbYesThen
End
欢迎继续使用!
vbOKOnly,"
系统提示"
主界面
PrivateSubmnuedititem_Click(IndexAsInteger)
项目定义.Show1
PrivateSubmnusearchitem_Click(IndexAsInteger)
查询输出.SSTab1.Tab=1
查询输出.Show1
(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
(Dim定义、连接数据库)
PrivateSubCombo1_Change()
PrivateSubCombo2_Click()
strsql3="
selectcount(*)from"
Combo2.Text&
strsql4="
select项目名称from"
Setrs1=cnn.Execute(strsql3)
Setrs2=cnn.Execute(strsql4)
List1.List(i)=rs2.Fields(0)
PrivateSubCombo3_Change()
IfText2.Text="
请先输入项目或编号"
select*from运动项目名单where项目名称='
Ifrs.EOF=TrueThen
该库中没有此项目!
strsql2="
delete*from运动项目名单where项目名称='
cnn.Execute(strsql2)
该项目已删除!
PrivateSubCommand3_Click()
IfText1.Text="
请先输入项目"
strsql11="
insertinto"
values('
)"
cnn.Execute(strsql11)
strsql3="
strsql4="
Setrs1=cnn.Execute(strsql3)
Setrs2=cnn.Execute(strsql4)
Fori=0Tors1.Fields(0)-1
Next
PrivateSubCommand4_Click()
strsql12="
delete*from"
where项目名称='
List1.Text&
cnn.Execute(strsql12)
List1.RemoveItemList1.ListIndex
Text1.Text="
Ifrs.EOF=TrueThen'
该项目暂时在库中不存在,可以入库
IfCombo1.Text="
全能项目"
strsql1="
insertinto运动项目名单(项目名称,项目类型)values('
+Text2.Text+"
'
+Combo1.Text+"
createtable"
(项目名称char(20))"
成绩(姓名char(20),项目名称char(20),成绩char(10))"
cnn.Execute(strsql1)
cnn.Execute(strsql3)
该项目已经添加成功!
insertinto运动项目名单values('
Combo3.Text&
您输入的该项目已经存在于库中!
PrivateSubSSTab1_DblClick()
PrivateSubText1_Change()
PrivateSubText2_Change()
设置工作岗位
编号:
名称:
Command1;
删除:
Command2
DimrsAsADODB.Recordset
(定义、连接数据库)
OrText2.Text="
请先输入岗位或编号"
select*from岗位表where岗位编号='
and岗位名称='
该岗位暂时在库中不存在,可以入库
insertinto岗位表values('
+Text1.Text+"
该岗位已添加成功!
您输入的该岗位或编号已经存在于库中!
AndText2.Text="
or岗位名称='
该库中没有此岗位!
delete*from岗位表where岗位编号='
该岗位已删除!
录入工作人员
姓名:
修改:
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
OrCombo1.Text="
请先输入姓名和岗位!
strsql7="
select*from工作人员表where姓名='
and岗位='
Combo1.Text&
Setrs=cnn.Execute(strsql7)
Ifrs.EOF=FalseThen'
该岗位存在,可以进行删除
strsql6="
delete*from工作人员表where姓名='
cnn.Execute(strsql6)
删除成功!
此岗位不存在!
请先输入姓名和岗位"
该岗位没被您选择,可以入库
insertinto工作人员表values('
修改成功!
strsq2="
and'
Setrs=cnn.Execute(strsq2)
您已经选过了此岗位!
vbYesNoCancel+vbExclamation,"
cnn.Execute(strsql4)
Text1;
学号:
Text2;
代表队:
Text3;
确定:
取消:
Command3;
MSHFlexGrid1
DimrsAsADODB.Recordset,rs1AsADODB.Recordset,rs2AsADODB.Recordset,rs3AsADODB.Recordset,rs4AsADODB.Recordset,rs5AsADODB.Recordset
selectcount(*)from运动项目名单"
select项目名称from运动项目名单"
Combo1.List(i)=rs2.Fields(0)
请先输入姓名和学号"
select*from运动员名单where姓名='
or学号='
该运动员不存在,可以入库
insertinto运动员名单values('
+Combo2.Text+"
+Text4.Text+"
insertinto运动员参赛情况values('
strsql12
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 运动会 成绩管理系统 主要 代码