2023年全國碩士研究生考試考研英語一試題真題(含答案詳解+作文范文)_第1頁
已閱讀1頁,還剩19頁未讀, 繼續(xù)免費閱讀

下載本文檔

版權說明:本文檔由用戶提供并上傳,收益歸屬內容提供方,若內容存在侵權,請進行舉報或認領

文檔簡介

1、<p>  VB程序設計及數(shù)據(jù)庫應用課程設計</p><p>  題目 飯店菜式管理系統(tǒng) </p><p>  課 程 名 稱 VB程序設計及數(shù)據(jù)庫應用課程設計 </p><p><b>  目錄</b></p><p><b>  1.選題的意義1</b></

2、p><p>  1.1 選該題目的原因1</p><p>  1.2 完成此題目用到的數(shù)據(jù)結構和知識點1</p><p>  2.系統(tǒng)功能簡介2</p><p><b>  2.1登錄2</b></p><p>  2.2菜式管理系統(tǒng)2</p><p>  2.3 菜

3、式瀏覽2</p><p><b>  2.4點菜系統(tǒng)2</b></p><p><b>  3. 概要設計2</b></p><p>  3.1 各模塊之間關系3</p><p>  3.2 各模塊流程圖3</p><p><b>  4.系統(tǒng)實現(xiàn)4&l

4、t;/b></p><p><b>  4.1 主界面4</b></p><p>  4.2 登錄、注冊、修改密碼5</p><p>  4.3 菜式管理界面8</p><p>  4.4 菜式瀏覽界面11</p><p>  4.5 點菜界面16</p><p

5、><b>  5.總結17</b></p><p>  5.1 疑難點17</p><p><b>  5.2 體會18</b></p><p><b>  參考文獻:18</b></p><p><b>  1.選題的意義</b></

6、p><p>  1.1 選該題目的原因</p><p>  通過對飯店菜式管理系統(tǒng)的程序設計,了解軟件開發(fā)基本步驟,諸如問題分析、系統(tǒng)設計、程序編碼、測試等基本方法和技能。本程序可實現(xiàn)顧客點菜,按菜名、價格、菜系瀏覽菜式功能,同時飯店內部人員可以通過該程序對菜式添加、刪除、修改功能。</p><p>  1.2 完成此題目用到的數(shù)據(jù)結構和知識點</p>&

7、lt;p><b>  數(shù)據(jù)結構:</b></p><p>  通過可視化數(shù)據(jù)管理器可以進行數(shù)據(jù)庫操作。建立數(shù)據(jù)庫:啟動可視化數(shù)據(jù)管理器,創(chuàng)建數(shù)據(jù)庫,創(chuàng)建數(shù)據(jù)庫表,然后編輯數(shù)據(jù)庫。</p><p><b>  知識點:</b></p><p>  Access技術:可以開發(fā)關系數(shù)據(jù)庫,數(shù)據(jù)庫能匯集各種信息以供查詢、存儲

8、和檢索。數(shù)據(jù)庫(Database)是由一些有意義和有關系的數(shù)據(jù)(data)所組合而成。一個數(shù)據(jù)庫中,包含了許多條記錄(Record),而每條記錄是由多個字段(Field)所組成,不同的字段存放這不同的數(shù)據(jù)。所以數(shù)據(jù)庫的嚴格定義是一組相關記錄的集合,而字段則是最基本的數(shù)據(jù)項,也是數(shù)據(jù)庫中最小的單位。在計算機中用來幫我們管理數(shù)據(jù)庫的系統(tǒng),我們稱之為數(shù)據(jù)庫管理管理系統(tǒng)(Database Management System DBMS)。數(shù)據(jù)庫管

9、理系統(tǒng)是架構在一個或多個數(shù)據(jù)庫之上,并針對數(shù)據(jù)庫中的數(shù)據(jù)進行管理運用。Access 的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息,數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格,可以使數(shù)據(jù)庫一目了然。另外,Access 允許創(chuàng)建自定義報表用于打印或輸出數(shù)據(jù)庫中的信息。Access也提供了數(shù)據(jù)存儲庫,可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡文件服務器,與其他網(wǎng)絡用戶共享數(shù)據(jù)庫。如上所述,Access 作為關系數(shù)據(jù)庫開發(fā)具備了許多

