信息系统开发实验报告-大学生创新创业项目开发管理组织系统的数据库设计

WORD格式课程实验报告专业年级课程名称信息系统开发指导教师学生姓名学号实验日期2016年11月22日实验地点实验成绩教务处制2016年11月27日WORD格式实验项目大学生创新创业项目管理系统的数据库设计名称1、了解数据库的设计步骤；实验2、熟练掌握MicrosoftVisio；目的及要求3、熟练掌握E-R图的绘制；4、掌握将数据库概念结构转化为逻辑结构的步骤。

1、采用MicrosoftVisio完成大学生创新创业项目管理系统的数据库的所有实验E-R图的绘制；内容2、根据E-R图，使用SQLServer2000作为DBM，S完成数据库的设计。

一．设置数据库实体及其属性1、学生属性：略2、指导教师属性：工号、姓名、学历、学位、专业、职称、职务、QQ、WX、手机号码、密码3、工作人员属性：工号、姓名、职务、QQ、WX、手机号码、密码4、项目属性：项目编号、项目名称、项目类型、申请人、申请时间、申请书、指导教师、指导意见、审核意见、审核人、审核时间、是否立项5、开题报告实验步骤属性：报告编号、所属项目、摘要、报告附件、上传时间、指导教师意见、审核意见、审核人、审核时间、审核结果6、实践学习属性：编号、所属项目、类型、内容、附件7、结项申请属性：申请编号、所属项目、内容摘要、附件、指导教师意见、审核意见、审核人、审核时间、审核结果8、项目成果属性：成果编号，所属项目、成果内容、附件、指导教师意见、审核意见、审核人、审核时间、审核结果二．绘制总体的E-R图三．绘制各个实体的E-R图1.学生实体E-R图2.指导教师实体E-R图3.工作人员实体E-R图4.项目实体E-R图5.开题报告实体E-R图6.实践学习实体E-R图7.结项申请实体E-R图8.项目成果实体E-R图4.设置字段,得到数据表结构图(1)学生数据表(2)指导教师数据表(3)工作人员数据表(4)项目数据表(5)开题报告数据表(6)实践学习数据表(7)结项申请数据表WORD格式(8)项目成果数据表MicrosoftVisio2007，SQLServer2000实验环境通过本次实验,熟练掌握了MicrosoftVisio的相关操作，学会了E-R 图的绘制和将数据库概念结构转化为逻辑结构的步骤。

信息系统设计实验引言：信息系统设计是计算机科学与技术领域中的一项重要研究内容。

信息系统是指通过信息技术手段来支持和改进组织机构的运行和管理的系统。

在现代社会中，信息系统在各行各业的应用已经非常普遍，如企业资源管理系统、客户关系管理系统等。

本实验旨在通过设计一个简单的信息系统来了解信息系统的基本架构和设计原则。

实验内容：系统需求分析：首先要明确系统的功能需求和性能需求。

在本系统中，要分析用户对待办事项的操作和查询需求，确定功能模块和接口的设计。

系统概要设计：根据需求分析的结果，设计系统的总体结构和模块间的关系。

这一步还需要确定系统所需的数据结构和数据库设计。

系统详细设计：对系统的每个功能模块进行详细的设计。

包括界面设计、业务逻辑设计和数据存储设计等。

在设计界面时，需要考虑用户友好性和易用性。

系统实现和调试：根据详细设计的结果，使用合适的编程语言和工具实现系统。

在实现过程中，需要对系统进行调试和测试，确保系统能够正常运行。

实验总结：通过本次实验，我深入了解了信息系统设计的基本原理和方法。

在整个设计过程中，我学会了需求分析、概要设计、详细设计、实现和调试等步骤，掌握了设计一个信息系统的基本流程。

同时，在实验过程中我也遇到了一些问题，如界面设计的优化和性能提升等，这些问题需要进一步的学习和研究。

总的来说，本次实验为我提供了一个很好的实践机会，让我通过实际设计和实现一个信息系统来加深对该领域的理解。

通过这次实验，我能够更好地应用所学的知识和方法，在未来的实际工作中设计和开发出高质量的信息系统。

学生管理系统数据库设计实验报告一、实验目的本次实验旨在通过学生管理系统的数据库设计，掌握数据库设计的基本原理和方法，熟悉数据库设计软件的使用。

二、实验内容1. 确定需求分析：确定学生管理系统需要存储哪些数据。

