【正文】 值，用于下面跟數(shù)據(jù)庫里面的值進行比較 = select * from shopper where cshopperid=39。 Trim() amp。 and cpassword= 39。 str amp。 = conn Dim reader As SqlDataReader = If () Then Session(cshopperid) = Trim(reader(cshopperid)) ‘檢測用戶名是否已經(jīng)存在 () Else Session(cshopperid) = Nothing = 用戶名或者密碼錯誤 ! End If () 登錄成功后界面如下： 圖 9 登錄成功 訂餐 使用 DATAGRID 綁定 DISH 表顯示菜單，在 DATAGRID 上每行綁定一個多選按鈕和下拉列表，進行多選和數(shù)量的選擇。 若菜品和地址都填寫好，則進入訂餐成功頁面，可以查看自己的訂餐信息，可以進行修改和刪除。 流程圖如下： 圖 10 訂餐流程圖 訂餐頁面設計如下： 圖 11 訂餐頁面 綁定數(shù)據(jù)，代碼如下： 39。packet size=4096。initial Catalog=dishsale。user id=sa。39。 代碼如下： 八年經(jīng)驗 專業(yè)指導畢業(yè)設計 需要全套設計請聯(lián)系： 731767310 第 15 頁 共 24 頁 Private Sub Submit_Click(ByVal sender As , ByVal e As ) Handles If = Then = 請選擇菜品！ ElseIf Request(memo) = Then = 請輸入您的地址！ Else GetDishCart() ‘調(diào)用 GetDishCart將數(shù)據(jù)寫入數(shù)據(jù)庫 = suc (SCRIPT language=JavaScriptalert(39。)。39。) Dim tconn As New SqlConnection Dim tcmd As New SqlCommand Dim objReader As SqlDataReader Dim x As Integer = Connect Timeout=5。persist security info=False。data source=32A5C0037011401。password=39。 () = tconn = select orderid from neworder order by oid desc objReader = () If Then x = CInt(objReader(orderid)) + 1 End If () () For i As Integer = 0 To 2 Step 1 Dim NuList() As String = IdList(i).Split(,) () = = orderinsert ‘調(diào)用存儲過程 向 neworder表插入數(shù)據(jù) () (New SqlParameter(orderid, x)) (New SqlParameter(dishid, NuList(0))) (New SqlParameter(dishnumber, NuList(1))) 八年經(jīng)驗 專業(yè)指導畢業(yè)設計 需要全套設計請聯(lián)系： 731767310 第 16 頁 共 24 頁 (New SqlParameter(userid, Session(cshopperid))) (New SqlParameter(birdate, ())) () () Next 39。 amp。 39。 amp。 39。提交留言的時候?qū)Ψ謹?shù)進行判斷，然后對留言內(nèi)容是否為空進行判斷，然后寫進數(shù)據(jù)庫 。留言信息不能為空 !39。) (=39。/SCRIPT) End If sqlstr = insert message([cmessageid],[cshopperid],[dmessagetime],[cscore],[vmessage]) values(39。,39。 Session(cshopperid) amp。,39。 amp。,39。,39。,39。,39。,39。,39。 39。留言成功！ 39。) (=39。/SCRIPT) 留言成功后， 將 DATAGRID 重新綁定，返回到留言頁面 。 訂單管理 使用 DATAGRID 綁定數(shù)據(jù)庫顯示訂單信息， 訂單信息分為三類，已經(jīng)確認的和沒有確認的還有已經(jīng)處理的 。 流程圖如下： 圖 14 訂單管理流程圖 確認訂單 代碼如下： 39。packet size=4096。initial Catalog=dishsale。user id=sa。39。形成 delete語句 = delete from neworder where dishid = amp。packet size=4096。initial Catalog=dishsale。user id=sa。39。形成更新語句修改處理的標志位 = update neworder set status= status+1 where dishid = amp。所有已經(jīng)處理過的訂單，都可以通過另一個頁面進行管理操作，里面只包含了一個按鈕列：刪除。 流程圖如下： 圖 15 留言管理流程圖 代碼如下： 39。packet size=4096。initial Catalog=dishsale。user id=sa。39。形成 delete語句 = delete from message where id ＝ amp。 流程圖如下： 圖 16 菜單管理流程圖 添加菜品 代碼如下： = select max(cdishid) maxcdishid from dish ‘查找菜品 ID 的最大值 objReader = () 八年經(jīng)驗 專業(yè)指導畢業(yè)設計 需要全套設計請聯(lián)系： 731767310 第 21 頁 共 24 頁 If Then x = CInt(objReader(maxcdishid)) + 1 ‘將最大值 +1 End If () = Connect Timeout=5。persist security info=False。data source=32A5C0037011401。password=39。 = conn2 = () strsql = Insert Into dish (cdishid,vdishname,vdishdescription,cdishrate ) Values(39。,39。 Trim() amp。,39。 Trim() amp。,39。 Trim() amp。) = strsql () ‘將新菜品的信息插入數(shù)據(jù)庫 () (SCRIPT language=JavaScriptalert(39。)。 39。 流程圖如下： 圖 17 用戶管理流程圖 八年經(jīng)驗 專業(yè)指導畢業(yè)設計 需要全套設計請聯(lián)系： 731767310 第 22 頁 共 24 頁 結 論 隨著互聯(lián)網(wǎng)的興起和普及 ，網(wǎng)絡信息化的發(fā)展，在線 訂餐 作為一種 較為 典型的 Web 電子商務系統(tǒng)也迅速的發(fā)展并深入人們的日常生活中。 本系統(tǒng)采用 B/S（ Browser/Server）結構進行設計 ,使用 SQL Server 2020構建數(shù)據(jù)庫，并在 .NET 環(huán)境下使用 Visual 語言開發(fā)的一個功能 較為 完善的 訂餐 系統(tǒng)。 雖然這次的訂餐系統(tǒng)它 是 電子商務系統(tǒng)，但是它只具備電子商務系統(tǒng)的一些功能， 距離實際應用還有一定距離，需要進一步增強系統(tǒng)的功能。 [2] 吉根林 ,崔海源 . [M]. 北京 ： 電子工業(yè)出版社 ,2020。 [4] 陳語林 .Visual 計教程 [M].北京 ： 中國水利出版社 ,2020。 [6] Micheal Halvorson[美 ].Visual [M].北京 ： 清華大學出版社 ,2020。 [8] Evangelos Petroutsos[美 ],Asli Bilgin[美 ].Visual 數(shù)據(jù)庫編程從入門到精通 [M].北京 ： 電子工業(yè)出版社 ,2020。在此向他表示我最衷心的感謝！ 感謝所有給予過我?guī)椭椭笇У母魑焕蠋?（ 特別是吳震老師 ）， 感謝他們大學四年來對我學習和知識實踐上的幫助和指導。 感謝我所有 家人的鼓勵與支持！ 最后向在百忙之中評審本文的各位專家、老師表示衷心的感謝！ 作者簡介： 姓 名： 李倩 性別：女 出生年月： 民族： 漢 Email: 八年經(jīng)驗 專業(yè)指導畢業(yè)設計 需要全套設計請聯(lián)系： 731767310 第 24 頁 共 24 頁 聲 明 本論文的工作是 2020年 2 月至 2020年 6 月在成都信息工程學院網(wǎng)絡工程系完成的。除非另有說明，本文的工作是原始性工作。 （ 2）學?？梢圆捎糜坝?、縮印或其他復制方式保存學位論文。 （ 4）學?？稍试S學位論文被查閱或借閱。 除非另有科研合同和其他法律文書的制約，本論文的科研成果屬于成都信息工程學