delphi 课程设计任务书 你的需要.docx
《delphi 课程设计任务书 你的需要.docx》由会员分享，可在线阅读，更多相关《delphi 课程设计任务书 你的需要.docx（17页珍藏版）》请在冰点文库上搜索。
delphi课程设计任务书你的需要
北京大学课程设计任务书
题目：
学生宿舍管理系统
学号：
姓名：
专业：
课程：
delphi程序设计
指导教师：
职称：
完成时间：
2011年6月----2011年7月
课程设计任务书及成绩评定
课程设计的任务和具体要求
在现代的高校宿舍管理工作中，由于高校扩招，学生人数巨增，传统的管理方法已经不适合高校宿舍管理的需要，以前在管理方面采用的管理系统有一些落后，随着学生人数的不断增加，该系统在数据管理方面有一些混乱，越来越不能适宜管理的需要，因此需要一个功能更完善，操作更方便，容量更大的管理信息系统。
因此宿舍管理系统是各大高校所需要使用的一个管理系统．由于宿舍系统是一个比较大型的信息管理系统，它需要专业的工作人员才能完成复杂的功能，而且不同的高校的管理内容和方式有所不同．信息系统分析与设计是学习完《信息系统分析与设计》课程后进行的一次全面的综合练习。
其目的在于加深对信息系统基础理论和基本知识的理解，初步掌握使用信息系统分析、设计的基本内容和方法，提高解决实际问题的能力。
作为学习，我们设计这个管理系统不可能作一个标准的应用系统，而只是制作了一个有一般代表意义的小型宿舍管理系统．这样既深化了理论知识也提高了实践能力．
指导教师签字：
__________日期：
__________
指导教师评语
成绩：
_______指导教师签字：
_______日期：
_______
课程设计所需软件、硬件等
此管理系统采用delphi7设计前台界面，SQLServer2005开发数据库所以
采用的软件及语言如下：
系统：
WindowsXP
语言：
SQL语言、Pascal语言
开发工具：
SQLServer2005，delphi7等
课程设计进度计划
起至日期
工作内容
备注
2010年12月1日—5日
2010年12月6日—9日
2010年12月10日—11日
2010年12月12日—23日
2010年12月24日—27日
确定课题并搜集相关资料
分析后台数据库需求
总体功能的设计
各个功能模块的设计
撰写课程设计
略
参考文献，资料索引
序号
文献、资料名称
编著者
出版单位
[1]李目海，delphi应用程序设计,枣庄学院计算机科学系
[2]陈豫龙何旭洪，delphi数据库系统开发实例导航（第二版），人民邮电出版社
[3]刘子锐，delphi数据开发自学教程，人民邮电出版社
一、摘要
宿舍管理系统是目前各所高校后勤管理之中的重要部分,如何能科学有效的开展学生公寓管理工作,是当前高校领导人和后勤管理人员关心的问题｡因此,公寓管理工作的信息化和科学化有着十分重要的实践意义,此次开发的大公寓管理信息系统,旨在实现对现有的宿舍管理系统中遇到的宿舍信息情况和大量数据进行数据存储的基础上,设计并完成对其宿舍信息的分类､查询,添加,删除，修改和打印报表在深入研究的过程中,尽可能实现方便友好的操作界面和数据报表｡
该系统运用DELPHI7技术,以MicrosoftSQLServer2005为后台数据库,开发了一套为高校服务的公寓管理信息系统。
利用该系统大大的加强管理部门的相互沟通能力，提高工作效率，减少不必要的重复劳动，加速信息的记录、查阅以及传播速度，实现人性化管理和沟通服务管理的一种实用型管理软件。
管理信息系统是一个由人和计算机软件硬件资源组成的人机系统，能进行管理信息的收集、传递、加工、保存、维护和使用，提供信息支持单位的运行、管理和决策的功能。
在强调管理、调信息的现代社会中，管理信息系统变得越来越普及，可以说它是一门新的学科，跨越了若干个领域，如管理科学、系统科学、统计学以及计算机科学等，并在这些学科的基础上，形成信息收集和加工的方法，从而形成一个纵横交织的系统。
在传统的业务流程中，数据信息附着于业务流程之上，这是一种效率很低的数据处理方法；实现了办公自动化之后，虽然很多业务数据电子化了，但是不借助数据库的帮助，数据信息仍然附着于业务流程之上，虽然可以以文件等形式将电子化的数据存储，但是数据的再利用效率很低，而且也无法从这些无序的数据中提取进一步的信息；当建立了数据库系统之后，数据终于脱离业务流程而独立存在。
人们不但可以通过管理信息系统将其储存于数据库之中，而且还可以对其方便地再利用。
随着社会对人才需求的增加，以及高校的全面扩招，在校学生人数剧增，这给高校的后勤管理，特别是对学生公寓的管理带来很大的压力。
学生公寓的管理是一项非常烦琐的工作，但又是高校发展毕不可少的一部分。
在学生公寓管理工作中，很大一部分是重复性的劳动，完全可以通过计算机信息技术来取代人工进行这些工作，从而是管理人员将更多的精力集中在如何提高服务质量方面。
学生公寓管理系统就是为了满足这个需求而开发的一个管理信息系统。
二、目录
1.摘要…………………………………………4
2.目录…………………………………………5
3.正文…………………………………………6
3.1系统功能设计………………………6
3.2数据库设计…………………7
3.3系统主界面设计…………………7
3.4系统功能模块设计…………………7
3.5其它设计功能…………………15
4.实验中出现的问题及解决方法……16
5.结束语………………………………16
三、正文
1.系统功能设计
用户登录界面
系控制界面
右图为查询管理子模块：
在本系统中，将实现以下功能：
★学生住宿信息管理．
★删除记录管理．
★学生综合信息查询．
2.数据库设计
在sqlserver2005中建立了一个学生宿舍管理数据库，数据表如下所示：
用户信息表（账户，密码，身份）
住宿学生（学号，姓名，性别，专业，宿舍号，入住时间）
宿舍（宿舍号，宿舍电话）
夜归（学号，宿舍号，晚归时间，晚归原因）
离校（学号，宿舍号，离校时间，返回时间）
来访者（姓名，身份证，来访时间，离开时间）
3.系统主界面设计
包括菜单栏（mainmenu）、状态栏（toolbar）、工具栏（statusbar）三大部分，其中还添加了imagelist，timer等组件，进行辅助的设计。
4.系统功能模块设计
1）用户登录模块
用户登录窗体如图所示：
各组件的添加省略，下面只给出主要的代码：
“登录”按钮代码：
procedureTForm2.ComboBox2Click（Sender:
TObject）;
begin
ifcombobox2.Text='游客'then
begin
button3.Enabled:
=false;
button1.Enabled:
=true
end
else
begin
button1.Enabled:
=false;
button3.Enabled:
=true;
end;
end;
2）添加用户功能模块
用户管理窗口
“添加用户”按钮代码：
procedureTForm4.Button2Click（Sender:
TObject）;
begin
WithADOQuery1do
begin
Close;
SQL.Clear;
SQL.Add（'InsertIntouser_info（user_na,user_pwd,user_des）'）;
SQL.Add（'Values（'''+edit1.Text+''','''+edit2.Text+''','''+combobox1.Text+'''）'）;
ExecSQL;
showmessage（'添加成功'）;
end;
end;
3）管理功能模块
下面宿舍信息管理子功能为例，其他管理只给出窗体设计功能代码类似。
宿舍管理
“插入”按钮代码：
procedureTForm9.Button2Click（Sender:
TObject）;
begin
if（edit1.Text=''）or（edit2.Text=''）then
showmessage（'不能为空'）
else
begin
adotable1.append;
ADOTable1.FieldByName（'dorm_no'）.asstring:
=vartostr（edit1.Text）;
ADOTable1.FieldByName（'dorm_tel'）.asstring:
=vartostr（edit2.Text）;
adotable1.post;
end
end;
“显示所有”按钮代码：
procedureTForm9.Button6Click（Sender:
TObject）;
begin
adotable1.Filtered:
=false;
MessageBox（handle,'查询完毕！
','提示',MB_OKorMB_ICONINFORMATION）;
edit1.Text:
='';
edit2.Text:
='';
edit3.Text:
='';
end;
“查找”按钮代码：
procedureTForm9.Button5Click（Sender:
TObject）;
begin
ifadotable1.Activethen
begin
ifnotADOTable1.Locate（'dorm_no',Edit3.Text,[loCaseInsensitive,loPartialKey]）then
showmessage（'对不起，没有您要查找的记录！
'）
else
begin
ADOTable1.Filter:
='dorm_no='+QuotedStr（Edit3.Text）;
ADOTable1.Filtered:
=True;
end
end
elseshowmessage（'系统错误'）;
end;
“删除”按钮代码：
procedureTForm9.Button3Click（Sender:
TObject）;
begin
ifmessagedlg（'确实要删除吗？
',mtinformation,[mbyes,mbno],0）=mryesthen
adotable1.Delete
else
edit3.Text:
='';
end;
“返回”按钮代码：
procedureTForm9.Button1Click（Sender:
TObject）;
begin
edit1.Text:
='';
edit2.Text:
='';
edit3.Text:
='';
FreeOnRelease;
form9.Visible:
=false;
form1.Show;
end;
4）查询功能模块
下面是查询功能模块，首先是学生信息查询，主要同过label组件与edit组件进行分类查找，来访信息查询与宿舍信息查询由于数据单一，所以只进行单方面的查找，离校与夜归学生查询采用了combobox组件与edit组件配合，实现分类查寻，具体代码设计如下：
第一个“查找”按钮代码：
procedureTForm10.Button2Click（Sender:
TObject）;
begin
ifadotable1.Activethen
begin
ifnotADOTable1.Locate（'s_no',Edit1.Text,[loCaseInsensitive,loPartialKey]）then
showmessage（'对不起，没有您要查找的记录！
'）
else
begin
ADOTable1.Filter:
='s_no='+QuotedStr（Edit1.Text）;
ADOTable1.Filtered:
=True;
end
end
elseshowmessage（'系统错误'）;
end;
“显示所有”按钮代码：
procedureTForm10.Button5Click（Sender:
TObject）;
begin
adotable1.Filtered:
=false;
MessageBox（handle,'查询完毕！
','提示',MB_OKorMB_ICONINFORMATION）;
edit1.Text:
='';
edit2.Text:
='';
edit3.Text:
='';
end;
以上两个模块的功能与第一个类似，在此省略介绍。
“查找”按钮代码：
procedureTForm15.Button1Click（Sender:
TObject）;
begin
ifadotable1.Active=truethen
begin
ifcombobox1.Text='学号'then
ifadotable1.Locate（'s_no',edit1.Text,[loCaseInsensitive,loPartialKey]）then
begin
ADOTable1.Filter:
='s_no='+QuotedStr（Edit1.Text）;
ADOTable1.Filtered:
=True
end
else
showmessage（'对不起，没有您要查找的记录！
'）;
ifadotable1.Active=truethen
ifcombobox1.Text='姓名'then
ifadotable1.Locate（'s_name',edit1.Text,[loCaseInsensitive,loPartialKey]）then
begin
ADOTable1.Filter:
='s_name='+QuotedStr（Edit1.Text）;
ADOTable1.Filtered:
=True
end
else
showmessage（'对不起，没有您要查找的记录！
'）;
ifadotable1.Active=truethen
ifcombobox1.Text='宿舍号'then
ifadotable1.Locate（'s_dorm_no',edit1.Text,[loCaseInsensitive,loPartialKey]）then
begin
ADOTable1.Filter:
='s_dorm_no='+QuotedStr（Edit1.Text）;
ADOTable1.Filtered:
=True;
end
else
showmessage（'对不起，没有您要查找的记录！
'）;
end;
end;
此模块设计与上面的类似，在此省略介绍。
5）报表的设计
主要采用Ehlib组件包进行开发，只要设置一些组件的属性即可，简单易懂，在此省略具体设计步骤，设计图如上面所示。
6）其它设计功能
采用互斥对象方法避免应用程序重复启动
var
mutex:
THandle;
begin
mutex:
=createmutex（NIL,TRUE,'form1'）;
ifgetlasterror<>ERROR_ALREADY_EXISTSthen
begin
Application.Initialize;
Form3:
=TForm3.Create（application）;
Form3.Show;
form3.Update;
sleep（100）;
Application.CreateForm（TForm2,Form2）;
Application.CreateForm（TForm1,Form1）;
Application.CreateForm（TForm16,Form16）;
Application.CreateForm（TForm17,Form17）;
form1.StatusBar1.Panels[1].Text:
='小贺';
Application.CreateForm（TForm4,Form4）;
Application.CreateForm（TForm6,Form6）;
Application.CreateForm（TForm8,Form8）;
Application.CreateForm（TForm9,Form9）;
Application.CreateForm（TForm10,Form10）;
Application.CreateForm（TForm11,Form11）;
Application.CreateForm（TForm12,Form12）;
Application.CreateForm（TForm13,Form13）;
Application.CreateForm（TForm14,Form14）;
Application.CreateForm（TForm15,Form15）;
form3.Free;
Application.Run;
end;
else
showmessage（'应用程序已启动！
'）;
releasemutex（mutex）;
4.实验中出现的问题及解决方法
技术水平不是很扎实。
有很多的新的控件、新的知识要学习、所以做起来没想象中的容易，不过最终可以克服。
在调试的过程中遇到了许多错误，话费了大量时间进行修改、整理，浪费了整体的开发时间。
由于自己有好多delphi知识掌握的不好，花费了大量时间学习，导致好多功能没有完成，好在主要功能基本完成。
5.结束语
通过此次课程设计，不但复习、巩固了delphi课程的有关知识，并且还总结了许多软件设计的经验，其中，自己有如下感悟：
1.在软件设计的初期一定要构思好软件的框架，设计好各个功能模块，具体的功能界面设计等等，总之，要花费大量时间设计好总体构思，在此基础上再进行开发设计。
2.在做课程设计的过程中，发现自己在DELPHI中有许多地方掌握的不扎实，学习编程必须要动手实践才能有真的提高。
升级会员 