飯店餐飲管理系統(tǒng)設(shè)計(jì)說明(文件)
【正文】 【2】. 劉子銳，《visual basic 》人民郵電出版社 【3】. 薩師煊，王珊，《數(shù)據(jù)庫系統(tǒng)概論》（第三版） 高等教育出版社 ；【4】．李建中,王珊,《數(shù)據(jù)庫系統(tǒng)原理》 電子工業(yè)出版社 ；【5】．李昭原，《數(shù)據(jù)庫原理與應(yīng)用》 科學(xué)出版社 ；【6】．李生平，張洪力，《數(shù)據(jù)庫技術(shù)及其應(yīng)用》 地震出版社 ；【7】．萬科，《vb數(shù)據(jù)庫開發(fā)經(jīng)典案例解析》清華大學(xué)出版社 ； 【8】. 姚詩斌，數(shù)據(jù)庫系統(tǒng)基礎(chǔ)，《計(jì)算機(jī)工程與應(yīng)用》 1981年第8期；【9】.朱海濱，《面向?qū)ο蠹夹g(shù)原理與設(shè)計(jì)》 國防科技大學(xué)出版社 ；【10】.趙曉華，《計(jì)算機(jī)軟件可靠性與質(zhì)量管理》 中國經(jīng)濟(jì)出版社 ；【11】.施伯樂，何繼潮，《關(guān)系數(shù)據(jù)庫的理論及應(yīng)用》 ；【12】.劉藝，《Thinking in Patterns with vb 》 機(jī)械工業(yè)出版社 ；。 元。 年嗎？, vbQuestion + vbYesNo, 年銷售額查詢) = vbNo Then Exit SubEnd IfDim Rec As RecordsetDim S As CurrencySet Rec = (Select Sum(Pay) From Sale Where Year(Date) = amp。 0101, 10)If Not IsDate(strDate) Then MsgBox “ amp。 Format(Date, YY) amp。 元。 年 amp。 月嗎？, vbQuestion + vbYesNo, 月銷售額查詢) = vbNo Then Exit SubEnd IfDim Rec As RecordsetDim S As CurrencySet Rec = (Select Sum(Pay) From Sale Where Year(Date) = amp。 ”不是一個(gè)有效的年月！, vbInformation, 月銷售額查詢 Exit SubEnd IfdatFind = Format(strFind, YYYYMM)If MsgBox(您要查詢的年月是 amp。月銷售額查詢Private Sub cmdMonthFind_Click()Dim datFind As DateDim strFind As StringstrFind = Trim(InputBox(請輸入年、月：(格式：YYYYMM 如： amp。 txtPrice1 amp。 CCur(Trim(txtPrice1)) amp。, vbInformation + vbOKCancel, 打印菜單) = vbOK Then .EndDocElse .KillDocEnd IfEnd With = TrueExit SubEh: MsgBox 打印時(shí)發(fā)生錯(cuò)誤： amp。Dim sngH As SingleDim I As IntegerW = = False = TrueDoEventsWith Printer .ScaleMode = 7 . = 12 sngH = .TextHeight((0)) + .Width = 576 * W .Height = 576 * (10 + * sngH) . = 隸書 . = 20 .CurrentX = (W .TextWidth((0))) / 2 .CurrentY = 1……For I = 0 To 1 .CurrentX = 2 .CurrentY = 3 + sngH * (I + 6) (I) Next I .CurrentX = 2 .CurrentY = 3 + sngH * (I + 8) lblTotal .CurrentX = 2 .CurrentY = 3 + sngH * (I + 9) lblPay .CurrentX = 2 .CurrentY = 3 + sngH * (I + 12) 結(jié)束(打印日期: amp。 If = False Then MsgBox “ amp。, vbInformation, 輸入、編輯菜單原始資料 = False Exit SubPrivate Sub MnuFileSave_Click()If Trim(txtName) = Then MsgBox 菜名不能空白！, vbExclamation, 輸入、編輯菜單原始資料 txtName = Exit SubEnd IfIf Trim(txtABC) = Then MsgBox 請?zhí)顚懖嗣钠匆糇诸^！, vbExclamation, 輸入、編輯菜單原始資料 txtABC = Exit SubEnd IfIf DBState = Add Then Set Rec = Nothing Set Rec = (Select * from Menu order by ABC,Name) Name=39。, vbInformation, 請餐提示 Exit Sub End If Next I AddToCustomerMenufrmguest 窗體frminput 可添加、
公司管理相關(guān)推薦
鄂ICP備17016276號-1