vb计算机管理系统说明书,最新计算机酒店的管理系统vb源代码有图

最新计算机酒店的管理系统vb源代码有图

(17页)

本资源提供全文预览，点击全文预览即可全文预览,如果喜欢文档就下载吧，查找使用更方便哦！

24.90 积分

酒店管理系统Private Sub ck_Click()End SubPrivate Sub b_Click()kfsz ShowUnload MeEnd SubPrivate Sub c_Click()kfcx.ShowUnload MeEnd SubPrivate Sub Command1_Click()kfsz.ShowUnload MeEnd SubPrivate Sub Command2_Click()zsdj.ShowUnload MeEnd SubPrivate Sub sz_Click()End SubPrivate Sub Command3_Click()kfcx.ShowUnload MeEnd SubPrivate Sub Command4_Click()xgmm.ShowUnload MeEnd SubPrivate Sub Command6_Click()xgmm.Showuload MeEnd SubPrivate Sub Command7_Click()EndEnd SubPrivate Sub d_Click()kfsz.ShowUnload MeEnd SubPrivate Sub dd_Click()xgmm.ShowUnload MeEnd SubPrivate Sub f_Click()zsdj.ShowUnload MeEnd SubPrivate Sub k_Click()End SubPrivate Sub Form_Load()Me.Top = (Screen.Height - Me.Height) / 2Me.Left = (Screen.Width - Me.Width) / 2End SubPrivate Sub g_Click()tfdj.ShowUnload MeEnd SubPrivate Sub h_Click()kfcx .ShowUnload MeEnd SubPrivate Sub q_Click()tfjz.ShowUnload MeEnd SubPrivate Sub x_Click()glydl.ShowUnload MeEnd SubDim tim As Integer Dim my As String Option Explicit Private Sub Command1_Click() '修改管理员及密码Data1.Recordset.MoveFirst Data1.Recordset.FindFirst ("管理员 =" & "'" & Text1.Text & "'")If Data1.Recordset.NoMatch Then MsgBox ("管理员输入错误!") Text1.SetFocusElse If Text1.Text <> "" And Text2.Text <> "" And Text2.Text = Data1.Recordset.Fields("密码") Then daohanglan.Show Unload Me End If If tim = 3 Then '密码输错3次，退出系统 my = MsgBox("密码输入错误,请向系统管理员查询!", 0, "") If my = vbOK Then End End If If Text1.Text = "" Then MsgBox ("请输入管理员!") Text1.SetFocus Else If Text1.Text <> Data1.Recordset.Fields("管理员") Then MsgBox ("查无此管理员,请重新输入管理员!") Text1.SetFocus Else If Text2.Text = "" Then MsgBox ("请输入管理员密码!") Text2.SetFocus Else If Text2.Text <> Data1.Recordset.Fields("密码") Then MsgBox ("密码错误,请重新输入密码!") tim = tim + 1 Text2.SetFocus End If End If End IfEnd If End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Me.Top = (Screen.Height - Me.Height) / 2Me.Left = (Screen.Width - Me.Width) / 2End SubPrivate Sub Command1_Click()Dim fjh As Stringfjh = InputBox("请输入要查找的房间号")Adodc1.Recordset.MoveFirstAdodc1.Recordset.Find ("房间号=" & "'" & fjh & "'")If Adodc1.Recordset.EOF ThenMsgBox "房号不存在", vbInformation, "查找记录"ElseText1 = Adodc1.Recordset("房间号")Text2 = Adodc1.Recordset("房间类型")Text3 = Adodc1.Recordset("房态")End IfEnd SubPrivate Sub Command2_Click()Text1.Text = "": Text2.Text = "": Text3.Text = ""Text1.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Form_Load()Me.Top = (Screen.Height - Me.Height) / 2Me.Left = (Screen.Width - Me.Width) / 2End SubDim a As StringPrivate Sub Command1_Click()Dim fh As StringDim a As Stringfh = InputBox("请输入要查找的房间")Data1.Recordset.MoveFirstData1.Recordset.FindFirst ("房间号=" & "'" & fh & "'")If Data1.Recordset.NoMatch Then MsgBox "房号不存在" Elsea = "select * from 客房状态表 Where 房间号=text1.text"Data1.DatabaseName = "C:\Documents and Settings\Administrator\桌面\酒店系统9\新建文件夹\db1.mdb"Data1.RecordSource = a 'Data1.Recordset.ForeColor = RGB(255, 255, 0)" End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Form_Load()Me.Top = (Screen.Height - Me.Height) / 2Me.Left = (Screen.Width - Me.Width) / 2End SubPrivate Sub Command1_Click()Dim kf As StringDim a As Stringkf = InputBox("请输入要查找的客户")Data1.Recordset.MoveFirstData1.Recordset.FindFirst ("姓名=" & "'" & kf & "'")If Data1.Recordset.NoMatch Then MsgBox "该客户没有挂账！" Elsesql = "select * from 账单表 Where 姓名=text1.text"Data1.DatabaseName = "C:\Documents and Settings\Administrator\桌面\酒店系统9\新建文件夹\db1.mdb"Data1.RecordSource = sql'Data1.Recordset.ForeColor = RGB(255, 255, 0)"'Data1.Detail.Color = RGB(255, 255, 0) End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Me.Top = (Screen.Height - Me.Height) / 2Me.Left = (Screen.Width - Me.Width) / 2End SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub Command1_Click() '客房设置Data1.Recordset.AddNewText1.SetFocusEnd SubPrivate Sub Command2_Click() 'Data1.Recordset.EditIf Text1.Text <> "" ThenData1.Recordset.Fields("房间号") = Text1.TextData1.Recordset.Fields("价格") = Text2.TextData1.Recordset.Fields("使用设置") = Text3.TextData1.Recordset.Fields("配置") = Text4.TextData1.Recordset.UpdateMsgBox "房间设置成功!"ElseMsgBox "房间号不能为空,请重新输入!" & vbCrLf & "然后单击{登记}按钮", vbExclamation, "更新记录"Text1.SetFocusEnd IfEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Command4_Click()Text1.Text = "": Text2.Text = "": Text4.Text = "": Text5.Text = ""Text1.SetFocusEnd SubPrivate Sub Form_Load()Me.Top = (Screen.Height - Me.Height) / 2Me.Left = (Screen.Width - Me.Width) / 2End SubPrivate Sub Command1_Click()Text5.SetFocusDim a As Integera = MsgBox("确实要退房吗?", vbYesNo + vbQuestion, "删除客户信息")If a = vbYesNo ThenData1.Recordset.DeleteData1.Recordset.MoveNextEnd IfText7.Text = "这位客户说,我们的酒店服务很好!"End SubPrivate Sub Command2_Click()tfjz.Text = "": Text5.Text = "": Text1.Text = "": Text4.Text = ""Combo1.Text = "": Combo2.Text = "":End SubPrivate Sub Command3_Click()Dim h As Stringh = Trim(Text5.Text)Data1.Recordset.MoveFirstData1.Recordset.FindFirst ("姓名=" & "'" & h & "'")If Data1.Recordset.NoMatch ThenMsgBox "该客户不存在!"ElseText1.Text = Data1.Recordset.Fields("房间号")Text4.Text = Data1.Recordset.Fields("住宿天数")End IfEnd SubPrivate Sub Form_Load()Me.Top = (Screen.Height - Me.Height) / 2Me.Left = (Screen.Width - Me.Width) / 2End SubPrivate Sub Timer1_Timer() '显示当前退房时间Text3.Text = Time()End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Command4_Click() '删除用户Data1.Recordset.MoveFirstData1.Recordset.FindFirst ("编号=" & "'" & Text4.Text & "'")If Data1.Recordset.NoMatch Then MsgBox "没有找到该用户!" Else Data1.Recordset.Delete Data1.Recordset.MoveNext Data1.Refresh MsgBox " 删除成功" End IfEnd SubPrivate Sub Command5_Click() '创建用户Text1.SetFocusText2.Enabled = FalseText2.ForeColor = RGB(255, 255, 0)Data1.Recordset.EditData1.Recordset.Fields("管理员") = Text1.TextData1.Recordset.Fields("密码") = Text2.TextData1.Recordset.UpdateIf Text3.Text <> "" ThenMsgBox " 用户创建成功！"ElseMsgBox "你输入的有误！或没有输入，请检查"End IfEnd SubPrivate Sub Form_Activate() Me.Top = (Screen.Height - Me.Height) / 2Me.Left = (Screen.Width - Me.Width) / 2Text1.SetFocusEnd SubPrivate Sub Form_Unload(Cancel As Integer) glydl.ShowEnd SubPrivate Sub Command1_Click() '修改管理员密码Dim yh As Stringyh = Trim(Text1.Text)Data1.Recordset.MoveFirstData1.Recordset.FindFirst ("管理员=" & "'" & yh & "'")If Data1.Recordset.NoMatch Then Data1.RefreshElseIf Text1.Text <> "" And Text2.Text <> "" And Text2.Text = Data1.Recordset.Fields("密码") Then If Text3.Text <> "" Then Data1.Recordset.Edit Data1.Recordset.Fields("密码") = Text3.Text MsgBox ("密码修改成功,退出管理员密码修改!") Data1.Recordset.Update glydl.Show Unload Me End If Else If Text1.Text <> Data1.Recordset.Fields("管理员") Then Text1.SetFocus Text1.Text = "" MsgBox ("无此管理员,请重新输入!") End If End If If Text2.Text = "" Then MsgBox ("请输入管理员原密码!") Text2.SetFocus Else If Text2.Text <> Text3.Text Then MsgBox ("原密码错误,请重新输入原密码!") Text2.SetFocus End If End If End IfEnd SubPrivate Sub Command2_Click() Text1.Text = "": Text2.Text = "": Text3.Text = "": Text4.Text = ""End SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub Text4_Change()Text4.Text = Data1.Recordset.Fields("编号") + 1End Sub Option ExplicitDim sql As StringPrivate Sub Command1_Click()Dim xm As StringDim a As Stringxm = Trim(Text1.Text)Data1.Recordset.MoveFirstData1.Recordset.FindFirst ("姓名=" & "'" & xm & "'")If Data1.Recordset.NoMatch Then MsgBox "用户不存在" Data1.Refresh Elsesql = "select * from 客人信息表 Where 姓名=text1.text"Data1.DatabaseName = "C:\Documents and Settings\Administrator\桌面\酒店系统9\新建文件夹\db1.mdb"Data1.RecordSource = sql End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Me.Top = (Screen.Height - Me.Height) / 2Me.Left = (Screen.Width - Me.Width) / 2End SubPrivate Sub Text1_Change()End SubPrivate Sub Command1_Click()Data1.Recordset.AddNewText1.SetFocusMsgBox "请输入用户信息"End SubPrivate Sub Command2_Click()Data1.RefreshEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub DataGrid2_Click()Adodc1.CommandType = adCmdTextAdodc1.RecordSource = "select * from 客房状态表 where 房态='空房'"Adodc1.RefreshEnd SubPrivate Sub Form_Load()End Sub 关 键 词： 最新 计算机 酒店 管理 系统 vb 源代码

 天天文库所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。