婚介所管理信息系統(tǒng)

“非誠(chéng)勿擾〞婚介所管理信息系統(tǒng)開(kāi)發(fā)報(bào)告 課程名稱(chēng)：管理信息系統(tǒng) 專(zhuān)業(yè)年級(jí)：2023級(jí)市場(chǎng)營(yíng)銷(xiāo) 小組成員：劉入嘉馬翔 指導(dǎo)教師：孫娜 開(kāi)發(fā)時(shí)間：2023年12月目錄一．系統(tǒng)需求分析3二．系統(tǒng)開(kāi)發(fā)目的3三．開(kāi)發(fā)人員3四．開(kāi)發(fā)步驟4〔一〕系統(tǒng)分析41.業(yè)務(wù)流程分析42.數(shù)據(jù)流程分析43.數(shù)據(jù)字典4〔二〕系統(tǒng)設(shè)計(jì)61.代碼設(shè)計(jì)62.功能結(jié)構(gòu)圖設(shè)計(jì)73.信息流程圖設(shè)計(jì)84.物理配置方案設(shè)計(jì)95.數(shù)據(jù)存儲(chǔ)設(shè)計(jì)96.輸入輸出設(shè)計(jì)11〔三〕系統(tǒng)實(shí)施17五．結(jié)論17六．使用說(shuō)明17七．附：程序代碼18一．系統(tǒng)需求分析近些年來(lái)，青年男女尋找伴侶的方式越來(lái)越多樣化?；榻樗鳛橐环N主要的方式，深受大家歡送。大量的婚介所相繼出現(xiàn)，如何使自己的婚介所工作效率提高，能更好更多的為群眾效勞，成為許多婚介所老板關(guān)心的問(wèn)題。管理信息系統(tǒng)作為解決此問(wèn)題的有效工具，在市場(chǎng)上有很大的開(kāi)展前景。進(jìn)入網(wǎng)絡(luò)時(shí)代，青年男女將上網(wǎng)作為一項(xiàng)信息的重要來(lái)源。我們?cè)O(shè)計(jì)的婚介所管理信息系統(tǒng)可將男女會(huì)員的根本信息和要求輸入數(shù)據(jù)庫(kù)，婚介所的會(huì)員只需在家里輕點(diǎn)鼠標(biāo)，即可篩選出符合自己選擇條件的對(duì)象，并進(jìn)一步預(yù)約見(jiàn)面，省去了大量的時(shí)間和精力，深受青年男女的歡送。管理信息系統(tǒng)本身在婚介所的使用，也提高了工作效率。海量的數(shù)據(jù)可以在信息系統(tǒng)的功能中實(shí)現(xiàn)迅速查詢配對(duì)，還能及時(shí)送出相親大會(huì)等一系列活動(dòng)通知，這些都將大大滿足顧客的心理需要，使婚介所在競(jìng)爭(zhēng)中取得優(yōu)勢(shì)。同時(shí)，目前已有的管理信息系統(tǒng)在婚介所的運(yùn)用案例都取得了比擬好的效果。開(kāi)發(fā)這一管理信息系統(tǒng)的本錢(qián)較少，卻能帶來(lái)很高的回報(bào)。綜上，我們認(rèn)為為“非誠(chéng)勿擾〞婚介所開(kāi)發(fā)管理信息系統(tǒng)是合理且必要的。二．系統(tǒng)開(kāi)發(fā)目的對(duì)于婚介所，我們希望通過(guò)這一系統(tǒng)在工作中的運(yùn)用到達(dá)三大目的。首先是減輕工作人員的重復(fù)工作量，提高日常工作效率，將更多的精力投入創(chuàng)造性工作中，例如舉辦相親會(huì)等活動(dòng)。其次是提高顧客滿意度。顧客在家中即可查詢各項(xiàng)資料，在獲得海量信息的同時(shí)減去不必要的到婚介所內(nèi)查詢資料的麻煩。最后是做到與時(shí)俱進(jìn)，不在競(jìng)爭(zhēng)中落后。三．開(kāi)發(fā)人員我們的小組成員能熟練掌握windowxp，window7操作系統(tǒng)，而且分別可以較好應(yīng)用VisualFoxPro和Access編程。系統(tǒng)開(kāi)發(fā)過(guò)程中，我們小組成員一起進(jìn)行了調(diào)查和系統(tǒng)分析，并分工進(jìn)行了資料的搜集編寫(xiě)以及系統(tǒng)設(shè)計(jì)開(kāi)發(fā)工作。具體操作編寫(xiě)分工如下：系統(tǒng)分析：馬翔系統(tǒng)設(shè)計(jì)：金仙子系統(tǒng)設(shè)計(jì)開(kāi)發(fā)：劉入嘉資料收集：李文佳四．開(kāi)發(fā)步驟〔一〕系統(tǒng)分析個(gè)人信息擇友標(biāo)準(zhǔn)查詢單反應(yīng)單預(yù)約單個(gè)人信息擇友標(biāo)準(zhǔn)查詢單反應(yīng)單預(yù)約單信息管理員會(huì)員約會(huì)管理員約會(huì)總匯活動(dòng)通知效勞管理員信息總匯2.數(shù)據(jù)流程分析約會(huì)結(jié)果查詢上傳數(shù)據(jù)庫(kù)約會(huì)預(yù)約約會(huì)預(yù)約客戶部登記顧客個(gè)人信息用戶信息上傳數(shù)賬戶客戶部登記顧客據(jù)庫(kù)財(cái)務(wù)部登記費(fèi)用批準(zhǔn)產(chǎn)生賬號(hào)財(cái)務(wù)部登記數(shù)據(jù)庫(kù)3.數(shù)據(jù)字典一．?dāng)?shù)據(jù)項(xiàng)：1.數(shù)據(jù)項(xiàng)數(shù)據(jù)項(xiàng)編號(hào)：M01數(shù)據(jù)項(xiàng)名稱(chēng)：會(huì)員編號(hào)簡(jiǎn)述：某些會(huì)員的代碼類(lèi)型及寬度：數(shù)值型，5取值范圍：“10001”~““20001”~“2.數(shù)據(jù)項(xiàng)數(shù)據(jù)項(xiàng)編號(hào)：M02數(shù)據(jù)項(xiàng)名稱(chēng)：性別簡(jiǎn)述：會(huì)員性別的代碼類(lèi)型及寬度：字符型，2取值范圍：“男〞“女〞3.數(shù)據(jù)項(xiàng)數(shù)據(jù)項(xiàng)編號(hào)：M03數(shù)據(jù)項(xiàng)名稱(chēng)：昵稱(chēng)4.數(shù)據(jù)項(xiàng)數(shù)據(jù)項(xiàng)編號(hào)：M04數(shù)據(jù)項(xiàng)名稱(chēng)：學(xué)歷5.數(shù)據(jù)項(xiàng)數(shù)據(jù)項(xiàng)編號(hào)：M05數(shù)據(jù)項(xiàng)名稱(chēng)：身高6.數(shù)據(jù)項(xiàng)數(shù)據(jù)項(xiàng)編號(hào)：M06數(shù)據(jù)項(xiàng)名稱(chēng)：年齡7.數(shù)據(jù)項(xiàng)數(shù)據(jù)項(xiàng)編號(hào)：M07數(shù)據(jù)項(xiàng)名稱(chēng)：婚姻狀況8.數(shù)據(jù)項(xiàng)數(shù)據(jù)項(xiàng)編號(hào)：M08數(shù)據(jù)項(xiàng)名稱(chēng)：月薪9.數(shù)據(jù)項(xiàng)數(shù)據(jù)項(xiàng)編號(hào)：M09數(shù)據(jù)項(xiàng)名稱(chēng)：職業(yè)10.數(shù)據(jù)項(xiàng)數(shù)據(jù)項(xiàng)編號(hào)：M10數(shù)據(jù)項(xiàng)名稱(chēng)：居住情況11.數(shù)據(jù)項(xiàng)數(shù)據(jù)項(xiàng)編號(hào)：M11數(shù)據(jù)項(xiàng)名稱(chēng)：內(nèi)心告白12數(shù)據(jù)項(xiàng)數(shù)據(jù)項(xiàng)編號(hào)：M012數(shù)據(jù)項(xiàng)名稱(chēng)：內(nèi)心告白13.數(shù)據(jù)項(xiàng)數(shù)據(jù)項(xiàng)編號(hào)：M13數(shù)據(jù)項(xiàng)名稱(chēng)：擇友標(biāo)準(zhǔn)14.數(shù)據(jù)項(xiàng)數(shù)據(jù)項(xiàng)編號(hào)：M114數(shù)據(jù)項(xiàng)名稱(chēng)：進(jìn)度15.數(shù)據(jù)項(xiàng)數(shù)據(jù)項(xiàng)編號(hào)：M15數(shù)據(jù)項(xiàng)名稱(chēng)：聯(lián)系二．?dāng)?shù)據(jù)結(jié)構(gòu)數(shù)據(jù)結(jié)構(gòu)的編號(hào)：HYZL-1數(shù)據(jù)結(jié)構(gòu)的名稱(chēng):會(huì)員資料簡(jiǎn)述：會(huì)員根本信息及擇友標(biāo)準(zhǔn)數(shù)據(jù)結(jié)構(gòu)的組成：M01+M02+M03+M04+M05+M06+M07+M08+M09+M10+M11+M12+M13+M14+M15三．?dāng)?shù)據(jù)流1.數(shù)據(jù)流數(shù)據(jù)流編號(hào)：YYQK-2數(shù)據(jù)流名稱(chēng)：約會(huì)情況簡(jiǎn)述：會(huì)員預(yù)約請(qǐng)求數(shù)據(jù)流來(lái)源：會(huì)員預(yù)約數(shù)據(jù)流去向：管理員預(yù)約情況模塊數(shù)據(jù)流組成：被約會(huì)會(huì)員編號(hào)+會(huì)員編號(hào)+約會(huì)編號(hào)數(shù)據(jù)流量：5份/小時(shí)頂峰流量：10份/小時(shí)〔晚上8點(diǎn)~10點(diǎn)〕2.數(shù)據(jù)流數(shù)據(jù)流編號(hào)：YHJG-3數(shù)據(jù)流名稱(chēng)：約會(huì)結(jié)果簡(jiǎn)述：約會(huì)結(jié)果反應(yīng)數(shù)據(jù)流來(lái)源：會(huì)員約會(huì)結(jié)果反應(yīng)數(shù)據(jù)流去向：管理員約會(huì)結(jié)果模塊數(shù)據(jù)流組成：約會(huì)編號(hào)+約會(huì)情況數(shù)據(jù)流量：5份/天頂峰流量：10份/天〔雙休日〕〔二〕系統(tǒng)設(shè)計(jì)1.代碼設(shè)計(jì)合理的編碼結(jié)構(gòu)是信息處理系統(tǒng)是否具有生命力的一個(gè)重要因素。為了提高處理速度、防止浪費(fèi)，我們選擇用區(qū)間碼來(lái)進(jìn)行編碼。會(huì)員編號(hào)：首先把數(shù)據(jù)項(xiàng)分成兩組，每一區(qū)間代表一個(gè)組。第一個(gè)區(qū)間表示會(huì)員性別〔10開(kāi)頭為男性、20開(kāi)頭為女性〕，第二區(qū)間表示會(huì)員序號(hào)〔按首次登記的時(shí)間順序一次排列〕。例如：10001表示第一個(gè)來(lái)登記的男性會(huì)員。約會(huì)編號(hào)：數(shù)據(jù)項(xiàng)分為兩組，共兩個(gè)區(qū)間。第一個(gè)區(qū)間為邀約的男性會(huì)員的會(huì)員編號(hào)。第二區(qū)間為被邀約的女性會(huì)員的會(huì)員編號(hào)。例如：1000120001表示約會(huì)雙方為10001號(hào)男士和20001號(hào)女士。2.功能結(jié)構(gòu)圖設(shè)計(jì)非誠(chéng)勿擾婚介所管理信息系統(tǒng)信息管理約會(huì)管理效勞管理個(gè)人信息個(gè)人信息擇友標(biāo)準(zhǔn)資料查詢資料更新電腦配對(duì)預(yù)約情況約會(huì)反應(yīng)信息發(fā)布交友公告會(huì)員資料擇友標(biāo)準(zhǔn)查詢配對(duì)預(yù)約預(yù)約情況表會(huì)員資料擇友標(biāo)準(zhǔn)查詢配對(duì)預(yù)約預(yù)約情況表約見(jiàn)約會(huì)反應(yīng)約會(huì)結(jié)果表資料更新及約會(huì)情況總匯會(huì)員資料總匯表4.物理配置方案設(shè)計(jì)我們的系統(tǒng)開(kāi)發(fā)于在WindowsXP環(huán)境下，使用VisualFoxPro軟件設(shè)計(jì)并在其環(huán)境下運(yùn)行實(shí)施。VisualFoxPro6.0是在xBASE的根底上開(kāi)展而來(lái)的32位數(shù)據(jù)庫(kù)管理系統(tǒng)。它具有較高的性能指標(biāo)和鮮明的特點(diǎn)。⑴提供多種可視化編程工具，最突出的是面向?qū)ο缶幊?。⑵在表的設(shè)計(jì)方面，增添了表的字段和控件直接結(jié)合的設(shè)置。配置的相關(guān)根本要求〔最低配置要求〕如下：●處理器：486處理器以上，推薦使用Pentium或更高檔處理器的PC兼容機(jī)?！駜?nèi)存：16MB以上的內(nèi)存，推薦使用24MB以上的內(nèi)存?！裼脖P(pán)：典型安裝需要85MB的硬盤(pán)空間，完全安裝需要90MB的硬盤(pán)空間?！癫僮飨到y(tǒng)：Windows95/98〔中文版〕，或WindowsNT4.0〔中文版〕，或更高版本。5.數(shù)據(jù)存儲(chǔ)設(shè)計(jì)基于VFP系統(tǒng)，我們?cè)O(shè)計(jì)了六個(gè)數(shù)據(jù)表文件，它們的結(jié)構(gòu)及其說(shuō)明如下：一、會(huì)員個(gè)人信息表二、管理員信息表三、擇友標(biāo)準(zhǔn)表四、預(yù)約情況表五、約會(huì)結(jié)果表六、活動(dòng)通知表、基于這些數(shù)據(jù)表，我們建立了數(shù)據(jù)庫(kù)關(guān)系模型6.輸入輸出設(shè)計(jì)VFP是可視化編程工具，因此我們以表單形式展現(xiàn)具體流程，從而標(biāo)注輸入輸出的設(shè)計(jì)。在會(huì)員界面進(jìn)行的輸入設(shè)計(jì)，在管理員界面可以看到相關(guān)的輸出設(shè)計(jì)；同樣，在管理員界面進(jìn)行的輸入設(shè)計(jì)，也對(duì)應(yīng)在會(huì)員界面可以其輸出情況。首先，由登錄窗口進(jìn)入，輸入個(gè)人用戶名及密碼：登錄后，將分為會(huì)員和管理員界面介紹：會(huì)員界面會(huì)員登錄后，將進(jìn)入會(huì)員窗口：在會(huì)員界面下，會(huì)員可實(shí)現(xiàn)個(gè)人資料的輸入和修改：會(huì)員可以實(shí)現(xiàn)擇友標(biāo)準(zhǔn)的輸入和修改：會(huì)員還可以通過(guò)輸入條件查詢其他會(huì)員信息：在查詢之后，會(huì)員輸入想要預(yù)約的會(huì)員編號(hào)：約會(huì)之后，會(huì)員要輸入約會(huì)情況反應(yīng)：除此之外，會(huì)員還可以查看活動(dòng)情況〔此為活動(dòng)通知的輸出設(shè)計(jì)〕：會(huì)員還可以實(shí)現(xiàn)密碼修改：管理員界面管理員登錄后，將進(jìn)入管理員界面：在管理員界面，可以看到預(yù)約情況表〔會(huì)員預(yù)約的輸出設(shè)計(jì)〕：管理員還可以看到約會(huì)結(jié)果表〔會(huì)員約會(huì)結(jié)果反應(yīng)的輸出設(shè)計(jì)〕：除此之外，管理員可以輸入公布活動(dòng)的通知：〔三〕系統(tǒng)實(shí)施系統(tǒng)通過(guò)工程連編生成exe應(yīng)用文件并不斷調(diào)試，經(jīng)過(guò)最終測(cè)試可正常完成所有功能。五．結(jié)論經(jīng)過(guò)為期一個(gè)月的小組共同努力，在經(jīng)歷了考察調(diào)研，搜集資料，系統(tǒng)分析，系統(tǒng)設(shè)計(jì)，系統(tǒng)開(kāi)發(fā)，系統(tǒng)實(shí)施等一系列階段后，我們最終成功開(kāi)發(fā)了婚介所管理信息系統(tǒng)，實(shí)現(xiàn)了預(yù)計(jì)的各個(gè)功能。在該系統(tǒng)中，會(huì)員可以錄入信息和擇偶標(biāo)準(zhǔn)，并查詢其他人的信息。看到心儀對(duì)象后可以進(jìn)行預(yù)約，然后在管理員征求被預(yù)約對(duì)象意見(jiàn)后給予回復(fù)并實(shí)施更改會(huì)員的現(xiàn)階段約會(huì)情況。約會(huì)結(jié)束后，會(huì)員可以將結(jié)果反應(yīng)，成功者實(shí)現(xiàn)退檔，失敗者重新進(jìn)入相親隊(duì)伍。在這個(gè)環(huán)節(jié)以外，管理員可以發(fā)布活動(dòng)通知供會(huì)員查看?？傊撓到y(tǒng)功能全面，容納數(shù)據(jù)能力強(qiáng)，可通過(guò)網(wǎng)絡(luò)實(shí)時(shí)更新。合理地將會(huì)員與管理員連接起來(lái)，操作簡(jiǎn)單，使用方便，不但提供應(yīng)會(huì)員的更多信息，提高了相親的成功率，同時(shí)解決了數(shù)據(jù)冗余的問(wèn)題，減輕了婚介所工作人員的負(fù)擔(dān)，大大地提高了工作效率。迎合了年輕人追求簡(jiǎn)約，崇尚網(wǎng)絡(luò)的心態(tài)，也順應(yīng)了系統(tǒng)化、專(zhuān)業(yè)化、網(wǎng)絡(luò)化的婚介所的現(xiàn)代開(kāi)展之路。六．使用說(shuō)明1首先請(qǐng)進(jìn)入婚介系統(tǒng).exe2選擇會(huì)員登錄或管理員登錄：用戶名為會(huì)員號(hào)，初始密碼為12343會(huì)員登錄后，可以錄入修改個(gè)人信息，錄入修改擇友信息，按條件查詢其他會(huì)員信息，查看活動(dòng)通知，預(yù)約心儀對(duì)象及反應(yīng)約會(huì)結(jié)果等。4管理員登錄后，可查看資料更新，處理預(yù)約單，統(tǒng)計(jì)約會(huì)結(jié)果，發(fā)送活動(dòng)通知等。5操作結(jié)束后，點(diǎn)擊退出系統(tǒng)即可退出。七．附：程序代碼1登錄界面：〔1〕登錄按鈕click事件：publicaa=allt(thisform.text1.value)b=allt(thisform.text2.value)c=allt(thisform.text3.value)ifd=1 selectadminpasswordfrom管理員whereadminid==aintocursorbb ifeof() messagebox("用戶名不存在",0+16+0,"錯(cuò)誤") else selectadminpasswordfrom管理員whereadminid==aintoarrayaa ifb==allt(aa)andc==allt(str(yzm)) messagebox("您好"+a+",歡送您的光臨!",0+64+0,"登陸成功") thisform.text1.value="" thisform.text2.value="" thisform.text3.value="" thisform.release doform管理員窗口.scx else ifn<=3 messagebox("密碼或驗(yàn)證碼錯(cuò)誤請(qǐng)重新輸入！",0+16+0,"錯(cuò)誤") n=n+1 thisform.text2.value="" thisform.text3.value="" else messagebox("輸入次數(shù)過(guò)多，系統(tǒng)即將退出！",0+16+0,"錯(cuò)誤") thisform.release endif endif endifelse select密碼from個(gè)人信息where會(huì)員編號(hào)==aintocursorbb ifeof() messagebox("會(huì)員不存在",0+16+0,"錯(cuò)誤") else select密碼from個(gè)人信息where會(huì)員編號(hào)==aintoarrayaa ifb==allt(aa)andc==allt(str(yzm)) messagebox("您好，您的會(huì)員編號(hào)是："+a+",歡送您的光臨!",0+64+0,"登陸成功") thisform.text1.value="" thisform.text2.value="" thisform.text3.value="" thisform.release doform會(huì)員窗口.scx else ifn<=3 messagebox("密碼或驗(yàn)證碼錯(cuò)誤請(qǐng)重新輸入！",0+16+0,"錯(cuò)誤") n=n+1 thisform.text2.value="" thisform.text3.value="" else messagebox("輸入次數(shù)過(guò)多，系統(tǒng)即將退出！",0+16+0,"錯(cuò)誤") quit endif endif endifendif〔2〕去除按鈕click事件thisform.text1.value=""thisform.text2.value=""thisform.text3.value=""〔3〕退出按鈕click事件：Quit2會(huì)員界面〔1〕個(gè)人資料按鈕click事件：doform會(huì)員_修改個(gè)人信息〔2〕擇友標(biāo)準(zhǔn)按鈕click事件：doform會(huì)員_修改擇偶標(biāo)準(zhǔn)〔3〕查詢信息按鈕click事件：doform會(huì)員_查詢信息.scx〔4〕預(yù)約按鈕click事件：doform會(huì)員_預(yù)約〔5〕約會(huì)反應(yīng)按鈕click事件：doform會(huì)員_約會(huì)反應(yīng)〔6〕活動(dòng)通知按鈕click事件：doform會(huì)員_活動(dòng)通知〔7〕修改密碼按鈕click事件：doform會(huì)員_密碼修改〔8〕退出系統(tǒng)按鈕click事件：quit3會(huì)員-修改個(gè)人信息〔1〕保存按鈕click事件l=allt(thisform.text1.value)b=allt(thisform.text2.value)d=allt(thisform.text4.value)f=allt(thisform.text6.value)g=allt(thisform.text7.value)h=allt(thisform.text8.value)j=allt(thisform.text10.value)k=allt(thisform.edit1.value)update個(gè)人信息set昵稱(chēng)=l,性別=b,年齡=c,婚姻狀況=d,身高=e,個(gè)性=f,學(xué)歷=g,職業(yè)=h,月薪=i,居住情況=jwhere會(huì)員編號(hào)==a〔2〕返回按鈕click事件：thisform.release4會(huì)員-修改擇友標(biāo)準(zhǔn)〔1〕保存按鈕click事件d=allt(thisform.text4.value)g=allt(thisform.text7.value)k=allt(thisform.text1.value)select*from擇友標(biāo)準(zhǔn)where會(huì)員編號(hào)==aintocursoraaaaifeof()insertinto擇友標(biāo)準(zhǔn)(會(huì)員編號(hào),年齡,婚姻狀況,身高,學(xué)歷,其他)values(a,c,d,e,g,k)elseupdate擇友標(biāo)準(zhǔn)set年齡=c,婚姻狀況=d,身高=e,學(xué)歷=g,其他=kwhere會(huì)員編號(hào)==aendif〔2〕取消按鈕click事件：thisform.releasedoform會(huì)員窗口5會(huì)員-查詢信息查詢按鈕click事件publiccxcx="select會(huì)員編號(hào),昵稱(chēng),性別,年齡,婚姻狀況,身高,個(gè)性,學(xué)歷,職業(yè),月薪,居住情況from個(gè)人信息wherelen(會(huì)員編號(hào))>0"cx1=allt(thisform.text1.value)iflen(cx1)<>0cx=cx+"and昵稱(chēng)='"+cx1+"'"endifcx2=allt(thisform.text2.value)iflen(cx2)<>0cx=cx+"and性別='"+cx2+"'"endififcx3<>0cx=cx+"and年齡="+allt(str(cx3))endifcx4=allt(thisform.text4.value)iflen(cx4)<>0cx=cx+"and婚姻狀況='"+cx4+"'"endififcx5<>0cx=cx+"and身高="+allt(str(cx5))endifcx6=allt(thisform.text6.value)iflen(cx6)<>0cx=cx+"and個(gè)性='"+cx6+"'"endifcx7=allt(thisform.text7.value)iflen(cx7)<>0cx=cx+"and學(xué)歷='"+cx7+"'"endifcx8=allt(thisform.text8.value)iflen(cx8)<>0cx=cx+"and職業(yè)='"+cx8+"'"endififcx9<>0cx=cx+"and月薪="+allt(str(cx9))endififlen(cx10)<>0cx=cx+"and居住狀況='"+cx10+"'"endifcx=cx+"intocursoraaaa"thisform.grid1.recordsource=cx6會(huì)員-預(yù)約選擇預(yù)約按鈕click事件b=allt(thisform.text1.value)select*from個(gè)人信息where會(huì)員編號(hào)==bintocursoraaaaifeof() messagebox("對(duì)不起，該會(huì)員不存在",0+16+0,"錯(cuò)誤")else select*from預(yù)約情況where(約會(huì)編號(hào)==a+bor約會(huì)編號(hào)==b+a)intocursoraaaa ifeof() insertinto預(yù)約情況(約會(huì)編號(hào),會(huì)員編號(hào),被約見(jiàn)會(huì)員)values(a+b,a,b) messagebox("預(yù)約成功！",0+64+0,"成功") thisform.release else messagebox("對(duì)不起，約會(huì)已存在",0+16+0,"錯(cuò)誤") endifendif7會(huì)員-約會(huì)反應(yīng)〔1〕成功退檔按鈕click事件b=allt(thisform.text1.value)select約會(huì)編號(hào)from預(yù)約情況where(約會(huì)編號(hào)==a+bor約會(huì)編號(hào)==b+a)intoarrayyhbhifeof() messagebox("沒(méi)有約會(huì)的相關(guān)信息",0+16+0,"錯(cuò)誤")else insertinto約會(huì)結(jié)果(約會(huì)編號(hào),結(jié)果)values(yhbh,"成功") deletefrom預(yù)約情況where約會(huì)編號(hào)==yhbh messagebox("退檔成功！",0+64+0,"成功") packendif〔2〕再接觸看看按鈕click事件b=allt(thisform.text1.value)select約會(huì)編號(hào)from預(yù)約情況where(約會(huì)編號(hào)==a+bor約會(huì)編號(hào)==b+a)intoarrayyhbhifeof() messagebox("沒(méi)有約會(huì)的相關(guān)信息",0+16+0,"錯(cuò)誤")else insertinto約會(huì)結(jié)果(約會(huì)編號(hào),結(jié)果)values(yhbh,"繼續(xù)")messagebox("操作成功！",0+64+0,"成功")endif〔3〕失敗按鈕cli