freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

飯店餐飲管理系統(tǒng)設(shè)計(jì)說明(文件)

2025-05-03 01:01 上一頁面

下一頁面
 

【正文】 【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 可添加、
點(diǎn)擊復(fù)制文檔內(nèi)容
公司管理相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖鄂ICP備17016276號-1