2. 设计ER图：根据需求分析结果，使用ER图工具设计出ER图。

3. 转换为关系模式：将ER图转换为关系模式，确定表之间的关系。

4. 设计物理结构：根据转换后的关系模式，设计出数据库中各个表的字段和数据类型，并设置主键、外键等约束条件。

5. 实现数据库：使用MySQL等数据库软件创建数据库，并导入所设计的表结构。

三、需求分析学生管理系统需要存储以下数据：1. 学生信息：包括学号、姓名、性别、年龄、专业等信息。

2. 课程信息：包括课程编号、课程名称、学分等信息。

3. 成绩信息：包括学号、课程编号和成绩等信息。

四、ER图设计根据需求分析结果，使用ER图工具设计出ER图。

其中，学生和课程之间是多对多的关系，因此需要添加一个中间表“选修”，用于记录每个学生选修了哪些课程。

五、转换为关系模式根据ER图，将其转换为关系模式。

具体步骤如下：1. 将实体转换为表，每个属性对应一个字段。

2. 将一对多的关系转换为外键，即在多的一方添加外键指向一的一方。

3. 将多对多的关系转换为中间表，中间表包括两个外键和其他属性。

六、设计物理结构根据转换后的关系模式，设计出数据库中各个表的字段和数据类型，并设置主键、外键等约束条件。

具体设计如下：1. 学生表（student）：包括学号（sid）、姓名（name）、性别（gender）、年龄（age）、专业（major）等字段。

其中，学号是主键。

2. 课程表（course）：包括课程编号（cid）、课程名称（cname）、学分（credit）等字段。

其中，课程编号是主键。

3. 中间表选修表（sc）：包括学号（sid）、课程编号（cid）、成绩（score）等字段。

其中，学号和课程编号是联合主键，并且分别是来自于学生表和课程表的外键。

学生信息管理系统数据库设计目录一、需求分析 (3)组合的业务处理流程图： (8)二、概念分析 (9)三、逻辑设计 (16)四．物理设计阶段 (25)五、系统实现 (26)六、主要代码 (33)七、课程设计总结 (57)一、需求分析1.1功能需求分析总体任务的实现是建立在对系统正确的需求分析基础之上的。

需求分析分是数据库系统开发的第一步，也是最重要的一步。

在大学的学习生活中学生的活动范围很广，信息量相对于以前增加，学生在学习生活中不仅仅与寝室和同班同系的同学联系有时候还要与自己所学学科的任课老师交流联系，还要与本系的辅导员以及自己所在寝室的宿舍管理员等进行联系，这些信息分布比较散乱，难于集合起来。

所以创建该数据库尽可能的将与学生相关的信息集合起来，将一些数据结构化，方便用户查询。

学生信息系统的基本情况由于整个系统是由多个部分组成，所以各个信息如下：（1）学生信息：记录在学校中学生的基本信息，包括姓名，学号，出生年月，所属院系，所在班级，联系电话等等；（2）教师信息：记录与学生相关的教师的基本信息，包括教师姓名，联系电话，教授课程等等；（3）导师信息：记录学生所在院系的导师的相关信息，包括导师姓名，联系电话，领导院系等等；（4）宿舍信息：记录学生所住寝室的相关信息，包括寝室号和寝室宿管联系电话等等。

1.2需求分析阶段的目标（1）信息要求：用户能够查找到有关学生的所有相关信息包括学生基本信息还有相关老师的信息（2）处理要求：当信息发生变化时，一些信息能够自行修改而不造成插入删除错误。

（3）完整性要求：①.各种信息记录的完整性，信息记录内容不能为空；②.各种数据间相互的联系的正确性；③相同的数据在不同记录中的一致性。

1.3信息需求分析①院系的基本信息院系编号、院系名称、联系电话、院系主任②班级的基本信息班级编号、院系编号、班级名称、班长、学生数③学生的基本信息学号、班级编号、姓名、性别、出生日期、家庭住址④课程的基本信息课程编号、课程名称、学分、讲师⑤成绩的基本信息学号、课程编号、成绩、学分⑥讲师的基本信息讲师编号、讲师姓名、教授班级、联系电话⑦宿舍的基本信息宿舍编号、宿舍地址、联系电话、所属院系⑧导师的基本信息导师编号、导师姓名、联系电话、所属院系1.4需求分析阶段成果根据实际业务处理过程，绘制业务流程图如图所示：（a）验证模块（b）查询模块（c）选课模块（d）维护模块组合的业务处理流程图：数据流程图顶层数据流程图：二层数据流程图：二、概念分析2.1对数据进行抽象概念结构是对现实的一种抽象。

