管理信息系统课程设计-酒店客房管理系统(5)

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

Splash.Visible = False End If

nam_datquery.Show End Sub

'对数据库中的各个数据表进行清空 六、退出代码

Private Sub sysclear_Click() Dim response As Integer

response = MsgBox(\库中所有旅客数据即将清空，是否继续？\vbOKCancel, \警告\If response = 1 Then

Dim strQuery As String, i As Integer, a(7) As String, cl As Integer, j As Intege init_ado

strQuery = \clr (strQuery)

strQuery = \clr (strQuery)

strQuery = \clr (strQuery)

a(0) = 1: a(1) = 2: a(2) = 3: a(3) = 4: a(4) = 2: a(5) = 4: a(6) = 1 strQuery = \

rsrmis.Open strQuery, cnnrmis, , , adCmdText rsrmis.MoveFirst

For j = 0 To rsrmis.RecordCount - 1 cl = Int(rsrmis!class) i = cl - 1

rsrmis!bsurplus = a(i) rsrmis!Type = 0 rsrmis.Update rsrmis.MoveNext Next j End If End Sub

七、数据库连接代码 Private Sub init_ado() '初始化cnnrmis 和rsrmis Dim strcnn

Set cnnrmis = New ADODB.Connection

strcnn = \\cnnrmis.Open strcnn

Set rsrmis = New ADODB.Recordset rsrmis.CursorType = adOpenKeyset rsrmis.LockType = adLockOptimistic

18

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

End Sub

Private Sub clr(ByVal str As String) Dim i As Integer

rsrmis.Open str, cnnrmis, , , adCmdText’ If Not (rsrmis.EOF And rsrmis.BOF) Then For i = 1 To rsrmis.RecordCount rsrmis.Delete rsrmis.MoveNext Next i End If

rsrmis.Close End Sub

19

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

20

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

21

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

22