旅游管理系統(tǒng)

課程設(shè)計(jì)報(bào)告題目：旅游管理系統(tǒng)專業(yè)：計(jì)算機(jī)網(wǎng)絡(luò)班級(jí)：網(wǎng)絡(luò)082姓名：郎松霖指導(dǎo)教師：王超設(shè)計(jì)日期：2023年12月19日遼寧信息職業(yè)技術(shù)學(xué)院軟件工程系目錄課程設(shè)計(jì)題目………3課程設(shè)計(jì)目的………3設(shè)計(jì)概述……………3設(shè)計(jì)任務(wù)……………4設(shè)計(jì)環(huán)節(jié)……………55.1程序流程……55.2功能結(jié)構(gòu)……65.3數(shù)據(jù)庫(kù)設(shè)計(jì)……65.4模塊分述……9設(shè)計(jì)體會(huì)……………12參考文獻(xiàn)……………13八、設(shè)計(jì)代碼……………14考核、評(píng)價(jià)項(xiàng)目考評(píng)人考核內(nèi)容得分實(shí)訓(xùn)評(píng)價(jià)實(shí)訓(xùn)的平時(shí)考核對(duì)實(shí)訓(xùn)期間的出勤情況、實(shí)訓(xùn)態(tài)度、安全意識(shí)、職業(yè)道德素質(zhì)評(píng)估成績(jī)教師學(xué)生職業(yè)素質(zhì)、實(shí)訓(xùn)態(tài)度、效率觀念、協(xié)作精神各個(gè)實(shí)訓(xùn)模塊考核根據(jù)學(xué)生完畢各個(gè)實(shí)訓(xùn)模塊完畢情況評(píng)估成績(jī)教師知識(shí)掌握情況、基本操作技能、知識(shí)應(yīng)用能力、獲取知識(shí)能力各對(duì)象的聯(lián)調(diào)根據(jù)運(yùn)營(yíng)代碼效果評(píng)估成績(jī)教師整體效果實(shí)訓(xùn)文檔根據(jù)實(shí)訓(xùn)設(shè)計(jì)文檔和實(shí)訓(xùn)報(bào)告評(píng)估成績(jī)教師表達(dá)能力、文檔寫作能力、文檔的規(guī)范性獲獎(jiǎng)加分根據(jù)學(xué)生參與各類技能比武或設(shè)計(jì)大賽的獲獎(jiǎng)情況給予相應(yīng)加分有關(guān)專家創(chuàng)新能力、自主學(xué)習(xí)能力、綜合素質(zhì)合計(jì)教師評(píng)語(yǔ)：成績(jī)：教師：年月日一、課程設(shè)計(jì)題目旅游管理系統(tǒng)課程設(shè)計(jì)目的1、進(jìn)一步加深、鞏固學(xué)生所學(xué)專業(yè)課程《PowerBuilder8.0》的基本理論知識(shí)，理論聯(lián)系實(shí)際，進(jìn)一步培養(yǎng)學(xué)生綜合分析問(wèn)題和解決問(wèn)題的能力。2、使學(xué)生得到搜集、解決、應(yīng)用資料信息的實(shí)踐訓(xùn)練，同時(shí)全面考核學(xué)生所掌握的基本理論知識(shí)及其實(shí)際業(yè)務(wù)能力，從而達(dá)成提高學(xué)生素質(zhì)的最終目的。3、運(yùn)用所學(xué)知識(shí)，開發(fā)小型應(yīng)用系統(tǒng)，掌握運(yùn)用《PowerBuilder8.0》軟件開發(fā)工具編寫調(diào)試應(yīng)用系統(tǒng)程序和進(jìn)行其它相關(guān)設(shè)計(jì)的技能，訓(xùn)練獨(dú)立開發(fā)應(yīng)用系統(tǒng)、進(jìn)行信息解決和其它信息管理工作的綜合能力。4、深刻理解開發(fā)管理信息系統(tǒng)的基本思想和方法。三、設(shè)計(jì)概述旅游管理系統(tǒng)是一個(gè)典型的信息管理系統(tǒng)。該系統(tǒng)是為實(shí)現(xiàn)各大旅行社的計(jì)算機(jī)智能化管理而開發(fā)的。本文重要包含了旅游管理系統(tǒng)的數(shù)據(jù)庫(kù)設(shè)計(jì)部分和該系統(tǒng)各模塊的分述。其中數(shù)據(jù)庫(kù)的設(shè)計(jì)是為了旅游管理系統(tǒng)建立一個(gè)必要的數(shù)據(jù)庫(kù)，建立的數(shù)據(jù)庫(kù)具有完整性和一致性，且具有一定的數(shù)據(jù)安全性等。本項(xiàng)目的其它管理系統(tǒng)在數(shù)據(jù)庫(kù)中具有保存、讀取方便、快捷、功能完備的特點(diǎn)。

