【正文】 on Dim cmd As New SqlCommand Dim DS As New DataSet = Connect Timeout=5。 () = conn Dim adpt1 As New SqlDataAdapter(select cdishid,vdishname 菜品名稱 ,cdishrate 價格 ,vdishdescription 口味 from dish, conn) ‘顯示 dish表的內容 (DS, OUTER) = DS () () End Sub ‘在綁定每行時，判斷多選按鈕的狀態(tài)和下拉列表的狀態(tài) Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As ) Handles If = Or = Then Dim offset As Integer offset = (CType((1).FindControl(TitleShow), Literal).Text) If (CType((1).FindControl(TitleShow), Literal).Text) = 0 Then Dim ChkSelected As HtmlInputCheckBox = CType((0).FindControl(ChkSelect), HtmlInputCheckBox) = True offset = (, offset) Dim numoffset As String numoffset = (offset + 1, 1) Dim NumSelected As HtmlSelect = CType((2).FindControl(snumber), HtmlSelect) Dim x As Integer x = CInt(numoffset) 1 = x End If End If End Sub 在點擊提交時，判斷選定的菜品及數(shù)量和輸入的信息，并插入數(shù)據(jù)庫。packet size=4096。插入相應訂單地址 Dim tsql As String tsql = Insert into orderadd values(39。) = = tsql () () () Session(orderid) = CStr(x) End Sub 訂餐成功后，頁面如下： 圖 12 訂餐 成功 頁面 留言 在留言頁面，用戶可以對服務進行評分，同時進行留言 對留言的顯示同樣采用 DATAGRID 對數(shù)據(jù)庫進行讀取然后顯示。++ cmessageid 39。 39。 ElseIf Then sqlstr += 439。)。mand事件處理 Sub PickArt(ByVal sender As Object, ByVal e As DataGridCommandEventArgs) If = Delete Then Dim Selected_Id As Integer Selected_Id = CInt((2).Text) Dim conn As New SqlConnection Dim cmd As New SqlCommand = Connect Timeout=5。 () = conn 39。password=39。刪除事件處理 Sub PickArt(ByVal sender As Object, ByVal e As DataGridCommandEventArgs) If = Delete Then Dim Selected_Id As Integer Selected_Id = CInt((1).Text) Dim conn As New SqlConnection Dim cmd As New SqlCommand = Connect Timeout=5。 () = conn 39。user id=sa。 39。 39。 Web 訂餐系統(tǒng) 跨越了時間和空間的限制，給 餐飲業(yè) 帶來了不一樣的變革，也給消費者帶來了便捷。 [5] Ken Spencer[美 ].Visual 面向對象可重用組件開發(fā) [M].北京：清華大學出版社 ,2020。文中除了特別加以標注地方外，不包含他人已經(jīng)發(fā)表或撰寫過的研究成果，也不包含為獲得成都信息工程學院或其他教學機構的學位或證書而使用過的材料。 特此聲明！ 畢業(yè)設計 ( 論文 ) 基于 web 的訂餐系統(tǒng)的設計與實現(xiàn) 論文作者姓名： 申請學位專業(yè)： 申請學位類別： 指導教師姓名（職稱）： 論文提交日期： 基于 web 的 訂餐 系統(tǒng)的設計與實現(xiàn) 摘要 隨著市場、經(jīng)濟的全球化，越來越多的企業(yè)認識到 :提高企業(yè)的競爭力，選擇信息化是必由之路。 關鍵詞 :企業(yè)信息化 ；訂餐 系統(tǒng) ； .NET； ； SQL server The Design and Implementation of Bespeak Meal System Based on Web Abstract With the globalization of market and economy, more and more enterprises realize that informatization is the only way to elevate their petence. Management Information System (MIS) is a critical ponent of Enterprise informatization。它的是指利用簡單、快捷、低成本的電子通訊方式，買賣雙方不出面也可以進行各種商貿活動。 微軟的 NET 平臺作為 新一代的互聯(lián)網(wǎng)平臺，提供了支持未來計算的高效的Web 服務開發(fā)工具。而且現(xiàn)在的網(wǎng)絡發(fā)展速度相當?shù)捏@人，那么基于網(wǎng)絡的訂餐也會越來越流行，必定是一個趨勢。 是建立在公共語言運行庫上的 Web 編程框架，相對于 ASP 而言， 提供了更強的性能、更方便的工具支持、更好的平臺支持和靈活性。 本課題的研究內容 本系統(tǒng)采用 B/S（ Browser/Server）結構進行設計 ,使用 SQL Server 2020構建數(shù)據(jù)庫，并在 .NET 環(huán)境下使用 Visual 語言開發(fā)的一個功能 較為完善的 訂餐 系統(tǒng)。 現(xiàn)代化企業(yè)越來越明白，為了提高產品的銷量，贏得更多的客戶，不僅要在產品生產制造這一前方戰(zhàn)場上增加實力，還必須 在服務 和效率上 投入更多的力量。s .NET provides efficiency Web service Development tools which supports future putation. The development of takeaway online system by .NET is necessarily the trend of this kind of system development in the ing years. The system development bases on the .NET platform, while adopts the most recent tech. The coding part is finished by . Finally, a paratively entire Bespeak Meal system is pleted, which satisfies the general requirements. As a new, conservationoriented system, it is simple operation for user and manager. Key Words: Enterprise Informatization。 其主要功能是完成 外賣的前期和輔助工作，即通過 網(wǎng)絡 進行定餐和對服 務進行評價。 關于學位論文使用權和研究成果知識產權的 說明： 本人完全了解成都信息工程學院有關保管使用學位論文的規(guī)定，其中包括： （ 1）學校有權保管并向有關部門遞交學位論文的原件與復印件。 [7] Bill Fey[美 ],Denise Gosnell[美 ],Matthew Reynolds[美 ].Visual 數(shù)據(jù)庫開發(fā)入門經(jīng)典 [M].北京：清華大學出版社 ,2020。其具有一定的實用性 ,用戶可以在網(wǎng)上瀏覽 菜單 ,瀏覽留言和評分 ,訂餐 ,留言和評分 ；同時 ,管理員也可以對整個系統(tǒng)的信息和數(shù)據(jù)進行管理 ,可以 管理菜單 信息、 會員 信息、 留言 信息和訂單信息 。操作成功！ 39。 amp。39。 Selected_Id () () End If BindGrid() End Sub 菜單管理 使用 DATAGRID 綁定數(shù)據(jù)庫顯示留言信息，在 DATAGRID 上添加兩個按鈕列進行刪除操作和更新操作，還可進行新菜品的添加 。persist security info=False。 () = conn 39。 Selected_Id () () ElseIf = Select Then Dim Selected_Id As Integer Selected_Id = CInt((2).Text) Dim conn As New SqlConnection Dim cmd As New SqlCommand = Connect Timeout=5。persist security info=False。 39。 ElseIf Then sqlstr += 539。 ‘ 判斷評分的分數(shù)值 If Then sqlstr += 139。 amp。 流程圖如下： 圖 13 留言流程圖 代碼如下： If Request(word) = Then (SCRIPT language=JavaScriptalert(39。 x amp。initial catalog=dishsale。提交成功 !39。persist security info=False。 39。 登錄成功進入登錄成功頁面。 39。,39。,39。 = conn1 = () sqlstr = insert shopper([cshopperid],[cpassword],[csex],[cage],[vaddress],[cphone],[v],[vmemo],[dregistertime],[dlastlandtime]) values(39。 填寫注冊信息 信息檢測 N 寫入數(shù)據(jù)庫 顯示注冊成功 Y 代碼如下： Dim conn1 As New Dim cmd1 As New Dim str1 As