haohuatao.frm

VB客房管理系统全套(带源码)顾客可以用电话或上网注册的方式预定。其方式不同

VERSION 5.00
Begin VB.Form haohua 
   Caption         =   "haohuatao"
   ClientHeight    =   4545
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6630
   LinkTopic       =   "Form6"
   ScaleHeight     =   4545
   ScaleWidth      =   6630
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command4 
      Caption         =   "确定修改"
      Height          =   495
      Left            =   4320
      TabIndex        =   5
      Top             =   3480
      Width           =   1455
   End
   Begin VB.CommandButton Command3 
      Caption         =   "修改"
      Height          =   495
      Left            =   4320
      TabIndex        =   4
      Top             =   2760
      Width           =   1455
   End
   Begin VB.CommandButton Command2 
      Caption         =   "删除"
      Height          =   495
      Left            =   4320
      TabIndex        =   3
      Top             =   2040
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "添加"
      Height          =   495
      Left            =   4320
      TabIndex        =   2
      Top             =   1320
      Width           =   1455
   End
   Begin VB.TextBox Text1 
      BackColor       =   &H00FFFFC0&
      Height          =   495
      Left            =   3720
      TabIndex        =   1
      Top             =   600
      Width           =   2055
   End
   Begin VB.ListBox List1 
      BackColor       =   &H00C0C0FF&
      Height          =   2040
      ItemData        =   "haohuatao.frx":0000
      Left            =   480
      List            =   "haohuatao.frx":0002
      TabIndex        =   0
      Top             =   480
      Width           =   2775
   End
End
Attribute VB_Name = "haohua"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit
'是否改动过记录，ture为改过
Dim mblChange As Boolean
Dim mrc As ADODB.Recordset
Private Sub Form_Load()

List1.AddItem "卧室电视"
List1.AddItem "卧室空调"
List1.AddItem "卧室电话"
List1.AddItem "卧室台灯"
List1.AddItem "卧室双人床"
List1.AddItem "客厅电视"
List1.AddItem "客厅音响"
List1.AddItem "客厅DVD"
List1.AddItem "客厅沙发"
List1.AddItem "客厅饮水机"
List1.AddItem "写字间书橱"
List1.AddItem "写字间台灯"
List1.AddItem "写字间单人床"
List1.AddItem "写字间电脑"
List1.AddItem "写字间写字台"
List1.AddItem "洗手间太阳能"
List1.AddItem "洗手间浴缸"
List1.AddItem "洗手间全套洗刷用品"
Command4.Enabled = False


End Sub

Sub command1_click()
List1.AddItem Text1
Text1 = ""
End Sub
Sub command2_click()
List1.RemoveItem List1.ListIndex
End Sub
Sub command3_click()
Text1 = List1.Text
Text1.SetFocus
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = True

End Sub
 Sub command4_click()
 List1.List(List1.ListIndex) = Text1
 Command4.Enabled = False
 Command1.Enabled = True
 Command2.Enabled = True
 Command3.Enabled = True
 Text1 = ""
 
 
 End Sub