10、優(yōu)點,可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利</p><p>  結構化查詢語言SQL: 結構化查詢語言(Structrued Query Lauguage,SQL)是訪問數(shù)據(jù)庫的標準語言,使用SQL語言可以從數(shù)據(jù)庫中獲取數(shù)據(jù),建立數(shù)據(jù)庫和數(shù)據(jù)庫對象,增加,修改數(shù)據(jù)和實現(xiàn)復雜的查詢功能。它是本系統(tǒng)實現(xiàn)的基礎。</p><p>  使用data控件訪問數(shù)據(jù)庫:主要使用的是data控件和數(shù)

11、據(jù)綁定控件編寫數(shù)據(jù)庫應用程序的方法。</p><p><b>  2.系統(tǒng)功能簡介</b></p><p><b>  2.1登錄</b></p><p>  打開飯店菜式管理系統(tǒng)程序,進入主界面。通過輸入用戶名和密碼登錄到菜式管理界面</p><p><b>  2.2菜式管理系統(tǒng)<

12、;/b></p><p>  通過輸入用戶名和密碼進入到了菜式管理界面,對菜式進行添加、刪除和修改,以及瀏覽全部菜式,并可返回主界面。</p><p><b>  2.3 菜式瀏覽</b></p><p>  進入菜式瀏覽界面,可根據(jù)菜名、菜價、菜系瀏覽菜式,并可返回主界面</p><p><b>  2

13、.4點菜系統(tǒng)</b></p><p>  通過點擊菜式管理系統(tǒng)的點菜按鈕進入到點菜系統(tǒng)。此界面有一個List和一個MSFlexGrid,MSFlexGrid用來顯示所有菜式,List用來顯示已點的菜。通過點菜按鈕將MSFlexGrid中選擇的菜添加到List中,通過退菜按鈕將List中已選菜退掉,在點菜和退菜的同時還對顧客消費進行計算,點菜完成后進行落單,點擊返回按鈕返回主界面。</p>

14、<p><b>  概要設計</b></p><p>  3.1 各模塊之間關系</p><p>  . </p>

15、<p><b>  登</b></p><p>  錄 </p><p><b>  失</b></p><p>  敗 </p><p>  3.2 各模塊流程圖</p&g

16、t;<p><b>  a 菜式管理系統(tǒng)</b></p><p><b>  b 菜式瀏覽系統(tǒng)</b></p><p><b>  c 點菜系統(tǒng)</b></p><p><b>  4.系統(tǒng)實現(xiàn)</b></p><p><b>  

17、4.1 主界面 </b></p><p>  包含菜式管理(登錄)、菜式瀏覽、點菜,如圖</p><p><b>  核心代碼:</b></p><p>  Private Sub Command1_Click() '單擊菜式瀏覽按鈕</p><p>  Unload Form4</p>

18、<p>  Form5.Show</p><p><b>  End Sub</b></p><p>  Private Sub Command2_Click() '單擊點菜按鈕</p><p>  Unload Form4</p><p>  Form3.Show</p><p&

19、gt;<b>  End Sub</b></p><p>  Private Sub enter_Click() '單擊登錄</p><p>  Unload Form4</p><p>  Form6.Show</p><p><b>  End Sub</b></p>&l

20、t;p>  4.2 登錄、注冊、修改密碼</p><p>  a 工作人員登錄界面</p><p><b>  核心代碼:</b></p><p>  Private Sub Command1_Click() '單擊確定按鈕</p><p>  Adodc1.RecordSource = "sel

21、ect * from 登錄信息 where 用戶名=" + "'" + Trim(Text1.Text) + "'" + " and 密碼=" + "'" + Trim(Text2.Text) + "'"</p><p>  Adodc1.Refresh</p>

22、<p>  If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then '判斷用戶名與密碼是否相符</p><p>  MsgBox "用戶名或密碼錯誤"</p><p><b>  Else</b></p><p>  Unlo

