《数据库原理Delphi课程设计报告》由会员分享，可在线阅读，更多相关《数据库原理Delphi课程设计报告（24页珍藏版）》请在金锄头文库上搜索。
1、 课程名称 数据库原理 实践课时 20 学时实践项目 旅馆管理系统 实践时间 2012.12.17-2012.1.2实践目的旅馆在现实生活中非常常见，鉴于其管理的繁杂重复，创建一个旅馆数据库管理系统非常必要。通过对本系统的设计，可以增强我们对数据库知识的理解。更好的掌握面向对象编程的 Borland Delphi 的编程技巧，体现其在数据库设计方面的优越性和简易性，使得系统变得更为人性化、智能化。下面是对课程设计的具体实验目的：（1）掌握 Borland Delphi 中常见的控件的作用并能熟练运用。（2）掌握数据库系统设计的思路以及基本方法。（3）通过实际例子的制作，体会数据库原理课程的基本
2、概念和基本知识在实例中的运用，最后体会理论知识在实际中的体现。实践环境 Delphi6.0实践内容（算法、程序、步骤和方法）一、系统功能的分析与设计本系统将涉及多个窗体的制作，从而实现多个管理的功能，其中涉及客户信息、房间信息、出入登记信息、客户意见等多种数据管理。从管理角度出发可将图书管理分为三类：房间管理、客户管理和出入登记管理。房间管理主要是房间信息查询操作，客户管理主要是客户信息查询操作，出入登记管理包括入住登记和退房登记。思懿旅馆信息管理系统主要具有如下的一些功能：1) 房间信息查询2) 客户信息查询3) 入住登记4) 退房登记5) 会员客户管理6) 客户反映意见信息管理7) 旅馆信
3、息介绍根据分析，旅馆信息管理系统主要的功能模块如下图所示： 思懿旅馆信息管理系统系统系统启动封面界面权限认证界面房间信息查询界面客户信息查询界面客户意见查询界面会员客户中心界面旅馆历史信息界面会员意见输入界面房间管理总控界面二、数据表结构设计与创建按照系统创建的顺序，首先是建立系统创建所必要的数据表的逻辑结构和物理结构。1、房间信息表房间信息表，它分别包含了房间号码、楼层、价格、等级、备注共 5 项，具体定义由下表反映：图 1 房间信息表的逻辑结构在房间信息表的逻辑结构定义中，将房间号码字段定义为关键字段，因为在旅馆管理系统中，房间号码是不能重复的，每个房间必须有惟一的一个代码。此外，关键字段
4、的建立处使该字段记录的数据具有惟一性之外，关键字段是进行数据表之间连接的重要手段。往往在数据表之间的连接中，是通过一个数据表的关键字段与另外的数据表的关键字段或第二索引的字段进行关联，从而将两个数据表的记录有机的联系起来。因此，为一个数据表建立关键字段或第二索引是非常重要的。通过数据库桌面工具就可以根据图书信息表的逻辑结构创建它的物理结构，如下图所示：图 2 房间信息表当表建立完后，可以将其保存在特定路径的文件夹中，在后面的系统界面制作中将引用，我将其安排的保存位置为：“E：数据库 宾馆系统” ，保存的数据表名为“room.db” 。2、客户信息表它包括客户姓名、身份证号码、性别、是否会员、会
5、员卡号共 5 项内容，将身份证号码设为主键，因为身份证号码是唯一的，能唯一识别。客户信息表的逻辑结构，如下图所示：图 3 客户信息表的逻辑结构通过数据库桌面工具就可以根据客房表的逻辑结构创建它的物理结构，如下图所示：图 4 读者信息表读者信息表建立好后，保存到“E：数据库宾馆系统”里，保存的数据表名为“client.db” 。3、出入登记信息表它包括房间号码、客户姓名、身份证号码、入住时间、退房时间等内容，它的逻辑结构定义结构如下： 图 5 出入登记信息表的逻辑结构通过数据库桌面工具就可以根据客房表的逻辑结构创建它的物理结构，如下图所示：图 6 借还信息表借还信息表建立好后，保存到“E：数据库
6、宾馆系统”里，保存的数据表名为“inoutinf.db” 。4、客户反应意见表它包括客户名、客户意见，其逻辑结构如下： 导入数据后图片如下：客户反应意见表建立好后，保存到“E：数据库 宾馆系统”里，保存的数据表名为“khfy.db” 。5、创建数据库别名以上表格均保存在“E：数据库宾馆系统”中，因此在窗体制作或报表中调用数据表名时需要用到新的数据库别名，这里我们创建新的数据库别名为“BGXX”，别名连接的路径为“E：数据库宾馆系统” 。三、创建工程与系统权限认证界面设计在系统所需要的一切数据表完成后，就可以着手进行系统界面的设计与创建了，一般进入主控界面前都会有权限认证界面，因此，我们把系统启
7、动界面作为MainForm，权限认证界面设置为 PassForm。其窗体创建的过程如下：新建一个工程，保存工程和相应的单元文件。其中启动界面如图 7 所示：图 7 启动窗体在系统启动窗体的制作中，对“进入系统”按钮编写相关的过程代码如下：procedure TMainForm.BitBtn1Click(Sender: TObject);beginPassForm.show;MainForm.hide;end;对“退出系统”编写代码为：procedure TMainform.BitBtn2Click(Sender: TObject);begincloseend;权限认证界面如图 8 所示：图 8
8、 权限认证窗体在权限认证窗体的制作中，对“登陆”按钮编写相关的过程代码如下：procedure TPassForm.BitBtn1Click(Sender: TObject);beginif (combobox1.text=管理员)and(edit1.text=ssy)and(edit2.text=20102244)then beginManageForm.show; PassForm.Hide;end else beginif (combobox1.text=VIP 会员)and(edit1.text=113)and(edit2.text=20102244)then beginKHMLfor
9、m.show; PassForm.Hide;end else beginshowmessage(对不起，你无权进入该系统);end;end;end;对“退出”按钮编写相关的过程代码如下：procedure TForm2.BitBtn2Click(Sender: TObject);beginclose;end;对窗体初始化：procedure TPassForm.FormCreate(Sender: TObject);beginedit1.Text:=;edit2.Text:=;end;四、房间管理主控界面设计通常一个系统必须存在一个主控界面，主控界面是调用其他界面的截体，本系统的主控界面和它的
10、基本结构如下图：图 9 系统主控图形导航界面在窗体上依次放上控件，各控件描述如表所示：表 1控件类型 控件名称 描述窗体控件Form ManageForm宾馆管理程序的主窗体，Caption 属性设置为“旅馆管理目录” ；FormStyle 属性设置为 fsnormal主菜单控件MainMenu MainMenu1用于为应用程序提供主菜单，这分别是：信息查询（房间信息查询、客户信息查询、客户意见查询） 、住房登记（入住登记、退房登记） 、关于旅馆（旅馆历史介绍） 、退出（退出系统）房间信息查询 SpeedButton1 查询菜单下的子菜单 Caption 属性设置为“房间信息查询”客户信息查询
11、 SpeedButton2 查询菜单下的子菜单 Caption 属性设置为“客户信息查询”入住登记 SpeedButton4 Caption 属性设置为“入住登记”退房登记 SpeedButton5 Caption 属性设置为“退房登记”旅馆历史介绍 SpeedButton6 Caption 属性设置为“旅馆历史介绍”客户意见查询 SpeedButton3 Caption 属性设置为“客户意见查询”退出系统 SpeedButton7 Caption 属性设置为“退出系统”状态栏控件StatusBar StatusBar1 用于显示系统状态信息在状态栏中放入一个 Timer1，为状态条显示日期和
12、时间编程，双击 Timer控件编写代码如下：procedure TForm3.Timer1Timer(Sender: TObject);beginstatusbar1.SimpleText:=Datetostr(Date)+ +timetostr(time);end;五、其它功能窗体（工作人员）的设计1、房间信息查询窗体的设计该窗体的主要功能是对旅馆房间相关信息的查询，其中窗体的基本设置结构布局如图：图 11 房间信息查询窗体 窗体制作主要过程如下：；（1）在窗体中放入一个 Query1，设置其属性 DataBaseName 为 BGXX，（2）在窗体中添加一个 DataSource1，设置其
13、 DataSet 为 Query1。（3）在窗体中放入一个 DBGird1，设置其 DataSource 为 DataSource1。（4）放入一个 DBNavigator1，设置 DataSource 为 DataSource1。（5）将 Query1 的属性 Active 为 True在窗体插入的控件中，数据表控件和数据源控件以及数据导航控件都是相联系的。对“查询”按钮编写相关的过程代码如下：窗体初始化为：procedure Tfjform.FormCreate(Sender: TObject);begincombobox1.Text:=房间号码;edit1.Text:=101;end;报
14、表打印与预览窗体如下所示：图 11 报表打印与预览窗体2、客户信息查询窗体设计该窗体的主要功能是对客户相关信息的查询，其中窗体的基本设置结构布局如图：图 12 客户信息查询窗体该窗体的制作同“房间信息查询窗体”的制作相同，其“查询”控件的代码为：procedure TkhForm.SpeedButton3Click(Sender: TObject);vargjz,gjzsz:string;begingjz:=combobox1.Text;gjzsz:=edit1.Text;if(gjz=)and(gjzsz=) thenwith query1 dobeginclose;sql.Clear;sq
15、l.Add(select*);sql.Add(from client);sql.Add(order by Idcard);prepare;open;endelse if (gjz)thenshowmessage(请选择查询关键字选择信息!)elsebegingjzsz:=gjzsz+%;if gjz=身份证号码thenwith query1 dobeginclose;sql.Clear;sql.Add(select*);sql.Add(from client);sql.Add(where idcard like :gjzszname);sql.Add(order by idcard); par
16、ambyname(gjzszname).AsString:=gjzsz;prepare;open;endelsebegingjzsz:=gjzsz+%;if gjz=姓名thenwith query1 dobeginclose;sql.Clear;sql.Add(select*);sql.Add(from client);sql.Add(where Name like :gjzszname);sql.Add(order by idcard);parambyname(gjzszname).AsString:=gjzsz;prepare;open;endelsebegingjzsz:=gjzsz+%;if gjz=性别thenwith query1 dobegi
