【正文】 ion Dim cmd As New SqlCommand Dim DS As New DataSet = Connect Timeout=5。 () = conn Dim adpt1 As New SqlDataAdapter(select cdishid,vdishname 菜品名稱 ,cdishrate 價(jià)格 ,vdishdescription 口味 from dish, conn) ‘顯示 dish表的內(nèi)容 (DS, OUTER) = DS () () End Sub ‘在綁定每行時(shí)，判斷多選按鈕的狀態(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 在點(diǎn)擊提交時(shí)，判斷選定的菜品及數(shù)量和輸入的信息，并插入數(shù)據(jù)庫。packet size=4096。插入相應(yīng)訂單地址 Dim tsql As String tsql = Insert into orderadd values(39。) = = tsql () () () Session(orderid) = CStr(x) End Sub 訂餐成功后，頁面如下： 圖 12 訂餐 成功 頁面 留言 在留言頁面，用戶可以對(duì)服務(wù)進(jìn)行評(píng)分，同時(shí)進(jìn)行留言 對(duì)留言的顯示同樣采用 DATAGRID 對(duì)數(shù)據(jù)庫進(jìn)行讀取然后顯示。++ 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) 跨越了時(shí)間和空間的限制，給 餐飲業(yè) 帶來了不一樣的變革，也給消費(fèi)者帶來了便捷。 [5] Ken Spencer[美 ].Visual 面向?qū)ο罂芍赜媒M件開發(fā) [M].北京：清華大學(xué)出版社 ,2020。文中除了特別加以標(biāo)注地方外，不包含他人已經(jīng)發(fā)表或撰寫過的研究成果，也不包含為獲得成都信息工程學(xué)院或其他教學(xué)機(jī)構(gòu)的學(xué)位或證書而使用過的材料。 特此聲明！ 畢業(yè)設(shè)計(jì) ( 論文 ) 基于 web 的訂餐系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 論文作者姓名： 申請(qǐng)學(xué)位專業(yè)： 申請(qǐng)學(xué)位類別： 指導(dǎo)教師姓名（職稱）： 論文提交日期： 基于 web 的 訂餐 系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 摘要 隨著市場(chǎng)、經(jīng)濟(jì)的全球化，越來越多的企業(yè)認(rèn)識(shí)到 :提高企業(yè)的競爭力，選擇信息化是必由之路。 關(guān)鍵詞 :企業(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。它的是指利用簡單、快捷、低成本的電子通訊方式，買賣雙方不出面也可以進(jìn)行各種商貿(mào)活動(dòng)。 微軟的 NET 平臺(tái)作為 新一代的互聯(lián)網(wǎng)平臺(tái)，提供了支持未來計(jì)算的高效的Web 服務(wù)開發(fā)工具。而且現(xiàn)在的網(wǎng)絡(luò)發(fā)展速度相當(dāng)?shù)捏@人，那么基于網(wǎng)絡(luò)的訂餐也會(huì)越來越流行，必定是一個(gè)趨勢(shì)。 是建立在公共語言運(yùn)行庫上的 Web 編程框架，相對(duì)于 ASP而言， 提供了更強(qiáng)的性能、更方便的工具支持、更好的平臺(tái)支持和靈活性。 本課題的研究內(nèi)容 本系統(tǒng)采用 B/S（ Browser/Server）結(jié)構(gòu)進(jìn)行設(shè)計(jì) ,使用 SQL Server 2020構(gòu)建數(shù)據(jù)庫，并在 .NET 環(huán)境下使用 Visual 語言開發(fā)的一個(gè)功能 較為完善的 訂餐 系統(tǒng)。 現(xiàn)代化企業(yè)越來越明白，為了提高產(chǎn)品的銷量，贏得更多的客戶，不僅要在產(chǎn)品生產(chǎn)制造這一前方戰(zhàn)場(chǎng)上增加實(shí)力，還必須 在服務(wù) 和效率上 投入更多的力量。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)絡(luò) 進(jìn)行定餐和對(duì)服 務(wù)進(jìn)行評(píng)價(jià)。 關(guān)于學(xué)位論文使用權(quán)和研究成果知識(shí)產(chǎn)權(quán)的 說明： 本人完全了解成都信息工程學(xué)院有關(guān)保管使用學(xué)位論文的規(guī)定，其中包括： （ 1）學(xué)校有權(quán)保管并向有關(guān)部門遞交學(xué)位論文的原件與復(fù)印件。 [7] Bill Fey[美 ],Denise Gosnell[美 ],Matthew Reynolds[美 ].Visual 數(shù)據(jù)庫開發(fā)入門經(jīng)典 [M].北京：清華大學(xué)出版社 ,2020。其具有一定的實(shí)用性 ,用戶可以在網(wǎng)上瀏覽 菜單 ,瀏覽留言和評(píng)分 ,訂餐 ,留言和評(píng)分 ；同時(shí) ,管理員也可以對(duì)整個(gè)系統(tǒng)的信息和數(shù)據(jù)進(jìn)行管理 ,可以 管理菜單 信息、 會(huì)員 信息、 留言 信息和訂單信息 。操作成功！ 39。 amp。39。 Selected_Id () () End If BindGrid() End Sub 菜單管理 使用 DATAGRID 綁定數(shù)據(jù)庫顯示留言信息，在 DATAGRID 上添加兩個(gè)按鈕列進(jìn)行刪除操作和更新操作，還可進(jìn)行新菜品的添加 。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。 ‘ 判斷評(píng)分的分?jǐn)?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。 登錄成功進(jìn)入登錄成功頁面。 39。,39。,39。 = conn1 = () sqlstr = insert shopper([cshopperid],[cpassword],[csex],[cage],[vaddress],[cphone],[v],[vmemo],[dregistertime],[dlastlandtime]) values(39。 填寫注冊(cè)信息 信息檢測(cè) N 寫入數(shù)據(jù)庫 顯示注冊(cè)成功 Y 代碼如下： Dim conn1 As New Dim cmd1 As New Dim str1 As