课程设计delphi学生信息管理系统

枣 庄 学 院计算机科学系课程设计任务书题目： 学生信息管理系统的设计与实现 学 号： XXXXXXXX 姓 名： XXXX 专 业： XXXXXXXXX 课 程： Delphi 程序设计 指导教师： 职称： 讲 师 完成时间： 2010 年 12 月-2010 年 12 月2010 年 12 月 30 日1课程设计任务书及成绩评定课程设计的任务和具体要求设计并实现学生信息管理系统，使这个学生信息管理系统包括浏览信息，查看学生各项成绩，打印，更改用户等功能，对以前学过的内容要予以总结，通过课程设计，对各操作有进一步了解。指导教师签字： 日期： 指导教师评语成绩： 指导教师签字： 日期： 2课程设计所需软件、硬件等硬件要求：一台基本配置的计算机。软件配置：WINDOWS、SQL Server 2005，delphi 7课程设计进度计划起至日期 工作内容 备注2010.12.20 至2010.12.30完成学生信息管理系统的各项操作，对功能进一步完善。无参考文献、资料索引序号 文献、资料名称 编著者 出版单位1 Delphi 应用程序设计 李目海 电子科技大学出版社，20052 Delphi 7 程序设计技巧与实例 吴天准 中国铁道出版社 20033 Delphi 数据库程序设计教程 刘瑞新 张志纲 机械工业出版社，20043学生信息管理系统的设计与实现（一）开发环境的简介设计平台： DELPHI7.0Delphi 是一个对象导向设计的应用程序语言，是开发数据库前端的优秀工具，它的编程语言简洁明快、组件功能强大和编程环境灵活方便。采用 Delphi 来开发数据库应用程序具有更大的灵活性和可扩展性。数据库： SQL Server 2005数据库访问方式：ADOADO（Active Data Objects）实际是一种提供访问各种数据类型 的连接机制。ADO 设计为一种极简单的格式，通过 ODBC 的方法同数据库接口。可以使用任何一种 ODBC 数据源，即不止适合于 SQL Server、Oracle、Access 等数据库应用程序，也适合于 Excel 表格、文本文件、图形文件和无格式的数据文件。ADO 是基于 OLE-DB 之上的技术，因此 ADO 通过其内部的属性和方法提供统一的数据访问接口方法。其主要优点是易于使用、高速度、低内存支出和占用磁盘空间较少。（二）系统管理主要功能：1 学籍信息管理2 班级信息管理3 课程信息管理44 成绩信息管理(1) 学籍信息管理每年的大量新生入学，老生毕业都需要处理大量的学生信息。通过这一模块，可以实现学生基本情况的添加、删除、更新。还能查询各个学生的情况，姓名、家庭电话、家庭住址、学号等各个消息(2) 班级信息管理实现班级的添加、删除、更新。查询班级的所在系别，辅导员等。(3)课程信息管理每个学期都会增加一些新的科目，通过本模块可以轻松的添加以及更新课程。可以根据学期条件或者班级条件的选择，也可根据课程名、课程号或者班级的选择，并对值的输入，可以看到数据集中显示符合条件的课程数据信息，而且可以根据教工的修改要求进行数据的添加、删除、修改的操作。该项管理对课程的属性进行了具体化的分类，比如可以分辨是考试科还是考察课，而且根据条件的选择大大得提高了对各学期课程数据的记录操作，很大得帮助了教工们工作效率的提高。5(4)成绩信息管理本模块实现了成绩的输入、删除、更新。还能查询到平均成绩以及单科最高最低成绩以及个人成绩。把成绩统计这个繁琐的工作简单化，为学生成绩的管理方面提高工作效率。窗体设计：班级管理（banjigl.dfm）班级查询（banjicx.dfm）学籍管理（xuejigl.dfm）学籍查询（xuejicha.dfm）课程管理（kechenggl.dfm ）课程查询（kechengcha.dfm）成绩管理（chengjigl.dfm）成绩查询（chengjicha.dfm）程序源代码Project:beginApplication.Initialize;form2:=tform2.Create(application);form2.Show ;6form2.Update ;sleep(2000);form2.Free ;form3:=tform3.Create(application);if form3.ShowModal=3 thenbeginform3.Free ;endelseform3.Free; Application.CreateForm(TForm1, Form1);Application.CreateForm(TForm2, Form2);Application.CreateForm(TForm3, Form3);Application.CreateForm(TForm4, Form4);Application.CreateForm(TForm5, Form5);Application.CreateForm(TForm6, Form6);Application.CreateForm(TForm7, Form7);Application.CreateForm(TAboutBox, AboutBox);Application.CreateForm(TForm9, Form9);Application.CreateForm(TForm10, Form10);Application.CreateForm(TForm11, Form11);Application.CreateForm(TForm12, Form12);7Application.CreateForm(TForm13, Form13);Application.CreateForm(TForm14, Form14);Application.CreateForm(TForm15, Form15);Application.CreateForm(TForm16, Form16);Application.CreateForm(TForm17, Form17);Application.Run;end.登录界面：beginif edit1.Text thenbeginif table1.Locate(usesname;password,vararrayof(edit1.Text ,edit2.Text), )thenbeginform3.ModalResult:=3;endelseshowmessage(输入信息不正确);end8elseshowmessage(输入不能为空);end;End.创建用户：begintable1.Open;table1.Insert;table1.FieldByName(usesname).AsString:=edit1.Text;table1.FieldByName(password).AsString:=edit2.Text;table1.Post;showmessage(创建成功);end;End.修改密码：beginif edit2.Text=edit3.Text thentable1.Open;table1.Insert;table1.FieldByName(usesname).AsString :=edit1.Text;9table1.FieldByName(password).AsStri