飯店餐飲管理系統(tǒng)2-資料下載頁
2025-04-15 02:30本頁面
【正文】 ft(strFind, 7)) Then MsgBox “ amp。 strFind amp。 ”不是一個有效的年月！, 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(請輸入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。 ”不是一個有效的年份！, 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三、設計總結 通過一周的ＶＢ課程設計，使我增加了對ＶＢ課程的了解。VB在原來BASIC語言的基礎上進一步發(fā)展至今包含了數(shù)百條語句,函數(shù)及關鍵詞,其中很多和WINDOWS GUI有直接關系,VB不僅是可視語言,實踐性強,涉及面廣. 之后,了解到一些基本的概念,繼承了類的屬性,方法,而VB中長用的對象有窗體,:屬性,方法和事件. 再用VB創(chuàng)建一個應用程序,第一步驟是創(chuàng)建窗體,它是用戶與應用程序進行交互操作的可視部分,窗體是創(chuàng)建界面的基本構造模塊,從而構出窗體的外觀,設置好的窗體,窗體就作為對象,能夠對其定義的事件作出響應,這也是所謂的窗體事件,而窗體事件又包括窗體本身事件,鍵盤事件和鼠標事件. VB程序設計同時可設計出一個更好的酒店點餐系統(tǒng),這樣就可以使用戶了解到更大量有關應用程序設計和結構的信息,在VB中按對話框的創(chuàng)建有三種類型的對話框,他們是預定義對話框,使可以完成與用戶之間的交互. 學習VB程序設計后,增加對此的認識,深入學習VB程序就可掌握新的軟件,新的編程環(huán)境,學習此課程,也可學會使用開發(fā)環(huán)境,.參考文獻【1】. 鄭人杰，殷人昆，陶永雷，《實用軟件工程》（第二版） 清華大學出版社 ；【2】. 劉子銳，《visual basic 》人民郵電出版社 【3】. 薩師煊，王珊，《數(shù)據(jù)庫系統(tǒng)概論》（第三版） 高等教育出版社 ；【4】．李建中,王珊,《數(shù)據(jù)庫系統(tǒng)原理》 電子工業(yè)出版社 ；【5】．李昭原，《數(shù)據(jù)庫原理與應用》 科學出版社 ；【6】．李生平，張洪力，《數(shù)據(jù)庫技術及其應用》 地震出版社 ；【7】．萬科，《vb數(shù)據(jù)庫開發(fā)經(jīng)典案例解析》清華大學出版社 ； 【8】. 姚詩斌，數(shù)據(jù)庫系統(tǒng)基礎，《計算機工程與應用》 1981年第8期；【9】.朱海濱，《面向對象技術原理與設計》 國防科技大學出版社 ；【10】.趙曉華，《計算機軟件可靠性與質量管理》 中國經(jīng)濟出版社 ；【11】.施伯樂，何繼潮，《關系數(shù)據(jù)庫的理論及應用》 ；【12】.劉藝，《Thinking in Patterns with vb 》 機械工業(yè)出版社 ；
公司管理相關推薦
鄂ICP備17016276號-1