浅谈客房管理系统Word下载.docx
- 文档编号:22565487
- 上传时间:2023-02-04
- 格式:DOCX
- 页数:29
- 大小:26.25KB
浅谈客房管理系统Word下载.docx
《浅谈客房管理系统Word下载.docx》由会员分享,可在线阅读,更多相关《浅谈客房管理系统Word下载.docx(29页珍藏版)》请在冰豆网上搜索。
(2)在vb主菜单中单击外接程序|可视化数据管理器菜单项,出现可视化数据管理器界面。
(3)单击文件|新建|Microsoftaccess(m)|version7.0mdb(7)菜单项,vb默认的数据库类型为Microsoftaccess数据库类型,它与Microsoftoffice2000的基本数据库类型一致,而且在Microsoftaccess数据库类型中,version7.0mdb为最新版本的数据库类型。
选择该类型的数据库,数据库文件的扩展名为.mdb,在创建数据库时不必输入扩展名,可视化数据管理器将自动为数据库生成扩展名。
(4)再单击菜单后出现文件保存对话框,在对话框中选择磁盘驱动器和文件夹名称,此处选择文件夹,并将数据库命名为客房管理数据库,随后将出现数据库窗口。
客户信息数据表的创建
数据库只是一个容器,它是数据表的集合。
数据库一经创建,用户就可以在数据库中创建应用系统开发制作所需要的数据表。
其步骤如下:
(1)在可视化数据管理器中打开数据库
(2)在数据管理器中选择数据库文件
(3)右击数据库文件客房管理数据库,出现一个弹出式菜单
(4)在弹出式菜单中单击新建表菜单项,出现数据表结构设计器对话框.
数据表结构就是对一个数据表中的字段名称,类型,大小的定义,在数据表结构创建对话框中,不仅可以制定表的结构,还可以对数据表进行各种操作,如显示每一个字段的结构信息,增加或删除字段,建立索引,对每一字段进行有效性输入规则的定制等.
在客房管理数据库中我们将创建”客房信息数据表”,其结构参数定义如下:
字段名称
字段类型
字段大小
索引
忽略空值
房号
single
default
惟一主索引
No
姓名
Text
20
性别
2
年龄
Single
国籍
身份证号
50
客房级别
用房天数
住店日期
Date/time
离店日期
系统用户权限表的设计与创建,在整个系统中,使用系统均要通过权限认证,他包括系统准入认证,权限修改认证等,因此需要创建一个用户权限表,其结构如下所示:
操作员
密码
4
关键
客房情况表的设计和创建他用于整个客房所有房间的信息,以及已经住宿的情况和未住宿的情况其结构如下表所示:
10
用房标志
1
创建系统启动界面
系统启动封面是一个应用系统开始的界面,通常是系统登录的界面进入该界面后,通过用户权限的认证,判断使用本程序的用户是是合法用户.然后进入系统主窗体。
创建系统启动界面也就意味着创建系统的开始,本文采用数据工程的方法创建。
创建的过程如下:
1.启动vb应用系统,进入开发平台主界面
2.在开发平台中,创建一个新的工程,此处创建数据工程
3.在工程类型中选择数据工程
4.单击打开按钮,出现一个数据工程,其中包括一个数据工程窗体,一个数据源环境和数据报表的设计器
数据工程的关键在于使用数据源,创建数据源的方法如下:
1.单击数据设计器/数据环境条目,出现一个数据环境中的连接界面
2.右击连接条目connection1,出现一个弹出式菜单,单击属性,出现数据源驱动程序类型
3.选择microsoftaccess,单击next按钮,出现数据库设置对话框,选择数据库
4.单击确定按钮,成功引入数据源
接下来,创建系统启动界面,在工程管理器中打开数据工程已经创建的第一个窗体form1
保存该工程和该窗体接下来设计form1
其制作过程如下:
1.设置窗体的基本属性如表所示:
属性项名
属性设置内容
Startuupposition
2-屏幕中心
Windowsstate
2-maxmized
picture
图片文件
2.在窗体中放置一个数据控件data1,该控件主要作为登录的系统用户权限表的数据源控件,设置他的基本属性如表所示:
Databasename
Connect
access
Recordsource
kl
visible
False
3.在窗体中放入两个按纽控件,分别设置其caption属性为登录和退出,并为这两个赋予过程代码,
其过程代码如下:
DimTIMAsInteger'
定义一个整型变量
DimmyvalAsString'
定义一个字符串变量
PrivateSubCommand1_Click()
Data1.Recordset.Close
End
EndSub
PrivateSubcombo1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
IfKeyCode=vbKeyReturnThen
Text2.SetFocus'
按回车键,text2获得焦点
EndIf
PrivateSubForm_Activate()
Data1.Refresh
Data1.Recordset.MoveLast
IfData1.Recordset.RecordCount=0Then
MsgBox("
请先设置操作员和密码的权限!
!
"
)
From2.Show
UnloadMe
Data1.Recordset.Close
Else
Combo1.SetFocus
EndIf
PrivateSubForm_Load()
Data1.DatabaseName=App.Path&
"
\kl.mdb"
Data1.Refresh
PrivateSubtext2_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
IfKeyCode=vbKeyReturnThenCommand1.SetFocus'
按回车键cmd1获得焦点
IfKeyCode=vbKeyUpThencombol1.SetFocus
IfKeyCode=vbKeyDownThenCommand1.SetFocus
PrivateSubcommand2_Click()
WithData1.Recordset
Dimmm
mm=.Bookmark
If.BOF=FalseThen
.MoveFirst
IfCombo1.Text="
Then
MsgBox"
请输入用户名"
ExitSub
.FindFirst"
操作员like"
+Chr(34)+Combo1.Text+Chr(34)+"
If.NoMatchThen
操作员输入错误,请重新输入!
.Bookmark=mm
Else
Data1.RecordSource="
select*fromklwhere操作员='
&
Combo1.Text&
'
IfText2.Text="
请输入用户密码!
Text2.SetFocus
mm=.Bookmark
.FindFirst"
密码like"
+Chr(34)+Text2.Text+Chr(34)+"
IfTIM>
2Then
你无权使用本系统,请向系统管理员查询!
End
If.NoMatchThen
密码输入错误,请重新输入!
TIM=TIM+1
Text2.Text="
Form2.Show
.Close
EndWith
该代码首先用于判断用户权限,如果输入的用户和密码存在,则系统允许登录.
创建系统主界面
接下来,首先需要创建系统的主窗体,该窗体用于对其他功能模块的调用,其创建过程如下:
1.启动VB应用程序,出现开发平台主窗口.
2.新建立一个标准的EXE工程,并为其命名
3.主窗体的基本属性设置及其基本结构和前面类似略
在本窗体中,为了修饰窗体的效果,我们特别为它加载了一幅图片,作为窗体的背景.
制作系统主菜单
在VB集成开发环境中,制作一个菜单是比较简单的,其操作过程如下:
1.右击主窗体form2,出现一个弹出式菜单
2.在弹出式菜单中单击”菜单编辑器”菜单项,即进入菜单编辑器.在本文中我们将创建如下四个菜单.
●登记住房:
用于调用客户住宿信息处理的信息窗体.
●退房间:
用于调用客户情况窗体,如删除客户标记,编辑客户情况的记录等.
●客户查询:
用于调用一个客户查询窗体,综合查询客户信息
●权限设置:
用于用户修改设置
●退出系统:
用于执行退出系统的功能.
3.在窗体中放置一个statursbar用来显示系统的某些信息,本系统为日期和时间,可以提醒用户当天日期和时间,同时也可以为界面增色,其中statursbar的第一栏中显示日期,第二栏中显示时间.
菜单与命令按纽的功能是一致的.它主要用于对事务或行为动作的执行,因此同样需要他们编制过程代码.要为菜单编制过程代码,只需要在创建菜单之后,单击菜单条目,即出现他们的过程代码编辑器窗口,选择适当的过程类型,如CLICK过程.各个菜单的过程代码如下:
程序代码:
OptionExplicit
PrivateDeclareFunctionPlaySoundLib"
winmm.dll"
Alias"
PlaySoundA"
(ByVallpsznameAsString,ByValhmoduleAsLong,ByValdwflagsAsLong)AsLong
Form1.Show
UnloadMe
CallPlaySound(App.Path+"
\credit.wav"
0&
&
H1)
StatusBar1.Panels
(1).Text="
今天的日期是:
Format(Date,"
yyyy年m月d日"
StatusBar1.Panels
(2).Text="
现在时间是:
Format(Time,"
h:
mm:
ssam/pm"
●“登记住房”菜单的过程代码
privatesub登记住房-click()
form3.show
endsub
●“退房间”菜单的过程代码
privatesub退房间-click()
form7.show
●“客户查询”菜单的过程代码
privatesub客户查询-click()
form6.show
endsub
●“权限设置”菜单的过程代码
PrivateSub权限设置_Click()
Form5.Show
●“退出系统”菜单的过程代码
privatesub退出系统-click()
unloadme
Form2.Hide
制作客户信息登记窗体
该功能实现了对客户信息的管理。
该功能可以对客户信息进行增加、删除和修改。
客户信息包
括对信客户进行登记,登记内容包括房号、姓名、性别、年龄、国籍、客房级别、住房天数、住店
日期、离店日期等。
在宾馆住宿管理系统中,客户信息记录是很重要的,因此我们需要制作该窗体,其制作过程如下:
(1)在工程中增加一个新的窗体FORM3,其设置和前面类似省略
同样,放置一个图片文件以修饰窗体.
(2)在窗体中放入一个数据控件Data1,其设置和前面类似省略
数据控件是为本窗体引入数据源的控件.
(3)在窗体中放入一些标签控件,其个数比数据表的字段个数多一个.注意,由于窗体中放置了一个图片控件,因此,标签控件应该使用”透明”属性,以使标签与窗体融为一体.我们以其中的一个标签为例,说明全部标签的属性设置,如表所示.
Caption
客户信息登记
Font
Forecolor
&
h00008080&
Backstyle
Transparent
borderstyle
1-fixedstyle
(3)在窗体中设置若干个文本框控件,其个数与数据表的字段个数一致.文本框的基本属性设置如表所示:
对象名称
Text1
Datasouce
Data1
datafield
Text2
datasource
Text3
Datasource
Text4
Text5
Text6
Text7
Text8
Text9
Text10
表1
(4)在窗体中防如六个命令按纽,用于增加记录、确认记录、修改、记录状态、删除记录和返回主窗体.
程序代码如下:
Dimprompt$
Dimrr
prompt$="
enterthenewrecord"
rr=MsgBox(prompt$,vbOKCancel,"
addrecord"
Ifrr=vbOKThen
Data1.Recordset.AddNew
Command1.Enabled=False
Text1.SetFocus
PrivateSubCommand2_Click()
IfText1.Text="
OrText2.Text="
OrText3.Text="
OrText4.Text="
OrText5.Text="
Or_Text6.Text="
OrText7.Text="
OrText8.Text="
OrText9.Text="
OrText10.Text="
这些选项不能为空,请输入相应的值"
OnErrorResumeNext
Data1.Recordset.Update
Command2.Enabled=False
Command1.SetFocus
PrivateSubCommand3_Click()
DimresultAsInteger
Or_
Text6.Text="
result=MsgBox("
删除记录将不能再恢复,确实需要删除记录吗?
vbOKCancel+vbQuestion,"
提示信息"
Ifresult=1Then
Data1.Recordset.Delete
IfData1.Recordset.EOFThen
Data1.Recordset.MoveLast
Data1.Recordset.MoveNext
Command1.SetFocus
PrivateSubCommand4_Click()
main.Enabled=True
PrivateSubCommand6_Click()
Data1.Recordset.Edit
PrivateSubData1_Error(DataErrAsInteger,ResponseAsInteger)
这就是放置错误处理代码的地方
如果想忽略错误,注释掉下一行代码
如果想捕捉错误,在这里添加错误代码
MsgBox"
数据错误事件命中错误:
Error$(DataErr)
Response=0'
忽略错误
PrivateSubCommand5_Click()
Dimm
m=.Bookmark
.MoveLast
StatusBar1.Panels
(1).Text="
记录总数:
+CStr(.RecordCount)
.Bookmark=m
StatusBar1.Panels
(2).Text="
当前记录号:
+CStr(.AbsolutePosition+1)
main.Enabled=False
Data1.DatabaseName=App.Path&
\kfxx.mdb"
PrivateSubForm_Unload(CancelAsInteger)
privatesubtext1_dblclick(indexasinteger)
运行工程,检验窗体的显示效果
注意,在进行房号记录时,可以双击文本框1,出现该房号作标记的窗体,即调出退房信息窗体.在退房信息窗体中,可以给该房号作已经占用的标记.文本框的双击过程代码如下:
权限维护窗体的制作
在该窗体中,我们制作了一个具有修改用户权限的功能.但无论是增加用户或是删除用户或是修改用户密码,均需要确认原有密码,
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 浅谈 客房 管理 系统