23、ad Form6</p><p>  form1.Show</p><p><b>  End If</b></p><p><b>  End Sub</b></p><p>  Private Sub Command2_Click() '單擊注冊按鈕</p><p&

24、gt;  Unload Form6</p><p>  Form7.Show '進入注冊界面</p><p><b>  End Sub</b></p><p>  Private Sub Command3_Click() '單擊取消按鈕</p><p>  Unload Form6</p

25、><p>  Form4.Show '返回主界面</p><p><b>  End Sub</b></p><p><b>  b注冊界面</b></p><p><b>  核心代碼:</b></p><p>  Private Sub C

26、ommand1_Click() '單擊注冊按鈕</p><p>  Adodc1.RecordSource = "select * from 登錄信息 where 用戶名=" + "'" + Trim(Text1.Text) + "'"</p><p>  Adodc1.Refresh</p>

27、<p>  If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then '判斷用戶名是否已經(jīng)存在</p><p>  Adodc1.Recordset.AddNew</p><p>  Adodc1.Recordset.Fields("用戶名") = Trim(Text1.Te

28、xt)</p><p>  Adodc1.Recordset.Fields("密碼") = Trim(Text2.Text) '將用戶名密碼存入數(shù)據(jù)庫</p><p>  Adodc1.Recordset.Update</p><p>  Adodc1.Refresh</p><p>  If Text2.Te

29、xt = Text3.Text Then</p><p>  MsgBox ("注冊成功")</p><p><b>  End If</b></p><p><b>  Else</b></p><p>  MsgBox "用戶名已存在"</p>

30、<p><b>  End If</b></p><p><b>  End Sub</b></p><p>  Private Sub Command2_Click() '單擊返回按鈕</p><p>  Unload Form7</p><p>  Form6.Show

31、 '返回登錄界面</p><p><b>  End Sub</b></p><p><b>  c 修改密碼界面</b></p><p><b>  核心代碼:</b></p><p>  Private Sub Command1_Click() '單

32、擊確認按鈕</p><p>  Adodc1.RecordSource = "select * from 登錄信息 where 用戶名=" + "'" + Trim(Text1.Text) + "'"</p><p>  Adodc1.Refresh</p><p>  If Adodc1.

33、Recordset.EOF = False And Adodc1.Recordset.BOF = False Then</p><p>  Adodc1.Recordset.Fields("密碼") = Trim(Text2.Text) '將新密碼存入數(shù)據(jù)庫</p><p>  Adodc1.Recordset.Update</p><p&

34、gt;  Adodc1.Refresh</p><p>  MsgBox "修改密碼成功"</p><p><b>  Else</b></p><p>  MsgBox "用戶名不存在"</p><p><b>  End If</b></p>

35、<p><b>  End Sub</b></p><p>  Private Sub Command2_Click() '單擊取消按鈕</p><p>  Unload Form8</p><p>  form1.Show '返回菜式管理界面</p><p><b>  End

36、Sub</b></p><p>  4.3 菜式管理界面</p><p>  對菜式進行添加、刪除和修改,以及瀏覽全部菜式</p><p><b>  核心代碼: </b></p><p>  Private Sub Command1_Click() '單擊添加按鈕</p><

37、p>  Data1.Recordset.AddNew</p><p>  Text1.Locked = False</p><p>  Text2.Locked = False</p><p>  Text3.Locked = False</p><p>  Text4.Locked = False</p><p&g

38、t;  Text5.Locked = False</p><p>  Text7.Locked = False '將所有文本框鎖定</p><p><b>  End Sub</b></p><p>  Private Sub Command2_Click() '單擊刪除按鈕</p><p>  Dim

39、 msg As Integer</p><p>  msg = MsgBox("你確定要刪除編號為" & Text1.Text & " , 菜名為" & Text2.Text & "的菜式的所有信息嗎?", vbYesNo, "刪除菜式")</p><p>  If msg =

40、vbYes Then</p><p>  Data1.Recordset.Delete '刪除所選信息</p><p>  Data1.Recordset.MoveFirst</p><p><b>  End If</b></p><p><b>  End Sub</b></p

