管理信息系统 - 体育馆信息系统使用说明书

体育馆管理信息系统

管理信息系统

课程设计说明书

设计题目：体育馆管理信息系统

设计人员： _

指导教师：

**大学机电工程学院

2010年1月8日

目录

第 1 页 共 25 页

体育馆管理信息系统

第一章 系统分析 .............................................................................. 3

建立该系统的必要性 ............................................................................................................... 3 业务流程分析 ........................................................................................................................... 3 数据流程图 ............................................................................................................................... 4 数据字典 ................................................................................................................................... 4

第二章 系统设计 .............................................................................. 6

系统功能介绍 ........................................................................................................................... 6 数据库设计 ............................................................................................................................... 9 代码设计 ................................................................................................. 错误！未定义书签。 系统运行环境 ......................................................................................................................... 10 输入输出设计 ......................................................................................................................... 10

第三章 系统实施 ............................................................................ 11

系统分工 ................................................................................................................................. 11 模块功能与处理过程设计 ..................................................................................................... 11 程序设计 ................................................................................................. 错误！未定义书签。

第四章 设计总结 ............................................................................ 25

工作总结 ................................................................................................................................. 25 设计过程总结 ......................................................................................................................... 25 系统展望 ................................................................................................................................. 25

附录 .................................................................. 错误！未定义书签。

参考文献 ................................................................................................................................. 25

第 2 页 共 25 页

体育馆管理信息系统

第一章 系统分析 建立该系统的必要性

随着北京奥运会的完美落幕，及全民健身活动的开展，在我国城乡各地，体育健身的热潮不断涌起。我国是羽毛球项目的强国和大国，在各种世界大赛中斩获丰厚。自从上世纪50年代我国开展羽毛球运动以来，无论是从事专业还是业余的角度上，运动员的数量都有了飞速的发展。贴别是近年来，随着我国小球项目（羽毛球、乒乓球）在国际大赛上屡屡摘金夺银，更是激发了全民参与的热情。羽毛球，作为老少咸宜的健身项目，羽毛球的群众普及率已经上升到一个较高的水平。

随着人民生活水品的提高，各地大型羽毛球场馆的建设也上了一个新的台阶。与此同时，羽毛球场馆的管理工作也日益繁琐。如何保证场馆的充分利用又能产生一定的经济效益的难题摆在了管理者的面前。

网络化、信息化的管理模式业已深入人心，在减轻管理者压力的同时，也给人们的生活带来了极大地便捷。因此，我们认为，对大型的羽毛球馆进行信息化的管理势在必行，符合时代和大众的需求。因此，我们以为，建立一个羽毛球馆管理系统是工作高效的必然需求，是有必要的。

业务流程分析

在大型的羽毛球馆中，参与对象主要有客户，使用场馆者，和管理员，场馆服务人员。在使用活动中，客户使用了场地，产生消费，基于这个系统平台，将自己的消费信息以数据的形式传给管理员。由管理员收集信息并汇总，进行缴费，折扣等支付信息的处理。

客户有客户自带的一系列属性，我们将它汇总到客户信息表。客户星系表里包涵了管理员感兴趣的关于客户的一系列信息，比如其姓名、住址、年龄等。通过客户信息表，节约了客户与管理员之间沟通的时间，以利于管理员对客户的进一步认知。

在大型羽毛球馆，由于人多口杂，繁杂的信息类型多且量大。我们认为有必要对其进行集约型的公布。因此，公告信息显得非常重要。将公告信息汇总到一张表中，在管理员窗口发出。显示在客户的窗口中，就像一个窗口一样，由管理员递给了客户。

整个系统的业务流程图显示在下图中。

客户信息表 客户 公告信息表 管理员 消费信息表

第 3 页 共 25 页

体育馆管理信息系统

数据流程图

数据流程图见下图

打折信息 历史记录 消费文件 消费信 息 客户 客户信 息 客户文件 信 息汇 总 管理员 公告信 息 原始信息 数据字典

编号 姓名 身份证号 性别 职业 电话 家庭住址

编号 密码 权限