数据库学生信息管理系统实验报告一、实验目的本次实验的目的是设计并实现一个基于数据库的学生信息管理系统，通过该系统可以对学生的基本信息进行增删改查等操作，方便高效地管理学生信息。

二、实验内容1. 创建数据库：首先，在MySQL中创建一个名为"student_info"的数据库，用于存储学生信息的表。

2. 创建表结构：在数据库中创建一个名为"student"的表，用于存储学生的基本信息，包括学号、姓名、性别、年龄、班级等字段。

3. 实现增加学生信息的功能：设计一个界面，在界面上输入学生的基本信息，然后将这些信息插入到数据库的"student"表中。

4. 实现删除学生信息的功能：设计一个界面，在界面上输入要删除的学生的学号，然后根据学号将该学生的信息从数据库的"student"表中删除。

5. 实现修改学生信息的功能：设计一个界面，在界面上输入要修改的学生的学号和需要修改的字段信息，然后根据学号将该学生的相应字段信息更新到数据库的"student"表中。

6. 实现查询学生信息的功能：设计一个界面，在界面上输入要查询的学生的学号，然后根据学号从数据库的"student"表中查询相应学生的信息并显示在界面上。

三、实验过程1. 创建数据库：在MySQL中执行以下指令创建名为"student_info"的数据库：CREATE DATABASE student_info;2. 创建表结构：在"student_info"数据库中执行以下指令创建名为"student"的表：CREATE TABLE studentid INT PRIMARY KEY AUTO_INCREMENT,student_id VARCHAR(20) NOT NULL,name VARCHAR(20) NOT NULL,gender VARCHAR(4) NOT NULL,age INT NOT NULL,class VARCHAR(20) NOT NULL3. 实现增加学生信息的功能：使用Java编写一个程序，通过JDBC 连接到MySQL数据库，然后通过用户界面输入学生的基本信息，将这些信息插入到"student"表中。

学生信息管理系统设计与开发实践报告下载提示：该文档是本店铺精心编制而成的，希望大家下载后，能够帮助大家解决实际问题。

文档下载后可定制修改，请根据实际需要进行调整和使用，谢谢！本店铺为大家提供各种类型的实用资料，如教育随笔、日记赏析、句子摘抄、古诗大全、经典美文、话题作文、工作总结、词语解析、文案摘录、其他资料等等，想了解不同资料格式和写法，敬请关注！Download tips: This document is carefully compiled by this editor. I hope that after you download it, it can help you solve practical problems. The document can be customized and modified after downloading, please adjust and use it according to actual needs, thank you! In addition, this shop provides you with various types of practical materials, such as educational essays, diary appreciation, sentence excerpts, ancient poems, classic articles, topic composition, work summary, word parsing, copy excerpts, other materials and so on, want to know different data formats and writing methods, please pay attention!一、前言随着信息化时代的来临，学校教育管理也迎来了重大的变革。

大学生创新项目管理信息系统设计与实现的开题报告项目名称：大学生创新项目管理信息系统设计与实现一、项目背景当前，我国高校创新创业活动持续火热。

大学生创新项目是学生综合素质的体现，有益于学生的自身成长与学术发展，同时还有可能孕育出一些具有商业价值的项目。

然而，大学生创新项目管理方式还存在一些问题：管理效率较低、信息传递不及时、资源共享不充分等。

因此，开发一款大学生创新项目管理信息系统，可提高管理效率，增强信息传递和资源共享，促进创新项目的创新和发展。

二、项目目标1. 开发一个开放的、集成化的大学生创新项目管理信息系统；2. 提升大学生创新项目管理的效率；3. 优化大学生创新项目的资源管理，促进资源共享；4. 加强管理者与学生之间的信息沟通，实现信息共享；5. 支持多部门和多中心的联合管理。

三、项目内容1. 系统需求分析：研究相关大学生创新项目管理的业务流程、管理需求与功能模块；2. 系统设计：确定系统各个模块的组成，设计系统架构和数据模型，绘制系统流程图；3. 系统实现：使用Web开发框架，数据库技术及相关技术，完成系统的编码与测试；4. 系统测试与优化：对系统进行各种测试和调试，保证系统的稳定性及可靠性；5. 系统部署：将系统部署到云计算平台或服务器，保证系统的可用性；6. 系统维护：对系统进行定期维护和升级，排除系统故障，并解决用户反馈问题。

