最新计算机酒店管理系统VB源代码有图Word格式.docx
- 文档编号:21880517
- 上传时间:2023-02-01
- 格式:DOCX
- 页数:18
- 大小:693.57KB
最新计算机酒店管理系统VB源代码有图Word格式.docx
《最新计算机酒店管理系统VB源代码有图Word格式.docx》由会员分享,可在线阅读,更多相关《最新计算机酒店管理系统VB源代码有图Word格式.docx(18页珍藏版)》请在冰豆网上搜索。
PrivateSubf_Click()
PrivateSubk_Click()
PrivateSubForm_Load()
Me.Top=(Screen.Height-Me.Height)/2
Me.Left=(Screen.Width-Me.Width)/2
PrivateSubg_Click()
tfdj.Show
PrivateSubh_Click()
kfcx.Show
PrivateSubq_Click()
tfjz.Show
PrivateSubx_Click()
glydl.Show
DimtimAsInteger
DimmyAsString
OptionExplicit
PrivateSubCommand1_Click()'
修改管理员及密码
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst("
管理员="
&
"
'
"
Text1.Text&
)
IfData1.Recordset.NoMatchThen
MsgBox("
管理员输入错误!
Text1.SetFocus
Else
IfText1.Text<
>
AndText2.Text<
AndText2.Text=Data1.Recordset.Fields("
密码"
)Then
daohanglan.Show
UnloadMe
EndIf
Iftim=3Then'
密码输错3次,退出系统
my=MsgBox("
密码输入错误,请向系统管理员查询!
0,"
Ifmy=vbOKThenEnd
IfText1.Text="
Then
请输入管理员!
Else
Data1.Recordset.Fields("
管理员"
查无此管理员,请重新输入管理员!
IfText2.Text="
请输入管理员密码!
Text2.SetFocus
IfText2.Text<
密码错误,请重新输入密码!
tim=tim+1
EndIf
DimfjhAsString
fjh=InputBox("
请输入要查找的房间号"
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find("
房间号="
fjh&
IfAdodc1.Recordset.EOFThen
MsgBox"
房号不存在"
vbInformation,"
查找记录"
Text1=Adodc1.Recordset("
房间号"
Text2=Adodc1.Recordset("
房间类型"
Text3=Adodc1.Recordset("
房态"
Text1.Text="
:
Text2.Text="
Text3.Text="
Text1.SetFocus
DimaAsString
DimfhAsString
fh=InputBox("
请输入要查找的房间"
Data1.Recordset.FindFirst("
fh&
MsgBox"
a="
select*from客房状态表Where房间号=text1.text"
Data1.DatabaseName="
C:
\DocumentsandSettings\Administrator\桌面\酒店系统9\新建文件夹\db1.mdb"
Data1.RecordSource=a
'
Data1.Recordset.ForeColor=RGB(255,255,0)"
PrivateSubDataGrid1_Click()
DimkfAsString
kf=InputBox("
请输入要查找的客户"
姓名="
kf&
该客户没有挂账!
sql="
select*from账单表Where姓名=text1.text"
Data1.RecordSource=sql
Data1.Detail.Color=RGB(255,255,0)
PrivateSubFrame1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
客房设置
Data1.Recordset.AddNew
PrivateSubCommand2_Click()'
Data1.Recordset.Edit
IfText1.Text<
Data1.Recordset.Fields("
)=Text1.Text
价格"
)=Text2.Text
使用设置"
)=Text3.Text
配置"
)=Text4.Text
Data1.Recordset.Update
房间设置成功!
房间号不能为空,请重新输入!
vbCrLf&
然后单击{登记}按钮"
vbExclamation,"
更新记录"
Text4.Text="
Text5.Text="
Text5.SetFocus
DimaAsInteger
a=MsgBox("
确实要退房吗?
vbYesNo+vbQuestion,"
删除客户信息"
Ifa=vbYesNoThen
Data1.Recordset.Delete
Data1.Recordset.MoveNext
Text7.Text="
这位客户说,我们的酒店服务很好!
tfjz.Text="
Text1.Text="
Combo1.Text="
Combo2.Text="
DimhAsString
h=Trim(Text5.Text)
h&
该客户不存在!
Text1.Text=Data1.Recordset.Fields("
Text4.Text=Data1.Recordset.Fields("
住宿天数"
PrivateSubTimer1_Timer()'
显示当前退房时间
Text3.Text=Time()
PrivateSubCommand4_Click()'
删除用户
编号="
Text4.Text&
没有找到该用户!
Data1.Recordset.Delete
Data1.Recordset.MoveNext
Data1.Refresh
删除成功"
PrivateSubCommand5_Click()'
创建用户
Text2.Enabled=False
Text2.ForeColor=RGB(255,255,0)
IfText3.Text<
用户创建成功!
你输入的有误!
或没有输入,请检查"
PrivateSubForm_Activate()
Me.Top=(Screen.Height-Me.Height)/2
PrivateSubForm_Unload(CancelAsInteger)
glydl.Show
修改管理员密码
DimyhAsString
yh=Trim(Text1.Text)
管理员="
yh&
IfText3.Text<
Data1.Recordset.Edit
密码修改成功,退出管理员密码修改!
Data1.Recordset.Update
无此管理员,请重新输入!
请输入管理员原密码!
Text3.TextThen
原密码错误,请重新输入原密码!
PrivateSubText4_Change()
编号"
)+1
DimsqlAsString
DimxmAsString
xm=Trim(Text1.Text)
xm&
用户不存在"
select*from客人信息表Where姓名=text1.text"
PrivateSubText1_Change()
请输入用户信息"
Data1.Refresh
PrivateSubDataGrid2_Click()
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="
select*from客房状态表where房态='
空房'
Adodc1.Refresh
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 最新 计算机 酒店 管理 系统 VB 源代码
![提示](https://static.bdocx.com/images/bang_tan.gif)