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

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

一．需求分析

教务管理系统要实现的功能：

1.能够查询学生的课程表

2.能够查询教师的课程表

3.以管理员权限对数据库进行修改和维护

二．数据库设计

图

2.数据字典

表：

名称：student 别名：学生表

包含的列：学生学号（主键）+学生姓名

名称：course 别名：课程表

包含的列：课程号（主键）+课程名

名称：teacher 别名：教师表

包含的列：教师工号（主键）+教师姓名

名称：classroom 别名：教室表

包含的列：教室编号（主键）+教室名

名称：coursetime 别名：时间表

包含的列：上课时间编号（主键）+具体时间

列：

三．源码

查询功能：

with adoquery1 do

begin

close;

;

('select student.*,,,,');

('from Student,CS,Course,ct,teacher,ccr,classroom,cct,coursetime'); ('where = and =');

('and = and =');

('and = and =');

('and = and =');

('and =:A');

('A').Value:=;

open;

end;

插入功能：

with adoquery1 do

begin

try

close;

;

('insert into stu(sno,sname,sage,sex)');

('values(:A,:B,:C,:D)');

('A').Value:=strtoint;

('B').Value:=;

('C').Value:=strtoint;

('D').Value:=;

execsql;

except

on ex:EConvertError do

MessageDlg('请仔细检查输入的数据!',mtWarning,[mbYes],0);

end;

:='';

:='';

:='';

:='';

end;

删除功能：

with adoquery1 do

begin

try

close;

;

('delete from stu');

('where =:A');

('A').Value:=strtoint;

execsql;

except

on ex:EConvertError do

MessageDlg('请仔细检查输入的数据!',mtWarning,[mbYes],0);

end;

:='';

end;

代码差不多，只是有点小部分有改动。

四．小结

这次的小程序是我和队友叶宗会用deiphi7写的，面对新的工具，新的语言，一开始害怕过，不过认真看了几天书后明白delphi的语法其实和C++和JAVA的差不多，了解一定语法后就可以去学着怎么用那些组件了，了解后程序很快就做好了！