数据类型 公告编号 nvarchar 公告 nvarchar 长度 10 100 是否容许为空 其他 否 主键 是 数据类型 nvarchar nvarchar nvarchar 长度 10 10 12 是否容许为空 其他 否 主键 是 是 数据类型 nvarchar nvarchar nvarchar nvarchar nvarchar nvarchar nvarchar 长度 10 10 18 2 10 20 50 是否容许为空 否 是 是 是 是 是 是 其他 主键 第 4 页 共 25 页

体育馆管理信息系统

编号 球费 场地费 其他费用 费用总额 实收金额 找零

第 5 页 共 25 页

数据类型 nvarchar nvarchar nvarchar nvarchar nvarchar nvarchar nvarchar 长度 10 8 8 8 8 8 8 是否容许为空 否 是 是 是 是 是 是 其他 主键

体育馆管理信息系统

第三章 系统实施 系统分工

盛莹锋主要负责delphi编程语言的设计输入。

史文浩主要负责数据库建立与使用说明书、设计说明书的编制工作。

模块功能与处理过程设计

在本系统中，主要有5大模块。 模块一，公告模块。

在unit10和unit11单元文件中，设计代码如下： 公告栏代码： implementation uses unit4,unit6; {$R *.dfm}

procedure TFGONGG.ComboBox1Change(Sender: TObject); begin

with datamd.DLQuery do begin close; sql.Clear;

