VB旅游管理系統(tǒng)實(shí)驗(yàn)報(bào)告

1、vb實(shí)驗(yàn)報(bào)告旅游資源管理及路線設(shè)計(jì)系統(tǒng)實(shí)驗(yàn)報(bào)告1. 實(shí)驗(yàn)?zāi)康?1) 學(xué)會程序的設(shè)置，掌握數(shù)據(jù)庫的建立以及與程序的鏈接。(2) 將零散的知識系統(tǒng)化。(3) 進(jìn)一步加深對計(jì)算機(jī)的了解。2. 實(shí)驗(yàn)要求制作一個旅游資源管理及路線設(shè)計(jì)系統(tǒng)。主要內(nèi)容包括： 管理員管理，其屮分為管理模塊與查詢模塊。管理模塊分為旅游信息管 理、景點(diǎn)管理、導(dǎo)游管理。查詢模塊分為景點(diǎn)與導(dǎo)游管理、導(dǎo)游與景點(diǎn)查 詢、導(dǎo)游與游客查詢、景點(diǎn)與游客管理、游客與景點(diǎn)管理。 員工查詢，其中分為景點(diǎn)與導(dǎo)游管理、導(dǎo)游與景點(diǎn)查詢、導(dǎo)游與游客查 詢、景點(diǎn)與游客管理、游客與景點(diǎn)管理。 游客查詢，基本查詢與員工查詢一樣。此系統(tǒng)涵蓋管理員與員工及游客三大系

2、統(tǒng)。包含管理與查詢。管理可 以對導(dǎo)游的信息以及景點(diǎn)的各個信息做出及時的修改。同時也可以查詢到 很多方面，如導(dǎo)游信息、旅游線路、旅游價格、旅游景點(diǎn)的風(fēng)景、以及最 終的滿意程度。3. 實(shí)驗(yàn)內(nèi)容與步驟(1) 在界面上設(shè)置出旅游線路的整體規(guī)劃。(2) 根據(jù)界面編寫程序。編寫管理員登陸界面的代碼option explicitpublic txtsql as stringpublic username as stringprivate sub form_load()txtid.text = ” txtpas.text 二” end sub '啟動拖放private sub form_mousedo

3、wn(button as integer, shift as integer, x as single, y as single)moveit = trueex = x: cy = yend subprivate sub form_mousemove(button as integer, shift as integer, x as single, y as single)if moveit = true then'調(diào)用函數(shù)獲得鼠標(biāo)位置，未知信息存放在變量zb屮getcursorpos zbme.move zb.x * 15 - ex - 65, zb.y * 15 - cy - 35

4、0end ifend subprivate sub form_mouseup(button as integer, shift as integer, x as single,y as single) moveit = falseend subprivate sub form_unload(cancel as integer)unload meend subprivate sub image 1 _mousedown(button as integer, shift as integer, x as single, y as single)'啟動拖放moveit = trueex =

5、x: cy = yend subprivate sub imagel_mousemove(button as integer, shift as integer, x as single, y as single)if moveit 二 true then'調(diào)用函數(shù)獲得鼠標(biāo)位置，未知信息存放在變量zb中g(shù)etcursorpos zbme.move zb.x * 15 ex 65, zb.y * 15 cy 350end ifend subprivate sub image 1 _mouseup(button as integer, shift as integer, x as sing

6、le,y as single)'停止拖放moveit = falseend subprivate sub image3_click()txtid.text ="”txtpas.text =""end subprivate sub image5_click()endend subprivate sub label4_click()'查找數(shù)據(jù)庫中是否有相同名稱的用戶txtsql = "select username from 用戶 權(quán)限表 where usemame=,h & trim(txtid.text) & 小”adod

7、c 1 .commandtype = adcmdtextadodc 1 .recordsource = txtsqladodc 1.refreshif adodc 1 .recordset.eof = true then，如 果當(dāng)前記錄位置位于recordset對象的最后一個記錄之后msgbox n 用戶名錯誤！ n, vbexclamation + vbokonly,h警告”txtid.text = nntxtid.setfocuselse'查找數(shù)據(jù)庫中是否有相同密碼的用戶 txtsql = "select username from 用戶權(quán)限表 where passwor

8、d” & trim(txtpas.text) &adodc 1 .commandtype 二 adcmdtextadodc 1 .recordsource = txtsqladodcl. refresh'記錄是否為空if adodc 1 .recordset.eof = true then ，如果當(dāng)前記錄位置位于 recordset對象的最后一個記錄之后msgbox u 密碼錯誤！ ”，vbexclamation + vbokonly, ”警告” txtpas.text = txtpas.setfocuselse管理員總控.showunload meend ifend

9、ifend subprivate sub label5_click()txtid.text = ”txtpas.text 二”end subprivate sub label6_click()endend sub編寫員工登陸界面的代碼：private sub form_load()opt 1. value = falseopt2.value = falseend subprivate sub image2_click()if opt 1. value = true then管理員登錄.show:登錄.hideelself opt2.value = true then員工登錄.show:登錄.hideend ifend subprivate sub image6_click()'退出程序endend subprivate sub label l_click()endend sub(3) 建立數(shù)據(jù)庫，將搜索的旅游信息、數(shù)據(jù)，放入數(shù)據(jù)庫屮，與程序進(jìn)行 鏈接。(4) 運(yùn)行程序。3.實(shí)驗(yàn)心得這次實(shí)驗(yàn)中我運(yùn)用了 visual basic以及access數(shù)據(jù)庫及其與程序的鏈接 等軟件，制作出了一個簡單的旅游資源管理及路線設(shè)計(jì)系統(tǒng)。在這個系統(tǒng)的制作過程中，許多過程是我所不熟識的，所以，系統(tǒng)的制 作，對我來說，是一個挑戰(zhàn)