基于vb的洗浴中心管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)畢業(yè)論文終稿-資料下載頁(yè)
2025-06-25 14:44本頁(yè)面
【正文】 seIf = 1 Then If (0) = 贈(zèng)單 Then = Format(Val((1)), ) = Else = Format(Val((1)), ) = End If End If = Format(Val() + Val(), ) = False Else MsgBox (對(duì)不起，此箱號(hào)的客人未消費(fèi)，請(qǐng)重新選擇！) End If ElseIf (狀態(tài)) = 空閑 Then MsgBox 請(qǐng)先領(lǐng)牌！ ElseIf (狀態(tài)) = 損壞 Then MsgBox 您選的箱號(hào)已損壞，請(qǐng)重新選擇！ End If Case Is = jy If 0 And (狀態(tài)) = 空閑 Then (狀態(tài)) = 損壞 Call View_List ElseIf (狀態(tài)) = 使用 Then MsgBox 您選的箱號(hào)正在使用，請(qǐng)重新選擇！ ElseIf (狀態(tài)) = 損壞 Then MsgBox 您選的箱號(hào)已損壞，請(qǐng)重新選擇！ End If Case Is = hf If 0 And (狀態(tài)) = 損壞 Then (狀態(tài)) = 空閑 Call View_List ElseIf (狀態(tài)) = 使用 Then MsgBox 您選的箱號(hào)正在使用，請(qǐng)重新選擇！ ElseIf (狀態(tài)) = 空閑 Then MsgBox 您選的箱號(hào)沒(méi)有損壞，請(qǐng)重新選擇！ End If 圖46消費(fèi)統(tǒng)計(jì)窗體運(yùn)行結(jié)果結(jié)賬收銀管理主要實(shí)現(xiàn)普通結(jié)賬、免單結(jié)賬、箱號(hào)的禁止使用和恢復(fù)使用等功能，運(yùn)行結(jié)果（如圖4－7所示）圖47結(jié)賬收銀管理通過(guò)月結(jié)算管理窗口，洗浴中心可以方便快捷的查看每月的盈利情況，對(duì)比后調(diào)整對(duì)洗浴中心的管理。單擊月結(jié)算管理窗體中的“開(kāi)始月結(jié)算”按鈕代碼如下：Private Sub Comyj_Click() = select * from 月消費(fèi)單據(jù)表 If 0 Then = True Else = False End If myval = MsgBox(確認(rèn)結(jié)算當(dāng)月數(shù)據(jù)嗎？, vbYesNo) If myval = vbYes Then = select sum(消費(fèi)實(shí)收) from 月消費(fèi)單據(jù)表 If 0 Then txtSQL = select * from 月?tīng)I(yíng)業(yè)分析表 Set rs5 = ESQL(txtSQL) On Error Resume Next (0) = Format(Date, yyyy mm) (1).Value = (0).Value End If txtSQL = insert 歷史消費(fèi)信息表(箱號(hào),所在大廳,項(xiàng)目編號(hào),名稱,單位,單價(jià),數(shù)量,簡(jiǎn)稱,消費(fèi)狀態(tài),隱藏狀態(tài),登記時(shí)間,折扣,金額小計(jì),消費(fèi)單據(jù)號(hào)) select 箱號(hào),所在大廳,項(xiàng)目編號(hào),名稱,單位,單價(jià),數(shù)量,簡(jiǎn)稱,消費(fèi)狀態(tài),隱藏狀態(tài),登記時(shí)間,折扣,金額小計(jì),消費(fèi)單據(jù)號(hào) from 月消費(fèi)信息表 order by 消費(fèi)單據(jù)號(hào) Set rs1 = ESQL(txtSQL) txtSQL = insert 歷史消費(fèi)單據(jù)表(消費(fèi)單據(jù)號(hào),主客箱號(hào),主客姓名,主客性別,登記時(shí)間,結(jié)帳日期,結(jié)帳方式,主客消費(fèi)金額,總計(jì)消費(fèi),打折,消費(fèi)應(yīng)收,實(shí)交金額,找零,消費(fèi)實(shí)收,減免金額,減免原因,單據(jù)描述,人數(shù)) select 消費(fèi)單據(jù)號(hào),主客箱號(hào),主客姓名,主客性別,登記時(shí)間,結(jié)帳日期,結(jié)帳方式,主客消費(fèi)金額,總計(jì)消費(fèi),打折,消費(fèi)應(yīng)收,實(shí)交金額,找零,消費(fèi)實(shí)收,減免金額,減免原因,單據(jù)描述,人數(shù) from 月消費(fèi)單據(jù)表 order by 消費(fèi)單據(jù)號(hào) Set rs2 = ESQL(txtSQL) txtSQL = delete 月消費(fèi)信息表 select * from 月消費(fèi)信息表 Set rs3 = ESQL(txtSQL) txtSQL = delete 月消費(fèi)單據(jù)表 select * from 月消費(fèi)單據(jù)表 Set rs4 = ESQL(txtSQL) = False 39。設(shè)置Comyj按鈕無(wú)效 MsgBox 月結(jié)算完畢！ = True Unload Me End IfEnd Sub圖48月結(jié)算運(yùn)行窗體 第5章 總結(jié)本系統(tǒng)介紹了數(shù)據(jù)庫(kù)的基本設(shè)計(jì)方法及高層數(shù)據(jù)庫(kù)訪問(wèn)技術(shù)ADO，詳細(xì)闡述了整個(gè)應(yīng)用系統(tǒng)的設(shè)計(jì)思路，并對(duì)各部分的設(shè)計(jì)思路進(jìn)行了詳盡的分析，最終形成一個(gè)完整的設(shè)計(jì)方案。，應(yīng)用 SQLServer2000數(shù)據(jù)庫(kù)的數(shù)據(jù)存儲(chǔ)功能，實(shí)現(xiàn)應(yīng)用程序?qū)ο到y(tǒng)數(shù)據(jù)的管理。緊張忙碌的畢業(yè)設(shè)計(jì)將要結(jié)束了，在這三個(gè)月的課程設(shè)計(jì)中，從項(xiàng)目的規(guī)劃、調(diào)研開(kāi)發(fā)，到編碼、測(cè)試，充分體會(huì)到了做一個(gè)管理系統(tǒng)的不容易。但這也鍛煉了自己的動(dòng)手能力，使在記憶中模糊的知識(shí)變得清晰，也讓我認(rèn)識(shí)到只有不斷地學(xué)習(xí)和摸索，一些難題才能迎刃而解。當(dāng)然也有老師和同學(xué)的幫助，才使系統(tǒng)基本能正常運(yùn)行，實(shí)現(xiàn)了賬目轉(zhuǎn)換方便靈活、結(jié)算方式多樣、可以隨時(shí)更改箱號(hào)、自定義套浴消費(fèi)、結(jié)賬一目了然、功能強(qiáng)大的月?tīng)I(yíng)業(yè)分析、可以進(jìn)行日結(jié)算和月結(jié)算等功能。使該系統(tǒng)可以幫助洗浴企業(yè)拋棄傳統(tǒng)的管庫(kù)模式，突破制約企業(yè)發(fā)展的瓶頸，企業(yè)的營(yíng)運(yùn)目標(biāo)具有更強(qiáng)的可操作性，最大限度地實(shí)現(xiàn)企業(yè)資源的合理利用，一起達(dá)到企業(yè)效率、利潤(rùn)最大化。不過(guò)因?yàn)閭€(gè)人能力有限，系統(tǒng)仍有一些不完善的地方，而這些問(wèn)題主要集中在系統(tǒng)的安全上，雖然系統(tǒng)已經(jīng)通過(guò)相關(guān)的控制語(yǔ)句對(duì)登陸用戶身份進(jìn)行驗(yàn)證，但是在當(dāng)今網(wǎng)絡(luò)信息安全中，僅僅對(duì)用戶身份驗(yàn)證是不夠的，還需要對(duì)傳送數(shù)據(jù)進(jìn)行加密，防止數(shù)據(jù)傳輸過(guò)程中被篡改等攻擊性行為。因此在今后的研究中,這些功能的實(shí)現(xiàn)還需要更高的技術(shù)支持，也只有這樣才能完善洗浴中心管理系統(tǒng)。讓所有的顧客能在一個(gè)互相信任且安全的環(huán)境中享受洗浴的樂(lè)趣。參考文獻(xiàn)[1] Basic 程序設(shè)計(jì)教程. [2] Basic 程序設(shè)計(jì)教程. [3] Basic 程序設(shè)計(jì). [4] Basic . [5] Basic 程序設(shè)計(jì)教程. [6]劉炳文, Basic 程序設(shè)計(jì)教程. [7]宋昆， Windows程序設(shè)計(jì)Visual . 華中科技大學(xué)出版社. 3444[8] Basic [9]薩師煊，王珊. 數(shù)據(jù)庫(kù)系統(tǒng)概論[J].高等教育出版社. 2006[10]Francesco [11]Robert Lan Oliver. [J]. [12]Ken Spencer，Tom Eberhard，John [J]. [13]Kathleen McGrath，Paul Stubbs. [14] Server 2000 程序設(shè)計(jì)[M]. 科學(xué)出版社. 2008[15] Server數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析[M].2006[16] Server [M].2007[17]賽奎春, [18]劉志銘, [19]高春艷, [20] 高春艷，李俊民，張耀庭. Visual Basic 信息系統(tǒng)開(kāi)發(fā)實(shí)例精選. 機(jī)械工業(yè)出版社. 致 謝 至此論文即將完成之際，謹(jǐn)向所有關(guān)心我學(xué)業(yè)的老師、同學(xué)及朋友表示衷心地感謝! 衷心感謝導(dǎo)師諄諄教誨和細(xì)心指導(dǎo)。欒老師淵博的知識(shí)、嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度和事業(yè)上銳意進(jìn)取的執(zhí)著精神都令我永生難忘。論文的選題、研究和撰寫都傾注了欒老師的無(wú)私關(guān)心。在此謹(jǐn)向尊敬的導(dǎo)師致以最誠(chéng)摯的謝意。 在整個(gè)課題的進(jìn)展及論文的撰寫討程中，也要感謝我的同學(xué)，她們提出的許多寶貴的意見(jiàn)和建議使我受益匪淺，給予我很大的幫助，在此我向她們表達(dá)我真誠(chéng)的謝意。 感謝各位老師給予我的關(guān)心和幫助，感謝在百忙之中為本文審稿的各位老師。謝謝!
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1