信息系统开发平台课程设计

《信息系统开发平台课程设计》由会员分享，可在线阅读，更多相关《信息系统开发平台课程设计（46页珍藏版）》请在金锄头文库上搜索。

1、经济管理学院实验报告 姓名 诸男班级 11 信管 1 班学号 2011333540114实验成绩 课程名称 信息系统开发平台课程设计指导教师 祝锡永 实验名称 信息系统开发平台课程设计 2013 年 1 月 24 日 实验目的 1 掌握基于 win32 和 C S 结构的信息系统基本构成及其架构的知识 与软件设计和软件实现相关 的知识 同时具备自主学习和掌握其它基于 Win32 和 c s 结构的信息系统开发工具的能力 2 掌握数据库管理系统与信息系统开发平台之间的集成方法 具备综合运用数据库应用和信息系 统开发平台对已有信息系统进行剖析的能力 将数据库应用与信息系统开发平台结合 能独立完成开

2、发 管理信息系统 实验环境 软件开发平台 Delphi2010 数据库管理系统 SQL Server2008 等 实验内容与步骤 一 软件主要功能介绍 本系统全名叫 Z 酒店信息管理系统 主要是提供给酒店前台人员使用的 进入系统后 主界面的显示主要是四部分 其中业务中心包括 前台中心 客务中心 预订管理 报表 中心包括房费日报表 系统设置包括账号设置 个人中心包括修改密码 其中业务中心是 最重要的部分 下面是关于各项目内容的简介 1 前台中心 功能较多 主要有 4 块 已入住包括查看和退房 已预定包括查看和更改 未入住包 括查看和入住 脏房包括查看和更改 2 客务中心 主要是查询客户信息 3

3、预订管理 主要是进行预订和查询 4 报表中心 主要是对金额的分析和查询 5 系统设置 主要是员工信息的查看和增删改 6 个人中心 主要是当前操作者的密码修改 二 数据库设计 1 建立数据库的 SQL 代码 数据库名称 myhotel 主要包含 9 个表 各个表结构如下 1建房间表 if OBJECT ID rooms is not null drop table rooms go create table rooms roomid nvarchar 5 not null primary key clustered check roomid like A Z 0 9 0 9 0 9 catego

4、ryid nchar 1 not null floors nchar 1 constraint ck rooms floors check floors 0 isempty nchar 1 constraint df rooms isempty default 1 isusing nchar 1 constraint df rooms isusing default 0 isdirty nchar 1 constraint df rooms isdirty default 0 go insert into rooms values A101 1 1 1 0 0 insert into room

5、s values A102 2 1 1 0 0 insert into rooms values B201 2 2 1 0 0 insert into rooms values B202 3 2 1 0 0 insert into rooms values C301 3 3 1 0 0 insert into rooms values C302 4 3 1 0 0 go 建房间种类表 if OBJECT ID roomcategories is not null drop table roomcategories go create table roomcategories categoryi

6、d nchar 1 not null primary key categoryname nvarchar 20 unitprice money check unitprice 0 go insert into roomcategories values 1 标准单人间 100 insert into roomcategories values 2 标准双人间 150 insert into roomcategories values 3 豪华单人间 150 insert into roomcategories values 4 豪华双人间 200 go 建员工表 if OBJECT ID ho

7、telemployees is not null drop table hotelemployees go create table hotelemployees employeeid nvarchar 10 not null primary key check employeeid like FM 0 9 0 9 0 9 employeename nvarchar 20 sex nchar 1 check sex in F M country nvarchar 100 province nvarchar 100 city nvarchar 100 address nvarchar 100 g

8、o insert into hotelemployees values F001 小丹 F 中国 浙江 杭州 西湖路号 insert into hotelemployees values F002 小丽 F 中国 浙江 杭州 西湖路号 insert into hotelemployees values F003 小黄 F 中国 江苏 南京 南京路号 insert into hotelemployees values M001 小陈 M 中国 上海 宝山 宝山路号 insert into hotelemployees values M002 小吴 M 中国 浙江 杭州 西湖路号 go 建客户表

9、if OBJECT ID hotelcustomers is not null drop table hotelcustomers go create table hotelcustomers customerid nchar 10 not null primary key customername nvarchar 100 sex nchar 1 check sex in F M birthdate datetime country nvarchar 100 province nvarchar 100 city nvarchar 100 address nvarchar 100 isvip

10、nchar 1 constraint df hotelcustomers isvip default 0 go 建订单表 if OBJECT ID hotelorders is not null drop table hotelorders go create table hotelorders orderid nchar 10 primary key orderdate datetime customerid nchar 10 employeeid nvarchar 10 constraint fk hotelorders employeeid references hotelemploye

11、es employeeid go 建订单详细表 if OBJECT ID hotelorderitems is not null drop table hotelorderitems go create table hotelorderitems orderid nchar 10 primary key constraint fk hotelorderitems orderid references hotelorders orderid roomid nvarchar 5 constraint fk hotelorderitems roomid references rooms roomid

12、 time int check time 0 unitprice money discount decimal constraint df hotelorderitems discount default 0 12 amount as cast time unitprice 1 discount as decimal 12 2 go 建历史表 if object id history is not null drop table history go create table history customerid nchar 10 not null primary key customerna

13、me nvarchar 100 sex nchar 1 check sex in F M indate datetime offdate datetime country nvarchar 100 province nvarchar 100 city nvarchar 100 address nvarchar 100 isvip nchar 1 constraint df history isvip default 0 go 建定金表 if object id earnest is not null drop table earnest go create table earnest cust

14、omerid nchar 10 not null primary key customername nvarchar 100 roomid nvarchar 5 constraint fk earnest roomid references rooms roomid emoney money go 建预订表 if OBJECT ID reserve is not null drop table reserve go create table reserve roomid nvarchar 5 constraint fk reserve roomid references rooms roomi

15、d customerid nchar 10 customername nvarchar 100 intime datetime time int go 三 程序功能 实现界面及其代码 1 数据模块 1 功能介绍及设计说明 数据连接和全局变量 2 程序运行界面 3 程序代码 var DataModule2 TDataModule2 flag f f1 f2 integer dl roomid11 roomid1 r r1 r2 r3 r4 string r91 string close3 integer r10 r101 string yd integer 注 在后面的表单中 若用到数据模块 则

16、必须在注 在后面的表单中 若用到数据模块 则必须在 uses 中添加数据模块的文件名中添加数据模块的文件名 unit2 2 主菜单程序 1 主页 其中上面的工具栏依次为主页 前台中心 客务中心 预订管理 锁屏离开 为快捷 键 方便操作员操作 点击前四个为直接跳到相应界面 程序为 主页按钮 procedure TForm1 ToolButton1Click Sender TObject var i j integer s string begin showmessage inttostr panel2 ControlCount if panel2 ControlCount 1 then begin 释放原有窗体 for j 0 to panel2 controlcount 2 do begin for i 1 to panel2 ControlCount do begin s lowercase panel2 Controls i ClassName showmessage s showmessage inttostr i if copy s 1 5 tform then begin p