曹力的毕业设计论文1-无忧无虑毕设网

无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 本文配套程序下载地址 ： 无忧无虑毕设网 ()-大学生毕业设计站 ,免费毕业设计论文 ,无忧无虑毕设网 大学生毕业设计 ,出售各类毕业设计源码 ,论文 ,程序源码 ,网站源码 ,免费视频教程 ,我们将竭诚为您服务！ 基于 C/S 模式的高校 学生管理子系统 及教务管理子系统 （学校管理系统中的两个子系统） 题 目：基于 C/S模式的高校学生管理子系统及教务管理子系统 设计者：曹 力 平 台： Delphi 6.0 数据库： Delphi自身带的 interbase 6.0、 SQL Explorer 学 号： 班 级： 02 级春班 学 校：益阳广播电视大学 专 业：计算机科学与技术（开放本科） 日 期： 2004年 3月 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 目 录： 第一章 引言 （页码 3） 本课题的研究意义；本论文的目的、内容及作者的主要贡献； 第二章 研究现状及设计目标： (页码 3 页码 4) 相近研究课题的特点及优缺点分析；现行研究存在的问题及解决方法；本课题要达到的设计目标； 第三章 实际中要解决的几个问题： (页码 4 页码 11) 研究设计中要解决的问题；具体实现中采用的关键技术及复杂性分析； 第四章 系统结构与模型：（页码 11-页码 12） 设计实现的策略和算法描述；编程模型及数据结构； 第五章 系统实现技术：（页码 12） 分模块地描述系统各部分的实现方法；程序流程； 第六章 性能测试与分析：（页码 13） 测试实例（测试集）的研究与选择；测试环境与测试条件；实例测试（表格与曲线）；性能分析； 第七章 结束语及参考文献：（页码 13） 摘 要（ Abstract） ： 随着信息技术的发展，高校学生管理工作以及教务管理工作正在以校园网为平台、采用计算机和数据库等现代化技术不断提高管理水平。研究基于 /的高校学生管理子系统的学籍管理、学生相关管理、学生信息查询 和统计等功能以及基于 C/S的高校教务科管理子系统的教师申请课程、登记成绩；教务科通过申请新课；学生查询成绩无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 等功能。 关 键 词 (keywords)： /； interbase； delphi 6.0；学生管理；教务管理；数据库； 第一章 引 言： 本课题研究的意义： / (客户机 /服务器 )，简称 /。 /模式是 20 世纪 80 年代出现并至今作为主流应用的一种开发模式，所谓的 模式实际上是一种“逻辑”概念，即将整个系统在逻辑上划分成前端客户进程和后台服务器进程，两者通过 网络连接。前端的客户应用程序主要是显示界面、与用户进行交互，而后台的服务器进程主要是负责进行数据处理，将处理后的结果返回给用户，而且服务器所进行的工作对客户应用程序来说是完全透明的，在局域网络上传输的是语句和处理后的结果。这种模式的优点主要体现在以下几点： (1)交互性好，速度快，适合于系统中大量数据的输入输出操作； (2)能够提供数据和服务的无缝集成。通过 结构的 (数据库管理系统 ),易于实现一个系统中原有数据与应用程序的集成； (3)良好的开放性和易扩充性，客户端及其功能的添加、删除和更新都 不会对整个系统产生影响。 本论文研究的目的：在毕业设计中，已经实现了一个基于 C/S模式的高校学生信息管理子系统及教务管理子系统，所以在本论文中详细阐明了两个子系统各自所实现的各项功能，意在说明在当今信息社会中，高校的管理工作应向计算机系统化转变，才能省去大量的手工劳动，提高工作效率。 第二章 研究现状及设计目标： 相近研究课题的特点及优缺点分析：据我在实际生活及 internet网络上观察，如今大部分学校的学生信息管理以及教务管理都是由教务科的干事手工操作，不仅费时费力，还不利于资料的处理增删，查询等也很麻烦。此种作 法工作效率低，易出错，又浪费了人力资源。就拿我来说，在益阳教育学院就是在教务科工作，绝大多数的学生的资料管理以及教务成绩无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 管理查询都是由我手工完成，不是由计算机来处理操作。很久以来我就想开发一套教学管理自动化软件，这样才能做到事半功倍，利于学校的工作流程。这次毕业设计的研究课题的特点是我在教务科的日常工作中积累不少经验而做成的，并不是闭门造车，能够解决实际工作中产生的各类问题。这两个子系统就是按照我平时在工作中的流程设计而成的。就拿学生信息管理子系统来说，从一个学生的基本资料输入进数据库 -他（她）的奖励经历 -他（她）的处罚经历 -他（她）的转学或复学、休学等情况 -学生的个人信息查询修改等，整个过程可以说是一气呵成，联系紧密，如果一个没有从事过此类工作的同学是不可能把工作经验融入到系统设计中并做出整个系统来的。当然做为一个开放教育本科的学生，接受教育培训的机会不是很多，大部分靠自我摸索，所以我认为这个系统肯定存在着不足之处，比如说在教务管理子系统中有些功能就只能等到期末时才能看到最终效果，这肯定是不对的，有待于以后改进。 本课题要达到的设计目标：能够实现学生信息管理子系统的大部分管理功能（增加新生；学生的转 学、复学、休学；奖励情况；处罚情况；学生个人信息查询修改）；能够实现教务管理子系统的大部分管理功能（本子系统通过密码确认后，可进入不同管理页面，分为教务科，教师，学生三个不同管理页面，其中教务科管理页面可以通过教师提交的申请新课、申请删除旧课、申请修改旧课资料的要求，并分配教室和上课时间等课程资源，能够实现选课结果查询管理，以及期末成绩单的管理；教师管理页面可以申请增开新的课程、删除旧的课程、修改已有的课程信息等；同时在界面初始化时，可列出可选的课程列表，单击课程列表时，显示相应课程的学生名单和成绩单输入表 来；学生管理页面可以进行选课操作、查询自己所选课程的成绩及这门课程的最高分、平均分、最低分等成绩相关信息。） 第三章 实际中要解决的几个问题： 教学管理子系统要解决的是 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 1、是数据库设计问题，因后台数据库是 Delphi 6.0自身所携带的 interbase 6.0，前台的软件设计平台与后台数据库的联结相对而言比较紧密，在设计中我先构思出两个子系统的数据流程图，再根据图构思出大概的实体 -关系模型。 第一步：先构思它的数据流程图： 第二步：根据上列的数据流程图列出数据库概念结构设计，这是数据库逻辑结构设计的基础。 选 课 讲 课 学生成绩 课程增 加申请 课程基本 信 息 课程基本信息修改申 请 课程删 除申请 教务科批准 课程设置 信 息 每 学 期时 间 和教 室 安排 学生课表 选课结果 课程学 生名单 各课期末成绩 成 绩 成绩单 课程 清单 学生选课 教 师 学 生 N:1 N:1 M:nNnNMMNNNNNnn 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 课程成绩 第三步：便可以构造后台数据库的数据表了：根据上面所设计出来的 E-R图，可以知道要有3个基本信息表：教师信息、学生信息、课程信息。其中，教师信息和学生信息在实际系统中是从其它信息管理系统的数据表中直接读取。学生的选课信息需要用 1个表来单独保存。由于每学期期末前都要进行选课。因此选课结束后要将这个表的内容及时保存到成绩单数据表中。同时如上所述，使用本子系统的不仅是教务科的管理干事和教师，还要每个学生都能登录到选课系统进行课程的选择及成绩的查询。因此，需要对不同的登录人员进行密码的认证。所以需要八个数据表：用户密码表、成绩信息表、教师个人信息表、学生个人信息表、课程信息表 、课程状态代码表、选课结果信息表、计数信息表等八个数据表。在计数信息表中， F代表成绩记录编号； K代表课程编号； X代表选课编号；在课程状态代码表中， 0代表增加新课； 1 代表申请删除旧课； 2代表申请修改课程信息； 3 代表可选（激活）； 4 代表等待课程安排； 5代表课程已被删除； 6代表教务科拒绝老师的申请； 2、是前台设计平台，它是对后台数据库的数据表进行操作（下为教师管理界面） 课 程 成绩单 1:N 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： （图 1） 学生管理界面：分为选课操作子界面及查询成绩子界面。 （图 2） 教务管理界面：分成审批设置、分配课程资源、查询管理选课结果、期末成 绩表四个子界面。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： （图 3） 上面三个管理界面右边的是后台数据库，通过 Delphi 6.0的控件 Database、 Table、 Query、DataSource 实现与后台数据库的数据表的连接，通过界面控制实现对数据库中的数据表的增、删、修改等操作来达到管理的目的。 学生信息管理子系统要解决的也是 1、后台数据库 :先要构思出整个的数据流程图，再根据数据流程图来进行 E-R图的设计，在此基础上最后进行实质性的工作：数据库中数据表的字段的设计，才能在前台软件设计中依照 Delphi 6.0中的数据表控件 Database、 Table、 Query、DataSource对后台数据库中的数据表进行操作，最终实现功能。 数据流程图如下： 个人信息 入取 名单 学生个 人信息 教务处 转系、休学、复学、退学、毕业 奖学金评定 学 籍 变更记录 奖励 记录 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 根据数据流程图，可以知道学生信息管理子系统所需的数据项和数据结构： 学生：学号、姓名、性别、生日、籍贯、所在院系、所在班级 处罚记录：记录号、级别、处罚对象、记录时间、详细描述、是否生效 奖励记录：记录号、级别，处罚对象、记录时间、详细描述 学籍变更记录：记录号、 变更情况、记录对象、记录时间、详细描述 而外部数据支持：班级：班级编号、班级名称、所属院系 院系：代码、名称 E-R(实体 -关系模型 )：是数据库结构设计常用的方法。 院系 班级 1： N 1:N 1:N 1:N 学生 1： N 1:N 1:N 学籍变更记录 奖励记录 处分记录 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 根据上列的 E-R图，可以基本设计出数据库中的十个数据表： 学生个人信息表、学籍变更信息表、奖励信息表、处罚记录信息表、院系信息表、班级信息表、学籍变动代码表、奖励等级代码表、处罚等级代码表、计数保存表。在这十个数据表中 学籍变更代码表中： 0 代表转系、 1代表休学、 2代 表复学、 3代表退学、 4代表毕业。 奖励级别代码表中： 0 代表校特等奖学金、 1代表校一等奖奖学金、 2代表校二等奖奖学金、3代表校三等奖奖学金、 4代表系一等奖奖学金、 5代表系二等奖奖学金、 6代表系三等奖奖学金。处罚级别代码中： 0代表警告、 1代表严重警告、 2代表记过、 3代表记大过、 4代表 开除。 2、前台管理界面：新生入数据库的子界面，可以增加新生、删除学生记录、修改学生记录。 人事科 招聘 新教师 分配教师号 教师信 息数据 岗位调整 人事变 动记录 教师辞职 个人信息查询 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 根据数据流程图，列出数据项和数据结构： 员工信息： 人事变动： 部门设 置： E-R(实体图 )：是数据逻辑结构设计的基础。 再根据实体图，设计出数据库的逻辑结构设计： 员工个人信息表、人事变动记录表、受教育程序表、职务代码表、人事变动代码表、计数器表、部门信息表等七个表。 考勤管理子系统： 数据流图： 请假、值班、出差 请假、 值班、出差 人事变动记录 教 师 系 别 N:1 N:1 1:1 变动时间 教师 记录出勤 时 间 教师 出勤 记录 人事科审批 考勤员 请假、值班、出差 记录 上 下 班时 间 安排 月 度 员工 考 勤统计表 得出各种统计数据表来 考勤科管理人员 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 根据数据流图：知道子系统需要以下数据项和数据 结构： 出勤记录：请假记录：加班记录：出差记录：月度考勤统计：人员信息：部门设置： 得出 E-R图来： 根据 E-R图：知道系统需要以下五个数据表： 出勤记录表；出差记录表；加班记录表；请假记录表；月度考勤统计表；其中计数器表中的N为班次安排编号， A为出勤记录编号， O为加班记录编号， L为请假记录编号， E为出差记录编号， S为考勤统计编号； 第五章 系统实现技术： 分模块地描述系统各部分的实现方法： 主界面： unit student； 教 师 出勤记录 N:1 出差记录 N:1 月度考勤 统 计 N:1 请假记录 N:1 加班记录 N:1 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, DB, DBTables, StdCtrls, Menus； type TForm2 = class(TForm) MainMenu1: TMainMenu； N1: TMenuItem； N2: TMenuItem； N3: TMenuItem； N4: TMenuItem； N7: TMenuItem； N5: TMenuItem； N8: TMenuItem； N6: TMenuItem； N9: TMenuItem； GroupBox1: TGroupBox； Label2: TLabel； Edit1: TEdit； StatusBar1: TStatusBar； Label1: TLabel； N10: TMenuItem； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： N11: TMenuItem； N12: TMenuItem； N13: TMenuItem； Label3: TLabel； Label4: TLabel； procedure N2Click(Sender: TObject)； procedure N3Click(Sender: TObject)； procedure N4Click(Sender: TObject)； procedure N8Click(Sender: TObject)； procedure N9Click(Sender: TObject)； procedure Edit1Change(Sender: TObject)； procedure N10Click(Sender: TObject)； procedure N11Click(Sender: TObject)； procedure N7Click(Sender: TObject)； procedure N13Click(Sender: TObject)； procedure N12Click(Sender: TObject)； procedure FormCreate(Sender: TObject)； private Private declarations public Public declarations 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： end； var Form2: TForm2； info:string； implementation uses teach, stinfo, teacher, use, copyrights, teacherlogin, studentlogin, jiaowuke, jiaowu, studentsys, studentsystem, jiaohelp, renhelp, kaoqi, kaohelp； $R *.dfm procedure TForm2.N2Click(Sender: TObject)； begin if form2.Edit1.Text = then showmessage(请先输入学校名称 ) else begin form2.Hide ； form7.show； end； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： end； procedure TForm2.N3Click(Sender: TObject)； begin if form2.Edit1.Text = then showmessage(请先输入学校名称 ) else begin form2.Hide ； form3.show； end； end； procedure TForm2.N4Click(Sender: TObject)； begin if form2.Edit1.Text = then showmessage(请先输入学校名称 ) else begin form2.hide； form4.show； end； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： end； procedure TForm2.N8Click(Sender: TObject)； begin if form2.Edit1.Text = then showmessage(请先输入学校名称 ) else form5.show； end； procedure TForm2.N9Click(Sender: TObject)； begin if form2.Edit1.Text = then showmessage(请先输入学校名称 ) else form6.show； end； procedure TForm2.Edit1Change(Sender: TObject)； begin info:=form2.Edit1.Text ； form2.Caption :=info+ 学校管理系 统 ； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： form7.Caption :=info+学校学生个人情况管理系统 ； form3.caption :=info+学校教学管理系统进入页面 ； form4.Caption :=info+学校教师人事管理系统 ； form6.Caption:=此管理应用系统版权说明 ； form5.Caption:=info+学校学生个人情况系统使用帮助 ； form8.caption:=info+教师课程管理应用系统登录 ； form9.caption:=info+学生选课管理应用系统登录 ； form10.caption:=info+教务科课程调度应用系统登录 ； form11.caption:=info+教务科课程调度应用系统 ； form12.caption:=info+教师课程管理应用系统 ； form13.caption:=info+学生选课管理应用系统 ； form15.caption:=info+学校教务科管理系统使用帮助 ； form16.caption:=info+学校 人事管理系统使用帮助 ； form22.caption:=info+学校教师考勤管理系统 ； form23.caption:=info+学校教师考勤管理系统使用帮助 ； end； procedure TForm2.N10Click(Sender: TObject)； begin if form2.Edit1.Text = then showmessage(请先输入学校名称 ) else 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： form15.show； end； procedure TForm2.N11Click(Sender: TObject)； begin if form2.Edit1.Text = then showmessage(请先输入学校名称 ) else form16.show； end； procedure TForm2.N7Click(Sender: TObject)； begin if form2.Edit1.Text = then showmessage(请先输入学校名称 ) else form22.show； end； procedure TForm2.N13Click(Sender: TObject)； begin 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： if form2.Edit1.Text = then showmessage(请先输入学校名称 ) else form23.show； end； procedure TForm2.N12Click(Sender: TObject)； begin close； end； procedure TForm2.FormCreate(Sender: TObject)； begin end； end. 1. 学生学籍管理子系统：进入学生学籍信管理系统之后，就可以出现一个界面： 学生情况变动表中提交模块： if T_stud_info_1.RecordCount 0 then /判断输入的学号是否存在 begin T_counter_c.Open； /如果存在，开始追加记录 counter:=T_counter)cCOUNTER_VALUE； /获取记录值 Inc(counter)； /增加记录值 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： T_counter_c.Edit； /编缉记录值 T_counter_cCOUNTER_VALUE:=counter；/写入增加记录值到学籍变动表 T_counter_c.Post； /提交 T_counter_c.Open； /打开学籍变动表 学籍管理子系统的源代码如下： unit stinfo； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, ComCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask, Buttons； type TForm7 = class(TForm) PageControl1: TPageControl； TabSheet1: TTabSheet； TabSheet2: TTabSheet； TabSheet3: TTabSheet； TabSheet4: TTabSheet； TabSheet5: TTabSheet； Database1: TDatabase； T_student: TTable； DS_student: TDataSource； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： DBGrid1: TDBGrid； DBNavigator1: TDBNavigator； Label1: TLabel； T_stud_info_1: TTable； DS_stud_info_1: TDataSource； DS_class_info_1: TDataSource； DS_depart_info_1: TDataSource； T_class_info_1: TTable； T_depart_info_1: TTable； T_counter_c: TTable； T_change: TTable； i_stud_id_1: TMaskEdit； GroupBox1: TGroupBox； Label2: TLabel； Label3: TLabel； Label4: TLabel； DBText1: TDBText； DBText2: TDBText； DBText3: TDBText； i_change: TRadioGroup； i_descrip_1: TMemo； Label5: TLabel； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： Button1: TButton； Button2: TButton； SpeedButton2: TSpeedButton； Label6: TLabel； i_stud_id_4: TMaskEdit； Label7: TLabel； i_stud_id_2: TMaskEdit； GroupBox2: TGroupBox； Label8: TLabel； Label9: TLabel； Label10: TLabel； DBText4: TDBText； DBText5: TDBText； DBText6: TDBText； i_reward_level: TRadioGroup； Label11: TLabel； i_descrip_2: TMemo； Button3: TButton； Button4: TButton； Label12: TLabel； i_stud_id_3: TMaskEdit； GroupBox3: TGroupBox； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： Label13: TLabel； Label14: TLabel； Label15: TLabel； DBText7: TDBText； DBText8: TDBText； DBText9: TDBText； i_punish_level: TRadioGroup； Label16: TLabel； i_descrip_3: TMemo； Button5: TButton； Button6: TButton； T_counter_r: TTable； T_counter_p: TTable； T_punish: TTable； T_reward: TTable； T_stud_info_2: TTable； DS_stud_info_2: TDataSource； T_class_info_2: TTable； DS_class_info_2: TDataSource； T_depart_info_2: TTable； DS_depart_info_2: TDataSource； T_stud_info_3: TTable； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： DS_stud_info_3: TDataSource； DS_class_info_3: TDataSource； DS_depart_info_3: TDataSource； T_class_info_3: TTable； T_depart_info_3: TTable； GroupBox4: TGroupBox； Label17: TLabel； Label18: TLabel； DBRadioGroup1: TDBRadioGroup； DBEdit1: TDBEdit； Label19: TLabel； Label20: TLabel； DBEdit2: TDBEdit； DBEdit3: TDBEdit； Label21: TLabel； Label22: TLabel； DBLookupComboBox1: TDBLookupComboBox； DBLookupComboBox2: TDBLookupComboBox； Button7: TButton； Button8: TButton； Label23: TLabel； DBGrid2: TDBGrid； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： Label24: TLabel； DBGrid3: TDBGrid； Label25: TLabel； DBGrid4: TDBGrid； GroupBox5: TGroupBox； GroupBox6: TGroupBox； GroupBox7: TGroupBox； Label26: TLabel； DBLookupComboBox3: TDBLookupComboBox； Label27: TLabel； DBMemo1: TDBMemo； Button9: TButton； Button10: TButton； Label28: TLabel； DBLookupComboBox4: TDBLookupComboBox； Label29: TLabel； DBMemo2: TDBMemo； Button11: TButton； Button12: TButton； Label30: TLabel； DBLookupComboBox5: TDBLookupComboBox； Label31: TLabel； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： DBRadioGroup2: TDBRadioGroup； DBMemo3: TDBMemo； Button13: TButton； Button14: TButton； T_stud_info_4: TTable； DS_stud_info_4: TDataSource； T_class_info_4: TTable； DS_class_info_4: TDataSource； T_depart_info_4: TTable； DS_depart_info_4: TDataSource； T_change_4: TTable； DS_change_4: TDataSource； T_change_code_4: TTable； DS_change_code_4: TDataSource； T_reward_4: TTable； DS_reward_4: TDataSource； T_reward_level_4: TTable； DS_reward_level_4: TDataSource； T_punish_4: TTable； DS_punish_4: TDataSource； T_punish_level_4: TTable； DS_punish_level_4: TDataSource； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： SpeedButton3: TSpeedButton； StatusBar1: TStatusBar； procedure FormCreate(Sender: TObject)； procedure i_stud_id_1Change(Sender: TObject)； procedure Button1Click(Sender: TObject)； procedure Button2Click(Sender: TObject)； procedure SpeedButton2Click(Sender: TObject)； procedure SpeedButton1Click(Sender: TObject)； procedure Button5Click(Sender: TObject)； procedure Button6Click(Sender: TObject)； procedure Button3Click(Sender: TObject)； procedure Button4Click(Sender: TObject)； procedure i_stud_id_2Change(Sender: TObject)； procedure i_stud_id_3Change(Sender: TObject)； procedure i_stud_id_4Change(Sender: TObject)； procedure Button7Click(Sender: TObject)； procedure Button8Click(Sender: TObject)； procedure Button9Click(Sender: TObject)； procedure Button10Click(Sender: TObject)； procedure Button11Click(Sender: TObject)； procedure Button12Click(Sender: TObject)； procedure Button13Click(Sender: TObject)； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： procedure Button14Click(Sender: TObject)； private Private declarations public Public declarations end； var Form7: TForm7； implementation uses student, ipthelp； $R *.dfm procedure TForm7.FormCreate(Sender: TObject)； begin T_student.Open ； DBGrid1.Columns 0.Width :=64； DBGrid1.Columns 1.Width :=64； DBGrid1.Columns 2.Width :=64； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： DBGrid1.Columns 3.Width :=64； DBGrid1.Columns 4.Width :=64； DBGrid1.Columns 5.Width :=64； DBGrid1.Columns 6.Width :=100； end； procedure TForm7.i_stud_id_1Change(Sender: TObject)； begin T_stud_info_1.Filter :=ID=+i_stud_id_1.Text+； T_stud_info_1.Filtered :=true； T_stud_info_1.Open ； T_class_info_1.Open； T_depart_info_1.Open； end； procedure TForm7.Button1Click(Sender: TObject)； begin i_stud_id_1.Text:=； /学号输入框清空 i_change.ItemIndex :=0； /学籍变更复位到”转系“ i_descrip_1.Clear ； /描述框清空 end； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： procedure TForm7.Button2Click(Sender: TObject)； var counter:smallint； begin T_stud_info_1.Open； if T_stud_info_1.RecordCount 0 then /判断输 入的学号是否存在 begin T_counter_c.Open； /如果存在，开始追加记录 counter:=T_counter_cCOUNTER_VALUE； Inc(counter)； T_counter_c.Edit ； T_counter_cCOUNTER_VALUE:=counter； T_counter_c.Post； T_change.Open； T_change.appendrecord(counter,i_stud_id_1.Text,i_change.itemindex,now,i_descrip_1.Text)； button1click(nil)； end else Application.messagebox(请确认输入的学号是否正确 ,错误 ,MB_OK)； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： end； procedure TForm7.SpeedButton2Click(Sender: TObject)； begin form7.Hide； form2.show； end； procedure TForm7.SpeedButton1Click(Sender: TObject)； begin form1.show； end； procedure TForm7.Button5Click(Sender: TObject)； var counter:smallint； begin T_stud_info_3.Open； if T_stud_info_3.RecordCount0 then /确认学号是否存在 begin T_counter_p.Open； counter:=T_counter_pCOUNTER_VALUE； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： Inc(counter)； /累加处罚记录计数器 T_counter_p.Edit； T_counter_pCOUNTER_VALUE:=counter； T_counter_p.Post； /修改计数器值 T_punish.Open； /打开处罚数据表 T_punish.AppendRecord(counter, i_stud_id_3.text, i_punish_level.ItemIndex, Now, True, i_descrip_3.text)；/添加数据到处罚数据表 Button6Click(nil)； end else Application.MessageBox(请确认输入的学号是否正确！ , 错误 , MB_OK)； end； procedure TForm7.Button6Click(Sender: TObject)； begin i_stud_id_3.Text:=； i_punish_level.ItemIndex:=0； i_descrip_3.Clear； end； procedure TForm7.Button3Click(Sender: TObject)； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： var counter:smallint； begin T_stud_info_2.Open； if T_stud_info_2.RecordCount0 then /确认学号是否存在 begin T_counter_r.Open； counter:=T_counter_rCOUNTER_VALUE； Inc(counter)； /累加奖励记录计数器 T_counter_r.Edit； T_counter_rCOUNTER_VALUE:=counter； T_counter_r.Post； T_reward.Open； T_reward.AppendRecord(counter, i_stud_id_2.text, i_reward_level.ItemIndex, Now, i_descrip_2.text)； Button4Click(nil)； end else Application.MessageBox(请确认输入的学号是否正确！ , 错误 , MB_OK)； end； procedure TForm7.Button4Click(Sender: TObject)； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： begin i_stud_id_2.Text:=； i_reward_level.ItemIndex:=0； i_descrip_2.Clear； end； procedure TForm7.i_stud_id_2Change(Sender: TObject)； begin T_stud_info_2.Filter :=ID=+i_stud_id_2.Text+； T_stud_info_2.Filtered :=true； T_stud_info_2.Open ； T_class_info_2.Open； T_depart_info_2.Open； end； procedure TForm7.i_stud_id_3Change(Sender: TObject)； begin T_stud_info_3.Filter :=ID=+i_stud_id_3.Text+； T_stud_info_3.Filtered :=true； T_stud_info_3.Open ； T_class_info_3.Open； T_depart_info_3.Open； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： end； procedure TForm7.i_stud_id_4Change(Sender: TObject)； begin T_stud_info_4.Filter:=ID=+i_stud_id_4.Text+； T_stud_info_4.Filtered:=True； T_stud_info_4.Open； T_class_info_4.Open； T_depart_info_4.Open； T_change_4.Open； T_change_code_4.Open； T_reward_4.Open； T_reward_level_4.Open； T_punish_4.Open； T_punish_level_4.Open； end； procedure TForm7.Button7Click(Sender: TObject)； begin T_stud_info_4.Post； /在学生信息查询修改确认对学生信息的修改 end； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： procedure TForm7.Button8Click(Sender: TObject)； begin T_stud_info_4.Cancel； end； procedure TForm7.Button9Click(Sender: TObject)； begin T_change_4.Post； /在学生信息查询修改子界面中确认对学生变更情况的修改 end； procedure TForm7.Button10Click(Sender: TObject)； begin T_change_4.Cancel； end； procedure TForm7.Button11Click(Sender: TObject)； begin T_reward_4.Post； /在学生信息查询修改子界面中确认对学生奖励情况的修改 end； procedure TForm7.Button12Click(Sender: TObject)； begin T_reward_4.Cancel； end； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： procedure TForm7.Button13Click(Sender: TObject)； begin T_punish_4.Post； /在学生信息查询修改子界面中确认对学生惩罚情况的修改 end； procedure TForm7.Button14Click(Sender: TObject)； begin T_punish.Cancel； end； end. 2教务排课管理子系统： 教师管理子界面：根据提交申请的不同，分成三种情况区别对待： 源代码如下： unit studentsys； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, ComCtrls, DB, DBTables, StdCtrls, Grids, DBGrids, Spin, ExtCtrls, DBCtrls, Mask； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： type TForm12 = class(TForm) SpeedButton1: TSpeedButton； PageControl1: TPageControl； TabSheet1: TTabSheet； TabSheet2: TTabSheet； T_course_1: TTable； DS_course_1: TDataSource； T_counter_K: TTable； Label1: TLabel； Label2: TLabel； Label3: TLabel； i_name_1: TEdit； i_credit_hour_1: TSpinEdit； i_period_1: TSpinEdit； Label4: TLabel； i_intro_1: TMemo； Label5: TLabel； o_course_1: TDBGrid； B_submit: TButton； B_reset: TButton； T_teacher_info: TTable； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： Q_students: TQuery； DS_student_info: TDataSource； T_students: TTable； B_print_list: TButton； Label6: TLabel； Label7: TLabel； Label8: TLabel； o_course_2: TDBGrid； o_student_list: TDBGrid； i_score: TDBGrid； DS_students: TDataSource； T_course_2: TTable； i_state_1: TDBRadioGroup； Label9: TLabel； i_teacher: TDBEdit； Label10: TLabel； procedure SpeedButton1Click(Sender: TObject)； procedure FormShow(Sender: TObject)； procedure FormClose(Sender: TObject； var Action: TCloseAction)； procedure B_resetClick(Sender: TObject)； procedure i_state_1Click(Sender: TObject)； procedure o_course_1CellClick(Column: TColumn)； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： procedure B_submitClick(Sender: TObject)； procedure B_print_listClick(Sender: TObject)； procedure o_course_2CellClick(Column: TColumn)； procedure TabSheet2Show(Sender: TObject)； procedure Button1Click(Sender: TObject)； private Private declarations public Public declarations end； var Form12: TForm12； implementation uses student, teach, teacherlogin； $R *.dfm procedure TForm12.SpeedButton1Click(Sender: TObject)； begin 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： form12.Hide； form3.show； end； procedure TForm12.FormShow(Sender: TObject)； begin T_teacher_info.Filter:=ID=+Form8.i_user.Text+； T_teacher_info.Filtered:=True； T_teacher_info.Open； Form12.Caption:=课程管理系统 用户： +T_teacher_infoNAME； end； procedure TForm12.FormClose(Sender: TObject； var Action: TCloseAction)； begin Application.Terminate； end； procedure TForm12.B_resetClick(Sender: TObject)； begin i_state_1.ItemIndex:=0； /申请初始化到增开新课 i_state_1Click(nil)； /调用申请修改程序 i_name_1.Text:=； /清除课程名 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： i_credit_hour_1.Text:=0； /初始化学分 i_period_1.Text:=0； /初始化学时 i_intro_1.Lines.Clear； /清除课程简介 end； procedure TForm12.i_state_1Click(Sender: TObject)； begin if i_state_1.ItemIndex0 then /如果不是新开课程，则显示列表 begin T_course_1.Filter:=TEACHER=+Form8.i_user.Text+ AND STATE5 AND STATE1； T_course_1.Filtered:=True； /获取当前教师所开的课程 T_course_1.Open； /不包括已删除和申请删除的课程 o_course_1.Enabled:=True； /激活已开课程列表 o_course_1CellClick(nil)； /显示当前课程信息 end else begin T_course_1.Close； /如果是新开课程 ，关闭已开课程数据表 o_course_1.Enabled:=False； /取消课程列表显示 end； end； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： procedure TForm12.o_course_1CellClick(Column: TColumn)； /如果是删除或修改旧的课程，在单击课程列表时，将在输入框中显示课程的详细信息。 begin if T_course_1.Active then /判断课程信息表是否激活 begin i_name_1.Text:=T_course_1NAME； /提取课程名称 i_credit_hour_1.value:=T_course_1CREDIT_HOUR； /提取课程学分 i_period_1.Value :=T_course_1PERIOD； /提取课程学分 i_intro_1.Lines.Clear； /清除课程简介 i_intro_1.Lines.Add(T_course_1INTRO)； /提取课程简介 end； end； procedure TForm12.B_submitClick(Sender: TObject)； /表单的提交 var counter:integer； course_id:string； begin case i_state_1.ItemIndex of /根据不同申请，分别处理 0: /如果增加新课 begin 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： /获取课程计数 T_counter_K.Open； /打开计数器表 counter:=T_counter_KCOUNTER_VALUE； inc(counter)； T_counter_K.Edit； T_counter_KCOUNTER_VALUE:=counter； T_counter_K.Post； T_counter_K.Close； /合成课程编号 course_id:=0000+IntToStr(counter)； /将计数值转换为字符串 / course_id:=copy(course_id,length(course_id)-6,6)； /将截取固定长度字符串 label10.caption:=course_id； course_id:=FormatDateTime(yyyy,now)+course_id； /添加年份信息 /添加课程信息 T_course_1.Filtered:=False； T_course_1.Open； T_course_1.AppendRecord(course_id,i_name_1.Text,i_teacher.text,i_credit_hour_1.value,i_period_1.value, , , i_intro_1.Lines,0)； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： end； 1: /申请删除 begin T_course_1.Filtered:=False； /取消过滤 T_course_1.Edit； /进行修改 T_course_1STATE:=1； /改变课程状态 T_course_1.Post； /提交修改 end； 2: /申请修改 begin T_course_1.Filtered:=False； /取消过滤 T_course_1.Edit； T_course_1NAME:=i_name_1.Text； T_course_1CREDIT_HOUR:=i_credit_hou