飯店餐飲管理系統(tǒng)設(shè)計(jì)說明-資料下載頁(yè)
2025-04-15 01:01本頁(yè)面
【正文】 If Not IsDate(Left(strFind, 7)) Then MsgBox “ amp。 strFind amp。 ”不是一個(gè)有效的年月！, vbInformation, 月銷售額查詢 Exit SubEnd IfdatFind = Format(strFind, YYYYMM)If MsgBox(您要查詢的年月是 amp。 Year(datFind) amp。 年 amp。 Month(datFind) amp。 月嗎？, vbQuestion + vbYesNo, 月銷售額查詢) = vbNo Then Exit SubEnd IfDim Rec As RecordsetDim S As CurrencySet Rec = (Select Sum(Pay) From Sale Where Year(Date) = amp。 Year(datFind) amp。 And Month(Date) = amp。 Month(datFind))If Not IsNull((0)) Then S = (0)End IfMsgBox Year(datFind) amp。 年 amp。 Month(datFind) amp。 月的銷售額是： amp。 Format(S, ) amp。 元。, vbInformation, 月銷售額查詢Set Rec = NothingEnd Sub年銷售額查詢Private Sub cmdYearFind_Click()Dim datFind As DateDim strFind As StringstrFind = Trim(InputBox(請(qǐng)輸入2位或4位年份：(如： amp。 Format(Date, YYYY) amp。 或 amp。 Format(Date, YY) amp。 代表 amp。 Format(Date, YYYY) amp。 年), 年銷售額查詢, Format(Date, YYYY)))If strFind = Then Exit SubDim strDate As StringstrDate = Left(strFind amp。 0101, 10)If Not IsDate(strDate) Then MsgBox “ amp。 strFind amp。 ”不是一個(gè)有效的年份！, vbInformation, 年銷售額查詢 Exit SubEnd IfdatFind = CDate(strDate)If MsgBox(您要查詢的年份是 amp。 Year(datFind) amp。 年嗎？, vbQuestion + vbYesNo, 年銷售額查詢) = vbNo Then Exit SubEnd IfDim Rec As RecordsetDim S As CurrencySet Rec = (Select Sum(Pay) From Sale Where Year(Date) = amp。 Year(datFind))If Not IsNull((0)) Then S = (0)End IfMsgBox Year(datFind) amp。 年的銷售額是： amp。 Format(S, ) amp。 元。, vbInformation, 年銷售額查詢Set Rec = NothingEnd Sub三、設(shè)計(jì)總結(jié) 通過一周的ＶＢ課程設(shè)計(jì)，使我增加了對(duì)ＶＢ課程的了解。VB在原來BASIC語(yǔ)言的基礎(chǔ)上進(jìn)一步發(fā)展至今包含了數(shù)百條語(yǔ)句,函數(shù)及關(guān)鍵詞,其中很多和WINDOWS GUI有直接關(guān)系,VB不僅是可視語(yǔ)言,實(shí)踐性強(qiáng),涉及面廣. 之后,了解到一些基本的概念,繼承了類的屬性,方法,而VB中長(zhǎng)用的對(duì)象有窗體,:屬性,方法和事件. 再用VB創(chuàng)建一個(gè)應(yīng)用程序,第一步驟是創(chuàng)建窗體,它是用戶與應(yīng)用程序進(jìn)行交互操作的可視部分,窗體是創(chuàng)建界面的基本構(gòu)造模塊,從而構(gòu)出窗體的外觀,設(shè)置好的窗體,窗體就作為對(duì)象,能夠?qū)ζ涠x的事件作出響應(yīng),這也是所謂的窗體事件,而窗體事件又包括窗體本身事件,鍵盤事件和鼠標(biāo)事件. VB程序設(shè)計(jì)同時(shí)可設(shè)計(jì)出一個(gè)更好的酒店點(diǎn)餐系統(tǒng),這樣就可以使用戶了解到更大量有關(guān)應(yīng)用程序設(shè)計(jì)和結(jié)構(gòu)的信息,在VB中按對(duì)話框的創(chuàng)建有三種類型的對(duì)話框,他們是預(yù)定義對(duì)話框,使可以完成與用戶之間的交互. 學(xué)習(xí)VB程序設(shè)計(jì)后,增加對(duì)此的認(rèn)識(shí),深入學(xué)習(xí)VB程序就可掌握新的軟件,新的編程環(huán)境,學(xué)習(xí)此課程,也可學(xué)會(huì)使用開發(fā)環(huán)境,.參考文獻(xiàn)【1】. 鄭人杰，殷人昆，陶永雷，《實(shí)用軟件工程》（第二版） 清華大學(xué)出版社 ；【2】. 劉子銳，《visual basic 》人民郵電出版社 【3】. 薩師煊，王珊，《數(shù)據(jù)庫(kù)系統(tǒng)概論》（第三版） 高等教育出版社 ；【4】．李建中,王珊,《數(shù)據(jù)庫(kù)系統(tǒng)原理》 電子工業(yè)出版社 ；【5】．李昭原，《數(shù)據(jù)庫(kù)原理與應(yīng)用》 科學(xué)出版社 ；【6】．李生平，張洪力，《數(shù)據(jù)庫(kù)技術(shù)及其應(yīng)用》 地震出版社 ；【7】．萬科，《vb數(shù)據(jù)庫(kù)開發(fā)經(jīng)典案例解析》清華大學(xué)出版社 ； 【8】. 姚詩(shī)斌，數(shù)據(jù)庫(kù)系統(tǒng)基礎(chǔ)，《計(jì)算機(jī)工程與應(yīng)用》 1981年第8期；【9】.朱海濱，《面向?qū)ο蠹夹g(shù)原理與設(shè)計(jì)》 國(guó)防科技大學(xué)出版社 ；【10】.趙曉華，《計(jì)算機(jī)軟件可靠性與質(zhì)量管理》 中國(guó)經(jīng)濟(jì)出版社 ；【11】.施伯樂，何繼潮，《關(guān)系數(shù)據(jù)庫(kù)的理論及應(yīng)用》 ；【12】.劉藝，《Thinking in Patterns with vb 》 機(jī)械工業(yè)出版社 ；
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1