【SQL开源代码栏目提醒】:网学会员为需要SQL开源代码的朋友们搜集整理了酒店客房管理系统设计VB程序源代码 - 学士论文相关资料,希望对各位网友有所帮助!
酒店客房管理系统设计系统源
代码酒店客房管理系统
代码清单:frmAddlb 窗体
代码:Private Sub Command1_ClickDim
sql As StringDim conn As New adodb.ConnectionDim rs_fjstyle As New adodb.RecordsetIf TrimText1.Text quotquot ThenMsgBox quot请输入房间类型quot vbOKOnly vbExclamation quotquotText1.SetFocusExit SubEnd IfIf TrimText2.Text quotquot ThenMsgBox quot请输入类型代号quot vbOKOnly vbExclamation quotquotText2.SetFocusExit SubEnd IfIf TrimText3.Text quotquot ThenMsgBox quot请输入房间数量quot vbOKOnly vbExclamation quotquotText3.SetFocusExit SubEnd Ifconn.Open quotproviderMicrosoft.Jet.OLEDB.4.0 data sourcequot amp App.Path ampquotdatadatabase.mdbquotsql quotselect from 客房类别 where 房间类型quot amp Text1.Text amp quotquotrs_fjstyle.Open
sql conn adOpenKeyset adLockPessimisticIf rs_fjstyle.EOF Thenrs_fjstyle.AddNewrs_fjstyle.Fields1 TrimText1.Textrs_fjstyle.Fields2 TrimText2.Textrs_fjstyle.Fields3 TrimText3.Textrs_fjstyle.UpdateMsgBox quot添加成功quot vbOKOnly vbExclamation quotquotText1.Text quotquotText2.Text quotquotText3.Text quotquotText1.SetFocusrs_fjstyle.CloseElseMsgBox quot你添加的类别已存在请输入新类别quot vbOKOnly vbExclamation quotquotText1.SetFocusText1.Text quotquotText2.Text quotquotrs_fjstyle.CloseExit SubEnd IfEnd SubPrivate Sub Command2_Click Unload Me frmlbinfo.ShowEnd SubfrmAdduser 窗体
代码:Private Sub Command1_ClickDim
sql As StringDim rs_add As New adodb.RecordsetDim conn As New adodb.Connectionconn.Open quotproviderMicrosoft.Jet.OLEDB.4.0 data sourcequot amp App.Path ampquotdatadatabase.mdbquot If TrimText1.Text quotquot Then MsgBox quot用户名不能为空请输入!quot vbOKOnly vbExclamation quotquot Text1.SetFocus Else
sql quotselect from 用户信息quot rs_add.Open
sql conn adOpenKeyset adLockPessimistic While rs_add.EOF False If Trimrs_add.Fields1 TrimText1.Text Then MsgBox quot已有这个用户quot vbOKOnly vbExclamation quotquot Text1.SetFocus Text1.Text quotquot Text2.Text quotquot Text3.Text quotquot Exit Sub Else rs_add.MoveNext End If Wend If TrimText2.Text ltgt TrimText3.Text Then MsgBox quot两次密码不一致quot vbOKOnly vbExclamation quotquot Text2.SetFocus Text2.Text quotquot Text3.Text quotquot Exit Sub Else rs_add.AddNew rs_add.Fields1 Text1.Text rs_add.Fields2 Text2.Text rs_add.Update MsgBox quot添加用户成功quot vbOKOnly vbExclamation quotquot Me.Hide End IfEnd IfEnd SubPrivate Sub Command2_ClickUnload MeEnd SubfrmdfAdd 窗体
代码:Private Sub Command1_ClickDim
sql As StringDim conn As New adodb.ConnectionDim rs_fjstyle As New adodb.RecordsetIf TrimText1.Text quotquot ThenMsgBox quot请输入姓名quot vbOKOnly vbExclamation quotquotText1.SetFocusExit SubEnd IfIf TrimText2.Text quotquot ThenMsgBox quot日期不能为空quot vbOKOnly vbExclamation quotquotText2.SetFocusExit SubElseIf Not IsDateText2.Text Then MsgBox quot请按照 2006-12-30 格式输入登记日期quot vbOKOnly vbExclamation quotquot Text2.Text quotquot Text2.SetFocus Exit SubEnd IfEnd IfIf TrimText3.Text quotquot ThenMsgBox quot请输入房间编号quot vbOKOnly vbExclamation quotquotText2.SetFocusExit SubEnd IfIf TrimText4.Text quotquot ThenMsgBox quot请选择房间类型quot vbOKOnly vbExclamation quotquotText4.SetFocusExit SubEnd IfIf TrimText5.Text quotquot ThenMsgBox quot请交定金quot vbOKOnly vbExclamation quotquotText5.SetFocusExit SubEnd Ifconn.Open quotproviderMicrosoft.Jet.OLEDB.4.0 data sourcequot amp App.Path ampquotdatadatabase.mdbquotsql quotselect from 预订客房quotrs_fjstyle.Open
sql conn adOpenKeyset adLockPessimisticrs_fjstyle.EOFrs_fjstyle.AddNewrs_fjstyle.Fields1 TrimText1.Textrs_fjstyle.Fields4 TrimDTPicker1.Valuers_fjstyle.Fields5 TrimDTPicker2.Valuers_fjstyle.Fields2 TrimText3.Textrs_fjstyle.Fields3 TrimText4.Textrs_fjstyle.Fields6 ValText5.Textrs_fjstyle.UpdateMsgBox quot添加成功quot vbOKOnly vbExclamation quotquotrs_fjstyle.CloseCommand3.Enabled TrueExit SubEnd SubPrivate Sub Command2_ClickText1.Text quotquotText2.Text quotquotText3.Text quotquotText4.Text quotquotText5.Text quotquotText1.SetFocusEnd SubPrivate Sub Command3_ClickDim
sql As StringDim conn As New adodb.ConnectionDim rs_fjstyle As New adodb.Recordset conn.Open quotproviderMicrosoft.Jet.OLEDB.4.0 data sourcequot amp App.Path ampquotdatadatabase.mdbquot
sql quotselect 客人姓名房间编号房间类型订房日期订房时间预交订金 from 预订客房quot rs_fjstyle.CursorLocation adUseClient rs_fjstyle.Open
sql conn adOpenKeyset adLockPessimistic DataGrid1.AllowAddNew False DataGrid1.AllowDelete False DataGrid1.AllowUpdate False Set DataGrid1.DataSource rs_fjstyle MsgBox quot数据已更新quot vbOKOnly vbExclamation quotquotExit SubEnd SubPrivate Sub Command4_ClickUnload MeEnd SubPrivate Sub Form_LoadDim
sql As StringDim conn As New adodb.ConnectionDim rs_fjstyle As New adodb.Recordset conn.Open quotproviderMicrosoft.Jet.OLEDB.4.0 data sourcequot amp App.Path ampquotdatadatabase.mdbquot
sql quotselect 客人姓名房间编号房间类型订房日期订房时间预交订金 from 预订客房quot rs_fjstyle.CursorLocation adUseClient rs_fjstyle.Open
sql conn adOpenKeyset adLockPessimistic DataGrid1.AllowAddNew False DataGrid1.AllowDelete False DataGrid1.AllowUpdate False Set DataGrid1.DataSource rs_fjstyle Exit SubSet DTPicker2.Value TimeEnd SubfrmDfdy 窗体
代码:Private Sub Command1_ClickDim
sql As StringDim conn As New adodb.ConnectionDim rs_dfdybb As New adodb.Recordsetconn.Open quotproviderMicrosoft.Jet.OLEDB.4.0 data sourcequot amp App.Path ampquotdatadatabase.mdbquotsql quotselect 房间编号房间类别日住宿费周住宿费月住宿费预订空房 from 客房信息quotrs_dfdybb.Open
sql conn adOpenKeyset adLockPessimisticSet DataReport1.DataSource rs_dfdybb.DataSource DataReport1.DataMember rs_dfdybb.DataMember DataReport1.Show Unload MeEnd SubPrivate Sub Command2_ClickUnload MeEnd SubPrivate Sub Form_LoadDim
sql As StringDim rs_dfdy As New Recordset Dim conn As New adodb.Connection On Error GoTo loaderror conn.Open quotproviderMicrosoft.Jet.OLEDB.4.0 data sourcequot amp App.Path ampquotdatadatabase.mdbquot
sql quotselect 房间编号房间类别日住宿费周住宿费月住宿费预订空房 from 客房信息quotrs_dfdy.CursorLocation adUseClient rs_dfdy.Open
sql conn adOpenKeyset adLockPessimistic DataGrid1.AllowAddNew False DataGrid1.AllowDelete False DataGrid1.AllowUpdate False Set DataGrid1.DataSource rs_dfdy Exit Subloaderror: MsgBox Err.DescriptionEnd SubfrmdfEdit 窗体
代码:Option ExplicitDim rs_xgkfinfo As New adodb.RecordsetPrivate Sub cmddel_ClickDim answer As String answer MsgBoxquot确定要删除吗?quot vbYesNo quotquot If answer vbYes Then DataGrid1.AllowDelete True DataGrid1.AllowAddNew False DataGrid1.AllowDelete False rs_xgkfinfo.Delete rs_xgkfinfo.Update DataGrid1.Refresh Else Exit Sub End IfEnd SubPrivate Sub cmdEdit_ClickDim answer As String On Error GoTo cmdEdit cmddel.Enabled False cmdEdit.Enabled False cmdupdate.Enabled True Command4.Enabled False DataGrid1.AllowUpdate True Exit SubcmdEdit: If Err.Number ltgt 0 Then MsgBox Err.Description End IfEnd Sub-------------------------------------------------------Private Sub DataGrid1_BeforeColUpdateByVal ColIndex As Integer OldValue As VariantCancel As Integer If ColIndex 3 Then If Not IsDateDataGrid1.Columns3.Value Then Cancel True MsgBox quot请输入一个日期型数据。
例如:1991/11/25quot End If End IfEnd Sub-------------------------------Private Sub cmdUpdate_ClickDim a As BooleanIf Not IsNullDataGrid1.Bookmark Then rs_xgkfinfo.Update End If cmddel.Enabled True cmdEdit.Enabled True cmdupdate.Enabled False MsgBox quot修改成功quot vbOKOnly vbExclamation quotquotDataGrid1.AllowUpdate FalseCommand4.Enabled TrueExit SubEnd Sub-------------------------------Private Sub Command4_ClickfrmdfFind.ShowUnload MeEnd SubPrivate Sub Form_LoadDim
sql As String Dim conn As New adodb.Connection On Error GoTo loaderror conn.Open quotproviderMicrosoft.Jet.OLEDB.4.0 data sourcequot amp App.Path ampquotdatadatabase.mdbquot
sql quotselect 客人姓名房间编号房间类型订房日期订房时间预交订金 from 预订客房quot rs_xgkfinfo.CursorLocation adUseClient rs_xgkfinfo.Open
sql conn adOpenKeyset adLockPessimistic cmdupdate.Enabled False DataGrid1.AllowAddNew False DataGrid1.AllowDelete False DataGrid1.AllowUpdate False Set DataGrid1.DataSource rs_xgkfinfo Exit Subloaderror: MsgBox Err.DescriptionEnd SubPrivate Sub Form_UnloadCancel As Integer Set DataGrid1.DataSource Nothing rs_xgkfinfo.CloseEnd SubfrmdfFind 窗体:Private Sub Command1_Click 全部信息Dim
sql As StringDim conn As New adodb.ConnectionDim rs_fjstyle As New adodb.Recordset conn.Open quotproviderMicrosoft.Jet.OLEDB.4.0 data sourcequot amp App.Path ampquotdatadatabase.mdbquot
sql quotselect 客人姓名房间编号房间类型订房日期订房时间预交订金 from 预订客房quot rs_fjstyle.CursorLocation adUseClient rs_fjstyle.Open
sql conn adOpenKeyset adLockPessimistic DataGrid1.AllowAddNew False DataGrid1.AllowDelete False DataGrid1.AllowUpdate False Set DataGrid1.DataSource rs_fjstyleExit SubEnd SubPrivate Sub Command2_Click 选择部份信息Dim rs_kffind As New adodb.RecordsetDim conn As New adodb.ConnectionDim
sql As StringIf Check1.Value vbChecked Then
sql quot客人姓名quot amp TrimText1.Text amp quotquot amp quotquotEnd IfIf Trimsql quotquot ThenIf Check2.Value vbChecked ThenIf Not IsDateText2.Text ThenMsgBox quot请输入正确的格式YYYY-MM-DDquot vbOKOnly vbExclamationText2.SetFocusExit SubElse
sql quot订房时间quot amp TrimCDateText2.Text amp quotquot amp quotquot
sql quot订房日期quot amp CDateText2.Text amp quotquot End IfElseIf Check3.Value vbChecked Thensql quot房间编号quot amp TrimText3.Text amp quotquot amp quotquotElseIf Check4.Value vbChecked Thensql quot房间类型quot amp TrimText4.Text amp quotquot amp quotquotEnd IfEnd IfEnd IfEnd Ifconn.Open quotproviderMicrosoft.Jet.OLEDB.4.0 data sourcequot amp App.Path ampquotdatadatabase.mdbquotIf Trimsql quotquot Then MsgBox quot请选择查询方式quot vbOKOnly vbExclamation Exit SubEnd Ifsql quotselect 客人姓名房间编号房间类型订房日期订房时间预交订金 from 预订客房where quot amp sqlrs_kffind.CursorLocation adUseClientrs_kffind.Open
sql conn adOpenKeyset adLockPessimisticDataGrid1.AllowAddNew FalseDataGrid1.AllowDelete FalseDataGrid1.AllowUpdate FalseIf rs_kffind.RecordCount 0 Then MsgBox quot找不到该信息quot vbOKOnly vbExclamationElse Set DataGrid1.DataSource rs_kffindEnd IfEnd SubPrivate Sub Command3_ClickfrmdfEdit.ShowUnload MeEnd SubPrivate Sub Command4_ClickUnload MeEnd SubfrmEdituser 窗体
代码:Private Sub Command1_ClickDim conn As New adodb.ConnectionDim rs_mima As New adodb.RecordsetDim
sql As Stringconn.Open quotproviderMicrosoft.Jet.OLEDB.4.0 data sourcequot amp App.Path ampquotdatadatabase.mdbquot-------------------------------------------------If TrimText1.Text quotquot Then MsgBox quot用户名不可以为空quot Text1.SetFocus Else
sql quotselect from 用户信息 where 用户quot amp TrimText1.Text amp quotquot rs_mima.Open
sql conn adOpenKeyset adLockPessimistic If rs_mima.EOF True Then MsgBox quot没有这个用户,请重新输入quot vbOKOnly vbExclamation quotquot Text1.Text quotquot Text1.SetFocus Else username Text1.Text If Trimrs_mima.Fields2 TrimText2.Text Then If TrimText3.Text ltgt TrimText4.Text Then MsgBox quot密码不一致!quot vbOKOnly vbExclamation quotquot Text3.SetFocus Text3.Text quotquot Text4.Text quotquot Exit Sub Else
sql quotselect from 用户信息 where 用户quot amp username amp quotquot rs_mima.Fields2 Text3.Text rs_mima.Update MsgBox quot密码修改成功quot vbOKOnly vbExclamation quotquot Unload Me End If Else MsgBox quot旧密码错误quot vbOKCancel vbExclamation quotquot Text2.SetFocus Text2.Text quotquot End If End If End If -------------------------------------------------------------End SubPrivate Sub Command2_ClickUnload MeEnd SubfrmHelp 窗体
代码:设置属性.frmkfAdd 窗体
代码:Private Sub Command2_ClickUnload MeEnd SubPrivate Sub Command3_ClickText1.Text quotquotText2.Text quotquotText3.Text quotquotText4.Text quotquotText5.Text quotquotText1.SetFocusEnd SubPrivate Sub Command1_ClickDim
sql As StringDim conn As New adodb.ConnectionDim rs_kfinfo As New adodb.RecordsetIf TrimText1.Text quotquot ThenMsgBox quot房间编号不能为空quot vbOKOnly vbExclamation quotquotText1.SetFocusExit SubEnd IfIf TrimText2.Text quotquot ThenMsgBox quot房间类别不能为空quot vbOKOnly vbExclamation quotquotText2.SetFocusExit SubEnd IfIf TrimText3.Text quotquot ThenMsgBox quot请输入按日收费价钱quot vbOKOnly vbExclamation quotquotText3.SetFocusExit SubEnd IfIf TrimText4.Text quotquot ThenMsgBox quot请输入按周收费价钱quot vbOKOnly vbExclamation quotquotText4.SetFocusExit SubEnd IfIf TrimText5.Text quotquot ThenMsgBox quot请输入按月收费价钱quot vbOKOnly vbExclamation quotquotText5.SetFocusExit SubEnd Ifconn.Open quotproviderMicrosoft.Jet.OLEDB.4.0 data sourcequot amp App.Path ampquotdatadatabase.mdbquotsql quotselect from 客房信息 where 房间编号quot amp Text1.Text amp quotquotrs_kfinfo.Open
sql conn adOpenKeyset adLockPessimisticIf rs_kfinfo.EOF Thenrs_kfinfo.AddNewrs_kfinfo.Fields1 TrimText1.Textrs_kfinfo.Fields2 TrimText2.Textrs_kfinfo.Fields3 TrimValText3.Textrs_kfinfo.Fields4 TrimValText4.Textrs_kfinfo.Fields5 TrimValText5.Textrs_kfinfo.UpdateMsgBox quot客房信息添加成功quot vbOKOnly vbExclamation quotquotText1.Text quotquotText2.Text quotquotText1.SetFocusrs_kfinfo.CloseElseMsgBox quot你添加的信息相同请重新输入quot vbOKOnly vbExclamation quotquotText1.Text quotquotText2.Text quotquotText3.Text quotquotText4.Text quotquotText5.Text quotquotText1.SetFocusrs_kfinfo.CloseExit SubEnd IfEnd SubfrmkfEdit 窗体
代码:Option ExplicitDim rs_xgkfinfo As New adodb.RecordsetPrivate Sub cmddel_ClickDim answer As String answer MsgBoxquot确定要删除吗?quot vbYesNo quotquot If answer vbYes Then DataGrid1.AllowDelete True rs_xgkfinfo.Delete rs_xgkfinfo.Update DataGrid1.Refresh Else Exit Sub End IfEnd SubPrivate Sub cmdEdit_ClickDim answer As String On Error GoTo cmdmodify cmddel.Enabled False cmdEdit.Enabled False cmdupdate.Enabled True DataGrid1.AllowUpdate True Exit Subcmdmodify: If Err.Number ltgt 0 Then MsgBox Err.Description End IfEnd SubPrivate Sub cmdUpdate_ClickIf Not IsNullDataGrid1.Bookmark Thenrs_xgkfinfo.Update End If cmddel.Enabled True cmdEdit.Enabled True cmdupdate.Enabled False MsgBox quot修改成功quot vbOKOnly vbExclamation quotquotExit SubEnd SubPrivate Sub Command4_ClickUnload MeEnd SubPrivate Sub Form_LoadDim
sql As String Dim conn As New adodb.Connection On Error GoTo loaderror conn.Open quotproviderMicrosoft.Jet.OLEDB.4.0 data sourcequot amp App.Path ampquotdatadatabase.mdbquot
sql quotselect 房间编号房间类别日住宿费周住宿费月住宿费预订空房 from 客房信息quot rs_xgkfinfo.CursorLocation adUseClient rs_xgkfinfo.Open
sql conn adOpenKeyset adLockPessimistic cmdupdate.Enabled False DataGrid1.AllowAddNew False DataGrid1.AllowDelete False DataGrid1.AllowUpdate False Set DataGrid1.DataSource rs_xgkfinfo Exit Subloaderror: MsgBox Err.DescriptionEnd SubPrivate Sub Form_UnloadCancel As Integer Set DataGrid1.DataSource Nothing rs_xgkfinfo.CloseEnd SubFrmkfinfo 窗体
代码:Private Sub Command1_ClickUnload MeEnd SubPrivate Sub Command2_ClickDim rs_kffind As New adodb.RecordsetDim conn As New adodb.ConnectionDim
sql As StringIf Check3.Value vbChecked Then
sql quot房间编号quot amp TrimText1.Text amp quotquot amp quotquotEnd IfIf Trimsql quotquot ThenIf Check4.Value vbChecked Then
sql quot房间类别quot amp TrimText2.Text amp quotquot amp quotquotEnd IfEnd Ifconn.Open quotproviderMicrosoft.Jet.OLEDB.4.0 data sourcequot amp App.Path ampquotdatadatabase.mdbquotIf Trimsql .
上一篇:
ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序(解决方案)
下一篇:
《鲁滨孙漂流记》主人公的性格分析:An Analysis of the Hero''s Character in Robinson Crusoe