VB點(diǎn)菜系統(tǒng)程序設(shè)計(jì)

1、課 程 設(shè) 計(jì)課 程 程序設(shè)計(jì) 班 級 08自Y2 姓 名 馮 波 學(xué) 號 08121309 一、功能描述：菜式瀏覽功能：能分類瀏覽飯店的所有菜式、采樣及價(jià)格；點(diǎn)菜功能：進(jìn)行點(diǎn)菜操作后能預(yù)覽點(diǎn)菜結(jié)果，并可對其進(jìn)一步修改；二、概要設(shè)計(jì)： 點(diǎn)菜系統(tǒng)點(diǎn) 菜瀏覽菜 提交菜單 菜式瀏覽系統(tǒng)淮揚(yáng)菜 魯菜粵菜川菜酒水三、詳細(xì)設(shè)計(jì)：1.登陸界面單擊“菜譜”進(jìn)入點(diǎn)菜系參數(shù)確定：在命令按鈕的屬性窗口確認(rèn)其caption屬性2、點(diǎn)菜界面該界面包含菜系瀏覽、點(diǎn)菜、減菜、提交菜單等功能。 點(diǎn)菜：分別點(diǎn)擊菜系，再選擇菜可以在下面的文本框中等顯示； 減菜：選中要刪除的菜，單擊刪除； 提交菜單：單擊提交菜單，如果消費(fèi)達(dá)到一定

2、金額，可以抽獎； 加菜：顧客還可以繼續(xù)點(diǎn)菜。代碼窗口設(shè)置功能： 1、與數(shù)據(jù)庫連接：2、點(diǎn)菜： 3、減菜并確定總消費(fèi)：4、提交菜單抽獎功能：四、效果：五、心得體會經(jīng)過兩周周的VB課程設(shè)計(jì)，我解決實(shí)際問題的能力提高了并學(xué)會了自主學(xué)習(xí)，自我提高和自我完善，用已學(xué)過VB知識及的自學(xué)數(shù)據(jù)庫技術(shù)編寫程序。程序設(shè)計(jì)期間，遇到問題自己思考并積極去解決，也向同學(xué)，老師和網(wǎng)絡(luò)尋求幫助，在編程過程中，我們就遇到了連接數(shù)據(jù)庫，提取數(shù)據(jù)等問題。經(jīng)過集思廣益后，我們的收獲很大，不僅解決了問題，還明白了互助的團(tuán)隊(duì)精神。課程設(shè)計(jì)讓我們學(xué)習(xí)與實(shí)踐相結(jié)合，加深了了我們對書本知識的理解能力，學(xué)以致用。鍛煉了我的自主學(xué)習(xí)能力及創(chuàng)新能

3、力。在今后的學(xué)習(xí)中，還要繼續(xù)加強(qiáng)自主學(xué)習(xí)與實(shí)踐的鍛煉。最后，向幫助我的老師和同學(xué)表示衷心的感謝。六、附錄：附上各功能模塊的主要代碼Form1：Private Sub Label2_Click() Me.Hide Form7.ShowEnd SubPrivate Sub Label3_Click() Dim a As Integer a = MsgBox("確定退出整個程序？", 49, "注意") If a = 1 Then End Else Me.Show End IfEnd SubPrivate Sub Label4_Click() Me.Hide

4、Form2.ShowEnd SubPrivate Sub Label5_Click() Me.Hide Form4.ShowEnd SubForm2：Private Sub Form_Load()Text1(0).Text = ""Text2(2).Text = ""Text3(1).Text = ""Text5.Text = ""Label13.Enabled = FalseLabel14.Enabled = FalseLabel15.Enabled = False Dim cnn As New ADODB.Co

5、nnection cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:my own workers_works信息系統(tǒng)課程設(shè)計(jì)課程設(shè)計(jì)-vb程序設(shè)計(jì)數(shù)據(jù)庫菜譜.mdb;Persist Security Info=False" Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:my own workers_works信息系統(tǒng)課程設(shè)計(jì)課程設(shè)計(jì)-vb程序設(shè)計(jì)數(shù)據(jù)庫菜譜.mdb;Persist Security I

6、nfo=False"End SubPrivate Sub Label12_Click() Dim cx As String Dim cm As String Dim jg As Integer cx = Text1(0).Text cm = Text2(2).Text jg = Val(Text3(1).Text) List1.AddItem "菜系： " & cx & " 菜名：" & cm & " 價(jià)格：" & jg Text4(1).Text = jg + Val(Text4(1