41、><p>  Private Sub Command3_Click() '單擊確定按鈕</p><p>  Text1.Locked = True</p><p>  Text2.Locked = True</p><p>  Text3.Locked = True</p><p>  Text4.Locked =

42、 True</p><p>  Text5.Locked = True</p><p>  Text7.Locked = True '將所有文本框解鎖</p><p><b>  End Sub</b></p><p>  Private Sub Command4_Click() '單擊修改按鈕<

43、;/p><p>  Text1.Locked = False</p><p>  Text2.Locked = False</p><p>  Text3.Locked = False</p><p>  Text4.Locked = False</p><p>  Text5.Locked = False</p&g

44、t;<p>  Text7.Locked = False '將所有文本框鎖定</p><p><b>  End Sub</b></p><p>  Private Sub Command5_Click() '單擊退出按鈕</p><p>  Unload form1</p><p> 

45、 Form4.Show '返回到主界面</p><p><b>  End Sub</b></p><p>  Private Sub Command6_Click() '單擊取消按鈕</p><p>  Data1.Recordset.Delete</p><p>  Data1.Recordset.M

46、oveFirst</p><p><b>  End Sub</b></p><p>  Private Sub Command7_Click() '單擊全部顯示按鈕</p><p>  Load form1</p><p>  Form2.Show '進入全部顯示界面</p><p

47、><b>  End Sub</b></p><p><b>  核心代碼:</b></p><p>  Private Sub Command1_Click() '單擊返回按鈕</p><p>  Unload Form2</p><p>  form1.Data1.Refresh&

48、lt;/p><p>  form1.Show '返回到菜式管理</p><p><b>  End Sub</b></p><p>  4.4 菜式瀏覽界面</p><p><b>  按菜名瀏覽</b></p><p><b>  按菜價降序瀏覽</b

49、></p><p><b>  按菜系“徽菜”瀏覽</b></p><p><b>  按菜系“川菜”瀏覽</b></p><p><b>  按菜系“魯菜”瀏覽</b></p><p><b>  按菜系“粵菜”瀏覽</b></p>

50、<p><b>  核心代碼:</b></p><p>  Private Sub Command1_Click() '單擊按菜名瀏覽按鈕</p><p>  Dim sy As String</p><p>  sy = "select * from 菜式"</p><p>  D

51、ata1.RecordSource = sy</p><p>  Data1.Refresh</p><p><b>  End Sub</b></p><p>  Private Sub Command2_Click() '單擊徽菜按鈕</p><p>  Dim hc As String</p>

52、<p>  hc = "select * from 菜式 where 菜系='徽菜'"</p><p>  Data1.RecordSource = hc</p><p>  Data1.Refresh</p><p><b>  End Sub</b></p><p>

53、  Private Sub Command3_Click() '單擊按菜價瀏覽按鈕</p><p>  Dim jg As String</p><p>  jg = "select * from 菜式 order by val(價格) desc "</p><p>  Data1.RecordSource = jg&

54、lt;/p><p>  Data1.Refresh</p><p><b>  End Sub</b></p><p>  Private Sub Command4_Click() '單擊川菜按鈕</p><p>  Dim hc As String</p><p>  cc = "

55、select * from 菜式 where 菜系='川菜'"</p><p>  Data1.RecordSource = cc</p><p>  Data1.Refresh</p><p><b>  End Sub</b></p><p>  Private Sub Command5_C

56、lick() '單擊魯菜按鈕</p><p>  Dim hc As String</p><p>  lc = "select * from 菜式 where 菜系='魯菜'"</p><p>  Data1.RecordSource = lc</p><p>  Data1.Refresh<

57、;/p><p><b>  End Sub</b></p><p>  Private Sub Command6_Click() '單擊粵菜按鈕</p><p>  Dim hc As String</p><p>  yc = "select * from 菜式 where 菜系='粵菜'

58、"</p><p>  Data1.RecordSource = yc</p><p>  Data1.Refresh</p><p><b>  End Sub</b></p><p>  Private Sub Command7_Click() '單擊返回按鈕</p><p>

