【正文】 Time As Long 39。設(shè)置時間間隔 ,即滾動速度 Const IntervalTime As Long = 23 Dim rt As Long Dim DrawingRect As RECT 39。定義一個矩形區(qū)域 海南軟件職業(yè)技術(shù)學(xué)院畢業(yè)設(shè)計（論文） 15 39。設(shè)置所畫矩形的左邊 位置 Dim tmpX As Long, tmpY As Long Dim RectHeight As Long 39。顯示窗體 39。獲得所畫矩形的尺寸 rt = DrawText(, ScrollText, 1, DrawingRect, DT_CALCRECT) If rt = 0 Then MsgBox Error, vbExclamation isend = True Else 39。設(shè)置 矩形的位置 = / 2 = 0 = 39。設(shè)置矩形的高度 RectHeight = = + End If Do While Not isend If GetTickCount() LastFrameTime IntervalTime Then DrawText , ScrollText, 1, DrawingRect, DT_CENTER Or DT_WORDBREAK = 1 = 1 39?？刂莆谋镜难h(huán)滾動 If (RectHeight) Then = = RectHeight + End If LastFrameTime = GetTickCount() End If DoEvents Loop End Sub 海南軟件職業(yè)技術(shù)學(xué)院畢業(yè)設(shè)計（論文） 16 Private Sub about_Click() Load 關(guān)于信息 關(guān)于信息 .Show End Sub Private Sub ConsumeAnnal_Click() 消費記錄 .Show End Sub Private Sub ConsumeIn_Click() 消費入賬 .Show End Sub Private Sub destineTobook_Click() 預(yù)訂轉(zhuǎn)入住登記 .Show End Sub Private Sub EmployeeInfon_Click() 員工信息查詢 .Show End Sub Private Sub Form_Load() MsgBox 業(yè)務(wù)員 amp。 txt amp。 歡迎您！ , vbOKOnly + vbExclamation, 提示 Dim db As Dim rs As Set db = OpenDatabase(旅店 .mdb) Set rs = (系統(tǒng)信息 ) = LoadPicture(photos/客房圖片 .jpg) = 9165 = 8385 39。 = 1 = 1 39。主頁上的網(wǎng)站鏈接網(wǎng)址 URL1 = URL2 = 海南軟件職業(yè)技術(shù)學(xué)院畢業(yè)設(shè)計（論文） 17 URL3 = 39。picture2 中滾動字幕的的顏色和大小設(shè)置 = vbGreen = 14 End Sub Private Sub back_Click() Load 散客退房 散客退房 .Show End Sub Private Sub destine_Click() Load 散客預(yù)定登記 散客預(yù)定登記 .Show End Sub Private Sub FullMoney_Click() Load 會員充值管理 會員充值管理 .Show End Sub Private Sub groupBack_Click() Load 團隊退房登記 團隊退房登記 .Show End Sub Private Sub groupBook_Click() Load 團隊入住登記 海南軟件職業(yè)技術(shù)學(xué)院畢業(yè)設(shè)計（論文） 18 團隊入住登記 .Show End Sub Private Sub HomeeState_Click() Load 客房狀態(tài) 客房狀態(tài) .Show End Sub Private Sub information_Click() Load 房客信息顯示 房客信息顯示 .Show End Sub Private Sub MemberIfon_Click() Load 會員管理信息 會員管理信息 .Show End Sub Private Sub payMoney_Click() Load 團隊入住付款 團隊入住付款 .Show End Sub Private Sub PriceManage_Click() Load 價格管理信息 價格管理信息 .Show End Sub Private Sub quit_Click() 海南軟件職業(yè)技術(shù)學(xué)院畢業(yè)設(shè)計（論文） 19 End End Sub Private Sub Remanage_Click() Dim Cancel As Boolean If MsgBox(您確定要切換管理員嗎？ , vbYesNo + vbQuestion, 確認 ) = vbYes Then Unload Me 更改管理員 .Show Else Cancel = True End If End Sub Private Sub RePassword_Click() 更改密碼 .Show End Sub Private Sub takebook_Click() Load 散客入住登記 散客入住登記 .Show End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) 39。toolbar 按鈕鏈接窗體 Select Case Case 1 Load 散客入住登記 散客入住登記 .Show Case 2 Load 團隊入住登記 團隊入住登記 .Show 海南軟件職業(yè)技術(shù)學(xué)院畢業(yè)設(shè)計（論文） 20 Case 3 Load 散客退房 散客退房 .Show Case 4 Load 散客結(jié)賬 散客結(jié)賬 .Show Case 5 Load 團隊入住付款 團隊入住付款 .Show Case 6 Load 預(yù)訂轉(zhuǎn)入住登記 預(yù)訂轉(zhuǎn)入住登記 .Show Case 7 Load 房客信息顯示 房客信息顯示 .Show Case 8 Load 客房狀態(tài) 客房狀態(tài) .Show Case 9 Load 會員管理信息 會員管理信息 .Show Case 10 海南軟件職業(yè)技術(shù)學(xué)院畢業(yè)設(shè)計（論文） 21 Load 消費入賬 消費入賬 .Show Case 11 Load 員工信息查詢 員工信息查詢 .Show Case 12 End End Select End Sub Private Sub form_unload(Cancel As Integer) Dim frm As Form isend = True For Each frm In Forms Unload frm Next frm End Sub 39。鏈接網(wǎng)站 Private Sub URL1_Click() ShellExecute 0amp。, vbNullString, vbNullString, vbNullString, vbNormalFocus End Sub Private Sub URL2_Click() ShellExecute 0amp。, vbNullString, vbNullString, vbNullString, vbNormalFocus End Sub Private Sub URL3_Click() ShellExecute 0amp。, vbNullString, , vbNullString, vbNullString, vbNormalFocus End Sub 海南軟件職業(yè)技術(shù)學(xué)院畢業(yè)設(shè)計（論文） 22 Private Sub 房客住宿結(jié)賬 _Click() 散客結(jié)賬 .Show End Sub Private Sub 會員付賬 _Click() End Sub Private Sub 系統(tǒng)清理 _Click() If txt = admini Then Else MsgBox 只有系統(tǒng)管理員（ admini）才具有此權(quán)限！ , vbOKOnly + vbExclamation, 提示 End If End Sub Private Sub 業(yè)務(wù)員管理 _Click() If txt = admini Then Else MsgBox 只有系統(tǒng)管理員（ admini）才具有此權(quán)限！ , vbOKOnly + vbExclamation, 提示 End If End Sub