四、项目计划1. 第1周：确定项目背景、目标和功能模块；2. 第2周-第3周：完成系统需求分析和设计；3. 第4周-第6周：完成系统程序开发和测试；4. 第7周-第8周：完成系统部署和用户培训；5. 第9周-第12周：完成系统上线运营并维护。

五、项目成果1. 大学生创新项目管理信息系统，界面友好、操作简单；2. 实现了大学生创新项目总体管理，包括项目创建、审批、评价和资源管理等；3. 实现了多种用户类型管理，如管理员、教师、学生等；4. 实现了信息共享和协作功能，如任务汇报、留言板、讨论区等；5. 实现了多学科、多中心的联合管理；6. 实现了后台数据分析与报表生成。

高校学生创新创业管理信息系统设计与开发近年来，随着大学生创新创业热情的日益高涨，高校学生创新创业管理信息系统的设计与开发变得尤为重要。

本文将围绕这一任务，探讨高校学生创新创业管理信息系统的设计与开发的关键要点，并提出一种可行的方案。

首先，一个高效的高校学生创新创业管理信息系统设计与开发方案，应该具备以下特点。

首先，系统界面应该简洁直观，便于学生和教师的使用和操作。

其次，系统应该能够实现学生创新创业项目的全流程管理，包括项目信息录入、审核与评估、资金申请与使用等。

此外，系统还应支持数据的统计和分析，为学生和教师提供决策依据。

最后，系统应该具备良好的安全性和稳定性，确保学生和老师的信息和数据安全。

为了实现以上要求，我们可以采用一种分层架构的设计思路。

首先，系统的前端应该采用友好的界面设计，使用简洁明了、直观易懂的页面布局和交互方式，以提高用户的使用体验。

其次，中间层应该负责实现业务层面的逻辑处理，包括学生信息的录入、审核与评估、资金申请与使用等。

中间层可以使用现代化的开发工具和技术，如Spring框架，来提高开发效率和系统的稳定性。

最后，后端应该负责底层数据的存储和处理，可以使用关系型数据库或者分布式存储系统，以支持大量的数据并发访问和查询。

在系统的具体功能方面，我们可以从以下几个方面入手进行设计和开发。

首先，学生信息录入功能是系统的基础功能之一。

学生可以在系统中填写个人信息，并上传相关的学习和创新创业项目的材料。

教师可以对学生的信息进行审核和评估，并给予相应的反馈和建议。

其次，资金管理功能是学生创新创业项目的重要组成部分。

系统可以提供资金申请和使用的功能，学生可以在系统中提交资金申请，经过审核后，系统会自动将资金划拨给学生，同时记录相关的流水账户。

此外，系统还可以支持学生创新创业项目的进度管理和成果展示等功能，以便教师和学生可以进行实时的项目管理和交流。

除了基础功能外，系统还可以进一步扩展，以满足学生创新创业过程中的各种需求。

实验六学生信息管理系统数据库设计和应用程序编码一、实验目的掌握程序设计语言的选择、程序的编码风格和程序的效率问题。

应用数据库设计工具和程序设计工具，进行数据库设计和应用程序编码。

3、二、实验仪器和设备1、计算机2、SQL-SERBER软件、高级语言编译调试软件三、实验内容在实验五基础上，完成以下内容：1、根据设计阶段的E-R图转化并优化的关系模式建立数据库表。

2、选定程序设计语言，注重编码风格，将实现模块功能的算法转化为程序代码。

3、源程序文档化。

四．实验记录1、根据设计阶段的E-R图转化并优化的关系模式建立数据库表。

2、选定程序设计语言，注重编码风格，将实现模块功能的算法转化为程序代码。

