2022年2022年管理信息系统——体育馆信息系统使用说明书 .pdf

体育馆管理信息系统第 1 页 共 25 页管理信息系统课程设计说明书设计题目：体育馆管理信息系统设计人员： _指导教师：* 大学机电工程学院 2010年 1 月 8 日目录名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 25 页 - - - - - - - - - 体育馆管理信息系统第 2 页 共 25 页第一章系统分析 . 3 建立该系统的必要性. 3业务流程分析 . 3数据流程图 . 4数据字典 . 4第二章系统设计 . 6 系统功能介绍 . 6数据库设计 . 9代码设计 . 错误！未定义书签。系统运行环境 . 10 输入输出设计 . 10 第三章系统实施 . 11 系统分工 . 11 模块功能与处理过程设计. 11 程序设计 . 错误！未定义书签。第四章设计总结 . 25 工作总结 . 25 设计过程总结 . 25 系统展望 . 25 附录 . 错误！未定义书签。参考文献 . 25 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 25 页 - - - - - - - - - 体育馆管理信息系统第 3 页 共 25 页第一章 系统分析建立该系统的必要性随着北京奥运会的完美落幕，及全民健身活动的开展，在我国城乡各地，体育健身的热潮不断涌起。我国是羽毛球项目的强国和大国，在各种世界大赛中斩获丰厚。自从上世纪50 年代我国开展羽毛球运动以来，无论是从事专业还是业余的角度上，运动员的数量都有了飞速的发展。贴别是近年来，随着我国小球项目（羽毛球、乒乓球）在国际大赛上屡屡摘金夺银，更是激发了全民参与的热情。羽毛球，作为老少咸宜的健身项目，羽毛球的群众普及率已经上升到一个较高的水平。随着人民生活水品的提高，各地大型羽毛球场馆的建设也上了一个新的台阶。与此同时，羽毛球场馆的管理工作也日益繁琐。如何保证场馆的充分利用又能产生一定的经济效益的难题摆在了管理者的面前。网络化、信息化的管理模式业已深入人心，在减轻管理者压力的同时，也给人们的生活带来了极大地便捷。因此，我们认为，对大型的羽毛球馆进行信息化的管理势在必行，符合时代和大众的需求。因此，我们以为，建立一个羽毛球馆管理系统是工作高效的必然需求，是有必要的。业务流程分析在大型的羽毛球馆中，参与对象主要有客户，使用场馆者，和管理员，场馆服务人员。在使用活动中，客户使用了场地，产生消费，基于这个系统平台，将自己的消费信息以数据的形式传给管理员。由管理员收集信息并汇总，进行缴费，折扣等支付信息的处理。客户有客户自带的一系列属性，我们将它汇总到客户信息表。客户星系表里包涵了管理员感兴趣的关于客户的一系列信息，比如其姓名、 住址、 年龄等。 通过客户信息表，节约了客户与管理员之间沟通的时间，以利于管理员对客户的进一步认知。在大型羽毛球馆，由于人多口杂，繁杂的信息类型多且量大。我们认为有必要对其进行集约型的公布。因此，公告信息显得非常重要。将公告信息汇总到一张表中，在管理员窗口发出。显示在客户的窗口中，就像一个窗口一样，由管理员递给了客户。整个系统的业务流程图显示在下图中。客户客户信息表消费信息表管理员公告信息表名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 25 页 - - - - - - - - - 体育馆管理信息系统第 4 页 共 25 页数据流程图数据流程图见下图数据字典数据类型长度是否容许为空其他编号nvarchar 10 否主键姓名nvarchar 10 是身份证号nvarchar 18 是性别nvarchar 2 是职业nvarchar 10 是电话nvarchar 20 是家庭住址nvarchar 50 是数据类型长度是否容许为空其他编号nvarchar 10 否主键密码nvarchar 10 是权限nvarchar 12 是数据类型长度是否容许为空其他公告编号nvarchar 10 否主键公告nvarchar 100 是客户管理员消费信 息信息汇 总打折信息原始信息历史记录客户信 息客户文件消费文件公告信 息名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 25 页 - - - - - - - - - 体育馆管理信息系统第 5 页 共 25 页数据类型长度是否容许为空其他编号nvarchar 10 否主键球费nvarchar 8 是场地费nvarchar 8 是其他费用nvarchar 8 是费用总额nvarchar 8 是实收金额nvarchar 8 是找零nvarchar 8 是名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 25 页 - - - - - - - - - 体育馆管理信息系统第 6 页 共 25 页第二章 系统设计系统功能介绍在这个平台上，功能主要分为两大块，一块是客户所拥有的，一块是管理员所拥有的。下面分别就这两大块说明。功能一：客户编辑、查询客户信息。在客户信息管理一栏中，客户可在信息平台上编辑自己的信息，包括姓名、身份证号、家庭住址、职业、密码修改等。功能二：客户可查询其他客户的信息，以加强交流与合作。查询可以账号、姓名、性别等不同的内容为主题。在费用查询一栏中，客户可查询自己的历史消费信息。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 25 页 - - - - - - - - - 体育馆管理信息系统第 7 页 共 25 页功能三： 管理员录入客户信息。在管理员界面， 在会员信息管理一栏中可录入新用户的信息。功能四：会员使用费用输入。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 25 页 - - - - - - - - - 体育馆管理信息系统第 8 页 共 25 页功能五：公告信息管理。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 25 页 - - - - - - - - - 体育馆管理信息系统第 9 页 共 25 页数据库设计E-R 图如下权限密码管理消费球费编号场地总额其他实收找零顾客住址职业性别电话身份编号姓名M N 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 25 页 - - - - - - - - - 体育馆管理信息系统第 10 页 共 25 页系统运行环境为运行本例，计算机应满足如下条件：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 文件，即可进入本系统。输入输出设计输入输出主要分为用户输入和管理员输入。只有用户权限的用户输入时，只能输入与自己相关的个人信息。可以查询到其他用户的个人信息，可以查询到公告信息，也可以查询到自己的实用信息。作为管理员权限的管理员输入时，能够输入新用户和用户的消费信息，以及输入公告信息。可以看到用户可以看到的一切信息。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 25 页 - - - - - - - - - 体育馆管理信息系统第 11 页 共 25 页第三章 系统实施系统分工盛莹锋主要负责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 页 - - - - - - - - - 体育馆管理信息系统第 12 页 共 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 页 - - - - - - - - - 体育馆管理信息系统第 13 页 共 25 页try execsql; showmessage(删除成功！ ) ; except showmessage(删除失败！ ); exit; end; end; end; end; procedure TGL.SpeedButton3Click(Sender: TObject); begin close; form6.Show; end; end. 模块二，个人信息模块。个人信息添加代码：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 25 页 - - - - - - - - - 体育馆管理信息系统第 14 页 共 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 页 - - - - - - - - - 体育馆管理信息系统第 15 页 共 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 页 - - - - - - - - - 体育馆管理信息系统第 16 页 共 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 页 - - - - - - - - - 体育馆管理信息系统第 17 页 共 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) and (edit5.Text) and (edit1.Text)then begin a:=strtofloat(edit2.Text); b:=strtofloat(edit1.Text); c:=strtofloat(edit3.Text); f:=strtofloat(edit5.Text); 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 17 页，共 25 页 - - - - - - - - - 体育馆管理信息系统第 18 页 共 25 页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 页 - - - - - - - - - 体育馆管理信息系统第 19 页 共 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 页 - - - - - - - - - 体育馆管理信息系统第 20 页 共 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 页 - - - - - - - - - 体育馆管理信息系统第 21 页 共 25 页end; Parameters0.Value:=Edit1.Text; Parameters1.Value:=Edit2.Text; Parameters2.Value:=Edit3.Text; Parameters3.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 页 - - - - - - - - - 体育馆管理信息系统第 22 页 共 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 页 - - - - - - - - - 体育馆管理信息系统第 23 页 共 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 页 - - - - - - - - - 体育馆管理信息系统第 24 页 共 25 页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; 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 24 页，共 25 页 - - - - - - - - - 体育馆管理信息系统第 25 页 共 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年名师资料总结