文档文库
手机版
投诉建议
热门搜索： 心得体会 演讲稿 思想汇报
首页 > delphi课程设计--学生成绩信息管理系统

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

发布时间：   来源：文档文库   
小 中 大
字号：
手机查看
可修改编辑

信息科学与工程学院课程设计任务书


题目：学生成绩信息管理系统
姓名：XXX学号：XXXXXXXXX专业：计算机应用技术课程：Delphi应用程序设计

精品doc

可修改编辑
课程设计任务书及成绩评定
课程设计的任务和具体要求
要求学生熟练掌握Delphi高级编程语言的基本知识和基本的编程技能；掌握结构化和面向对象程序设计的基本思路和方法；
能够熟练应用常用的Delphi的组件，实现应用程序的编写、编译和发行实验要求：
利用delphi软件，编写学生成绩管理系统。1.具有成绩输入，查询，打印功能，2.具有不及格学生的统计功能。
指导教师签字：、日期：

指导教师评语
成绩：指导教师签字：日期：
精品doc

可修改编辑
课程设计所需软件、硬件等
软件：word文档，delphi7，databasedesktop硬件：计算机，打印机

课程设计进度计划
起至日期

工作内容

分析课程设计任务要求并合理安排工作搜集资料
编写课程设计任务书及排版
备注
认真仔细的分析搜索的
资料
12月28日-12月29日
12月29日
12月29日-1月5日
参考文献、资料索引
序号
文献、资料名称
编著者
出版单位
1.Delphi应用程序设计李目海枣庄学院计算机科学系2.Delphi程序设计教程沈才梁，万志平北京交通大学出版社3.Delphi基础教程宋一兵，李春燕机械工业出版社
4.SQLserver2005数据库技术蒋秀英清华大学出版社
精品doc

可修改编辑



目录

一．前言………………………………………………………4
二．设计目的…………………………………………………4
三．设计流程…………………………………………………4
四．表结构……………………………………………………5
五．具体步骤…………………………………………………9
精品doc

可修改编辑
六.心得体会…………………………………………………18

一．前言：
随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。目前，在学校里，随着高校规模的不断扩大和招生人数的不断增加，需要处理大量的学生数据信息。如何更好的组织学生信息，更加快捷的管理学生信息显得尤为的重要。
作为计算机应用的一部分,使用计算机对学生信息进行管理,有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生信息管理的效率,也是学校的科学化、正规化管理,与世界接轨的重要条件。我们为此开发了一套学生信息管理系统，本系统面向学校的教务人员，目的是为学校办公管理提供一个快速、简单规范的管理平台，使学院在学生信息管理方面更加规范化,快捷化。

二．设计目的：

a要求学生熟练掌握Delphi高级编程语言的基本知识和基本的编程技能；b掌握结构化和面向对象程序设计的基本思路和方法；
c能够熟练应用常用的Delphi的组件，实现应用程序的编写、编译和发行。
三.设计流程：（1）

学生成绩管理系统登陆
精品doc

可修改编辑
信
息输入
（2）

四.表结构：
成绩输入
精品doc


可修改编辑


精品doc

可修改编辑



精品doc

可修改编辑


精品doc

可修改编辑



精品doc

可修改编辑
五.具体步骤：
1.新建一个application。新建aboutbox1。在project1中编写相应的代码。