對(duì)于旅游管理系統(tǒng)數(shù)據(jù)庫(kù)的設(shè)計(jì)，我們選用后臺(tái)數(shù)據(jù)庫(kù)是與PowerBuilder包裝在一起的SQLAnywhere。前臺(tái)軟件是Sybase公司的PowerBuilder8.0,它是SybaseInc.的子公司PowerSoft推出的新一代數(shù)據(jù)庫(kù)應(yīng)用開發(fā)工具，除了可以設(shè)計(jì)傳統(tǒng)的高性能、基于C/S體系結(jié)構(gòu)的應(yīng)用系統(tǒng)外，也可以用于開發(fā)基于Internet的應(yīng)用系統(tǒng)，它支持應(yīng)用系統(tǒng)同時(shí)訪問(wèn)多種數(shù)據(jù)庫(kù)，涉及諸如Oracle、Sybase之類的大型數(shù)據(jù)庫(kù),也支持ODBC接口的小型數(shù)據(jù)庫(kù)（本系統(tǒng)采用的就是自身攜帶的SybaseSQLAnywhere）。本系統(tǒng)通過(guò)多次調(diào)試和運(yùn)營(yíng)未出現(xiàn)任何差錯(cuò)，取得了良好的效果，并且使用簡(jiǎn)樸，極易上手，只要熟悉旅游信息管理流程，都能通曉軟件的操作。本系統(tǒng)具有以下特點(diǎn)：操作界面和諧，操作方便、快捷、一目了然，并且系統(tǒng)提供查詢、瀏覽、添加、修改、刪除等功能，方便管理人員使用。四、設(shè)計(jì)任務(wù)隨著人們物質(zhì)生活水平的不斷提高，人們對(duì)于精神生活的追求日益增強(qiáng)，出行旅游的休閑方式變得非常普遍，因此，對(duì)于旅行社來(lái)說(shuō)，在收入增長(zhǎng)的同時(shí)也面臨著管理方面的壓力，如何實(shí)現(xiàn)旅游的計(jì)算機(jī)智能化管理是一個(gè)非常重要的課題，這里我們通過(guò)PowerBuilder8.0來(lái)制作一個(gè)旅游管理系統(tǒng)。在本系統(tǒng)的制作中，我將創(chuàng)建系統(tǒng)的如下一些功能：景點(diǎn)與游客管理功能景點(diǎn)與導(dǎo)游查詢功能景點(diǎn)與導(dǎo)游配置功能權(quán)限維護(hù)功能在以上的系統(tǒng)功能模塊中，還涉及一些記錄功能的開發(fā)，如參團(tuán)人數(shù)記錄、每個(gè)景點(diǎn)的每一個(gè)旅游團(tuán)收入的自動(dòng)記錄等。系統(tǒng)的初始化功能，就是景點(diǎn)數(shù)據(jù)初始化、導(dǎo)游數(shù)據(jù)的初始化的設(shè)立。在本案例中，考慮到系統(tǒng)的安全性規(guī)定不高，因此為簡(jiǎn)化起見(jiàn)，對(duì)于系統(tǒng)，不再作分權(quán)管理開發(fā)，即整個(gè)系統(tǒng)采用惟一一個(gè)權(quán)限認(rèn)證窗口進(jìn)行權(quán)限認(rèn)證，一經(jīng)權(quán)限認(rèn)證通過(guò)，用戶可以對(duì)整個(gè)系統(tǒng)進(jìn)行操作。在系統(tǒng)管理的功能模塊中，往往涉及到多個(gè)數(shù)據(jù)表（即主/從表）的操作，因此整個(gè)系統(tǒng)是一個(gè)多表操作系統(tǒng)。設(shè)計(jì)環(huán)節(jié)（涉及流程圖或框圖）5.1程序流程圖開始開始打開打開splash連接數(shù)據(jù)連接數(shù)據(jù)庫(kù)連接成功連接成功否半閉半閉splash打開主窗口打開主窗口身份驗(yàn)證身份驗(yàn)證合法登陸否合法登陸進(jìn)入主窗口進(jìn)入主窗口系統(tǒng)權(quán)限維護(hù)景點(diǎn)與導(dǎo)游配置景點(diǎn)與導(dǎo)游查詢系統(tǒng)權(quán)限維護(hù)景點(diǎn)與導(dǎo)游配置景點(diǎn)與導(dǎo)游查詢游客參團(tuán)登記結(jié)束結(jié)束圖5.1程序流程圖5.2功能結(jié)構(gòu)圖系統(tǒng)啟動(dòng)畫面系統(tǒng)啟動(dòng)畫面系統(tǒng)主控界面系統(tǒng)主控界面系統(tǒng)權(quán)限維護(hù)景點(diǎn)與導(dǎo)游配置景點(diǎn)與導(dǎo)游查詢景點(diǎn)系統(tǒng)權(quán)限維護(hù)景點(diǎn)與導(dǎo)游配置景點(diǎn)與導(dǎo)游查詢景點(diǎn)與游客參團(tuán)登記圖5.2功能結(jié)構(gòu)圖5.3數(shù)據(jù)庫(kù)設(shè)計(jì)（1）“景點(diǎn)數(shù)據(jù)表”邏輯結(jié)構(gòu)的定義景點(diǎn)信息是游客查詢使用和旅游公司管理中的一個(gè)重要內(nèi)容，也是旅游公司進(jìn)行數(shù)據(jù)管理的重要方面，例如，在游客登記的過(guò)程中，一方面需要選定一個(gè)景點(diǎn)，然后為游客進(jìn)行登記和售標(biāo)。在“景點(diǎn)數(shù)據(jù)表”中，需要顯示相關(guān)的信息，如景點(diǎn)編號(hào)、景點(diǎn)名稱、出發(fā)日期、結(jié)束日期等等，此外“景點(diǎn)數(shù)據(jù)表”需要與“游客數(shù)據(jù)表”和“導(dǎo)游數(shù)據(jù)表”建立關(guān)聯(lián)，因此，需要在“景點(diǎn)數(shù)據(jù)表”中創(chuàng)建索引字段。根據(jù)景點(diǎn)信息的特點(diǎn)，特創(chuàng)建“景點(diǎn)數(shù)據(jù)表”的邏輯結(jié)構(gòu)如表1所示（注意：因沒(méi)有具體的實(shí)際調(diào)研，所以該結(jié)構(gòu)權(quán)供設(shè)計(jì)中演示使用，也許與實(shí)際的旅游管理存在差異）。表1“景點(diǎn)”數(shù)據(jù)表邏輯結(jié)構(gòu)字段名稱字段類型字段大小小數(shù)位數(shù)索引是否可為空景點(diǎn)編號(hào)Char12PrimaryNo景點(diǎn)名稱Char10No出發(fā)日期Char10No結(jié)束日期Char10No導(dǎo)游編號(hào)Char10No導(dǎo)游姓名Char10No注意，假如同一個(gè)景點(diǎn)一天中存在多批的游客的旅游情況，可以按同一景點(diǎn)進(jìn)行編號(hào)，即在進(jìn)行數(shù)據(jù)記錄或景點(diǎn)數(shù)據(jù)初始化設(shè)立時(shí)，可以同一景點(diǎn)進(jìn)行編號(hào)，如“三峽Ⅰ”、“三峽Ⅱ”、“三峽Ⅲ”等等。在系統(tǒng)制作的過(guò)程中，我對(duì)“出發(fā)日期”和“結(jié)束日期”字段以字符型加以定義，而并不按日期時(shí)間型加以定義，由于在中文錄入中，日期與時(shí)間往往可以有多種格式的輸入方法，假如定義為標(biāo)準(zhǔn)的日期或時(shí)間格式，往往會(huì)由于輸入的格式不同而發(fā)生錯(cuò)誤。同時(shí)，字符型字段在查詢時(shí)比日期型字段的查詢方便得多，因此在創(chuàng)建數(shù)據(jù)表的邏輯結(jié)構(gòu)時(shí)，設(shè)立“出發(fā)日期”和“結(jié)束日期”為字符型字段。表2“景點(diǎn)”數(shù)據(jù)表參考數(shù)據(jù)1景點(diǎn)編號(hào)景點(diǎn)名稱出發(fā)日期結(jié)束日期導(dǎo)游編號(hào)導(dǎo)游名稱XSX-001小三峽02-09-1202-09-16XSX-001張純紅DSX-002大三峽02-09-0602-09-09DSX-002李賢能CSF-003長(zhǎng)壽湖02-09-1002-09-12CSF-003陳佳佳SMS-004四周山02-09-1002-09-12SMS-001王清政（２）“游客”數(shù)據(jù)表結(jié)構(gòu)的定義在旅游管理系統(tǒng)中，游客管理是另一個(gè)重要方面，任何旅游的管理均管理均離不開游客的管理。根據(jù)游客管理的特點(diǎn)，特設(shè)計(jì)“游客”數(shù)據(jù)表的結(jié)構(gòu)如表3所示。表3“游客”數(shù)據(jù)表結(jié)構(gòu)字段名稱字段類型字段大小小數(shù)位數(shù)索引是否可為空景點(diǎn)編號(hào)Char12No游客編號(hào)Char10PrimaryNo游客姓名Char10No工作單位Char20No聯(lián)系電話Char13No票價(jià)Smallmoney默認(rèn)2No在“游客”數(shù)據(jù)表的結(jié)構(gòu)創(chuàng)建中，為“游客編號(hào)”字段創(chuàng)建主索引，由于每一個(gè)游客的記錄是惟一的。同樣，在系統(tǒng)的制作開發(fā)中，可參考表4所示的數(shù)據(jù)進(jìn)行演示。表4“游客”數(shù)據(jù)表參考數(shù)據(jù)游客編號(hào)游客姓名工作單位景點(diǎn)編號(hào)聯(lián)系電話票價(jià)XSX-001-1張山東重慶山…XSX-001780.00XSX-001-2李先在湖北省…XSX-001780.00XSX-001-3陳東東長(zhǎng)春市…XSX-001780.00（3）“導(dǎo)游“數(shù)據(jù)表結(jié)構(gòu)的定義在一個(gè)旅游管理系統(tǒng)中，導(dǎo)游管理同樣是一個(gè)重要的方面。根據(jù)導(dǎo)游管理的特點(diǎn)，特設(shè)計(jì)“導(dǎo)游“數(shù)據(jù)表的結(jié)構(gòu)如表5表5“導(dǎo)游”數(shù)據(jù)表邏輯結(jié)構(gòu)字段名稱字段類型字段大小小數(shù)位數(shù)索引是否可為空導(dǎo)游編號(hào)Char10PrimaryNo導(dǎo)游姓名Char10No景點(diǎn)編號(hào)Char12No景點(diǎn)名稱Char10No發(fā)出日期Char10No結(jié)束日期Char10No同樣，假如一個(gè)導(dǎo)游需要負(fù)責(zé)多個(gè)景點(diǎn)，則同一導(dǎo)游也可以像同一景點(diǎn)一天存在多批游客同樣編號(hào)。但在數(shù)據(jù)初始化設(shè)立時(shí)，一個(gè)導(dǎo)游只能相應(yīng)一個(gè)景點(diǎn)。表6“導(dǎo)游”數(shù)據(jù)表演示參考數(shù)據(jù)導(dǎo)游編號(hào)導(dǎo)游姓名景點(diǎn)名稱出發(fā)日期結(jié)束日期景點(diǎn)編號(hào)XSX-001張純紅小三峽02-04-1202-04-16XSX-001DSX-002李賢能大三峽02-04-0602-04-09DSX-002CSF-003陳佳佳長(zhǎng)壽湖02-04-1002-04-09CSF-003SMS-001王清政四周山02-09-1002-04-12SMS-004（4）“密碼”表的邏輯結(jié)構(gòu)密碼表的結(jié)構(gòu)往往比較簡(jiǎn)樸，重要用于對(duì)用戶名稱與用戶密碼的記錄進(jìn)行編輯修改，這里我定義的密碼表的結(jié)構(gòu)如表7表7“密碼表”邏輯結(jié)構(gòu)字段名稱字段類型字段大小索引是否可為空用戶密碼Ｃhar6重要的，惟一的No用戶名Ｃhar10No模塊分述游客入團(tuán)登記模塊圖5.3游客入團(tuán)登記模塊先在權(quán)限認(rèn)證窗口中進(jìn)行用戶的權(quán)限認(rèn)證，然后出現(xiàn)系統(tǒng)的主窗口，通過(guò)主窗口的“游客參團(tuán)登記”命令按鈕調(diào)用該窗口，然后進(jìn)行登記工作。在景點(diǎn)數(shù)據(jù)表中選擇一個(gè)游客需要的景點(diǎn)，該景點(diǎn)的記錄中將顯示出游的發(fā)出日期、結(jié)束日期、導(dǎo)游編號(hào)和導(dǎo)游姓名等信息。在選登導(dǎo)游所需要的景點(diǎn)后，登記游客的參團(tuán)記錄5.42景點(diǎn)與導(dǎo)游查詢模塊圖5.4景點(diǎn)與導(dǎo)游查詢模塊用系統(tǒng)的主窗口中的命令按鈕來(lái)調(diào)用景點(diǎn)與導(dǎo)游查詢窗口。在選擇查詢方式和輸入查詢值后，執(zhí)行查詢操作，即可查詢到景點(diǎn)與該景點(diǎn)的導(dǎo)游情況。它的功能是在選擇查詢方式和輸入查詢值之后，執(zhí)行查詢操作，即可查詢到該景點(diǎn)與該景點(diǎn)導(dǎo)游的情況。5.43景點(diǎn)導(dǎo)游數(shù)據(jù)初始化模塊圖5.5景點(diǎn)導(dǎo)游數(shù)據(jù)初始化模塊用系統(tǒng)的主窗口中的命令按鈕來(lái)調(diào)用，該命令按鈕就是“景點(diǎn)導(dǎo)游數(shù)據(jù)初始化”命令按鈕。可以打出“第一條記錄”，“前一條記錄”，等各種記錄，分別能查詢到景點(diǎn)編號(hào)，景點(diǎn)名稱，出發(fā)日期，結(jié)束日期。5.44系統(tǒng)權(quán)限維護(hù)模塊圖5.6系統(tǒng)權(quán)限維護(hù)模塊通過(guò)修改密碼，增長(zhǎng)用戶和刪除用戶來(lái)選擇維護(hù)的內(nèi)容。并且輸入原用戶名和原用戶密碼來(lái)實(shí)現(xiàn)修改。在主窗口中用“系統(tǒng)權(quán)限維護(hù)”命令按鈕來(lái)調(diào)用系統(tǒng)權(quán)限維護(hù)窗口。在窗口運(yùn)營(yíng)期，通過(guò)在窗口中對(duì)數(shù)據(jù)集進(jìn)行操作，從而達(dá)成維護(hù)系統(tǒng)權(quán)限的目的。用于修改原始密碼，增長(zhǎng)用戶，刪除用戶。心得體會(huì)通過(guò)兩周的課程設(shè)計(jì)，我學(xué)會(huì)的使用PowerBuilder8.0制作一個(gè)旅游管理系統(tǒng)，并了解課程設(shè)計(jì)及系統(tǒng)開發(fā)的目的和意義。隨著人們物質(zhì)生活水平的提高，出行旅游的休閑方式變得非常普遍，對(duì)于旅行社來(lái)說(shuō)，在收入增長(zhǎng)的同時(shí)也面臨著管理方面的壓力，如何實(shí)現(xiàn)旅游的計(jì)算機(jī)智能化管理是一個(gè)非常重要的課題.通過(guò)PowerBuilder我學(xué)會(huì)了如何制作它！在系統(tǒng)的制作中，創(chuàng)建系統(tǒng)的景點(diǎn)與游客管理功能、景點(diǎn)與導(dǎo)游查詢功能、景點(diǎn)與導(dǎo)游配置功能、權(quán)限維護(hù)功能。在這些系統(tǒng)功能模塊中，還涉及記錄功能的開發(fā)，如參團(tuán)人數(shù)記錄、每個(gè)景點(diǎn)的每一個(gè)旅游團(tuán)收入的自動(dòng)記錄等。系統(tǒng)的初始化功能，就是景點(diǎn)數(shù)據(jù)初始化、導(dǎo)游數(shù)據(jù)的初始化的設(shè)立。考慮到系統(tǒng)的安全性不高，因此為簡(jiǎn)化起見(jiàn)，整個(gè)系統(tǒng)采用惟一一個(gè)權(quán)限認(rèn)證窗口進(jìn)行權(quán)限認(rèn)證，一經(jīng)權(quán)限認(rèn)證通過(guò)，用戶可以對(duì)整個(gè)系統(tǒng)進(jìn)行操作。在本系統(tǒng)中，往往設(shè)計(jì)到多個(gè)數(shù)據(jù)表的操作，因此整個(gè)系統(tǒng)是一個(gè)多表操作系統(tǒng)。在一個(gè)旅游管理系統(tǒng)中，游客參團(tuán)登記是一個(gè)重要的和必要的功能。因此在這一節(jié)中，我們將制作這樣一個(gè)窗口，專門用于對(duì)游客參團(tuán)進(jìn)行登記制作景點(diǎn)與導(dǎo)游查詢窗口中，景點(diǎn)與導(dǎo)游查詢是旅游管理系統(tǒng)中最常見(jiàn)的事情，無(wú)論是管理者還是游客，都需要對(duì)景點(diǎn)與導(dǎo)游進(jìn)行查詢，一個(gè)旅游公司往往涉及眾多的景點(diǎn)和眾多的導(dǎo)游，并且景點(diǎn)與導(dǎo)游的配置是不容易所有記住的，因此通過(guò)查詢的方式加以了解。對(duì)于任何一個(gè)重要的系統(tǒng)，往往需要權(quán)限認(rèn)證，從而涉及到用戶的權(quán)限維護(hù)的過(guò)程，用戶和用戶權(quán)限是一個(gè)不斷更新的過(guò)程，因此，將設(shè)立一個(gè)權(quán)限這正窗口。隨著人們物質(zhì)生活水平的提高，出行旅游的休閑方式變得非常普遍，對(duì)于旅行社來(lái)說(shuō)，在收入增長(zhǎng)的同時(shí)也面臨著管理方面的壓力，如何實(shí)現(xiàn)旅游的計(jì)算機(jī)智能化管理是一個(gè)非常重要的課題.通過(guò)PowerBuilder我學(xué)會(huì)了如何制作它！在操作過(guò)程中存在很多局限性之處，設(shè)計(jì)過(guò)程中對(duì)一些操作的不純熟，軟件代碼交冗余，效率不高等等，都是我對(duì)PowerBuilder8.0操作的不純熟，對(duì)相關(guān)功能缺少結(jié)識(shí)導(dǎo)致的。在此后的學(xué)習(xí)中我會(huì)加強(qiáng)理論與實(shí)踐的結(jié)合，通過(guò)不斷的摸索來(lái)填補(bǔ)自己在軟件制作方面的 參考文獻(xiàn)[1]王朝風(fēng),嚴(yán)嵩編著.PowerBuilder8.0實(shí)例開發(fā)詳解與編程.清華大學(xué)出版，2023.2.1[2]馮禱,劉長(zhǎng)平編著.PowerBuilder8.0開發(fā)實(shí)例與核心技術(shù).北京:希望電子出版社,2023.02[3]宋膛,劉屹豈編著.PowerBuilder8.0核心技術(shù)及開發(fā)實(shí)例.華夏出版社,2023.06[4]董薪成,黃宏巖編著.PowerBuilder8.0程序設(shè)計(jì)與技巧.電子工業(yè)出版社,2023.08[5]朱愛(ài)民,楊尚昆編著.打造中國(guó)最佳的PowerBuilder8.0叢書.華大學(xué)出版社,2023.06[6]黃梯云,江梅雪編著.PowerBuilder8.0實(shí)例教程.清華大學(xué)出版社,2023.04[7]鮑瀘,許長(zhǎng)清編著.PowerBuilder8.0管理信息系統(tǒng).長(zhǎng)春出版社,2023.5.6[8]董長(zhǎng)平,除新編著.PowerBuilder8.0開發(fā)實(shí)例核心技術(shù).清華大學(xué)出版社,2023.2.1開發(fā)代碼1.連接數(shù)據(jù)庫(kù)代碼：//Profile旅游管理系統(tǒng)open(wd_start)SQLCA.DBMS="ODBC"SQLCA.AutoCommit=falseSQLCA.DBParm="Connectstring='DSN=旅游管理系統(tǒng);UID=dba;PWD=sql'"connect;ifsqlca.sqlcode<>0then messagebox('連接數(shù)據(jù)庫(kù)失敗',sqlca.sqlerrtext) else //打開系統(tǒng)主窗口 open(wd_passwindow)endif********************************************************2.開始界面的角本：wd_start窗口中open()事件代碼timer(5,this)this.setposition(topmost!)********************************************************timer()事件代碼close(this)********************************************************3.用戶認(rèn)證界面角本：wd_passwindow窗口中open()事件dw_1.settransobject(sqlca)dw_1.retrieve()********************************************************cd_1………..clicked()事件ifsle_2.text<>sle_3.textthen messagebox("","no!")else open(wd_mainwindow) close(parent)endif********************************************************cd_2………..clicked()事件close(parent)********************************************************sel_2……….getfocus()SELECT"密碼表"."用戶密碼"INTO:sle_3.textFROM"密碼表"WHERE"密碼表"."用戶名"=:sle_1.text;********************************************************4.景點(diǎn)與導(dǎo)游查詢窗口角本：wd_jddywindow窗口中open()事件connect;dw_1.settransobject(sqlca)dw_1.retrieve()********************************************************cd_1………..clicked()事件stringtjstringsettingtj=ddlb_1.text+"="+"'"+sle_1.text+"'"dw_1.setfilter(tj)filter(dw_1)dw_1.retrieve()********************************************************5.主窗體角本：cd_1………..clicked()事件close(wd_mainwindow)disconnect;********************************************************cd_2………..clicked()事件open(wd_passmaintain)********************************************************cd_3………..clicked()事件open(wd_datainit)********************************************************cd_4………..clicked()事件open(wd_jdykwindow)********************************************************cd_5………..clicked()事件open(wd_jddywindow)********************************************************6.游客參團(tuán)登記窗口角本：wd_jdykwindow窗口中open()事件connectusingsqlca;dw_1.settransobject(sqlca)dw_1.retrieve(1)dw_2.settransobject(sqlca)dw_2.retrieve(1)********************************************************cd_1………..clicked()事件stringsettingdw_1.scrolltorow(0)setting="景點(diǎn)編號(hào)="+"'"+dw_1.object.data[1,1]+"'"dw_2.setfilter(setting)filter(dw_2)dw_2.retrieve(1)********************************************************cd_2………..clicked()事件stringsettingintegerhhhh=dw_1.getrow()ifhh=1then messagebox("注意！","目前已經(jīng)是第一個(gè)景點(diǎn)的游客記錄，請(qǐng)作其他操作")else dw_1.scrollpriorrow()hh=dw_1.getrow()setting="景點(diǎn)編號(hào)="+"'"+dw_1.object.data[hh,1]+"'"filter(dw_2)dw_2.retrieve(1)endif********************************************************cd_3………..clicked()事件stringsettingintegerhhhh=dw_1.getrow()ifhh=dw_1.rowcount()then messagebox("注意！","目前已經(jīng)是最后一個(gè)景點(diǎn)的游客記錄，請(qǐng)作其他操作")else dw_1.scrollnextrow()hh=dw_1.getrow()setting="景點(diǎn)編號(hào)="+"'"+dw_1.object.data[hh,1]+"'"dw_2.setfilter(setting)filter(dw_2)dw_2.retrieve(1)endif********************************************************cd_4………..clicked()事件stringsettingintegerhhdw_1.scrolltorow(dw_1.rowcount())hh=dw_1.getrow()setting="景點(diǎn)編號(hào)="+"'"+dw_1.object.data[hh,1]+"'"filter(dw_2)dw_2.retrieve(1)********************************************************cd_5………..clicked()事件longhh1hh1=dw_1.getrow()dw_2.insertrow(dw_2.rowcount()+1)dw_2.object.data[dw_2.rowcount(),1]=dw_1.object.data[hh1,1]dw_2.scrolltorow(dw_2.rowcount())********************************************************cd_6………..clicked()事件integerhhstringquerytjintegernethh=dw_2.getrow()net=messagebox("提醒！","退團(tuán)后將刪除本記錄，的確要退團(tuán)嗎？",question!,YesNo!)ifnet=1then hh=dw_2.getrow() deleterow(dw_2,hh) ifupdate(dw_2,true,false)=1then dw_2.resetupdate() commit; else rollback; messagebox("錯(cuò)誤","數(shù)據(jù)存儲(chǔ)失敗") endifelse messagebox("提醒","數(shù)據(jù)保存無(wú)效！") rollback;endif********************************************************cd_7………..clicked()事件integerhhstringquerytjifupdate(dw_2,true,false)=1then dw_2.resetupdate() commit;else messagebox("提醒","數(shù)據(jù)保存無(wú)效！") rollback;endif********************************************************cd_9………..clicked()事件close(parent)********************************************************7.景點(diǎn)導(dǎo)游數(shù)據(jù)初始化窗口角本：wd_datainit窗體中open()事件connect;dw_1.settransobject(sqlca)dw_1.retrieve(1)********************************************************cd_1………..clicked()事件dw_1.scrolltorow(0)********************************************************cd_2………..clicked()事件integerhhhh=dw_1.getrow()ifhh=1then messagebox("注意！","目前已經(jīng)是一個(gè)景點(diǎn)與導(dǎo)游配置的記錄，請(qǐng)作其他操作")else dw_1.scrollpriorrow()endif********************************************************cd_3………..clicked()事件integerhhhh=dw_1.getrow()ifhh=dw_1.rowcount()then messagebox("注意！","目前已經(jīng)是最后一個(gè)景點(diǎn)與游客配置的記錄，請(qǐng)作其他操作")else dw_1.scrollnextrow()endif********************************************************cd_4………..clicked()事件dw_1.scrolltorow(dw_1.rowcount())********************************************************cd_5………..clicked()事件dw_1.insertrow(dw_1.rowcount()+1)dw_1.scrolltorow(dw_1.rowcount())********************************************************cd_6………..clicked()事件integerhhstringquerytjintegernethh=dw_1.getrow()net=messagebox("提醒!","的確要?jiǎng)h除該配置嗎？",question!,YesNo!)ifnet=1then deleterow(dw_1,hh) ifupdate(dw_1,true,false)=1then dw_1.resetupdate() commit; else rollback; messagebox("錯(cuò)誤","數(shù)據(jù)存儲(chǔ)失敗") endifelse messagebox("提醒","配置未刪除，可以繼續(xù)使用！")endif********************************************************cd_7………..clicked()事件integerhhstringquerytjifupdate(dw_1,true,false)=1then dw_1.resetupdate() commit;else messagebox("提醒","前面操作有誤，數(shù)據(jù)保存無(wú)效！") rollback;endif********************************************************cd_8………..clicked()事件close(wd_datainit)********************************************************8.用戶權(quán)限維護(hù)窗口角本：wd_passmaintain窗體中open()事件connectusingsqlca;dw_1.settransobject(sqlca)dw_1.retrieve()********************************************************cd_1………..clicked()事件stringquerytjquerytj='用戶密碼='+"'"+sle_1.text+"'"dw_1.setfilter(querytj)filter(dw_1)dw_1.retrieve(1)ifdw_1.rowcount()=0then messagebox("警告","對(duì)不起，權(quán)限認(rèn)證出現(xiàn)錯(cuò)誤，請(qǐng)確認(rèn)你是否為合法用戶并重新檢查！") querytj="用戶密碼<>''" dw_1.setfilter(querytj) filter(dw_1) dw_1.retrieve(1)else dw_1.object.data[1,2]=sle_2.text dw_1.update() querytj="用戶密碼<>''" dw_1.setfilter(querytj) filter(dw_1) dw_1.retrieve(1)endif*****