管理信息系统体育馆信息系统使用说明书.docx
- 文档编号:2736562
- 上传时间:2023-05-04
- 格式:DOCX
- 页数:30
- 大小:489.33KB
管理信息系统体育馆信息系统使用说明书.docx
《管理信息系统体育馆信息系统使用说明书.docx》由会员分享,可在线阅读,更多相关《管理信息系统体育馆信息系统使用说明书.docx(30页珍藏版)》请在冰点文库上搜索。
管理信息系统体育馆信息系统使用说明书
管理信息系统
课程设计说明书
设计题目:
体育馆管理信息系统
设计人员:
_
指导教师:
**大学机电工程学院
2010年1月8日
第一章系统分析
建立该系统的必要性
随着北京奥运会的完美落幕,及全民健身活动的开展,在我国城乡各地,体育健身的热潮不断涌起。
我国是羽毛球项目的强国和大国,在各种世界大赛中斩获丰厚。
自从上世纪50年代我国开展羽毛球运动以来,无论是从事专业还是业余的角度上,运动员的数量都有了飞速的发展。
贴别是近年来,随着我国小球项目(羽毛球、乒乓球)在国际大赛上屡屡摘金夺银,更是激发了全民参与的热情。
羽毛球,作为老少咸宜的健身项目,羽毛球的群众普及率已经上升到一个较高的水平。
随着人民生活水品的提高,各地大型羽毛球场馆的建设也上了一个新的台阶。
与此同时,羽毛球场馆的管理工作也日益繁琐。
如何保证场馆的充分利用又能产生一定的经济效益的难题摆在了管理者的面前。
网络化、信息化的管理模式业已深入人心,在减轻管理者压力的同时,也给人们的生活带来了极大地便捷。
因此,我们认为,对大型的羽毛球馆进行信息化的管理势在必行,符合时代和大众的需求。
因此,我们以为,建立一个羽毛球馆管理系统是工作高效的必然需求,是有必要的。
业务流程分析
在大型的羽毛球馆中,参与对象主要有客户,使用场馆者,和管理员,场馆服务人员。
在使用活动中,客户使用了场地,产生消费,基于这个系统平台,将自己的消费信息以数据的形式传给管理员。
由管理员收集信息并汇总,进行缴费,折扣等支付信息的处理。
客户有客户自带的一系列属性,我们将它汇总到客户信息表。
客户星系表里包涵了管理员感兴趣的关于客户的一系列信息,比如其姓名、住址、年龄等。
通过客户信息表,节约了客户与管理员之间沟通的时间,以利于管理员对客户的进一步认知。
在大型羽毛球馆,由于人多口杂,繁杂的信息类型多且量大。
我们认为有必要对其进行集约型的公布。
因此,公告信息显得非常重要。
将公告信息汇总到一张表中,在管理员窗口发出。
显示在客户的窗口中,就像一个窗口一样,由管理员递给了客户。
整个系统的业务流程图显示在下图中。
数据流程图
数据流程图见下图
数据字典
数据类型
长度
是否容许为空
其他
编号
nvarchar
10
否
主键
姓名
nvarchar
10
是
身份证号
nvarchar
18
是
性别
nvarchar
2
是
职业
nvarchar
10
是
电话
nvarchar
20
是
家庭住址
nvarchar
50
是
数据类型
长度
是否容许为空
其他
编号
nvarchar
10
否
主键
密码
nvarchar
10
是
权限
nvarchar
12
是
数据类型
长度
是否容许为空
其他
公告编号
nvarchar
10
否
主键
公告
nvarchar
100
是
数据类型
长度
是否容许为空
其他
编号
nvarchar
10
否
主键
球费
nvarchar
8
是
场地费
nvarchar
8
是
其他费用
nvarchar
8
是
费用总额
nvarchar
8
是
实收金额
nvarchar
8
是
找零
nvarchar
8
是
第二章系统设计
系统功能介绍
在这个平台上,功能主要分为两大块,一块是客户所拥有的,一块是管理员所拥有的。
下面分别就这两大块说明。
功能一:
客户编辑、查询客户信息。
在客户信息管理一栏中,客户可在信息平台上编辑自己的信息,包括姓名、身份证号、家庭住址、职业、密码修改等。
功能二:
客户可查询其他客户的信息,以加强交流与合作。
查询可以账号、姓名、性别等不同的内容为主题。
在费用查询一栏中,客户可查询自己的历史消费信息。
功能三:
管理员录入客户信息。
在管理员界面,在会员信息管理一栏中可录入新用户的信息。
功能四:
会员使用费用输入。
功能五:
公告信息管理。
数据库设计
E-R图如下
系统运行环境
为运行本例,计算机应满足如下条件:
1、CPU:
:
IntelPentium166mhz或更高的处理器,或任何运行于MicrosoftWindowsNTWorkStation的Alpha处理器。
操作系统:
MicrosoftWindows98/me/2000/XP或MicrosoftWindowsNTService/WorkStation4.0(ServicePack5)或更高版本。
监视器:
MicrosoftWindows支持的VGA,要求分辨率固定为1024*768
内存:
64MB以上。
2、软件环境要求
本系统是在MicrosoftWindowsXP环境下,采用Delphi7.0企业版开发的。
考虑到数据处理量和系统稳定性,我们最终采取了部门级数据库,Microsoft的SQLserver2000。
3、环境及数据库配置
1)在系统上安装Delphi7.0。
2)在系统上安装MicrosoftSQLserver2000。
3)打开“长春铁路道口管理”文件夹,将它Copy到您的计算机。
4)启动SQLserver的“企业管理器”,建立一个名叫:
“TestC”的数据库。
5)启动“查询分析器”,执行在“长春铁路道口管理”下的“脚本”目录中的“testC.sql”脚本文件。
6)还原数据库。
7)数据库连接配置可在系统文件夹下找到“Train.ini”文件。
HostName其中HostName:
数据库服务器的机器名/IP地址;Username:
登录数据库的用户名;
Password:
为登录密码;DBname:
连接的数据库名称。
8)打开Delphi7.0运行系统文件夹下的Train.dpr文件,即可进入本系统。
输入输出设计
输入输出主要分为用户输入和管理员输入。
只有用户权限的用户输入时,只能输入与自己相关的个人信息。
可以查询到其他用户的个人信息,可以查询到公告信息,也可以查询到自己的实用信息。
作为管理员权限的管理员输入时,能够输入新用户和用户的消费信息,以及输入公告信息。
可以看到用户可以看到的一切信息。
第三章系统实施
系统分工
盛莹锋主要负责delphi编程语言的设计输入。
史文浩主要负责数据库建立与使用说明书、设计说明书的编制工作。
模块功能与处理过程设计
在本系统中,主要有5大模块。
模块一,公告模块。
在unit10和unit11单元文件中,设计代码如下:
公告栏代码:
implementation
usesunit4,unit6;
{$R*.dfm}
procedureTFGONGG.ComboBox1Change(Sender:
TObject);
begin
withdatamd.DLQuerydo
begin
close;
sql.Clear;
sql.Add('select*from公告where编号='''+combobox1.text+'''');
open;
dbmemo1.Text:
=datamd.DataSource2.DataSet.FieldByName('公告').AsString;
end;
end;
procedureTFGONGG.FormClose(Sender:
TObject;varAction:
TCloseAction);
begin
form6.show;
end;
procedureTFGONGG.FormShow(Sender:
TObject);
begin
dbmemo1.Clear;
end;
公告管理代码
implementation
usesunit4,unit6;
{$R*.dfm}
procedureTGL.FormClose(Sender:
TObject;varAction:
TCloseAction);
begin
form6.Show;
end;
procedureTGL.FormShow(Sender:
TObject);
begin
memo.SetFocus;
end;
procedureTGL.SpeedButton1Click(Sender:
TObject);
begin
if(combobox1.Text<>'')then
begin
withdatamd.DLQuerydo
begin
close;
sql.clear;
sql.add('select*from公告');
open;
begin
append;
fieldbyname('公告').asstring:
=memo.text;
fieldbyname('编号').AsString:
=combobox1.Text;
post;
end;
end;
end
else
application.MessageBox('公告编号不能为空,请选择!
','提示',64);
combobox1.SetFocus;
end;
procedureTGL.SpeedButton2Click(Sender:
TObject);
begin
ifmessagedlg('确定要删除该公告?
',mtconfirmation,[mbyes,mbno],0)=mryesthen
begin
withdatamd.DLQuerydo
begin
close;
sql.Clear;
sql.Add('deletefrom公告where编号='''+combobox1.text+'''');
try
execsql;
showmessage('删除成功!
');
except
showmessage('删除失败!
');
exit;
end;
end;
end;
end;
procedureTGL.SpeedButton3Click(Sender:
TObject);
begin
close;
form6.Show;
end;
end.
模块二,个人信息模块。
个人信息添加代码:
procedureTForm5.SpeedButton3Click(Sender:
TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit5.Clear;
edit6.Clear;
edit1.SetFocus;
end;
procedureTForm5.SpeedButton5Click(Sender:
TObject);
begin
if(edit4.Text<>'')or(edit7.Text<>'')then
begin
ifmessagedlg('确定要删除该用户?
',mtconfirmation,[mbyes,mbno],0)=mryesthen
begin
withdatamd.SCQuerydo
begin
close;
sql.clear;
sql.Add('deletefromcustomerwhereuserid='''+edit4.text+'''');
sql.Add('deletefromcustomerwhere姓名='''+edit7.text+'''');
try
execsql;
showmessage('删除成功!
');
except
showmessage('删除失败!
');
exit;
end;
end;
end
else
begin
application.messagebox('请输入要删除的会员的账号或姓名!
','提示',mb_ok);
exit;
end;
end;
end;
procedureTForm5.SpeedButton6Click(Sender:
TObject);
begin
close;
form6.Show;
end;
end.
模块三,费用查询、管理模块。
在费用查询单元文件中,加入相应控件,编写代码如下:
implementation
usesunit4,unit6;
{$R*.dfm}
procedureTForm12.FormClose(Sender:
TObject;varAction:
TCloseAction);
begin
form6.Show;
end;
procedureTForm12.SpeedButton1Click(Sender:
TObject);
begin
h:
=g*e*0.01;
ifedit1.Text<>''then
begin
withdatamd.DLQuerydo
begin
close;
sql.Clear;
sql.Add('select*from消费whereuserid='''+edit6.text+'''');
open;
begin
append;
fieldbyname('userid').asstring:
=trim(edit6.Text);
fieldbyname('找零').asstring:
=trim(edit7.Text);
fieldbyname('球费').asstring:
=trim(edit1.Text);
fieldbyname('场地费').asstring:
=trim(edit2.Text);
fieldbyname('其他费用').asstring:
=trim(edit3.Text);
fieldbyname('费用总额').asstring:
=floattostr(h);
fieldbyname('实收金额').asstring:
=trim(edit5.Text);
end;
post;
end;
end
else
application.MessageBox('请输入账户!
','提示!
',64);
end;
procedureTForm12.SpeedButton3Click(Sender:
TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
edit8.Enabled:
=true;
edit6.SetFocus;
end;
procedureTForm12.SpeedButton4Click(Sender:
TObject);
begin
close;
form6.show;
end;
procedureTForm12.SpeedButton5Click(Sender:
TObject);
begin
if(edit8.Text<>'')and(edit2.Text<>'')and(edit3.text<>'')and(edit5.Text<>'')and(edit1.Text<>'')then
begin
a:
=strtofloat(edit2.Text);
b:
=strtofloat(edit1.Text);
c:
=strtofloat(edit3.Text);
f:
=strtofloat(edit5.Text);
edit4.Text:
=floattostr(a+b+c);
g:
=strtofloat(edit4.Text);
e:
=strtofloat(edit8.Text);
edit7.Text:
=floattostr(f-g*e*0.01);
end
else
begin
application.MessageBox('请输入必要内容!
','提示!
',mb_ok);
exit;
end;
end;
end.
模块四,备份模块
备份模块设计代码如下
implementation
usesunit4;
{$R*.dfm}
procedureTSJHY.SpeedButton2Click(Sender:
TObject);
var
path:
string;
N:
integer;
begin
datamd.ADOConnection2.Close;
datamd.ADOConnection1.Close;
datamd.ADOConnection1.Connected:
=false;
datamd.ADOConnection2.Connected:
=false;
self.caption:
='恢复数据';
messagebox(self.Handle,'请在恢复前将所有与该数据库连接的程序关闭,以免恢复失败','提示信息',mb_iconinformation);
opendialog1.Filter:
='备份文件|*.bak';
opendialog1.InitialDir:
=extractfiledir(application.ExeName)+'\databack\';
ifopendialog1.Executethen
path:
=opendialog1.FileName;
ifpath<>''then
ifmessagebox(self.Handle,'确认要恢复数据库吗?
这样会覆盖现在的数据,','提示信息',mb_yesno+mb_iconquestion)=idyesthen
begin
self.Caption:
='正在恢复数据...';
withdatamd.hdo
begin
TRY
close;
sql.Clear;
sql.add('usemasterrestoredatabase仓库信息管理系统fromdisk='+''''+trim(path)+'''');
execsql();
forN:
=1to100do
progressbar1.Position:
=N;
messagebox(self.Handle,'数据还原成功','提示信息',mb_iconinformation);
progressbar1.Position:
=0;
except
messagebox(self.handle,'数据还原失败','提示信息',mb_iconinformation);
end;
end;
end;
end;
模块五,密码修改模块。
在密码修改单元文件中,添加适当控件后,设计代码如下:
implementation
usesunit4,unit6;
{$R*.dfm}
procedureTF_user.Button1Click(Sender:
TObject);
begin
ifTrim(Edit5.Text)<>Trim(Edit3.Text)then
begin
Application.MessageBox('密码不相同!
','提示',mb_ok);
Exit;
end;
if((Edit1.Text<>'')and(Edit2.Text<>'')and(Edit3.text<>'')and(Edit4.text<>''))then
begin
ifchange=truethendatamd.datasource3.DataSet.Delete;
Try
withdatamd.migaiQuerydo
begin
Close;
withSQLdo
begin
Clear;
Add('insertintomanagevalues(:
p0,:
p1,:
p2,:
p3)');
end;
Parameters[0].Value:
=Edit1.Text;
Parameters[1].Value:
=Edit2.Text;
Parameters[2].Value:
=Edit3.Text;
Parameters[3].Value:
=Edit4.Text;
Execsql;
end;
Except
Application.MessageBox('操作不成功编号不可重复!
','提示',mb_ok);
end;
withdatamd.migaiQuerydo
begin
Close;
withSQLdo
begin
Clear;
Add('select*frommanage');
end;
Open;
end;
Button2.Click;
change:
=False;
end
else
begin
Application.MessageBox('输入必要信息。
','提示',64);
exit;
end;
Radiogroup1.ItemIndex:
=-1;
Speedbutton1.Enabled:
=True;
Speedbutton3.Enabled:
=True;
Speedbutton4.Enabled:
=True;
Button1.Enabled:
=False;
Button2.Enabled:
=False;
end;
procedureTF_user.Button2Click(Sender:
TObject);
begin
Change:
=False;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit1.Enabled:
=false;
Edit2.Enabled:
=false;
Edit3.Enabled:
=false;
Edit4.Enabled:
=false;
Edit5.Enabled:
=False;
Speedbutton1.Enabled:
=true;
Speedbutton3.Enabled:
=true;
Speedbutton4.Enabled:
=true;
Button1.Enabled:
=false;
button2.Enabled:
=false;
Radiogroup1.ItemIndex:
=-1;
end;
procedureTF_user.Edit1KeyPress(Sender:
TObject;varKey:
Char);
begin
ifkey=#13then
selectnext(senderasTwincontrol,true,true)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 管理信息系统 体育馆 信息系统 使用 说明书