高校学生公寓管理系统

实验一：高校学生公寓管理系统

一、实验目的

1、了解和掌握建模软件的使用；

2、了解和掌握MS SQL Server Studio的使用；

3、增强分析问题、设计模型与方案的能力；

二、实验环境

硬件环境：数据库服务、客户机、局域网

软件：MS SQL Server 2008，建模软件（如：PowerDesigner）

三、实验简述

本系统的用户是学生公寓管理人员和后勤处人员。他们在日常公寓管理的主要工作有，人住学生信息的查询与管理寝室分配、调整以及对各种信息的查询。根据上述要求进行分析，本系统在实现上应该具备如下功能：▲系统操作员的管理。根据不同的操作员有不同的操作权限。

▲学生信息的操作和查询。对新生信息的录入以及毕业生信息的删除。提供各种查询功能。

▲宿舍信息的操作和查询。宿舍楼的增加、删除、修改等。对学生入住和调换寝室等进行操作。

▲宿舍电费管理。及时录入每月各个寝室电费。对以前年份的电费可以进行删除。

▲数据库的备份以及还原。

四、系统功能模块

根据设计的功能需求及高校公寓管理的流程，确定学校公寓管理的功能模块主要包括：系统管理、数据操作、数据查询以及其它四个功能模块。如图4-1：

【系统管理】该模块中主要包括了登录、数据备份、数据还原、密码修改、用户管理以及退出六项功能。

【数据操作】主要是对数据的增、删、改的功能。详细分为学生信息操作、宿舍信息操作、住宿分配、电费信息操作。

【数据查询】主要是对数据库中的数据进行各类的查询操作。分为学生信息

查询、宿舍信息查询、住宿信息查询、宿舍电费查询以及学生信息的高级查询。

【其它】是为系统设置一些辅助功能。主要为帮助功能。

根据系统功能模块绘制出如图4-2所示的系统流程图

五、E—R图

该系统的ER图如图4-3所示。

六、数据表结构设计

在本系统中，共建立了六个表的数据库。

⑴guanliyuanbiao

用来记录系统使用者的资料。结构如表4-1所示：

表4-1 guanliyuanbiao

⑵xueshengxinxibiao

管理学生的基本信息。结构如表4-2所示：

表4-2 xueshengxinxibiao

⑶sushexinxibiao

管理学校宿舍的信息，结构如表4-3所示：

表4-3 sushexinxibiao

⑷zhusubiao

对学生的住宿情况进行管理，结构如表4-4所示：

表4-4 zhusubiao

⑸dianfeibiao

用来记录寝室学生用电情况。结构如表4-5所示。

表4-5 dianfeibiao

⑹zhuanyebiao

该表主要是辅助功能，在对学生的基本信息进行操作时要用到，结构如表4-6所示：

表4-6 zhuanyebiao

七、学生公寓管理系统详细设计

1、主页面设计

系统启动后，进入到主页面中。但不能对该系统的各个功能（除帮助功能）进行操作，系统会自动提示你要先登陆。当你在登录后在进入到主页面中，根据用户的类别不同，主窗体显示也会不同。例如：如果是一般管理员登录后，数据操作和用户管理的功能模块将屏蔽。

设计步骤：

⑴在Form窗体中添加TMainMenu、TImageList、TStatusBar、TToolBar 以及TImage组件。

⑵主要组件的属性值设置，如表7-1所示。

表7-1 主要组件的属性设置

⑶选择MainMenu1的Items属性，添加菜单项。双击ImageList1组件，选择添加图标。双击ToolBar1组件增加九个ToolButton按钮。分别设置ToolButton 的Caption为登录、数据备份、数据还原、密码修改、数据操作、数据查询、高级查询、帮助和退出。

⑷选择Image1的Picture属性添加图片。

2、数据模块

使用数据模块可集中所有数据访问组件,并对组件的属性进行预定义,生成数据模块单元文件。应用程序可在任何地方很方便地引用该单元,避免在窗体中频繁地定义数据访问组件,从而减少组件定义工作量。