59、;  Unload Form5</p><p>  Form4.Show '返回到主界面</p><p><b>  End Sub</b></p><p><b>  4.5 點菜界面</b></p><p>  Dim g As Single</p><p> 

60、 Private Sub Command1_Click() '選中l(wèi)ist表中已點菜品進行刪菜操作</p><p>  If List1.ListIndex <> -1 Then</p><p>  x = List1.ListIndex</p><p>  List1.RemoveItem x</p><p><b

61、>  End If</b></p><p>  Text4 = Val(Text4) - g '相應總金額減少</p><p><b>  End Sub</b></p><p>  Private Sub Command2_Click() '單擊事件時,把所選菜品添加到當前點菜的list表中</p&g

62、t;<p>  Dim a, b As Integer</p><p>  a = Len(Text1.Text)</p><p>  b = Len(Text2.Text) + Len(Text3.Text) + 1</p><p>  List1.AddItem Text1.Text & Space(18 - a * 2) & Te

63、xt2.Text & "*" & Text3.Text & Space(18 - b) & Val(Text2) * Val(Text3) '按照一定位置在list表中顯示所點菜品的名字,單價,數(shù)量及總價。</p><p>  Dim c As Single</p><p>  c = Val(Text2.Text) * Val(

64、Text3.Text) '當前所選菜的總價</p><p>  Text4.Text = c + Val(Text4.Text) '每點一道菜,總金額進行累加</p><p><b>  End Sub</b></p><p>  Private Sub Command3_Click()</p><p>

65、;  Label6.Caption = "您一共點了 " & List1.ListCount & " 種菜"</p><p><b>  End Sub</b></p><p>  Private Sub Command4_Click() '單擊返回按鈕</p><p>  Unl

66、oad Form3</p><p>  Form4.Show '返回到主界面</p><p><b>  End Sub</b></p><p>  Private Sub List1_Click() '單擊列表框里的某一行時,顯示相應信息</p><p>  If List1.ListIndex &l

67、t;> -1 Then</p><p>  x = List1.ListIndex</p><p><b>  End If</b></p><p>  Dim e, f As String</p><p>  e = List1.List(x) '單擊時選中一道菜</p><p>

68、  Text1.Text = Left(e, 8) '利用left函數(shù)提取所選中菜的菜名</p><p>  f = Right(e, 5) '利用right函數(shù)提取所選中菜品的總價</p><p>  g = Val(f)</p><p><b>  End Sub</b></p><p>  Priv

69、ate Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) '鼠標按下事件,顯示相應菜品信息</p><p>  Text1.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) '鼠標點擊某一行時,利用TextMatrix屬

70、性把此行第二列的數(shù)據(jù)(菜名)提取出來并顯示在text1中</p><p>  Text2.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 3) '鼠標點擊某一行時,利用TextMatrix屬性把此行第四列的數(shù)據(jù)(單價)提取出來并顯示在text2中</p><p><b>  End Sub</b></p&g

71、t;<p><b>  5.總結</b></p><p><b>  5.1 疑難點</b></p><p>  數(shù)據(jù)庫建立以后無法與控件綁定,在系統(tǒng)運行時,無法通過系統(tǒng)對數(shù)據(jù)庫的信息進行編輯,修改,刪除;不知如何根據(jù)條件查詢符合條件的信息。通過查理論知識、相關類型的編程以及與同學討論解決</p><p>&

72、lt;b>  5.2 體會</b></p><p>  自學精神是我在這次編程中是我最大的體會,剛開始時不知整體框架如何,就去查相關編程資料。遇到暫時無法解決問題時,通過思考聯(lián)系以前知識,想一想通過什么控件可以實現(xiàn),或是查看類的問題,練習自己問題經(jīng)過改造來實現(xiàn)自己目的。</p><p><b>  參考文獻:</b></p><p

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
  • 4. 未經(jīng)權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
  • 5. 眾賞文庫僅提供信息存儲空間,僅對用戶上傳內容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內容本身不做任何修改或編輯,并不能對任何下載內容負責。
  • 6. 下載文件中如有侵權或不適當內容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

最新文檔

評論

0/150

提交評論