酒店客房管理系统设计VB程序源代码.docx
- 文档编号:7724728
- 上传时间:2023-01-26
- 格式:DOCX
- 页数:52
- 大小:23.37KB
酒店客房管理系统设计VB程序源代码.docx
《酒店客房管理系统设计VB程序源代码.docx》由会员分享,可在线阅读,更多相关《酒店客房管理系统设计VB程序源代码.docx(52页珍藏版)》请在冰豆网上搜索。
酒店客房管理系统设计VB程序源代码
酒店客房管理系统设计系统源代码
酒店客房管理系统代码清单:
frmAddlb窗体代码:
PrivateSubCommand1_Click()
DimsqlAsString
DimconnAsNewadodb.Connection
Dimrs_fjstyleAsNewadodb.Recordset
IfTrim(Text1.Text)=""Then
MsgBox"请输入房间类型",vbOKOnly+vbExclamation,""
Text1.SetFocus
ExitSub
EndIf
IfTrim(Text2.Text)=""Then
MsgBox"请输入类型代号",vbOKOnly+vbExclamation,""
Text2.SetFocus
ExitSub
EndIf
IfTrim(Text3.Text)=""Then
MsgBox"请输入房间数量",vbOKOnly+vbExclamation,""
Text3.SetFocus
ExitSub
EndIf
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
MsgBox"添加成功",vbOKOnly+vbExclamation,""
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text1.SetFocus
rs_fjstyle.Close
Else
MsgBox"你添加的类别已存在,请输入新类别",vbOKOnly+vbExclamation,""
Text1.SetFocus
Text1.Text=""
Text2.Text=""
rs_fjstyle.Close
ExitSub
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadMe
frmlbinfo.Show
EndSub
frmAdduser窗体代码:
PrivateSubCommand1_Click()
DimsqlAsString
Dimrs_addAsNewadodb.Recordset
DimconnAsNewadodb.Connection
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\data\database.mdb"
IfTrim(Text1.Text)=""Then
MsgBox"用户名不能为空,请输入!
",vbOKOnly+vbExclamation,""
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
MsgBox"已有这个用户",vbOKOnly+vbExclamation,""
Text1.SetFocus
Text1.Text=""
Text2.Text=""
Text3.Text=""
ExitSub
Else
rs_add.MoveNext
EndIf
Wend
IfTrim(Text2.Text)<>Trim(Text3.Text)Then
MsgBox"两次密码不一致",vbOKOnly+vbExclamation,""
Text2.SetFocus
Text2.Text=""
Text3.Text=""
ExitSub
Else
rs_add.AddNew
rs_add.Fields
(1)=Text1.Text
rs_add.Fields
(2)=Text2.Text
rs_add.Update
MsgBox"添加用户成功!
",vbOKOnly+vbExclamation,""
'Me.Hide
EndIf
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
frmdfAdd窗体代码:
PrivateSubCommand1_Click()
DimsqlAsString
DimconnAsNewadodb.Connection
Dimrs_fjstyleAsNewadodb.Recordset
IfTrim(Text1.Text)=""Then
MsgBox"请输入姓名!
",vbOKOnly+vbExclamation,""
Text1.SetFocus
ExitSub
EndIf
'IfTrim(Text2.Text)=""Then
'MsgBox"日期不能为空!
",vbOKOnly+vbExclamation,""
'Text2.SetFocus
'ExitSub
'Else
'IfNotIsDate(Text2.Text)Then
'MsgBox"请按照2006-12-30格式输入登记日期!
",vbOKOnly+vbExclamation,""
'Text2.Text=""
'Text2.SetFocus
'ExitSub
'EndIf
'EndIf
IfTrim(Text3.Text)=""Then
MsgBox"请输入房间编号!
",vbOKOnly+vbExclamation,""
Text2.SetFocus
ExitSub
EndIf
IfTrim(Text4.Text)=""Then
MsgBox"请选择房间类型!
",vbOKOnly+vbExclamation,""
Text4.SetFocus
ExitSub
EndIf
IfTrim(Text5.Text)=""Then
MsgBox"请交定金!
",vbOKOnly+vbExclamation,""
Text5.SetFocus
ExitSub
EndIf
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\data\database.mdb"
sql="select*from预订客房"
rs_fjstyle.Opensql,conn,adOpenKeyset,adLockPessimistic
'rs_fjstyle.EOF
rs_fjstyle.AddNew
rs_fjstyle.Fields
(1)=Trim(Text1.Text)
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)
rs_fjstyle.Update
MsgBox"添加成功",vbOKOnly+vbExclamation,""
rs_fjstyle.Close
Command3.Enabled=True
ExitSub
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
'Text2.Text=""
'Text3.Text=""
Text4.Text=""
Text5.Text=""
Text1.SetFocus
EndSub
PrivateSubCommand3_Click()
DimsqlAsString
DimconnAsNewadodb.Connection
Dimrs_fjstyleAsNewadodb.Recordset
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\data\database.mdb"
sql="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
MsgBox"数据已更新!
",vbOKOnly+vbExclamation,""
ExitSub
EndSub
PrivateSubCommand4_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
DimsqlAsString
DimconnAsNewadodb.Connection
Dimrs_fjstyleAsNewadodb.Recordset
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\data\database.mdb"
sql="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
ExitSub
SetDTPicker2.Value=Time
EndSub
frmDfdy窗体代码:
PrivateSubCommand1_Click()
DimsqlAsString
DimconnAsNewadodb.Connection
Dimrs_dfdybbAsNewadodb.Recordset
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\data\database.mdb"
sql="select房间编号,房间类别,日住宿费,周住宿费,月住宿费,预订,空房from客房信息"
rs_dfdybb.Opensql,conn,adOpenKeyset,adLockPessimistic
SetDataReport1.DataSource=rs_dfdybb.DataSource
DataReport1.DataMember=rs_dfdybb.DataMember
DataReport1.Show
'UnloadMe
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
DimsqlAsString
Dimrs_dfdyAsNewRecordset
DimconnAsNewadodb.Connection
OnErrorGoToloaderror
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\data\database.mdb"
sql="select房间编号,房间类别,日住宿费,周住宿费,月住宿费,预订,空房from客房信息"
rs_dfdy.CursorLocation=adUseClient
rs_dfdy.Opensql,conn,adOpenKeyset,adLockPessimistic
DataGrid1.AllowAddNew=False
DataGrid1.AllowDelete=False
DataGrid1.AllowUpdate=False
SetDataGrid1.DataSource=rs_dfdy
ExitSub
loaderror:
MsgBoxErr.Description
EndSub
frmdfEdit窗体代码:
OptionExplicit
Dimrs_xgkfinfoAsNewadodb.Recordset
PrivateSubcmddel_Click()
DimanswerAsString
answer=MsgBox("确定要删除吗?
",vbYesNo,"")
Ifanswer=vbYesThen
DataGrid1.AllowDelete=True
DataGrid1.AllowAddNew=False
DataGrid1.AllowDelete=False
rs_xgkfinfo.Delete
rs_xgkfinfo.Update
DataGrid1.Refresh
Else
ExitSub
EndIf
EndSub
PrivateSubcmdEdit_Click()
DimanswerAsString
OnErrorGoTocmdEdit
cmddel.Enabled=False
cmdEdit.Enabled=False
cmdupdate.Enabled=True
Command4.Enabled=False
DataGrid1.AllowUpdate=True
ExitSub
cmdEdit:
IfErr.Number<>0Then
MsgBoxErr.Description
EndIf
EndSub
'-------------------------------------------------------
PrivateSubDataGrid1_BeforeColUpdate(ByValColIndexAsInteger,OldValueAsVariant,CancelAsInteger)
IfColIndex=3Then
IfNotIsDate(DataGrid1.Columns(3).Value)Then
Cancel=True
MsgBox"请输入一个日期型数据。
例如:
1991/11/25"
EndIf
EndIf
EndSub
'-------------------------------
PrivateSubcmdUpdate_Click()
DimaAsBoolean
IfNotIsNull(DataGrid1.Bookmark)Then
rs_xgkfinfo.Update
EndIf
cmddel.Enabled=True
cmdEdit.Enabled=True
cmdupdate.Enabled=False
MsgBox"修改成功!
",vbOKOnly+vbExclamation,""
DataGrid1.AllowUpdate=False
Command4.Enabled=True
ExitSub
EndSub
'-------------------------------
PrivateSubCommand4_Click()
frmdfFind.Show
UnloadMe
EndSub
PrivateSubForm_Load()
DimsqlAsString
DimconnAsNewadodb.Connection
OnErrorGoToloaderror
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\data\database.mdb"
sql="select客人姓名,房间编号,房间类型,订房日期,订房时间,预交订金from预订客房"
rs_xgkfinfo.CursorLocation=adUseClient
rs_xgkfinfo.Opensql,conn,adOpenKeyset,adLockPessimistic
cmdupdate.Enabled=False
DataGrid1.AllowAddNew=False
DataGrid1.AllowDelete=False
DataGrid1.AllowUpdate=False
SetDataGrid1.DataSource=rs_xgkfinfo
ExitSub
loaderror:
MsgBoxErr.Description
EndSub
PrivateSubForm_Unload(CancelAsInteger)
SetDataGrid1.DataSource=Nothing
rs_xgkfinfo.Close
EndSub
frmdfFind窗体:
PrivateSubCommand1_Click()'全部信息
DimsqlAsString
DimconnAsNewadodb.Connection
Dimrs_fjstyleAsNewadodb.Recordset
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\data\database.mdb"
sql="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
ExitSub
EndSub
PrivateSubCommand2_Click()'选择部份信息
Dimrs_kffindAsNewadodb.Recordset
DimconnAsNewadodb.Connection
DimsqlAsString
IfCheck1.Value=vbCheckedThen
sql="客人姓名='"&Trim(Text1.Text&"")&"'"
EndIf
IfTrim(sql)=""Then
IfCheck2.Value=vbCheckedThen
IfNotIsDate(Text2.Text)Then
MsgBox"请输入正确的格式,YYYY-MM-DD!
",vbOKOnly+vbExclamation
Text2.SetFocus
ExitSub
Else
'sql="订房时间='"&Trim(CDate(Text2.Text)&"")&"'"
sql="订房日期=#"&CDate(Text2.Text)&"#"
EndIf
Else
IfCheck3.Value=vbCheckedThen
sql="房间编号='"&Trim(Text3.Text&"")&"'"
Else
IfCheck4.Value=vbCheckedThen
sql="房间类型='"&Trim(Text4.Text&"")&"'"
EndIf
EndIf
EndIf
EndIf
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\data\database.mdb"
IfTrim(sql)=""Then
MsgBox"请选择查询方式!
",vbOKOnly+vbExclamation
ExitSub
EndIf
sql="select客人姓名,房间编号,房间类型,订房日期,订房时间,预交订金from预订客房where"&sql
rs_kffind.CursorLocation=adUseClie
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 酒店客房 管理 系统 设计 VB 程序 源代码