数据模块的建立，在新建中选择Data Module，修改其Name属性为dm。并在该窗体中加一个TADOConnection组件、七个TADOQuery组件以及相应的TDataSource。数据模块的设计如图7-2-1所示。

图7-2-1 数据模块

数据库的连接步骤：

⑴选择ADOConnection1组件的ConnectionString属性，将出现如图7-2-2窗体，点击“Build”按钮。

图7-2-2 建立数据库链接

⑵在数据库链接属性窗体中选择要连接的数据库类型，如图7-2-3。我选择的是SQL Server数据库。点击“下一步”按钮。

图7-2-3 选择数据库

⑶选择数据库的服务器名和数据库名，如图7-2-4 。在点击“测试连接”按钮，将提示“连接成功”。

图7-2-4 测试连接

⑷连接成功后，在设置七个ADOQuery组件Connection的属性值为ADOConnection1，以及Name属性为各个表名，以便在程序中的应用。设置TdataSource的DataSet的属性为相应的TADOQuery。

3、系统设计

根据功能需求分析中将数据系统管理这个模块又详细分为：登录、数据备份、数据还原、密码修改、用户管理、退出。

3、1 登陆

登录窗体主要是用于对用户使用该系统的合法性进行验证，如图7-3-1所示。

图7-3-1 登录界面

设计步骤：

⑴将Form的BorderStyle的属性改为bsDialog，并在窗体中添加TImage、两个TEdit、两个TBitBtn和一个TComboBox组件。

⑵设置Image1的Align 属性为alClient 、选择Picture属性添加图片。

⑶设置TEdit的Text属性值为空，BorderStyle属性值为bsNone。

⑷在ComboBox的Items属性中，增加两个选项“高级管理员”和“一般管理员”。

⑸设置TBitBtn的Caption属性分别为确定和退出。并在Glyph属性中添加相应的图标。

3、2数据库备份和还原

数据备份（图7-3-2(a)），主要是对数据的一种保护。以免在数据被一些不知名的原因造成数据的损害和丢失时无法在使用。在数据备份的窗体要添加SaveDialog和Timer组件。

数据还原（图7-3-2(b)），在数据需要重新修补时。利用还原可以将数据恢复到最近的一次备份中。在数据备份的窗体要添加OpenDialog和Timer组件等。

图7-3-2(a) 数据备份图7-3-2(b) 数据还原

//****************数据备份实现代码如下******************//

with dm.adoquery1 do

begin

close;

sql.Clear;

