简单学生校运会成绩管理系统.doc

SQL数据库:use mastercreate database pkxgouse pkxcreate table bjxxb( /* 班级信息表 */bjbhchar(6) not null PRIMARY KEY , /*班级编号*/bjmcvarchar(64) not null, /*班级名称*/bjyxvarchar(64) not null, /*院系*/bjnjdatetime not null,/*年级*/bjbzchar(10),/* 班长 */bjxwchar(10),/* 学习委员 */)create table xsxxb( /* 选手信息表 */xsbhchar(10) not null PRIMARY KEY , /*选手编号*/bjbhchar(6) not null, /*班级编号*/xmvarchar(64) not null, /*姓名*/xbchar(2) not null,/*性别*/csrqdatetime,/*生日*/sfzhchar(20),/* 身份证号 */rxrqdatetime,/* 入学日期 */)create table kcxxb ( /* 项目信息表 */kcbhchar(10) not null PRIMARY KEY , /*项目编号*/kcmcvarchar(64) not null, /*项目名称*/kcxffloat, /*项目学分*/rklschar(10), /*任课老师*/lsyxvarchar(64), /*任课老师院系*/)create table cjdjb ( /* 成绩登记表 */xsbhchar(10) not null, /*学生编号*/kcbhchar(10) not null, /*项目编号*/kccjfloat,/*项目成绩*/bkcjfloat,/*补赛成绩*/)create index cjdjidx01 on cjdjb ( xsbh)insert into bjxxb values(090101,D09通信班,计算机工程系,2009-09-03,09010108,09010117)insert into bjxxb values(090102,D09平面设计（1）班,计算机工程系,2009-09-03,09010208,09010217)insert into bjxxb values(090103,D09平面设计（2）班,计算机工程系,2009-09-03,09010208,09010217)insert into xsxxb values(09010108,090101,张班长,男,1995-9-12009-9-3)insert into xsxxb values(09010117,090101,李学委,女,1996-7-32009-9-3)insert into xsxxb values(09010208,090101,何班长,男,1995-9-12009-9-3)insert into xsxxb values(09010217,090101,王学委,女,1996-7-32009-9-3)insert into xsxxb values(09010308,090101,刘班长,男,1995-9-12009-9-3)insert into xsxxb values(09010317,090101,钟学委,女,1996-7-32009-9-3)insert into kcxxb values(010001,跳远,3.5,麦三,计算机工程系)insert into kcxxb values(010002,跳高,4,何四,计算机工程系)insert into kcxxb values(010003,长跑,2.5,蒋五,机电信息系)insert into cjdjb values(09010108,010001,87,0)insert into cjdjb values(09010117,010001,95,0)insert into cjdjb values(09010208,010002,87,0)insert into cjdjb values(09010217,010002,95,0)insert into cjdjb values(09010308,010003,87,0)insert into cjdjb values(09010317,010003,95,0)use mastergoindex.html学生校运会成绩管理系统 欢迎您使用简陋版学生校运会成绩管理系统！ 请选择以下功能： 输入选手项目信息 显示所有选手项目记录 CopyRight 2011pkx-版权所有，盗版必究！   input.asp输入选手项目信息欢迎进入选手项目管理 选手编号: option value=name=xsbh 项目编号:option value=name=kcbh 项目成绩: %if request.form(xsbh) thenset mycmd=server.createobject(ADODB.Command)set mycmd.activeconnection=mandtype=adCMDTextmycmd.execute()mandtext=insert into cjdjb values ( & request.form(xsbh) & ,_& request.form(kcbh) & , & request.form(kccj)& ,0)mycmd.execute()end ifconn.close% 主页 CopyRight 2011pkx-版权所有，盗版必究！   %if request.form(xsbh) = then response.writealert(数据无效，请重新输入选手项目信息！); response.endelse r