【正文】 True Exit Sub End If If = 女 Then = adCmdText = select*from 游客表單 where 性別 = 39。 Trim() amp。 39。如果確實要添加 (名稱 ).Value = Trim() (主要景點 ).Value = Trim() (行程天數(shù) ).Value = Trim() (報價 ).Value = Trim() (住宿 ).Value = Trim() (行程安排 ).Value = Trim() (說明 ).Value = Trim() (編號 ).Value = Trim() 沈 陽 大 學(xué) 課程 設(shè)計說明書 MsgBox 恭喜你添加成功 End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() = False = = = = 39。 Trim() amp。 Trim() amp。 39。 書本知識固然重要，但我們更要學(xué)會將書本知識應(yīng)用到實際的工作中。 沈 陽 大 學(xué) 課程 設(shè)計說明書 心得體會 在本次的課程設(shè)計中，使我加深了對 VisualBasic 的了解。例如： （ 1） 、程序方面沒有簡化程序，顯得很煩瑣。 這就實現(xiàn)數(shù)據(jù)庫也 VB 的連接。 發(fā)放訂單 接收訂單 圖 1 旅游嘻嘻管理系統(tǒng)基本流程圖 旅游管理系統(tǒng)具備的功能 : 1. 系統(tǒng) 具有管理客戶信息和報名接待管理的功能 （ 1）客戶報團(tuán)時的客戶基本信息和訂單信息錄入 （ 2）客戶換團(tuán)、退團(tuán)時的信息處理 （ 3）客戶消費統(tǒng)計，實現(xiàn)會員優(yōu)惠業(yè)務(wù) 2. 系統(tǒng)具有路線、產(chǎn)品和訂單管理的功能 （ 1）通過路線、時間安排和導(dǎo)游產(chǎn)生產(chǎn)品，并分配領(lǐng)隊 （ 2）進(jìn)行訂單統(tǒng)計，根據(jù)訂單數(shù)量組團(tuán) 3. 系統(tǒng)具有員工管理的功能， 跟蹤員工記錄 ，客戶投訴時在員工信息中的反映，真正實現(xiàn)客戶投訴與員工業(yè)績的掛鉤 沈 陽 大 學(xué) 旅游管理系統(tǒng) 游客 旅行社 課程 設(shè)計說明書 4. 系統(tǒng)具有票務(wù)管理的功能，及時根據(jù)訂單訂票，并向組團(tuán)部反饋信息 5. 系統(tǒng)具有統(tǒng)計查詢的功能 （ 1）銷售統(tǒng)計，為計調(diào)部推出新路線提供信息 （ 2）提供統(tǒng)計查詢，為決策部門提供信息 圖 2 旅游信息管理流程圖 概要設(shè)計 3． 1數(shù)據(jù)庫建模 經(jīng)過對現(xiàn)有管理模式的分析，可以提取出以下幾個實體：客戶，員工，路線等。同時，通過課程設(shè)計，培養(yǎng)學(xué)生自主學(xué)習(xí)和獨立創(chuàng)新的精神，是人才培養(yǎng)體系中極為重要的一環(huán)。分別有這些子模塊現(xiàn)實在不同的環(huán)境下。 沈 陽 大 學(xué) 課程 設(shè)計說明書 圖 6 旅游信息管理系統(tǒng)游客信息查詢界面 旅游信息管理系統(tǒng)的系統(tǒng)設(shè)置 此系統(tǒng)還人性化的設(shè)置了用戶申請賬號和更改密碼的功能，可以更好的方便了管理員和用戶對自己想要的信息進(jìn)行查詢，下面就更改密碼頁面進(jìn)行介紹，其中包括了 texbox、 label、 mandbutton 三項，分別設(shè)為用戶名，舊密碼，新密碼，新密碼確定等功能。 （ 2） 時間特性要求 在 系統(tǒng) 方面，響應(yīng)時間，更新處理時間都要求比較快且迅速，以滿足要求。當(dāng)然，由于學(xué)藝不精，在課程設(shè)計的過程也碰到的一些問題。查詢在用戶信息表中是否存在出入的用戶 = adCmdText = select*from 用戶表單 where 用戶名 =39。判斷密碼與確認(rèn)密碼是否一致 If = Then 39。女 39。 39。 = True Else MsgBox (請輸入要查找的旅游團(tuán)編號！ ) = Exit Sub End If End Sub Private Sub Command3_Click() = adCmdText = select*from 組團(tuán)表單 = True End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub DataGrid1_Click() End Sub Private Sub Form_Load() = False End Sub 參考文獻(xiàn) [1]Visual Basic 程序設(shè)計教程，吳鳳翔，中國林業(yè)出版社， 202111 [2]Visual Basic 程序設(shè)計教程，龔沛增，清華大學(xué)出版社， 2021 [3]Visual BASIC 程序設(shè)計 ，譚浩強，清華大學(xué)出版社， 2021 [4]Visual Basic 程序設(shè)計 ， 劉新民 ，清華大學(xué)出版社， 2021 [5]Visual Basic 程序設(shè)計教程， 羅朝盛 ，人民郵電出版社， 2021 [6]Visual Basic 程序設(shè)計教程， 劉炳文 ， 許蔓舒 清華大學(xué)出版社， 2021