酒店客房管理系统设计VB程序源代码Word文档格式.docx
《酒店客房管理系统设计VB程序源代码Word文档格式.docx》由会员分享，可在线阅读，更多相关《酒店客房管理系统设计VB程序源代码Word文档格式.docx（52页珍藏版）》请在冰豆网上搜索。
请输入房间数量"
Text3.SetFocus
conn.Open"
provider=Microsoft.Jet.OLEDB.4.0;
datasource="
&
App.Path&
"
\data\database.mdb"
sql="
select*from客房类别where房间类型='
Text1.Text&
'
rs_fjstyle.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_fjstyle.EOFThen
rs_fjstyle.AddNew
rs_fjstyle.Fields
（1）=Trim（Text1.Text）
rs_fjstyle.Fields
（2）=Trim（Text2.Text）
rs_fjstyle.Fields（3）=Trim（Text3.Text）
rs_fjstyle.Update
添加成功"
Text1.Text="
Text2.Text="
Text3.Text="
rs_fjstyle.Close
Else
你添加的类别已存在,请输入新类别"
EndSub
PrivateSubCommand2_Click（）
UnloadMe
frmlbinfo.Show
frmAdduser窗体代码:
Dimrs_addAsNewadodb.Recordset
IfTrim（Text1.Text）="
MsgBox"
用户名不能为空,请输入！
Text1.SetFocus
Else
sql="
select*from用户信息"
rs_add.Opensql,conn,adOpenKeyset,adLockPessimistic
While（rs_add.EOF=False）
IfTrim（rs_add.Fields
（1））=Trim（Text1.Text）Then
已有这个用户"
Text1.Text="
Text2.Text="
Text3.Text="
ExitSub
rs_add.MoveNext
EndIf
Wend
IfTrim（Text2.Text）<
>
Trim（Text3.Text）Then
两次密码不一致"
Text2.SetFocus
rs_add.AddNew
rs_add.Fields
（1）=Text1.Text
rs_add.Fields
（2）=Text2.Text
rs_add.Update
添加用户成功!
'
Me.Hide
UnloadMe
frmdfAdd窗体代码:
请输入姓名!
日期不能为空!
IfNotIsDate（Text2.Text）Then
请按照2006-12-30格式输入登记日期!
请输入房间编号!
IfTrim（Text4.Text）="
请选择房间类型!
Text4.SetFocus
IfTrim（Text5.Text）="
请交定金!
Text5.SetFocus
select*from预订客房"
rs_fjstyle.EOF
rs_fjstyle.Fields（4）=Trim（DTPicker1.Value）
rs_fjstyle.Fields（5）=Trim（DTPicker2.Value）
rs_fjstyle.Fields
（2）=Trim（Text3.Text）
rs_fjstyle.Fields（3）=Trim（Text4.Text）
rs_fjstyle.Fields（6）=Val（Text5.Text）
Command3.Enabled=True
Text4.Text="
Text5.Text="
PrivateSubCommand3_Click（）
conn.Open"
select客人姓名,房间编号,房间类型,订房日期,订房时间,预交订金from预订客房"
rs_fjstyle.CursorLocation=adUseClient
rs_fjstyle.Opensql,conn,adOpenKeyset,adLockPessimistic
DataGrid1.AllowAddNew=False
DataGrid1.AllowDelete=False
DataGrid1.AllowUpdate=False
SetDataGrid1.DataSource=rs_fjstyle
数据已更新!
PrivateSubCommand4_Click（）
PrivateSubForm_Load（）
SetDTPicker2.Value=Time
frmDfdy窗体代码:
Dimrs_dfdybbAsNewadodb.Recordset
select房间编号,房间类别,日住宿费,周住宿费,月住宿费,预订,空房from客房信息"
rs_dfdybb.Opensql,conn,adOpenKeyset,adLockPessimistic
SetDataReport1.DataSource=rs_dfdybb.DataSource
DataReport1.DataMember=rs_dfdybb.DataMember
DataReport1.Show
Dimrs_dfdyAsNewRecordset
DimconnAsNewadodb.Connection
OnErrorGoToloaderror
rs_dfdy.CursorLocation=adUseClient
rs_dfdy.Opensql,conn,adOpenKeyset,adLockPessimistic
SetDataGrid1.DataSource=rs_dfdy
loaderror:
MsgBoxErr.Description
frmdfEdit窗体代码:
OptionExplicit
Dimrs_xgkfinfoAsNewadodb.Recordset
PrivateSubcmddel_Click（）
DimanswerAsString
answer=MsgBox（"
确定要删除吗？
vbYesNo,"
）
Ifanswer=vbYesThen
DataGrid1.AllowDelete=True
rs_xgkfinfo.Delete
rs_xgkfinfo.Update
DataGrid1.Refresh
PrivateSubcmdEdit_Click（）
OnErrorGoTocmdEdit
cmddel.Enabled=False
cmdEdit.Enabled=False
cmdupdate.Enabled=True
Command4.Enabled=False
DataGrid1.AllowUpdate=True
cmdEdit:
IfErr.Number<
0Then
-------------------------------------------------------
PrivateSubDataGrid1_BeforeColUpdate（ByValColIndexAsInteger,OldValueAsVariant,CancelAsInteger）
IfColIndex=3Then
IfNotIsDate（DataGrid1.Columns（3）.Value）Then
Cancel=True
请输入一个日期型数据。
例如：
1991/11/25"
-------------------------------
PrivateSubcmdUpdate_Click（）
DimaAsBoolean
IfNotIsNull（DataGrid1.Bookmark）Then
cmddel.Enabled=True
cmdEdit.Enabled=True
cmdupdate.Enabled=False
修改成功!
DataGrid1.AllowUpdate=False
Command4.Enabled=True
frmdfFind.Show
rs_xgkfinfo.CursorLocation=adUseClient
rs_xgkfinfo.Opensql,conn,adOpenKeyset,adLockPessimistic
SetDataGrid1.DataSource=rs_xgkfinfo
PrivateSubForm_Unload（CancelAsInteger）
SetDataGrid1.DataSource=Nothing
rs_xgkfinfo.Close
frmdfFind窗体:
PrivateSubCommand1_Click（）'
全部信息
PrivateSubCommand2_Click（）'
选择部份信息
Dimrs_kffindAsNewadodb.Recordset
IfCheck1.Value=vbCheckedThen
客人姓名='
Trim（Text1.Text&
）&
IfTrim（sql）="
IfCheck2.Value=vbCheckedThen
请输入正确的格式,YYYY-MM-DD!
vbOKOnly+vbExclamation
订房时间='
Trim（CDate（Text2.Text）&
订房日期=#"
CDate（Text2.Text）&
#"
IfCheck3.Value=vbCheckedThen
房间编号='
Trim（Text3.Text&
IfCheck4.Value=vbCheckedThen
房间类型='
Trim（Text4.Text&
请选择查询方式!
select客人姓名,房间编号,房间类型,订房日期,订房时间,预交订金from预订客房where"
sql
rs_kffind.CursorLocation=adUseClie
升级会员 