sql.Add('BACKUP DATABASE [gongyuguanli] TO DISK = '''+Edit1.Text+''' WITH INIT');

execsql; //利用SQL语句直接对gongyuguanli数据库进行备份end;

showmessage('数据库备份完毕。');

except //出现异常时显示数据备份失败showmessage('数据库备份失败，请重新备份。');

end;

3、3密码修改

提供密码修改功能是为了增加用户的安全性，高级管理员赋予用户的密码比较简单，用户为了维护自己的使用权，可以进行密码修改。但只能修改自己的密码，不能修改其他人的密码。在Form窗体中添加TEdit、TBitBtn和TLabel 组件。将三个TLabel的Caption属性分别改为用户名、原密码和新密码，将TEdit 的Text的属性设置为空，TBitBtn的Caption属性分别为确定和退出。设计如图7-3-3所示。

图7-3-3 修改密码

3.4 用户管理

用户管理的功能使用者只能是系统的高级管理员。该功能提供给用户的是对系统操作员的增、删功能。增加用户时将用户名和密码设为一直。在用户使用时可以根据自己需要进行密码的修改。删除用户主要是对不在进行公寓管理工作的人员进行删除，删除用户时不需要使用将删除用户的密码。用户管理界面如图7-3-4所示。

图7-3-4用户管理

//******增加用户的“确定”按钮实现代码**********//

procedure TForm4.BitBtn1Click(Sender: TObject);

var

name1,pass1,lx1:string;

aa:string;

begin

name1:=edit1.Text;

pass1:=edit2.Text;

lx1:=combobox2.text;

aa:='';

with dm.guanliyuan do //查找输入的用户名是否存在，若存

begin 在，则要求高级管理员重新输入

close;

sql.Clear;

sql.Add('select 用户名from guanliyuanbiao where 用户名='''+name1+''' and 类型='''+lx1+'''');

open;

aa:=trim(dm.guanliyuan.Fields[0].AsString);

end;

if aa<>'' then

MessageBox(self.Handle, PChar('该用户已名存在!'), '提示', mb_IconInformation + mb_Ok)

else

begin

with dm.guanliyuan do

begin

close;

sql.Clear;

sql.Add('insert into guanliyuanbiao(用户名,密码,类型) values('''+name1+''','''+pass1+''','''+lx1+''')');

execsql;

end; //创建成功后，用户名、密码以及类型插入到数据库中。

dm.guanliyuan.Close;

messagebox(self.Handle,pchar('创建成功'),'提示',mb_IconInformation+mb_ok);

edit1.Clear;

edit2.Clear;

end;

end;

4、数据处理

数据操作包括了学生信息操作、宿舍信息操作、住宿分配、电费信息操作。数据操作的主要功能是对数据的增、删、改。

以下是对学生的基本信息进行的操作。学生信息操作的窗体设计如图7-4所示。在窗体中主要添加了DBGrid1组件。DBGrid1的DataSource属性设置为DS_xueshengxinxi、ReadOnly属性设置为False。数据操作中的其他信息操作也可以按照这样的设计进行。

图7-4 数据操作

//********“添加入库”按钮的响应事件代码***********//

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

xh1:=edit1.Text; //对输入的学生信息负值给变量

xm1:=edit2.Text;

xb1:=combobox1.Text;

yx1:=combobox2.Text;

zy1:=combobox3.Text;

jg1:=edit3.Text;

nj1:=edit4.Text;

bj1:=edit5.Text;

If xh1='' then //学号为关键字，所以不能为空messagebox( self.handle, '学号不能为空','提示',mb_iconinformation+mb_ok)

else

begin //使用SQL语句进行插入操作。

with dm.xueshengxinxibiao do

begin

close;

sql.Clear;

sql.Add (' insert into xueshengxinxibiao(学号,姓名,性别,院系,专业,年级,

班级)values

('''+xh1+''','''+xm1+''','''+xb1+''','''+jg1+''','''+yx1+''','''+zy1+''',''

'+nj1+''','''+bj1+''')');

execsql;

messagebox(self.handle,'数据添加成功,按确定返回','提示',mb_iconinformation+mb_ok);

end;

dm.xueshengxinxibiao.Close;

end;

formshow(self); //添加成功后在显示所有学生的信息

end;

//*********************删除学生信息实现代码***************// procedure TForm5.BitBtn2Click(Sender: TObject);

var

xh:string;

ret:integer;

begin

xh:=edit1.Text;

if xh='' then//学号没输入，无法显示学生信息，就不能删除

messagebox(self.Handle,'还没输入学号','提示',mb_ok)

else

begin

ret:=application.MessageBox(' 确定要删除该学生的信息!','提示',mb_iconinformation+mb_okcancel+mb_defbutton1);

if ret= mb_okcancel then

begin //使用SQL语句进行删除操作。

with dm.xueshengxinxibiao do

begin

close;

sql.Clear;

