【文章內容簡介】
庫管理員則可以直接登陸系統(tǒng),進入酒店管理界面。I f (admin).value Or (password).value Then 39。 flag = 0 39。 Else flag = 1End If(3).退出 (退出系統(tǒng)) End 酒店管理的實現(xiàn)(1) 客戶管理界面操作的主要代碼 顯示客戶信息 = Select * From guest = True添加客戶信息 39。Dim sql As String39。If Not Then39。39。End If39。If Then39。 39。 End If 刪除客戶信息If Not Then If Then Else End If(2) 日常登記界面操作的主要代碼 這個版塊基本上是對以前的數據和窗體進行重新調用添加日常信息 可以調用以前的數據庫信息,然后進行添加刪除信息If Not Then If Then Else End If查詢信息 選取查詢字段 Dim Temp As String Dim i As Integer = If ( = guest_id) Then39。 1000139。 1000239。 1000339。 1000439。 1000539。 1000639。 H00339。 H00439。 Select Case i39。 Case 039。 Temp = 1000139。 Case 139。 Temp = 1000239。 Case 239。 Temp = 1000339。 Case 339。 Temp = 1000439。 Case 439。 Temp = 1000539。 Case 539。 Temp = 1000639。 End Select 選取關系運算符 Dim Temp As String Select Case Case 0 Temp = = Case 1 Temp = = Case 2 Temp = Case 3 Temp =