sql.Add('select * from 公告 where 编号='''+combobox1.text+''''); open;

dbmemo1.Text:=datamd.DataSource2.DataSet.FieldByName('公告').AsString; end; end;

procedure TFGONGG.FormClose(Sender: TObject; var Action: TCloseAction); begin

form6.show; end;

procedure TFGONGG.FormShow(Sender: TObject); begin

dbmemo1.Clear; end;

公告管理代码 implementation

uses unit4, unit6 ; {$R *.dfm}

第 11 页 共 25 页

体育馆管理信息系统

procedure TGL.FormClose(Sender: TObject; var Action: TCloseAction); begin

form6.Show; end;

procedure TGL.FormShow(Sender: TObject); begin

memo.SetFocus; end;

procedure TGL.SpeedButton1Click(Sender: TObject); begin

if( combobox1.Text<>'') then begin

with datamd.DLQuery do 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;

procedure TGL.SpeedButton2Click(Sender: TObject); begin

if messagedlg('确定要删除该公告？',mtconfirmation,[mbyes,mbno],0)=mryes then begin

with datamd.DLQuery do begin close; sql.Clear;

sql.Add(' delete from 公告 where 编号='''+combobox1.text+'''');

第 12 页 共 25 页

体育馆管理信息系统

try

execsql;

showmessage('删除成功！') ; except

showmessage('删除失败！'); exit;

end; end; end; end;

procedure TGL.SpeedButton3Click(Sender: TObject); begin close;

form6.Show; end; end.

模块二，个人信息模块。 个人信息添加代码：

第 13 页 共 25 页

体育馆管理信息系统

procedure TForm5.SpeedButton3Click(Sender: TObject); begin

edit1.Clear; edit2.Clear; edit3.Clear;

edit5.Clear; edit6.Clear; edit1.SetFocus; end;

procedure TForm5.SpeedButton5Click(Sender: TObject); begin

if (edit4.Text<>'') or (edit7.Text<>'')then begin

if messagedlg('确定要删除该用户？',mtconfirmation,[mbyes,mbno],0)=mryes then begin

第 14 页 共 25 页

体育馆管理信息系统

with datamd.SCQuery do begin close; sql.clear;

sql.Add('delete from customer where userid='''+edit4.text+'''') ; sql.Add('delete from customer where 姓名='''+edit7.text+'''') ; try

execsql;

showmessage('删除成功！'); except

showmessage('删除失败！'); exit; end; end; end else begin

application.messagebox('请输入要删除的会员的账号或姓名！','提示',mb_ok); exit; end; end; end;

procedure TForm5.SpeedButton6Click(Sender: TObject); begin close;

form6.Show; end; end .

模块三，费用查询、管理模块。

在费用查询单元文件中，加入相应控件，编写代码如下：

第 15 页 共 25 页

体育馆管理信息系统

implementation uses unit4,unit6; {$R *.dfm}

procedure TForm12.FormClose(Sender: TObject; var Action: TCloseAction); begin

form6.Show; end;

procedure TForm12.SpeedButton1Click(Sender: TObject); begin

h:=g*e*0.01;

if edit1.Text<>'' then begin

with datamd.DLQuery do begin close; sql.Clear;

sql.Add('select * from 消费 where userid='''+edit6.text+''''); open; begin

第 16 页 共 25 页

体育馆管理信息系统

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;

procedure TForm12.SpeedButton3Click(Sender: TObject); begin

edit1.Clear; edit2.Clear; edit3.Clear; edit4.Clear; edit5.Clear; edit6.Clear; edit7.Clear;

edit8.Enabled:=true; edit6.SetFocus; end;

procedure TForm12.SpeedButton4Click(Sender: TObject); begin close;

form6.show; end;

procedure TForm12.SpeedButton5Click(Sender: TObject); begin

if (edit8.Text<>'' )and (edit2.Text<>'' )and (edit3.text<>'') (edit1.Text<>'')then begin

a:=strtofloat(edit2.Text); b:=strtofloat(edit1.Text); c:=strtofloat(edit3.Text); f:=strtofloat(edit5.Text);

第 17 页 共 25 页

and (edit5.Text<>'') and 体育馆管理信息系统

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 uses unit4; {$R *.dfm}

procedure TSJHY.SpeedButton2Click(Sender: TObject); var

path:string;

第 18 页 共 25 页

体育馆管理信息系统

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\\'; if opendialog1.Execute then path:= opendialog1.FileName; if path<>'' then

if messagebox(self.Handle,'确认要恢复数据库吗？这样会覆盖现在的数据，','提示信息',mb_yesno+mb_iconquestion)=idyes then begin

self.Caption:='正在恢复数据...' ; with datamd.h do begin TRY close; sql.Clear ;

sql.add('use master restore database 仓库信息管理系统 from disk='+''''+trim(path)+''''); execsql();

for N:=1 to 100 do

progressbar1.Position:=N;

messagebox(self.Handle ,'数据还原成功','提示信息',mb_iconinformation); progressbar1.Position:=0; except

messagebox(self.handle,'数据还原失败','提示信息',mb_iconinformation); end; end; end; end;

模块五，密码修改模块。

在密码修改单元文件中，添加适当控件后，设计代码如下：

第 19 页 共 25 页

体育馆管理信息系统

implementation uses unit4,unit6; {$R *.dfm}

procedure TF_user.Button1Click(Sender: TObject); begin

if Trim(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

if change=true then datamd.datasource3.DataSet.Delete; Try

with datamd.migaiQuery do begin Close;

with SQL do begin Clear;

Add('insert into manage values(:p0,:p1,:p2,:p3)');

第 20 页 共 25 页

体育馆管理信息系统

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;

with datamd.migaiQuery do begin Close;

with SQL do begin Clear;

Add('select*from manage'); 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;

procedure TF_user.Button2Click(Sender: TObject); begin

Change:=False; Edit1.Clear; Edit2.Clear; Edit3.Clear; Edit4.Clear; Edit5.Clear;

第 21 页 共 25 页

体育馆管理信息系统

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;

procedure TF_user.Edit1KeyPress(Sender: TObject; var Key: Char); begin

if key=#13 then

selectnext(sender as Twincontrol,true,true); end;

procedure TF_user.Edit2KeyPress(Sender: TObject; var Key: Char); begin

if key=#13 then

selectnext(sender as Twincontrol,true,true); end;

procedure TF_user.Edit3KeyPress(Sender: TObject; var Key: Char); begin

if key=#13 then

selectnext(sender as Twincontrol,true,true); end;

procedure TF_user.FormClose(Sender: TObject; var Action: TCloseAction); begin

form6.Show; end;

procedure TF_user.FormShow(Sender: TObject); begin

with datamd.migaiQuery do begin Close;

SQL.Clear;

SQL.Add('select * from manage'); Open;

第 22 页 共 25 页

体育馆管理信息系统

end; end;

procedure TF_user.SpeedButton1Click(Sender: TObject); begin

Speedbutton1.Enabled:=False; Speedbutton4.Enabled:=False; Speedbutton3.Enabled:=False; Button1.Enabled:=True; Button2.Enabled:=True; Edit1.Enabled:=True; Edit2.Enabled:=True; Edit3.Enabled:=True; Edit4.Enabled:=True; Edit5.Enabled:=True;

if Edit1.Enabled=True then Edit1.SetFocus; end;

procedure TF_user.SpeedButton2Click(Sender: TObject); begin

Button2.Click; Close;

form6.Show; end;

procedure TF_user.SpeedButton3Click(Sender: TObject); begin Try

if Application.MessageBox('是否删除?','提示',mb_yesno)=6 then datamd.datasource3.DataSet.Delete; Except

Application.MessageBox('操作不成功可能无记录！','提示',mb_ok); end; end;

procedure TF_user.SpeedButton4Click(Sender: TObject); begin

Edit1.Enabled:=True; Edit2.Enabled:=True; Edit3.Enabled:=True; Edit4.Enabled:=True; Edit5.Enabled:=True; Change:=True;

第 23 页 共 25 页

体育馆管理信息系统

Speedbutton1.Enabled:=False; Speedbutton4.Enabled:=False; Speedbutton3.Enabled:=False; Button1.Enabled:=True; Button2.Enabled:=True;

Edit1.Text:=datamd.datasource3.DataSet.Fields[0].AsString; Edit2.Text:=datamd.datasource3.DataSet.Fields[1].AsString; Edit3.Text:=datamd.datasource3.DataSet.Fields[2].AsString; Edit4.Text:=datamd.datasource3.DataSet.Fields[3].AsString; end;

第 24 页 共 25 页

体育馆管理信息系统

第四章 设计总结 工作总结

1.找准问题方向。在进行系统设计的过程中，要注意找准方向，特别是要找自己熟悉的问题，不熟悉的问题往往带来很多不必要的麻烦。

2.理清系统的逻辑特点。系统运行有自己的特点，在进行系统设计的过程中，我们的工作是将现实中的问题反映到计算机软件中，那么现实的逻辑和理论上的逻辑之间的桥梁建设就显得尤为重要。

3.注意前期的理论知识的准备工作。在这个系统设计中，我们主要运用到了编程软件delphi的数据库软件sql2000。对两种软件的使用熟悉程度直接决定了在编制系统过程的时间长短和问题出现的多少。

4.持之以恒，不弃不离，反复实验。作为新手，我们在系统设计的过程中，难免会出现这样的或者那样的问题，要注意反复的实验，不断地尝试，在操作中找到解决问题的思路和方法。

设计过程总结

1.数据语言排版要正确合理，便于程序的书写和错误的查找。 2.要多使用网络资源，注意参考他人建议。

3.多尝试，注意正确掌握编程软件的语言规律和结构特点。

系统展望

可以预见到的是，该系统没有做的网络化，未来我们可以将它做到网络化，将交流平台扩大到互联网。便于系统的影响力进一步扩大。

二是未来系统可以扩大一些附加功能，比如用户间的交流平台、用户的预存钱服务、管理员与用户间关于空余场地的相关信息交流等等问题。

三是将多个系统的交流平台结合起来。在这个系统中，目标场馆只有一家，一个地区的羽毛球场馆不止一个，一个用户也不可能就到一家场馆里消费。可以通过该系统，将多个场馆间的信息共享到这个系统上，以便于更好的服务用户。

附录 参考文献

[1]李辉.数据库原理及应用.北京：机械工业出版社，2007 [2]黄梯云.管理信息系统.北京：高等教育出版社，2005

[3]伊文敏.Delphi+SQL Server完全解析.北京：人民邮电出版社，2006 [4]孙福兆，雷志军 Delphi课程设计案例精编：北京 清华大学，2008年

[5]四维科技，刘山，赵辉.Delphi系统开发实例精粹：北京 人民邮电出版社，2005年

第 25 页 共 25 页

本文来源：https://www.bwwdw.com/article/fdw2.html