7、).Text) Label13.Enabled = True Label14.Enabled = TrueEnd SubPrivate Sub Label13_Click() Dim E, f As String Dim i As Integer Dim X As Integer If List1.ListIndex <> -1 Then X = List1.ListIndex E = List1.List(X) End If f = Right(E, 2) g = Val(f) For i = (List1.ListCount - 1) To 0 Step -1 If List1

8、.Selected(i) = True Then List1.RemoveItem i Text4(1).Text = Val(Text4(1).Text) - g End If Next i If List1.ListCount = 0 Then Text4(1).Text = "" End IfEnd SubPrivate Sub Label14_Click() Dim m As Integer Dim n As Variant Dim i, j, p As Integer If Val(Text4(1).Text) >= 100 Then m = MsgBox(

9、"提交成功！" & Chr(10) & Chr(13) & "您獲得一次抽獎機(jī)會" & Chr(10) & Chr(13) & "是否確認(rèn)抽獎？", 4) ElseIf List1.ListCount = 0 Then MsgBox ("未點(diǎn)菜！") Else MsgBox ("提交成功！") End If n = Array("恭喜您獲得哆啦a夢", "恭喜您獲得精美一臺精美小風(fēng)扇", "很抱歉，

10、您未抽中", "恭喜您獲得本店20元優(yōu)惠券") Randomize If m = 6 Then i = Int(3 * Rnd + 1) Select Case i Case 1 MsgBox (n(1) Case 2 MsgBox (n(2) Case 3 MsgBox (n(3) Case 4 MsgBox (n(4) End Select End If For p = 0 To List1.ListCount List1.List(p) = "" Next p List1.Clear Label12.Enabled = False Lab

11、el13.Enabled = False Label15.Enabled = True Text4(1).Text = "" End SubPrivate Sub Label15_Click() Label14.Enabled = False Label12.Enabled = TrueEnd SubPrivate Sub Label16_Click() Label12.Enabled = True Set DataGrid1.DataSource = Nothing Adodc1.RecordSource = "SELECT * FROM huncai WHER

12、E sort='" & Label16.Caption & "'" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1End SubPrivate Sub Label17_Click()Label12.Enabled = True Set DataGrid1.DataSource = Nothing Adodc1.RecordSource = "SELECT * FROM huncai WHERE sort='" & Label17.Caption &

13、amp; "'" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1End SubPrivate Sub Label8_Click() Me.Hide Form1.ShowEnd SubPrivate Sub Label9_Click() Label12.Enabled = True Set DataGrid1.DataSource = Nothing Adodc1.RecordSource = "SELECT * FROM huncai WHERE sort='" & Label9.

14、Caption & "'" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1End SubPrivate Sub Label10_Click() Label12.Enabled = True Set DataGrid1.DataSource = Nothing Adodc1.RecordSource = "SELECT * FROM huncai WHERE sort='" & Label10.Caption & "'" Adodc1.Re

15、fresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Visible = TrueEnd SubPrivate Sub Label11_Click() Label12.Enabled = True Set DataGrid1.DataSource = Nothing Adodc1.RecordSource = "SELECT * FROM huncai WHERE sort='" & Label11.Caption & "'" Adodc1.Refresh Set DataGr

16、id1.DataSource = Adodc1End SubPrivate Sub List1_Click() Dim X As Integer If List1.ListIndex <> -1 Then X = List1.ListIndex End IfEnd Sub七、參考文獻(xiàn)Visual Basic應(yīng)用與開發(fā)案例教程 ，徐謖 ，清華大學(xué)出版社.Visual Basic 6.0編程案例精解， 張路平，電子工業(yè)出版社. Visual Basic程序設(shè)計(jì) ，王學(xué)軍，中國鐵道出版社Visual Basic+Access數(shù)據(jù)庫項(xiàng)目開發(fā)實(shí)踐，周國民，中國鐵道出版社豈興明 銀華強(qiáng) 等編著,Visual Basic.NET項(xiàng)目開發(fā)寶典,電子工業(yè)出版社漢清計(jì)算機(jī)工作室，Visual Basic6.0數(shù)據(jù)庫開發(fā)實(shí)例 北京機(jī)械工業(yè)出版社何旭洪，Visual Basic 數(shù)據(jù)庫開發(fā)實(shí)例導(dǎo)航 北京人民郵電出版社李勇帆等. Visual Basic程序設(shè)計(jì)案例教程（21世紀(jì)高等學(xué)校規(guī)劃教材）. 北京：人民郵電出版社，2009李勇帆等Visual Basic程序設(shè)計(jì)上機(jī)指導(dǎo)與測試北京：人民郵電出版社，2009亓萊濱等Visual Basic