Project1中的代码：programProject1;uses
Forms,sysutils,
Unit1in'Unit1.pas'{Form1},Unit2in'Unit2.pas'{Form2},Unit3in'Unit3.pas'{Form3},Unit4in'Unit4.pas'{Form4},Unit7in'Unit7.pas'{AboutBox},Unit9in'Unit9.pas'{Form9},Unit8in'Unit8.pas'{Form8},Unit10in'Unit10.pas'{Form10};
{$R*.res}begin
Application.Initialize;
aboutbox:=taboutbox.Create(application;aboutbox.Show;aboutbox.update;sleep(2000;
Application.CreateForm(TForm1,Form1;AboutBox.Free;Application.Run;end.
精品doc

可修改编辑
2.新建form1，做成登陆界面，通过用户名和密码进入系统。

Form1（登陆界面）var
Form1:TForm1;
implementation
usesUnit2,Unit9;
{$R*.dfm}
procedureTForm1.SpeedButton1Click(Sender:TObject;beginbegin
ifedit1.Text=''thenshowmessage('请输入用户名'elseifedit2.Text=''thenshowmessage('请输入密码'elsebegin
table1.Open;if
table1.Locate('Username;Pwd',vararrayof([edit1.Text,edit2.Text],[]then
begin
ifnotassigned(form2thenform2:=tform2.Create(self;
精品doc

可修改编辑
form2.Show;form1.Hide;endelse
showmessage('用户名或密码不正确，请重新输入！';edit1.Clear;edit2.Clear;end;end;end;
procedureTForm1.SpeedButton2Click(Sender:TObject;begin
application.Terminate;end;end.
3.新建form2，通过代码调用其他的窗体。

Form2procedureTForm2.Label3MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer;begin
精品doc

可修改编辑

ifnotassigned(form10thenform10:=tform10.Create(self;form10.Show;form2.Hide;end;
procedureTForm2.Label2MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer;begin
ifnotassigned(form8thenform8:=tform8.Create(self;form8.Show;form2.Hide;end;
procedureTForm2.Timer1Timer(Sender:TObject;begin
label4.caption:=datetimetostr(now;end;
procedureTForm2.Label6MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer;begin
ifnotassigned(form3thenform3:=tform3.Create(self;form3.Show;form2.Hide;end;
procedureTForm2.Label7MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer;begin
ifnotassigned(form4thenform4:=tform4.Create(self;form4.Show;form2.Hide;end;
procedureTForm2.Label5Click(Sender:TObject;begin
精品doc

可修改编辑
ifnotassigned(form9thenform9:=tform9.Create(self;form9.Show;form2.Hide;end;end.
4.新建form8，编写代码，可以快速输入学生的信息，也可以很方便的删除学生的信息。

Form8（信息输入）
procedureTForm8.SpeedButton1Click(Sender:TObject;beginbegin
ifedit1.Text=''thenshowmessage('请输入学号'
elseifedit2.Text=''thenshowmessage('请输入姓名'elseifedit3.Text=''thenshowmessage('请输入性别'elseifedit4.Text=''thenshowmessage('请输入年龄'elseifedit5.Text=''thenshowmessage('请输入电话begin
ifmessagedlg('确实要添加该学生信息？',mtinformation,[mbok,mbcancel],0=mrokthenbegin
Table1.Edit;Table1.Append;
Table1.FieldByName('学号'.asstring:=edit1.text;Table1.FieldByName('姓名'.asstring:=edit2.text;
精品doc

可修改编辑
Table1.FieldByName('性别'.asstring:=edit3.text;Table1.FieldByName('年龄'.asstring:=edit4.text;Table1.FieldByName('电话'.asstring:=edit5.text;Table1.Post;
showmessage('添加成功';edit1.clear;edit2.clear;edit3.clear;edit4.clear;edit5.clear;Table1.Append;endelsebegin
showmessage('添加失败';edit1.clear;edit2.clear;edit3.clear;edit4.clear;edit5.clear;Table1.Append;end;end;end;end;
procedureTForm8.SpeedButton2Click(Sender:TObject;begin
ifnotassigned(form2thenform2:=tform2.Create(self;form2.Show;form8.Hide;end;
procedureTForm8.SpeedButton3Click(Sender:TObject;begin
ifnotassigned(form9thenform9:=tform9.Create(self;form9.Show;form8.Hide;end;
procedureTForm8.SpeedButton4Click(Sender:TObject，end；end.
精品doc

可修改编辑

5.新建form3，编写代码，可以快速输入学生的成绩，也可以很方便的删除学生的成绩。

Form3（成绩输入）
procedureTForm3.SpeedButton2Click(Sender:TObject;begin
ifnotassigned(form2thenform2:=tform2.Create(self;form2.Show;form3.Hide;end;
procedureTForm3.SpeedButton3Click(Sender:TObject;begin
ifnotassigned(form9thenform9:=tform9.Create(self;form9.Show;form3.Hide;end;
procedureTForm3.SpeedButton1Click(Sender:TObject;beginbegin
ifedit1.Text=''thenshowmessage('请输入学号'
精品doc

可修改编辑
elseifedit2.Text=''thenshowmessage('请输入姓名'elseifedit15.Text=''thenshowmessage('请输入科目'elseifedit16.Text=''thenshowmessage('请输入成绩'elsebegin
ifmessagedlg('确实要添加该学生',mtinformation,[mbok,mbcancel],0=mrokthenbegin
Table2.Edit;Table2.Append;
Table2.FieldByName('学号'.asstring:=edit1.text;Table2.FieldByName('姓名'.asstring:=edit2.text;Table2.FieldByName('科目'.asstring:=edit15.text;Table2.FieldByName('成绩'.asstring:=edit16.text;table2.post;
showmessage('添加成功';edit1.Clear;edit2.Clear;edit15.Clear;edit16.Clear;Table2.Append;endelsebegin
showmessage('添加失败';Table2.Append;end;end;end;end;
procedureTForm3.SpeedButton4Click(Sender:TObject;begin
table2.Active:=true;ifedit3.Text=''then
showmessage('请输入要删除学生的学号'
elseiftable2.Locate('学号',edit3.Text,[]thenbegin
ifmessagedlg('确实要删除该学生',mtwarning,[mbok,mbcancel],0=mrokthenbegin
table2.Delete;
showmessage('删除成功';edit3.Clear;end
精品doc
？
？

可修改编辑
else
showmessage('删除失败';edit3.Clear;end;end;end.
6.新建form9，编写代码，是系统能够退出。

Form9（退出界面）
procedureTForm9.SpeedButton1Click(Sender:TObject;begin
application.Terminate;end;
procedureTForm9.SpeedButton2Click(Sender:TObject;begin
ifnotassigned(form2thenform2:=tform2.Create(self;form2.Show;form9.Hide;end;end.

精品doc

可修改编辑

六．心得体会：

时光似水，岁月如歌。在这次的课程设计中不仅检验了我所学习的知识，也培养了我如何去把握一件事情，如何去做一件事情，又如何完成一件事情。在设计过程中，和同学们相互探讨，相互学习，相互监督。通过这次的课设，我对Delphi的学习有了更深的理解。
这次课程设计终于顺利完成了，在设计中遇到了很多编程问题，最后在同学和同学们的帮助下并且查阅了很多相关的资料才得以解决。通过本次课程设计，我进一步温习和巩固了课本的理论知识，增强了理论联系实际的能力。同时也增强了我通过检索资料来获取相关专业信息以及利用检索到的信息来解决面临问题的能力。本次设计使我深刻认识到自己软件编程方面的知识薄弱。在今后的学习我要强软件编程方面知识的积累和运用。最后，在课设过程中，我要感谢帮助过我的同学和老师，在此，对这些同学和老师表达诚挚的谢意！经过一周的课程设计，加强了我关于理论联系实际、与具体课题项目结合开发、设计系统的能力。既让我们了解到应该怎样把理论运用于实际，又让我们了解到在实践中遇到问题时要怎样运用所学知识理论去解决。
在本次课程设计中，我们还需要一些以前没有学习到的知识，于是书籍跟网络成了我们的良好助手。在查阅资料的过程中，我们要判断优劣、取舍相关知识，这样一来我们对搜索来的信息的利用能力也有所提高。我们学习的知识是有限的，在以后的工作中我们肯定会遇到许多求知的领域，这方面的能力将有助于我们未来的工作。最后再次感谢李目海老师的指导。


..

精品doc

本文来源：https://www.2haoxitong.net/k/doc/285307da4a2fb4daa58da0116c175f0e7dd11952.html

《delphi课程设计--学生成绩信息管理系统.doc》
将本文的Word文档下载到电脑，方便收藏和打印
推荐度：
点击下载文档

文档为doc格式
相
关
案
例

相关推荐

推荐内容

软件课程设计-员工信息管理系统 课程设计任务书模板数据库学生管理系统 工程停工安全管理合同协议书 以教学为中心 努力提高人才培养水平——以枣庄学院为例 枣庄学院成人教育《化工仪表及自动化》复习题及参考答案 高中东京审判观后感三篇 (名著读后感)关于圆明园的读后感 幼儿园大班英语教案：学习《P Pig》 教务管理系统分析与设计 教务信息管理系统课程设计报告
网站内容来自网络，如有侵权请联系我们，立即删除！ Copyright © 范文写作网京ICP备16605803号