酒店管理系统编程.docx

酒店管理系统编程Private Sub Command1_Click()If Text1.Text = ThenExit SubEnd IfSet itemx = lvw1.ListItems.Add(, , Text1.Text)itemx.SubItems(1) = Text1.Textitemx.SubItems(1) = Combo1.Textitemx.SubItems(2) = Combo2.Textitemx.SubItems(3) = Combo3.Textitemx.SubItems(4) = Text2.Textitemx.SubItems(5) = Text3.TextEnd SubPrivate Sub Command3_Click()Text1.Text = Combo1.Text = Combo2.Text = Combo3.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command4_Click()If lvw1.ListItems.Count 1 Then Exit Sub End If lvw1.ListItems.Remove (lvw1.SelectedItem.Index)End SubPrivate Sub Command5_Click()酒店信息管理.ShowUnload MeEnd SubPrivate Sub Form_Load()Dim itemx As ListItemlvw1.View = lvwReportlvw1.ColumnHeaders.Clearlvw1.ListItems.Clearlvw1.ColumnHeaders.Add 1, , 客户名称, lvw1.Width / 3lvw1.ColumnHeaders.Add 2, , 酒店名称, lvw1.Width / 3lvw1.ColumnHeaders.Add 3, , 预定间数, lvw1.Width / 3lvw1.ColumnHeaders.Add 3, , 预定天数, lvw1.Width / 3lvw1.ColumnHeaders.Add 3, , 预定时间, lvw1.Width / 3lvw1.ColumnHeaders.Add 3, , 房间类型, lvw1.Width / 3End SubPrivate Sub lvw1_BeforeLabelEdit(Cancel As Integer)End SubPrivate Sub cmddelete_Click()If lvw1.ListItems.Count 1 Then Exit Sub End If lvw1.ListItems.Remove (lvw1.SelectedItem.Index)End SubPrivate Sub cndaddnew_Click()If text1.Text = ThenExit SubEnd IfSet itemx = lvw1.ListItems.Add(, , text1.Text)itemx.SubItems(1) = text1.Textitemx.SubItems(1) = text2.Textitemx.SubItems(2) = Combo1.TextEnd SubPrivate Sub Command5_Click()酒店信息管理.ShowUnload MeEnd SubPrivate Sub Form_Load()Dim itemx As ListItemlvw1.View = lvwReportlvw1.ColumnHeaders.Clearlvw1.ListItems.Clearlvw1.ColumnHeaders.Add 1, , 房间编号, lvw1.Width / 3lvw1.ColumnHeaders.Add 2, , 房间价格, lvw1.Width / 3lvw1.ColumnHeaders.Add 3, , 酒店名称, lvw1.Width / 3lvw1.ColumnHeaders.Add 4, , 房间类型, lvw1.Width / 3End SubPrivate Sub lvw1_BeforeLabelEdit(Cancel As Integer)End SubPrivate Sub Command1_Click()酒店管理系统.ShowUnload MeEnd SubPrivate Sub Command2_Click()酒店信息管理.ShowUnload MeEnd SubPrivate Sub Picture2_Click()End SubPrivate Sub cmddenglu_Click()Static i As Integer i = i + 1 If (txt1user.Text) = lijumei) Or (txt1user.Text = lilu) Then txt2password.SetFocus If (txt1user.Text = lijumei) And (txt2password.Text = 111111) Then 欢迎界面.Show Unload Me 从内存中删除登陆窗体 Exit Sub End If If (txt1user.Text = lilu) And (txt2password.Text = 222222) Then 欢迎界面.Show Unload Me Exit Sub End If MsgBox 密码或用户名错误，请重新输入！, 0, 提示 txt2password.SetFocus txt2password.Text = Else If i 3 Then MsgBox 密码或用户名错误，请重新输入！, 0, 提示 txt2password.SetFocus txt2password.Text = ElseIf i = 3 Then MsgBox 密码或用户名错误，你无权使用本系统！, 48, 提示 End If End IfEnd SubPrivate Sub cmdtuichu_Click()If MsgBox(真的要退出系统吗？, 64 + 1, 提示) = 1 Then End Else txt1user.SetFocus End IfEnd SubPrivate Sub Timer1_Timer() Label1.ForeColor = QBColor(Int(15 * Rnd() + 1)End SubPrivate Sub txt2password_Change()End SubPrivate Sub Command1_Click()欢迎界面.ShowUnload MeEnd SubPrivate Sub Label1_Click()酒店信息管理新.ShowUnload MeEnd SubPrivate Sub Label2_Click()房间信息管理新.ShowUnload MeEnd SubPrivate Sub Label3_Click()订单信息管理新.ShowUnload MeEnd SubPrivate Sub Label4_Click()总经理查询新.ShowUnload MeEnd SubPrivate Sub Label5_Click()总经理查询新.ShowUnload MeEnd SubPrivate Sub Picture1_Click()End SubPrivate Sub Command1_Click()If Text1.Text = ThenExit SubEnd IfSet itemx = lvw1.ListItems.Add(, , Text1.Text)itemx.SubItems(1) = Text1.Textitemx.SubItems(1) = Text2.Textitemx.SubItems(2) = Combo1.TextText1.Text = Text2.Text = Text1.SetFocusEnd SubPrivate Sub Command4_Click()If lvw1.ListItems.Count 1 Then Exit Sub End If lvw1.ListItems.Remove (lvw1.SelectedItem.Index)End SubPrivate Sub Command6_Click()酒店信息管理.ShowUnload MeEnd SubPrivate Sub Form_Load()Dim itemx As ListItemlvw1.View = lvwReportlvw1.ColumnHeaders.Clearlvw1.ListItems.Clearlvw1.ColumnHeaders.Add 1, , 酒店名, lvw1.Width / 3lvw1.ColumnHeaders.Add 2, , 酒店地址, lvw1.Width / 3lvw1.ColumnHeaders.Add 3, , 星级, lvw1.Width /