酒店管理系统VB源代码加图片.docx

酒店管理系统VB源代码加图片 Private Sub Command1_Click()If Text1.Text And Text2.Text And Text3.Text Then If Trim(Text2.Text) = Trim(Text3.Text) Then Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0).Value = Trim(Text1.Text) Adodc1.Recordset.Fields(1).Value = Trim(Text2.Text) Adodc1.Recordset.Update Form1.Refresh Form3.Show Unload Me Else MsgBox 密码和确认密码不一致, 0, 提示 Text2.Text = Text1.Text = Text3.Text = Text1.SetFocus End If Else MsgBox 任意一项不能为空, 0, 提示 Text2.Text = Text1.Text = Text3.Text = Text1.SetFocus End If End SubPrivate Sub Form_Load()End Sub Private Sub Command1_Click()Form10.ShowEnd SubPrivate Sub Command2_Click()Form4.ShowEnd SubPrivate Sub Command3_Click()Form6.ShowEnd SubPrivate Sub Command4_Click()Form3.ShowUnload MeEnd SubPrivate Sub Command5_Click()EndEnd SubPrivate Sub Command6_Click()Form8.ShowEnd SubPrivate Sub Form_Load()End Sub Private Sub Command1_Click()Form9.ShowEnd SubPrivate Sub Command2_Click()Form5.ShowEnd SubPrivate Sub Form_Load()End Sub Private Sub Command1_Click()Adodc1.Recordset.MoveFirstDo While Not Adodc1.Recordset.EOFIf Trim(Text1.Text) = Adodc1.Recordset.Fields(0).Value ThenText1.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)End IfAdodc1.Recordset.MoveNextLoopEnd SubPrivate Sub Form_Load()MsgBox 请输入客户姓名, , 提示End Sub Dim i As IntegerPrivate Sub Combo1_GotFocus()Text10.Text = Str(Date)End SubPrivate Sub Command1_Click()Adodc1.Recordset.AddNewAdodc1.Recordset.Fields(0).Value = Trim(Text1.Text)Adodc1.Recordset.Fields(1).Value = Trim(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)Adodc1.Recordset.Fields(7).Value = Trim(Text