酒店管理系统vb源代码加图片

《酒店管理系统vb源代码加图片》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、酒店管理系统VB源代码加图片PrivateSubCommand1_Click()IfText1.Text<>""AndText2.Text<>""AndText3.Text<>""ThenIfTrim(Text2.Text)=Trim(Text3.Text)ThenAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(0).Value=Trim(Text1.Text)Adodc1.Recordset.Fields(1).Value=Trim(Text2.Text)Adodc1.R

2、ecordset.UpdateForm1.RefreshForm3.ShowUnloadMeElseMsgBox"密码和确认密码不一致",0,"提示"Text2.Text=""Text1.Text=""Text3.Text=""Text1.SetFocusEndIfElseMsgBox"任意一项不能为空",0,"提示"Text2.Text=""Text1.Text=""Text3.Text=""Text1.SetFocusEndIfEndSubPrivateSubForm_Load()EndSubPrivateSubC

3、ommand1_Click()Form10.ShowEndSubPrivateSubCommand2_Click()Form4.ShowEndSubPrivateSubCommand3_Click()Form6.ShowEndSubPrivateSubCommand4_Click()Form3.ShowUnloadMeEndSubPrivateSubCommand5_Click()EndEndSubPrivateSubCommand6_Click()Form8.ShowEndSubPrivateSubForm_Load

4、()EndSubPrivateSubCommand1_Click()Form9.ShowEndSubPrivateSubCommand2_Click()Form5.ShowEndSubPrivateSubForm_Load()EndSubPrivateSubCommand1_Click()Adodc1.Recordset.MoveFirstDoWhileNotAdodc1.Recordset.EOFIfTrim(Text1.Text)=Adodc1.Recordset.Fields(0).ValueThenText1.

5、Text=Adodc1.Recordset.Fields(0).ValueText2.Text=Str(Adodc1.Recordset.Fields(9).Value+Adodc1.Recordset.Fields(10).Value)Text3.Text=Str(Adodc1.Recordset.Fields(9).Value+Adodc1.Recordset.Fields(10).Value-Adodc1.Recordset.Fields(9).Value)EndIfAdodc1.Recordset.MoveNe

6、xtLoopEndSubPrivateSubForm_Load()MsgBox"请输入客户姓名",,"提示"EndSubDimiAsIntegerPrivateSubCombo1_GotFocus()Text10.Text=Str(Date)EndSubPrivateSubCommand1_Click()Adodc1.Recordset.AddNewAdodc1.Recordset.Fields(0).Value=Trim(Text1.Text)Adodc1.Recordset.Fields(1).Value=Trim

7、(Combo2.Text)Adodc1.Recordset.Fields(2).Value=Trim(Text3.Text)Adodc1.Recordset.Fields(3).Value=Trim(Text4.Text)Adodc1.Recordset.Fields(4).Value=Trim(Text5.Text)Adodc1.Recordset.Fields(5).Value=Trim(Text6.Text)Adodc1.Recordset.Fields(6).Value=Trim(Text7.Text)Adod

8、c1.Recordset.Fields(7).Value=Trim(Text8.Text)Adodc1.Recordset.Fields(8).Value=Trim(Combo1.Text)Adodc1.Recordset.Fields(9).Value=DateAdodc1.Recordset.Fields(10).Value=