教务管理系统应用小程序开发报告.docVIP

教务管理系统应用小程序开发报告一 需求分析教务管理系统要实现的功能：1. 能够查询学生的课程表2. 能够查询教师的课程表3. 以管理员权限对数据库进行修改和维护二 数据库设计1.E-R图2.数据字典表：名称：student 别名：学生表包含的列：学生学号（主键）+学生姓名名称：course 别名：课程表包含的列：课程号（主键）+课程名名称：teacher 别名：教师表包含的列：教师工号（主键）+教师姓名名称：classroom 别名：教室表包含的列：教室编号（主键）+教室名 名称：coursetime 别名：时间表包含的列：上课时间编号（主键）+具体时间名称：cs 别名：学生选课表包含的列：课程编号+学生学号名称：ccr 别名：课程-教室表包含的列：课程编号+教室编号 名称：ct 别名：教师任课表包含的列：课程编号+教师编号 名称：cct 别名：课程上课时间表包含的列：上课时间编号+具体时间列：名称：sno 类型：字符 长度：10有关的表：学生表，学生选课表 说明：本系统的学生学号名称：sname 类型：字符 长度：20有关的表：学生表 说明：本系统的学生姓名名称：cno 类型：字符 长度：10有关的表：学生表，课程表，教室表，教师表，时间表，学生选课表，课程-教室表，教师任课表，课程上课时间表 说明：本系统的课程编号 名称：cname 类型：字符 长度：20有关的表：课程表 说明：本系统的课程名 名称：tno 类型：字符 长度：10有关的表：教师表，教师任课表 说明：本系统的教师工号名称：tname 类型：字符 长度：20有关的表：教师表 说明：本系统的教师姓名名称：crno 类型：字符 长度：10有关的表：教室表，课程-教室表 说明：本系统的教室编号名称：crname 类型：字符 长度：20有关的表：教室表 说明：本系统的教室名名称：ctno 类型：字符 长度：10有关的表：时间表，课程上课时间表 说明：本系统的时间编号名称：ctname 类型：字符 长度：20有关的表：时间表 说明：本系统的具体时间三源码 查询功能： with adoquery1 do begin close; sql.Clear; sql.Add(select student.*,Course.Cname,teacher.tname,classroom.crname,coursetime.ctname); sql.Add(from Student,CS,Course,ct,teacher,ccr,classroom,cct,coursetime); sql.Add(where student.sno=cs.sno and o=o); sql.Add(and teacher.tno=ct.tno and o=o); sql.Add(and classroom.crno=ccr.crno and o=o); sql.Add(and o=o and cct.ctno=coursetime.ctno); sql.Add(and student.sname=:A); parameters.ParamByName(A).Value:=edit1.Text; open;end;插入功能：with adoquery1 do begin try close; sql.Clear; sql.Add(insert into stu(sno,sname,sage,sex); sql.Add(values(:A,:B,:C,:D); parameters.ParamByName(A).Value:=strtoint(edit1.Text); parameters.ParamByName(B).Value:=edit2.Text; parameters.ParamByName(C).Value:=strtoint(edit3.Text); parameters.ParamByName(D).Value:=edit4.Text; execsql; except on ex:EConvertError do MessageDlg(请仔细检查输入的数据!,mtWarning,mbYes,0); end; Edit1.Text:=; Edit2.Text:=; Edit3.Text:=; Edit4.Text:=;end;删除功能：with adoquery1 do begin try close; sql.Clear; sql.Add(delete from stu); sql.Add(where stu.sno=:A); parameters.ParamByName(A).Value:=strtoint(edit5.Text); execsql; except on ex:EConvertError do MessageDlg(请仔细检查输入的数据!,mtWarning,mbYes,0); end; Edit5.Text:=;end;代码差不多，只是有点小部分有改动。四小结这