sql.Add('delete from xueshengxinxibiao where 学号='''+xh+'''');

execsql;

messagebox(self.handle,'删除成功','提示',mb_iconinformation+mb_ok);

sql.Add('select 学号,姓名,性别,籍贯,院系,专业,年级,班级from xueshengxinxibiao');

open; //删除学生信息后，在显示剩余学会的信息。

end;

dbgrid1.columns[0].width:=60; //对显示数据表格的规范

dbgrid1.columns[1].width:=60;

dbgrid1.columns[2].width:=40;

dbgrid1.columns[3].width:=80;

dbgrid1.columns[4].width:=150;

dbgrid1.columns[5].width:=150;

dbgrid1.columns[6].width:=40;

dbgrid1.columns[7].width:=40;

end

else

formshow(self);

end;

end;

//*************修改学生信息实现代码******************//

procedure TForm5.BitBtn3Click(Sender: TObject);

var

xh,xm,xb,jg,yx,zy,nj,bj :string; //定义要使用的变量。

begin

xh:=edit1.Text;

xm:=edit2.Text;

xb:=combobox1.Text;

jg:=edit3.Text;

yx:=combobox2.Text;

zy:=combobox3.Text;

nj:=edit4.Text;

bj:=edit5.Text;

begin

if xh='' then

messagebox(self.Handle,'请输入学号','提示',mb_ok)

else

begin

with dm.xueshengxinxibiao do //使用SQL语句对数据进行修改

begin

close;

sql.Clear;

sql.Add('update xueshengxinxibiao set 学号='''+xh+''', 姓名='''+xm+''',性别='''+xb+''', 籍贯='''+jg+''',院系='''+yx+''',专业='''+zy+''',年级='''+nj+''',班级='''+bj+''' where 学号='''+xh+'''');

execsql; //将修改好的学生信息重新添加入库

messagebox(self.handle,'修改成功','提示',mb_iconinformation+mb_ok);

end;

dm.xueshengxinxibiao.Close;

end;

formshow(self);

end;

end;

5、数据查询

数据查询的使用者主要是一般管理员。数据查询可分为两大类：一是一般查询，包括学生信息查询、宿舍信息查询、住宿信息查询、和电费信息查询。二是高级查询，高级查询提供了多种查询方式，使用者不需要了解到具体的学生学号或者学生姓名，就可以进行查询。并且可以对自己要得到的信息进行筛选。高级查询的界面图7-5所示。

图7-5高级查询

设计步骤：

⑴在Form窗体中添加一个TPanel1组件，设置Align属性值为alClient，Color 的属性值为clTeal。然后在其上面添加两个TGroupBox组件以及一个TImage1组件、设置TGroupBox组件的Caption属性分别为“高级查询一”和“高级查询二”，Color属性值为clTeal 。数据库的组件包括TDBGrid1组件。以及两个TSpeedButton。

⑵主要组件的属性值设置，如表7-2所示。

表7-2 主要组件的属性设置

⑶TGroupBox1中添加两个TBitBtn控件，和多个TEdit、TLabel和一个TGroupBox。设置GroupBox3的Caption属性分别为“请选择要显示的数据”，Color属性值为clTeal 。并在其上添加多个TCheckBox控件，分别设置TCheckBox 的Caption属性为“院系”、“专业”、“年级”“班级”等。

⑷TGroupBox1中添加两个TBitBtn控件，和三个TRadioButton、TEdit、TLabel和TGroupBox各一个。设置TRradioButton的Caption属性分别为“学号”、“姓名”、“籍贯”。设置GroupBox4的Caption属性分别为“请选择要显示的数据”，Color属性值为clTeal 。并在其上添加多个TCheckBox控件，分别设置TcheckBox的Caption属性为“院系”、“专业”、“年级”“班级”等。设置Label1的Caption属性值为“请输入关键字”。

6、其他

在其它这个功能模块中，重点说明帮助功能。每个操作都有详细的说明。用户在使用该系统时，遇到困难时可以查看帮助，以便用户熟练的使用该系统。帮助除了在主窗体中设置外，在某些窗体中也有相应的联结。在帮助窗体中主要添加两个组件：TreeView1和RichEdit1。RichEdit1用于显示文本文档。帮助功能的窗体如图7-6所示。

图7-6 帮助

//***********帮助功能中读取文档的实现代码**************// procedure TForm20.FormShow(Sender: TObject);

var

txtsize:file of byte; //定义变量

filestr:string;

begin //使用相对地址，查找文本的地址

filestr := ExtractFileDir(Application.ExeName) + '\help\help01.rtf';

assignfile(txtsize,filestr); //读取文本

reset(txtsize);

closefile(txtsize);

RichEdit1.Lines.LoadFromFile(filestr); //显示文本内容

end;