管理信息系统

管理信息系统课程设计说明书设计题目：体育馆管理信息系统设计人员：_指导教师：*大学机电工程学院2010年1月8日目录第一章 系统分析 3建立该系统的必要性3业务流程分析3数据流程图4数据字典4第二章 系统设计 6系统功能介绍数据库设计代码设计系统运行环境输入输出设计第三章 系统实施系统分工模块功能与处理过程设计程序设计第四章 设计总结69错误!未定义书签。1010111111错误!未定义书签。 25工作总结25设计过程总结25系统展望25附录 错误!未定义书签。25参考文献第一章 系统分析建立该系统的必要性随着北京奥运会的完美落幕，及全民健身活动的开展，在我国城乡各地，体育健身 的热潮不断涌起。我国是羽毛球项目的强国和大国，在各种世界大赛中斩获丰厚。自从 上世纪 50 年代我国开展羽毛球运动以来，无论是从事专业还是业余的角度上，运动员 的数量都有了飞速的发展。贴别是近年来，随着我国小球项目（羽毛球、乒乓球）在国 际大赛上屡屡摘金夺银，更是激发了全民参与的热情。羽毛球，作为老少咸宜的健身项 目，羽毛球的群众普及率已经上升到一个较高的水平。随着人民生活水品的提高，各地大型羽毛球场馆的建设也上了一个新的台阶。与此 同时，羽毛球场馆的管理工作也日益繁琐。如何保证场馆的充分利用又能产生一定的经 济效益的难题摆在了管理者的面前。网络化、信息化的管理模式业已深入人心，在减轻管理者压力的同时，也给人们的 生活带来了极大地便捷。因此，我们认为，对大型的羽毛球馆进行信息化的管理势在必 行，符合时代和大众的需求。因此，我们以为，建立一个羽毛球馆管理系统是工作高效 的必然需求，是有必要的。业务流程分析在大型的羽毛球馆中，参与对象主要有客户，使用场馆者，和管理员，场馆服务人 员。在使用活动中，客户使用了场地，产生消费，基于这个系统平台，将自己的消费信 息以数据的形式传给管理员。由管理员收集信息并汇总，进行缴费，折扣等支付信息的 处理。客户有客户自带的一系列属性，我们将它汇总到客户信息表。客户星系表里包涵了 管理员感兴趣的关于客户的一系列信息，比如其姓名、住址、年龄等。通过客户信息表， 节约了客户与管理员之间沟通的时间，以利于管理员对客户的进一步认知。在大型羽毛球馆，由于人多口杂，繁杂的信息类型多且量大。我们认为有必要对其 进行集约型的公布。因此，公告信息显得非常重要。将公告信息汇总到一张表中，在管 理员窗口发出。显示在客户的窗口中，就像一个窗口一样，由管理员递给了客户。整个系统的业务流程图显示在下图中。数据流程图数据流程图见下图打折信息客户/信息亍汇总丿管理员客尸 信息原始信息公告信息数据字典数据类型长度是否容许为空其他编号nvarchar10否主键姓名nvarchar10是身份证号nvarchar18是性别nvarchar2是职业nvarchar10是电话nvarchar20是家庭住址nvarchar50是数据类型长度是否容许为空其他编号nvarchar10否主键密码nvarchar10是权限nvarchar12是数据类型长度是否容许为空其他公口编号nvarchar10否主键公告nvarchar100是数据类型长度是否容许为空其他编号nvarchar10否主键球费nvarchar8是场地费nvarchar8是其他费用nvarchar8是费用总额nvarchar8是实收金额nvarchar8是找零nvarchar8是第二章系统设计系统功能介绍在这个平台上，功能主要分为两大块，一块是客户所拥有的，一块是管理员所拥有的。 下面分别就这两大块说明。功能一：客户编辑、查询客户信息。在客户信息管理一栏中，客户可在信息平台上编辑自己的信息，包括姓名、身份证号、 家庭住址、职业、密码修改等。功能二：客户可查询其他客户的信息，以加强交流与合作。查询可以账号、姓名、性别 等不同的内容为主题。在费用查询一栏中，客户可查询自己的历史消费信息。功能三：管理员录入客户信息。在管理员界面，在会员信息管理一栏中可录入新用户的 信息。功能四：会员使用费用输入。功能五：公告信息管理。数据库设计E-R 图如下系统运行环境为运行本例，计算机应满足如下条件：1、CPU :：Intel Pentium 166mhz 或更高的处理器，或任何运行于 Microsoft Windows NT WorkStation 的 Alpha 处理器。操作系统：Microsoft Windows98/me/2000/XP 或 Microsoft Windows NT Service/WorkStation 4.0 (Service Pack 5 )或更高版本。监视器：Microsoft Windows支持的VGA，要求分辨率固定为1024*768内存： 64MB 以上。2、软件环境要求本系统是在Microsoft WindowsXP环境下，采用Delphi7.0企业版开发的。考虑到数据处理 量和系统稳定性，我们最终采取了部门级数据库Microsoft的SQLserver2000。3、环境及数据库配置1) 在系统上安装 Delphi7.0。2) 在系统上安装 Microsoft SQLserver 2000。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 单元文件中，设计代码如下：公告栏代码：implementationuses unit4,unit6;$R *.dfmprocedure TFGONGG.ComboBox1Change(Sender: TObject);beginwith datamd.DLQuery dobeginclose;sql.Clear;sql.Add(select * from 公告 where 编号=+comboboxl.text+);open;(公 告).AsString;end;end;procedure TFGONGG.FormClose(Sender: TObject; var Action: TCloseAction);beginform6.show;end;procedure TFGONGG.FormShow(Sender: TObject);begindbmemo1.Clear;end;公告管理代码implementationuses unit4, unit6 ;$R *.dfmprocedure TGL.FormClose(Sender: TObject; var Action: TCloseAction); begin form6.Show;end;procedure TGL.FormShow(Sender: TObject); beginmemo.SetFocus;end;procedure TGL.SpeedButton1Click(Sender: TObject); beginif( combobox1.Text) thenbeginwith datamd.DLQuery dobeginclose;sql.clear;sql.add(select * from 公告 );open;beginappend;fieldbyname(公 告).asstring:=memo.text;fieldbyname(编号).AsString:=comboboxl.Text;post;end;end;endelseapplication.MessageBox(公告编号不能为空，请选择！,提示,64); comboboxl.SetFocus;end;procedure TGL.SpeedButton2Click(Sender: TObject);beginif messagedlg(确定要删除该公告？ ,mtconfirmation,mbyes,mbno,0)=mryes then beginwith datamd.DLQuery dobeginclose;sql.Clear;sql.Add( delete from 公告 where 编号=+combobox1.text+);tryexecsql;showmessage（删除成功！）;exceptshowmessage（删除失败！）;exit;end;end;end;end;procedure TGL.SpeedButton3Click（Sender: TObject）; beginclose;form6.Show;end;end. 模块二，个人信息模块。 个人信息添加代码：procedure TForm5.SpeedButton3Click(Sender: TObject); begineditl.Clear;edit2.Clear;edit3.Clear;edit5.Clear;edit6.Clear;edit1.SetFocus;end;procedure TForm5.SpeedButton5Click(Sender: TObject);beginif (edit4.Textv) or (edit7.Textv)thenbeginif messagedlgC确定要删除该用户？ ,mtconfirmation,mbyes,mbno,0)=mryes then beginwith datamd.SCQuery dobeginclose;sql.clear;sql.Add(delete from customer where userid=+edit4.text+) ;sql.Add(delete from customer where 姓名=+edit7.text+);tryexecsql;showmessage(删除成功！)；exceptshowmessage(删除失败！)；exit；end；end；endelsebeginapplication.messagebox(请输入要删除的会员的账号或姓名！,提示,mb_ok); exit；end；end；end；procedure TForm5.SpeedButton6Click(Sender: TObject)；beginclose；form6.Show；end；end .模块三，费用查询、管理模块。在费用查询单元文件中，加入相应控件，编写代码如下：implementationuses unit4,unit6;$R *.dfmprocedure TForml2.FormClose(Sender: TObject; var Action: TCloseAction); beginform6.Show;end;procedure TForm12.SpeedButton1Click(Sender: TObject);beginh:=g*e*0.01;if edit1.Textv thenbeginwith datamd.DLQuery dobeginclose;sql.Clear;sql.Add(select * from 消费 where userid=+edit6.text+);open;beginappend;fieldbyname(userid).asstring:=trim(edit6.Text);fieldbyname(找 零).asstring:=trim(edit7.Text);fieldbyname(球 费).asstring:=trim(editl.Text);fieldbyname(场 地费).asstring:=trim(edit2.Text);fieldbyname(其 他费用).asstring:=trim(edit3.Text);fieldbyname(费用总额).asstring:=floattostr(h);fieldbyname(实 收金额).asstring:=trim(edit5.Text);end;post;end;endelseapplication.MessageBox(请输入账户！,提示！ ,64);end;procedure TForml2.SpeedButton3Click(Sender: TObject);begineditl.Clear;edit2.Clear;edit3.Clear;edit4.Clear;edit5.Clear;edit6.Clear;edit7.Clear;edit8.Enabled:=true;edit6.SetFocus;end;procedure TForml2.SpeedButton4Click(Sender: TObject);beginclose;form6.show;end;procedure TForml2.SpeedButton5Click(Sender: TObject);beginandif (edit8.Text )and (edit2.Text )and (edit3.text) and (edit5.Text)(editl.Text)thenbegina:=strtofloat(edit2.Text);b:=strtofloat(editl.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);endelsebeginapplication.MessageBox(请输入必要内容！,提示！ ,mb_ok); exit;end;end;end.模块四，备份模块备份模块设计代码如下implementationuses unit4;$R *.dfm procedure TSJHY.SpeedButton2Click(Sender: TObject);varpath:string;N:integer;begindatamd.ADOConnection2.Close;datamd.ADOConnection1.Close;datamd.ADOConnection1.Connected:=false;datamd.ADOConnection2.Connected:=false;self.caption:=恢复数据;messagebox(self.Handle,请在恢复前将所有与该数据库连接的程序关闭，以免恢复失败，提 示信息,mb_iconinformation);opendialogl.Filter:=备份文件 l*.bak;opendialog1.InitialDir:=extractfiledir(application.ExeName)+databack;if opendialogl.Execute thenpath:= opendialogl.FileName;if path thenif messagebox(self.Handle,确认要恢复数据库吗？这样会覆盖现在的数据，,提示信息,mb_yesno+mb_iconquestion)=idyes thenbeginself.Caption:=正在恢复数据.;with datamd.h dobeginTRYclose;sql.Clear ;sql.add(use master restore database 仓 库 信 息 管 理 系 统 from disk=+trim(path)+);execsql();for N:=l to l00 doprogressbarl.Position:=N;messagebox(self.Handle，数据还原成功,提示信息,mb_iconinformation);progressbarl.Position:=0;exceptmessagebox(self.handle,数 据还原失败,提示信息,mb_iconinformation);end;end;end;end;模块五，密码修改模块。 在密码修改单元文件中，添加适当控件后，设计代码如下：implementationuses unit4,unit6;$R *.dfmprocedure TF_user.ButtonlClick(Sender: TObject);beginif Trim(Edit5.Text)vTrim(Edit3.Text) thenbeginApplication.MessageBox(密码不相同!,提示；mb_ok);Exit;end;if (Edit1.Textv) and (Edit2.Textv) and (Edit3.textv) and (Edit4.textv)then beginif change=true then datamd.datasource3.DataSet.Delete;Trywith datamd.migaiQuery dobeginClose;with SQL dobeginClear;Add(insert into manage values(:p0,:p1,:p2,:p3);end;Parameters0.Value:=Edit1.Text;Parameters1.Value:=Edit2.Text;Parameters2.Value:=Edit3.Text;Parameters3.Value:=Edit4.Text;Execsql;end;ExceptApplication.MessageBox(操作不成功编号不可重复！,提示,mb_ok); end;with datamd.migaiQuery dobeginClose;with SQL dobeginClear;Add(select*from manage);end;Open;end;Button2.Click; change:=False;endelsebeginApplication.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);beginChange:=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;procedure TF_user.Edit1KeyPress(Sender: TObject; var Key: Char); beginif key=#13 then selectnext(sender as Twincontrol,true,true);end;procedure TF_user.Edit2KeyPress(Sender: TObject; var Key: Char); beginif key=#13 then selectnext(sender as Twincontrol,true,true);end;procedure TF_user.Edit3KeyPress(Sender: TObject; var Key: Char); beginif key=#13 then selectnext(sender as Twincontrol,true,true);end;procedure TF_user.FormClose(Sender: TObject; var Action: TCloseAction); beginform6.Show;end;procedure TF_user.FormShow(Sender: TObject); beginwith datamd.migaiQuery dobeginClose;SQL.Clear;SQL.Add(select * from manage);Open;end;end;procedure TF_user.SpeedButton1Click(Sender: TObject); beginSpeedbutton1.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 thenEdit1.SetFocus;end;procedure TF_user.SpeedButton2Click(Sender: TObject); beginButton2.Click;Close;form6.Show;end;procedure TF_user.SpeedButton3Click(Sender: TObject); beginTryif Application.MessageBox(是否删除?,提示,mb_yesno)=6 then datamd.datasource3.DataSet.Delete;ExceptApplication.MessageBox(操作不成功可能无记录！,提示,mb_ok); end;end;procedure TF_user.SpeedButton4Click(Sender: TObject);beginEdit1.Enabled:=True;Edit2.Enabled:=True;Edit3.Enabled:=True;Edit4.Enabled:=True;Edit5.Enabled:=True;Change:=True;Speedbutton1.Enabled:=False;Speedbutton4.Enabled:=False;Speedbutton3.Enabled:=False;Button1.Enabled:=True;Button2.Enabled:=True;Edit1.Text:=datamd.datasource3.DataSet.Fields0.AsString;Edit2.Text:=datamd.datasource3.DataSet.Fields1.AsString;Edit3.Text:=datamd.datasource3.DataSet.Fields2.AsString;Edit4.Text:=datamd.datasource3.DataSet.Fields3.AsString; end;第四章 设计总结工作总结1. 找准问题方向。在进行系统设计的过程中，要注意找准方向，特别是要找自己熟 悉的问题，不熟悉的问题往往带来很多不必要的麻烦。2. 理清系统的逻辑特点。系统运行有自己的特点，在进行系统设计的过程中，我们 的工作是将现实中的问题反映到计算机软件中，那么现实的逻辑和理论上的逻辑之间的 桥梁建设就显得尤为重要。3. 注意前期的理论知识的准备工作。在这个系统设计中，我们主要运用到了编程软 件delphi的数据库软件sql2000。对两种软件的使用熟悉程度直接决定了在编制系统过 程的时间长短和问题出现的多少。4. 持之以恒，不弃不离，反复实验。作为新手，我们在系统设计的过程中，难免会 出现这样的或者那样的问题，要注意反复的实验，不断地尝试，在操作中找到解决问题 的思路和方法。设计过程总结1. 数据语言排版要正确合理，便于程序的书写和错误的查找。2. 要多使用网络资源，注意参考他人建议。3. 多尝试，注意正确掌握编程软件的语言规律和结构特点。系统展望可以预见到的是，该系统没有做的网络化，未来我们可以将它做到网络化，将交流 平台扩大到互联网。便于系统的影响力进一步扩大。二是未来系统可以扩大一些附加功能，比如用户间的交流平台、用户的预存钱服务、 管理员与用户间关于空余场地的相关信息交流等等问题。三是将多个系统的交流平台结合起来。在这个系统中，目标场馆只有一家，一个地 区的羽毛球场馆不止一个，一个用户也不可能就到一家场馆里消费。可以通过该系统， 将多个场馆间的信息共享到这个系统上，以便于更好的服务用户。附录参考文献1 李辉.数据库原理及应用.北京：机械工业出版社，20072 黄梯云.管理信息系统.北京：高等教育出版社，20053 伊文敏.Delphi+SQL Server完全解析北京：人民邮电出版社，20064 孙福兆，雷志军Delphi课程设计案例精编：北京清华大学，2008年5 四维科技，刘山，赵辉.Delphi系统开发实例精粹：北京人民邮电出版社，2005 年