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

《最新计算机酒店的管理系统vb源代码有图》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、酒店管理系统PrivateSubck_Click()EndSubPrivateSubb_Click()kfszShowUnloadMeEndSubPrivateSubc_Click()kfcx.ShowUnloadMeEndSubPrivateSubCommand1_Click()kfsz.ShowUnloadMeEndSubPrivateSubCommand2_Click()zsdj.ShowUnloadMeEndSubPrivateSubsz_Click()EndSubPrivateSubCommand3_Click()kfcx.

2、ShowUnloadMeEndSubPrivateSubCommand4_Click()xgmm.ShowUnloadMeEndSubPrivateSubCommand6_Click()xgmm.ShowuloadMeEndSubPrivateSubCommand7_Click()EndEndSubPrivateSubd_Click()kfsz.ShowUnloadMeEndSubPrivateSubdd_Click()xgmm.ShowUnloadMeEndSubPrivateSubf_Click()zsdj.ShowUnloadM

3、eEndSubPrivateSubk_Click()EndSubPrivateSubForm_Load()Me.Top=(Screen.Height-Me.Height)/2Me.Left=(Screen.Width-Me.Width)/2EndSubPrivateSubg_Click()tfdj.ShowUnloadMeEndSubPrivateSubh_Click()kfcx.ShowUnloadMeEndSubPrivateSubq_Click()tfjz.ShowUnloadMeEndSubPrivateSubx_Click(

4、)glydl.ShowUnloadMeEndSubDimtimAsIntegerDimmyAsStringOptionExplicitPrivateSubCommand1_Click()'修改管理员及密码Data1.Recordset.MoveFirstData1.Recordset.FindFirst("管理员="&"'"&Text1.Text&"'")IfData1.Recordset.NoMatchThenMsgBox("管理员输入错误!")Text1.SetFocusElseIfText1.Text<>""AndText2.T

5、ext<>""AndText2.Text=Data1.Recordset.Fields("密码")Thendaohanglan.ShowUnloadMeEndIfIftim=3Then'密码输错3次，退出系统my=MsgBox("密码输入错误,请向系统管理员查询!",0,"")Ifmy=vbOKThenEndEndIfIfText1.Text=""ThenMsgBox("请输入管理员!")Text1.SetFocusElseIfText1.Text<>Data1.Recordset.Fields("管理员")ThenMsgBox("查

6、无此管理员,请重新输入管理员!")Text1.SetFocusElseIfText2.Text=""ThenMsgBox("请输入管理员密码!")Text2.SetFocusElseIfText2.Text<>Data1.Recordset.Fields("密码")ThenMsgBox("密码错误,请重新输入密码!")tim=tim+1Text2.SetFocusEndIfEndIfEndIfEndIfEndIfEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()

7、Me.Top=(Screen.Height-Me.Height)/2Me.Left=(Screen.Width-Me.Width)/2EndSubPrivateSubCommand1_Click()DimfjhAsStringfjh=InputBox("请输入要查找的房间号")Adodc1.Recordset.MoveFirstAdodc1.Recordset.Find("房间号="&"'"&fjh&"'")IfAdodc1.Recordset.EOFThenMsgBox"房号不存在",vbInformation,"查找记录"Else

8、Text1=Adodc1.Recordset("房间号")Text2=Adodc1.Recordset("房间类型")Text3=Adodc1.Recordset("房态")EndIfEndSubPrivateSubCo