程序的主要实现部分代码如下：unit MainUnit;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ImgList, ComCtrls, ToolWin, Menus;typeTmainForm = class(TForm)MainMenu1: TMainMenu;N1: TMenuItem;ToolBar1: TToolBar;tb_depart: TToolButton;tb_class: TToolButton;tb_user: TToolButton;tb_stu: TToolButton;tb_stuquery: TToolButton;tb_change: TToolButton;tb_reward: TToolButton;tb_punish: TToolButton;tb_quit: TToolButton;ImageList1: TImageList;N2: TMenuItem;N3: TMenuItem;N4: TMenuItem;N5: TMenuItem;N6: TMenuItem;N7: TMenuItem;N8: TMenuItem;N9: TMenuItem;N10: TMenuItem;N11: TMenuItem;N12: TMenuItem;N13: TMenuItem;N14: TMenuItem;N15: TMenuItem;StatusBar1: TStatusBar;procedure tb_quitClick(Sender: TObject);procedure FormCreate(Sender: TObject);procedure tb_departClick(Sender: TObject);procedure tb_classClick(Sender: TObject);procedure tb_userClick(Sender: TObject);procedure tb_stuClick(Sender: TObject);procedure tb_stuqueryClick(Sender: TObject);procedure tb_changeClick(Sender: TObject);procedure tb_rewardClick(Sender: TObject);procedure N2Click(Sender: TObject);procedure tb_punishClick(Sender: TObject);procedure N3Click(Sender: TObject);procedure N5Click(Sender: TObject);procedure N7Click(Sender: TObject);procedure N11Click(Sender: TObject);procedure N13Click(Sender: TObject);procedure N14Click(Sender: TObject);procedure N15Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varmainForm: TmainForm;depart:boolean=true;Fclass:boolean=true;user:boolean=true;stu:boolean=true;query:boolean=true;change:boolean=true;reward:boolean=true;punish:boolean=true;implementationuses dm, departUnit, classUnit, userUnit, stuUnit, queryUnit, changeUnit, rewardUnit, punishUnit;{$R *.dfm}procedure TmainForm.tb_quitClick(Sender: TObject);beginclose;end;procedure TmainForm.FormCreate(Sender: TObject);begintb_depart.Enabled:=dmform.ADOQuery_login.FieldByName('qx1').AsBoolean; tb_class.Enabled:=dmform.ADOQuery_login.FieldByName('qx2').AsBoolean;tb_user.Enabled:=dmform.ADOQuery_login.FieldByName('qx3').AsBoolean;tb_stu.Enabled:=dmform.ADOQuery_login.FieldByName('qx4').AsBoolean;tb_stuquery.Enabled:=dmform.ADOQuery_login.FieldByName('qx5').AsBoolean; tb_change.Enabled:=dmform.ADOQuery_login.FieldByName('qx6').AsBoolean; tb_reward.Enabled:=dmform.ADOQuery_login.FieldByName('qx7').AsBoolean; tb_punish.Enabled:=dmform.ADOQuery_login.FieldByName('qx8').AsBoolean; end;procedure TmainForm.tb_departClick(Sender: TObject);begin //院系设置if tb_depart.Down thenbegindepartform:=tdepartform.Create(self);departform.Show;endelsebegindepartForm.Free;end;end;procedure TmainForm.tb_classClick(Sender: TObject);begin //班级管理if tb_class.Down thenbeginclassform:=tclassform.Create(self);classform.Show;endelsebeginclassForm.Free;end;end;procedure TmainForm.tb_userClick(Sender: TObject);begin //用户管理if tb_user.Down thenbeginuserform:=tuserform.Create(self);userform.Show;endbeginuserForm.Free;end;end;procedure TmainForm.tb_stuClick(Sender: TObject); begin //学生管理if tb_stu.Down thenbeginstuform:=tstuform.Create(self);stuform.Show;endelsebeginstuForm.Free;end;end;procedure TmainForm.tb_stuqueryClick(Sender: TObject); begin //学生查询if tb_stuquery.Down thenbeginqueryform:=tqueryform.Create(self);queryform.Show;endelsebeginqueryForm.Free;end;end;procedure TmainForm.tb_changeClick(Sender: TObject); begin // 学籍变更if tb_change.Down thenbeginchangeform:=tchangeform.Create(self);changeform.Show;endelsebeginchangeForm.Free;end;end;procedure TmainForm.tb_rewardClick(Sender: TObject); begin //奖励情况if tb_reward.Down thenbeginrewardform:=trewardform.Create(self);rewardform.Show;endelserewardForm.Free;end;end;procedure TmainForm.N2Click(Sender: TObject); beginif depart thenbegindepartform:=tdepartform.Create(self);depart:=false;departform.Show;endelsebegindepartForm.Free;depart:=true;tb_depart.Down:=false;end;end;procedure TmainForm.tb_punishClick(Sender: TObject); begin //处罚情况if tb_punish.Down thenbeginpunishform:=tpunishform.Create(self);punishform.Show;endelsebeginpunishForm.Free;end;end;procedure TmainForm.N3Click(Sender: TObject); beginif fclass thenbeginclassform:=tclassform.Create(self);fclass:=false;classform.Show;endelsebeginclassForm.Free;fclass:=true;tb_class.Down:=false;end;end;procedure TmainForm.N5Click(Sender: TObject);if user thenbeginuserform:=tuserform.Create(self);user:=false;userform.Show;endelsebeginuserForm.Free;user:=true;tb_user.Down:=false;end;end;procedure TmainForm.N7Click(Sender: TObject); beginclose;end;procedure TmainForm.N11Click(Sender: TObject); beginif query thenbeginqueryform:=tqueryform.Create(self);query:=false;queryform.Show;endelsebeginqueryForm.Free;query:=true;tb_stuquery.Down:=false;end;end;procedure TmainForm.N13Click(Sender: TObject); beginif change thenbeginchangeform:=tchangeform.Create(self);change:=false;changeform.Show;endelsebeginchangeForm.Free;change:=true;tb_change.Down:=false;end;end;procedure TmainForm.N14Click(Sender: TObject);beginif reward thenbeginrewardform:=trewardform.Create(self);reward:=false;rewardform.Show;endelsebeginrewardForm.Free;reward:=true;tb_reward.Down:=false;end;end;procedure TmainForm.N15Click(Sender: TObject);beginif punish thenbeginpunishform:=tpunishform.Create(self);punish:=false;punishform.Show;endelsebeginpunishForm.Free;punish:=true;tb_punish.Down:=false;end;end;end.登陆模块：procedure TloginForm.btn_okClick(Sender: TObject);varsql:string;beginsql:='select * from login where username=:a and passwrd=:b'; dmform.ADOQuery_login.Close;dmform.ADOQuery_login.SQL.Clear;dmform.ADOQuery_login.SQL.Add(sql);dmform.ADOQuery_login.Parameters[0].Value:=edit1.Text;dmform.ADOQuery_login.Parameters[1].Value:=edit2.Text;dmform.ADOQuery_login.Open;if dmform.ADOQuery_login.RecordCount>0 thenbeginloginform.ModalResult:=mrok;endelsebeginapplication.MessageBox('用户名或者密码错误,请重新输入!','登录提示',mb_ok);edit1.Text:='';edit2.Text:='';edit1.SetFocus;end;end;procedure TloginForm.btn_cancelClick(Sender: TObject);beginloginform.ModalResult:=mrCancel;end;end.班级管理模块：procedure TclassForm.FormClose(Sender: TObject; var Action: TCloseAction);beginaction:=cafree;mainform.tb_class.Down:=false;end;procedure TclassForm.tb_exitClick(Sender: TObject);beginclose;end;procedure TclassForm.tb_postClick(Sender: TObject);vars:string;begins:='insert into class(班级编号,班级名称,所属院系,班主任,联系电话,班级描述) values(:a,:b,:c,:d,:e,:f)';dmform.ADOQuery_class.Close;dmform.ADOQuery_class.SQL.Clear;dmform.ADOQuery_class.SQL.Add(s);dmform.ADOQuery_class.Parameters[0].Value:=edit1.Text;dmform.ADOQuery_class.Parameters[1].Value:=edit2.Text;dmform.ADOQuery_class.Parameters[2].Value:=edit3.Text;dmform.ADOQuery_class.Parameters[3].Value:=edit4.Text;dmform.ADOQuery_class.Parameters[4].Value:=edit5.Text;dmform.ADOQuery_class.Parameters[5].Value:=edit6.Text;dmform.ADOQuery_class.ExecSQL;dmform.ADOQuery_class.Close;dmform.ADOQuery_class.SQL.Clear;dmform.ADOQuery_class.SQL.Add('select * from class');dmform.ADOQuery_class.Open;end;procedure TclassForm.tb_deleteClick(Sender: TObject);beginif messagedlg('确定删除该记录吗？',mtConfirmation,[mbYes, mbNo],0)=mryes thenbegindmform.ADOQuery_class.Delete;end;end;procedure TclassForm.tb_addClick(Sender: TObject);beginedit1.Text:='';edit2.Text:='';edit3.Text:='';edit4.Text:='';edit5.Text:='';edit6.Text:='';edit1.SetFocus;end;procedure TclassForm.tb_editClick(Sender: TObject);vars:string;i:string;begins:='update class set 班级编号=:a,班级名称=:b,所属院系=:c,班主任=:d,联系电话=:e,班级描述=:f where 班级编号=:n';i:=dmform.ADOQuery_class.fieldbyname('班级编号').AsString;dmform.ADOQuery_class.Close;dmform.ADOQuery_class.SQL.Clear;dmform.ADOQuery_class.SQL.Add(s);dmform.ADOQuery_class.Parameters[0].Value:=edit1.Text;dmform.ADOQuery_class.Parameters[1].Value:=edit2.Text;dmform.ADOQuery_class.Parameters[2].Value:=edit3.Text;dmform.ADOQuery_class.Parameters[3].Value:=edit4.Text;dmform.ADOQuery_class.Parameters[4].Value:=edit5.Text;dmform.ADOQuery_class.Parameters[5].Value:=edit6.Text;dmform.ADOQuery_class.Parameters[6].Value:=i;dmform.ADOQuery_class.ExecSQL;dmform.ADOQuery_class.Close;dmform.ADOQuery_class.SQL.Clear;dmform.ADOQuery_class.SQL.Add('select * from class');dmform.ADOQuery_class.Open;end.院系设置模块：procedure TdepartForm.FormClose(Sender: TObject; var Action: TCloseAction);beginaction:=cafree;mainform.tb_depart.Down:=false;end;procedure TdepartForm.tb_exitClick(Sender: TObject);beginclose;end;procedure TdepartForm.tb_addClick(Sender: TObject);beginedit_yxbh.Text:='';edit_yxmc.Text:='';edit_yxld.Text:='';edit_lddh.Text:='';edit_yxms.Text:='';edit_yxbh.SetFocus;end;procedure TdepartForm.tb_postClick(Sender: TObject);vars:string;begins:='insert into department(院系编号,院系名称,院系领导,领导电话,院系描述) values(:a,:b,:c,:d,:e)';dmform.ADOQuery_depart.Close;dmform.ADOQuery_depart.SQL.Clear;dmform.ADOQuery_depart.SQL.Add(s);dmform.ADOQuery_depart.Parameters[0].Value:=edit_yxbh.Text;dmform.ADOQuery_depart.Parameters[1].Value:=edit_yxmc.Text;dmform.ADOQuery_depart.Parameters[2].Value:=edit_yxld.Text;dmform.ADOQuery_depart.Parameters[3].Value:=edit_lddh.Text;dmform.ADOQuery_depart.Parameters[4].Value:=edit_yxms.Text;dmform.ADOQuery_depart.ExecSQL;dmform.ADOQuery_depart.Close;dmform.ADOQuery_depart.SQL.Clear;dmform.ADOQuery_depart.SQL.Add('select * from department');dmform.ADOQuery_depart.Open;end;procedure TdepartForm.tb_deleteClick(Sender: TObject);if messagedlg('确定删除该记录吗？',mtConfirmation,[mbYes, mbNo],0)=mryes thenbegindmform.ADOQuery_depart.Delete;end;end;procedure TdepartForm.tb_editClick(Sender: TObject);vars:string;i:string;begins:='update department set 院系编号=:a,院系名称=:b,院系领导=:c,领导电话=:d,院系描述=:e where 院系编号=:n';i:=dmform.ADOQuery_depart.fieldbyname('院系编号').AsString;dmform.ADOQuery_depart.Close;dmform.ADOQuery_depart.SQL.Clear;dmform.ADOQuery_depart.SQL.Add(s);dmform.ADOQuery_depart.Parameters[0].Value:=edit_yxbh.Text;dmform.ADOQuery_depart.Parameters[1].Value:=edit_yxmc.Text;dmform.ADOQuery_depart.Parameters[2].Value:=edit_yxld.Text;dmform.ADOQuery_depart.Parameters[3].Value:=edit_lddh.Text;dmform.ADOQuery_depart.Parameters[4].Value:=edit_yxmc.Text;dmform.ADOQuery_depart.Parameters[5].Value:=i;dmform.ADOQuery_depart.ExecSQL;dmform.ADOQuery_depart.Close;dmform.ADOQuery_depart.SQL.Clear;dmform.ADOQuery_depart.SQL.Add('select * from department');dmform.ADOQuery_depart.Open;end;学生管理模块：procedure TstuForm.FormClose(Sender: TObject; var Action: TCloseAction);beginaction:=cafree;mainform.tb_stu.Down:=false;end;procedure TstuForm.tb_exitClick(Sender: TObject);beginclose;end;procedure TstuForm.tb_postClick(Sender: TObject);vars:string;begins:='insert into student(学号,姓名,性别,出生日期,班级编号,籍贯) values(:a,:b,:c,:d,:e,:f)'; dmform.ADOQuery_student.Close;dmform.ADOQuery_student.SQL.Clear;dmform.ADOQuery_student.SQL.Add(s);dmform.ADOQuery_student.Parameters[0].Value:=edit1.Text;dmform.ADOQuery_student.Parameters[1].Value:=edit2.Text;dmform.ADOQuery_student.Parameters[2].Value:=edit3.Text;dmform.ADOQuery_student.Parameters[3].Value:=edit4.Text;dmform.ADOQuery_student.Parameters[4].Value:=edit5.Text;dmform.ADOQuery_student.Parameters[5].Value:=edit6.Text;dmform.ADOQuery_student.ExecSQL;dmform.ADOQuery_student.Close;dmform.ADOQuery_student.SQL.Clear;dmform.ADOQuery_student.SQL.Add('select * from student');dmform.ADOQuery_student.Open;end;procedure TstuForm.tb_deleteClick(Sender: TObject);beginif messagedlg('确定删除该记录吗？',mtConfirmation,[mbYes, mbNo],0)=mryes thenbegindmform.ADOQuery_student.Delete;end;end;procedure TstuForm.tb_addClick(Sender: TObject);beginedit1.Text:='';edit2.Text:='';edit3.Text:='';edit4.Text:='';edit5.Text:='';edit6.Text:='';edit1.SetFocus;end;procedure TstuForm.tb_editClick(Sender: TObject);vars:string;i:string;begins:='update student set 学号=:a,姓名=:b,性别=:c,出生日期=:d,班级编号=:e,籍贯=:f where 学号=:n';i:=dmform.ADOQuery_student.fieldbyname('学号').AsString;dmform.ADOQuery_student.Close;dmform.ADOQuery_student.SQL.Clear;dmform.ADOQuery_student.SQL.Add(s);dmform.ADOQuery_student.Parameters[0].Value:=edit1.Text;dmform.ADOQuery_student.Parameters[1].Value:=edit2.Text;dmform.ADOQuery_student.Parameters[2].Value:=edit3.Text;dmform.ADOQuery_student.Parameters[3].Value:=edit4.Text;dmform.ADOQuery_student.Parameters[4].Value:=edit5.Text;dmform.ADOQuery_student.Parameters[5].Value:=edit6.Text;dmform.ADOQuery_student.Parameters[6].Value:=i;dmform.ADOQuery_student.ExecSQL;dmform.ADOQuery_student.Close;dmform.ADOQuery_student.SQL.Clear;dmform.ADOQuery_student.SQL.Add('select * from student');dmform.ADOQuery_student.Open;end;end.学生信息查询模块：procedure TqueryForm.FormClose(Sender: TObject; var Action: TCloseAction);beginaction:=cafree;mainform.tb_stuquery.Down:=false;end;procedure TqueryForm.Button1Click(Sender: TObject);begindmform.ADOQuery_change.Close;dmform.ADOQuery_change.SQL.Clear;dmform.ADOQuery_change.SQL.Add('select * from change where 学号='+edit1.Text+''); dmform.ADOQuery_change.Open;dmform.ADOQuery_reward.Close;dmform.ADOQuery_reward.SQL.Clear;dmform.ADOQuery_reward.SQL.Add('select * from reward where 学号='+edit1.Text+''); dmform.ADOQuery_reward.Open;dmform.ADOQuery_punish.Close;dmform.ADOQuery_punish.SQL.Clear;dmform.ADOQuery_punish.SQL.Add('select * from reward where 学号='+edit1.Text+''); dmform.ADOQuery_punish.Open;dmform.ADOQuery_stu.Close;dmform.ADOQuery_stu.SQL.Clear;dmform.ADOQuery_stu.SQL.Add('select * from student where 学号='+edit1.Text+''); dmform.ADOQuery_stu.Open;end;procedure TqueryForm.Button2Click(Sender: TObject);beginclose;end;end.五.试验小结：通过本次实验，我对程序的编码风格和程序的效率问题有了更进一步的了解。