數(shù)據(jù)庫課程設(shè)計餐飲管理系統(tǒng)_第1頁
已閱讀1頁,還剩22頁未讀, 繼續(xù)免費閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認(rèn)領(lǐng)

文檔簡介

1、<p><b>  摘 要</b></p><p>  隨著經(jīng)濟的發(fā)展社會的進步,去飯店過節(jié)聚會成為了一種新的時尚。因此每逢過年過節(jié),飯店都會迎來大量的顧客,隨之而來的就是大量的預(yù)定和結(jié)算信息將會使得飯店的工作人員不堪重負(fù),并且不可避免的會出現(xiàn)這樣或那樣的錯誤。餐飲信息管理軟件的誕生可以為他們提供便捷的管理服務(wù)。并且?guī)缀鯙榱愕腻e誤率也使得餐館可以更好的為顧客服務(wù)。它不僅可以為餐

2、館降低人力資源的付出,節(jié)省了成本,而且也可以提升自身的形象,使餐廳迎來更多的食客。</p><p>  本系統(tǒng)使用了Visual Studio2010,SQLserver2008 </p><p>  使用本系統(tǒng),員工將可以快速地編輯顧客資料信息,并且為客戶提供訂餐打折和充值服務(wù)。管理員使用本系統(tǒng),既可以完成員工的所有工作,又可以更好地管理員工,精準(zhǔn)地了解員工賬面的資金情況。除了這些,管理

3、員還可以設(shè)定餐廳的菜單信息和折扣程度,從而使得管理員對餐廳的運營情況可以全面掌控。</p><p><b>  一.需求分析</b></p><p><b>  1.1開發(fā)背景</b></p><p>  鑒于傳統(tǒng)的人工管理方式的種種缺陷,我設(shè)計了方便中小級別餐飲企業(yè)使用的應(yīng)用程序,通過它,管理者可以基本解決以上所遇到的種

4、種問題,并且更加科學(xué)的對老客戶進行打折,而且添加了主顧權(quán)限的不同設(shè)計使得它更加方便雇主對雇員的管理與監(jiān)督。</p><p>  1.2 開發(fā)工具和相關(guān)技術(shù)簡介</p><p>  開發(fā)工具:硬件:筆記本</p><p>  軟件:Windows7、Microsoft Visual Studio、 2010Microsoft SQL Server 2008</p

5、><p>  由于我們開發(fā)的事面向中小型,界面看起來溫馨舒適,功能不是很多。</p><p><b>  1.3需求分析</b></p><p>  員工使用本餐飲信息管理系統(tǒng)應(yīng)可以實現(xiàn)以下功能:</p><p>  添加修改查詢客戶會員信息(修改客戶信息需客戶確認(rèn))</p><p><b>

6、;  查詢菜單</b></p><p>  添加查詢預(yù)定信息,為老顧客打折</p><p>  客戶可以在自己的會員賬戶里充值</p><p>  顧客可以用現(xiàn)金買單也可以從會員賬戶里扣取</p><p>  管理員使用本餐飲信息管理系統(tǒng)應(yīng)可以實現(xiàn)以下功能:</p><p>  添加修改查詢客戶會員信息(修

7、改客戶信息需客戶確認(rèn))</p><p>  添加修改查詢菜單信息,最好能看到菜品圖片</p><p>  添加查詢預(yù)定信息,為老顧客打折</p><p>  客戶可以在自己的會員賬戶里充值</p><p>  顧客可以用現(xiàn)金買單也可以從會員賬戶里扣取</p><p><b>  設(shè)定具體的打折方法</b

8、></p><p>  添加職員信息,權(quán)限也可以定為管理員。</p><p>  可以查詢使用者的現(xiàn)金收款金額</p><p><b>  二.概念結(jié)構(gòu)設(shè)計</b></p><p>  2.1 系統(tǒng)功能模塊的劃分</p><p><b>  圖1 用戶登錄</b><

9、;/p><p>  登錄后管理員和員工的權(quán)限不同,管理員可以進入任何子菜單,二員工不可以進入職工管理和銷售額統(tǒng)計。</p><p><b>  系統(tǒng)流程分析</b></p><p><b>  圖2 系統(tǒng)流程圖</b></p><p>  流程圖簡介:員工登錄系統(tǒng)后為客戶添加基本信息,客戶可以根據(jù)需要在

10、開通的賬戶里充值(增加用戶的收款金額)??蛻敉ㄟ^餐飲信息管理系統(tǒng)進行訂餐(老用戶在此環(huán)節(jié)中可能會享受打折服務(wù))??蛻粲猛瓴秃髞淼椒?wù)臺買單,用戶可以選擇使用現(xiàn)金或者從用戶余額里扣除,支付成功會增加客戶的已消費金額。若余額不足,系統(tǒng)將會提示,那么客戶只能使用現(xiàn)金支付。使用現(xiàn)金支付的話會增加用戶的收款金額。管理員登錄的話可以使用員工的所有功能,而且可以設(shè)定為客戶打折的折扣程度和添加菜單,以及管理員工賬戶。</p><p&

11、gt;<b>  三.邏輯結(jié)構(gòu)設(shè)計</b></p><p><b>  3.1 ER圖設(shè)計</b></p><p><b>  圖3 用戶E-R圖</b></p><p>  主要存儲一些用戶信息,如用戶的賬號、密碼和類型地點等等,主要用于用戶登錄,添加客戶和添加預(yù)定時會使用到用戶信息</p&g

12、t;<p><b>  圖4 客戶E-R圖</b></p><p>  主要存儲一些客戶信息,如客戶的賬號、聯(lián)系方式和消費情況等等,主要用于客戶訂餐、充值和結(jié)算,使用于添加預(yù)定。</p><p><b>  圖5 食譜E-R圖</b></p><p>  主要存儲一些食譜信息,如食譜的名稱、價格和照片等等,主

13、要用于客戶訂餐,使用于添加預(yù)定。</p><p><b>  圖6 預(yù)定E-R圖</b></p><p>  主要存儲一些預(yù)定信息,如客戶的賬號、預(yù)定的時間、桌號和菜單等等,主要用于記錄客戶的預(yù)定信息,會使用到用戶、客戶、菜單和折扣信息。</p><p><b>  圖7 折扣E-R圖</b></p><

14、;p>  存儲管理員設(shè)定的打折信息,用來計算打折后的應(yīng)付金額,使用在添加預(yù)定時打折。</p><p>  3.2 數(shù)據(jù)表的設(shè)計</p><p>  ruser(用戶表)</p><p>  rcustomer(客戶表)</p><p>  food (食譜表)</p><p>  corder(預(yù)定表)</

15、p><p>  discount(折扣表)</p><p><b>  四.?dāng)?shù)據(jù)庫物理設(shè)計</b></p><p><b>  1.整個界面</b></p><p>  Imports System.Windows.Forms.VisualStyles.VisualStyleElement.Taskba

16、rClock</p><p>  Public Class Form1</p><p>  Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click</p><p&g

17、t;  Me.Close()</p><p><b>  End Sub</b></p><p>  Private Sub 系統(tǒng)ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 系統(tǒng)ToolStripMenuItem.Click<

18、;/p><p><b>  End Sub</b></p><p>  Private Sub 登錄ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 登錄ToolStripMenuItem.Click</p><p>

19、;  Form2.Show()</p><p><b>  End Sub</b></p><p>  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load</p><p>  Me.菜單信息T

20、oolStripMenuItem.Enabled = False</p><p>  Me.充值管理ToolStripMenuItem.Enabled = False</p><p>  Me.結(jié)賬買單ToolStripMenuItem.Enabled = False</p><p>  Me.客戶信息ToolStripMenuItem.Enabled = Fals

21、e</p><p>  Me.預(yù)訂管理ToolStripMenuItem.Enabled = False</p><p>  Me.職工管理ToolStripMenuItem.Enabled = False</p><p><b>  End Sub</b></p><p>  Private Sub 客戶信息ToolS

22、tripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 客戶信息ToolStripMenuItem.Click</p><p>  Form3.Show()</p><p><b>  End Sub</b></p><p> 

23、 Private Sub 菜單信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 菜單信息ToolStripMenuItem.Click</p><p>  Form4.Show()</p><p><b>  End Sub</b>

24、</p><p>  Private Sub 預(yù)訂管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 預(yù)訂管理ToolStripMenuItem.Click</p><p>  Form5.Show()</p><p><b&

25、gt;  End Sub</b></p><p>  Private Sub 充值管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 充值管理ToolStripMenuItem.Click</p><p>  Form6.Show()</

26、p><p><b>  End Sub</b></p><p>  Private Sub 職工管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 職工管理ToolStripMenuItem.Click</p><p&

27、gt;  Form8.Show()</p><p><b>  End Sub</b></p><p>  Private Sub 結(jié)賬買單ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 結(jié)賬買單ToolStripMenuItem.C

28、lick</p><p>  Form7.Show()</p><p><b>  End Sub</b></p><p>  Private Sub 幫助ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 幫助T

29、oolStripMenuItem.Click</p><p>  Form9.Show()</p><p><b>  End Sub</b></p><p>  Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

30、 Timer1.Tick</p><p>  Label3.Text = Now()</p><p><b>  End Sub</b></p><p><b>  End Class</b></p><p><b>  2.登錄</b></p><p>

31、;  Imports System.Data</p><p>  Imports System.Data.SqlClient</p><p>  Public Class Form2</p><p>  Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventAr

32、gs) Handles Button4.Click</p><p>  Me.Close()</p><p><b>  End Sub</b></p><p>  Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Hand

33、les Button3.Click</p><p>  If TextBox3.Text.Trim = "" Or TextBox4.Text.Trim = "" Then</p><p>  MsgBox("請?zhí)顚懹脩裘兔艽a", MsgBoxStyle.Exclamation)</p><p><

34、b>  Exit Sub</b></p><p><b>  End If</b></p><p>  'connectSQL()</p><p>  Dim conn As SqlConnection = New SqlConnection("Server=(local);uid=sa;pwd=sa;Dat

35、abase=D:\新建文件夾\EATFOODS.MDF")</p><p>  conn.Open()</p><p>  Dim str As String</p><p>  str = "select * from ruser where user_id ='" + TextBox3.Text + "'

36、and passcode= '" + TextBox4.Text + "' and style= '" + ComboBox2.Text + "'"</p><p>  Dim scom = New SqlClient.SqlCommand(str, conn)</p><p>  scom.CommandT

37、ype = CommandType.Text</p><p>  Dim sexe = scom.ExecuteReader()</p><p>  If (sexe.Read()) Then</p><p>  Me.Visible = False</p><p>  MessageBox.Show("登陸成功", &q

38、uot;提示")</p><p>  Me.Visible = False</p><p>  If ComboBox2.Text = "管理員" Then</p><p>  MsgBox("歡迎您:" & ComboBox2.Text, MsgBoxStyle.Information)</p>

39、<p>  Form1.幫助ToolStripMenuItem.Enabled = True</p><p>  Form1.菜單信息ToolStripMenuItem.Enabled = True</p><p>  Form1.充值管理ToolStripMenuItem.Enabled = True</p><p>  Form1.客戶信息Tool

40、StripMenuItem.Enabled = True</p><p>  Form1.系統(tǒng)ToolStripMenuItem.Enabled = True</p><p>  Form1.結(jié)賬買單ToolStripMenuItem.Enabled = True</p><p>  Form1.預(yù)訂管理ToolStripMenuItem.Enabled = Tru

41、e</p><p>  Form1.職工管理ToolStripMenuItem.Enabled = True</p><p>  Form1.Text = "歡迎領(lǐng)導(dǎo)"</p><p><b>  End If</b></p><p>  If ComboBox2.Text = "員工&qu

42、ot; Then</p><p>  MsgBox("歡迎您:" & ComboBox2.Text, MsgBoxStyle.Information)</p><p>  Form1.幫助ToolStripMenuItem.Enabled = True</p><p>  Form1.菜單信息ToolStripMenuItem.Enabl

43、ed = True</p><p>  Form1.充值管理ToolStripMenuItem.Enabled = True</p><p>  Form1.客戶信息ToolStripMenuItem.Enabled = True</p><p>  Form1.系統(tǒng)ToolStripMenuItem.Enabled = True</p><p&

44、gt;  Form1.結(jié)賬買單ToolStripMenuItem.Enabled = True</p><p>  Form1.預(yù)訂管理ToolStripMenuItem.Enabled = True</p><p>  Form1.Text = "歡迎您"</p><p><b>  End If</b></p>

45、;<p>  ' MessageBox.Show("登陸成功", "提示")</p><p><b>  Else</b></p><p>  MessageBox.Show("用戶名或密碼不正確!", "警告")</p><p><b&

46、gt;  End If</b></p><p>  Me.Close()</p><p>  conn.Close()</p><p><b>  End Sub</b></p><p><b>  End Class</b></p><p><b> 

47、 3.顧客信息</b></p><p><b>  添加刪除照片</b></p><p>  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click</p><p>  If

48、 OpenFileDialog1.ShowDialog() = DialogResult.OK Then PictureBox3.Load(OpenFileDialog1.FileName)</p><p>  MsgBox("添加照片成功,關(guān)閉")</p><p><b>  End</b></p><p><b&g

49、t;  End Sub</b></p><p>  Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click</p><p><b>  End Sub</b></p>

50、<p>  Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click</p><p>  PictureBox4.Image = Nothing</p><p>  MsgBox("成功刪除")</

51、p><p><b>  End Sub</b></p><p>  Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk</p&

52、gt;<p>  OpenFileDialog1.Filter = "Text Files (.jpg)|*.jpg|All Files (*.*)|*.*"</p><p><b>  End Sub</b></p><p><b>  信息添加刪除修改</b></p><p>  Pr

53、ivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click</p><p>  If (Me.TextBox10.Text <> "" And Me.TextBox11.Text <> "" And

54、Me.TextBox12.Text <> "" And Me.TextBox13.Text <> "") Then</p><p>  Dim conn As SqlConnection = New SqlConnection("Server=(local);uid=sa;pwd=sa;Database=D:\新建文件夾\EATFOODS.

55、MDF")</p><p>  conn.Open()</p><p>  Dim mysql As String</p><p>  mysql = "insert into rcustomer(name,call,passcode,id,addtime,userid) values('"</p><p&g

56、t;  mysql += Me.TextBox10.Text.ToString()</p><p>  mysql += "','"</p><p>  mysql += Me.TextBox11.Text.ToString()</p><p>  mysql += "','"</p>

57、;<p>  mysql += Me.TextBox12.Text.ToString()</p><p>  mysql += "','"</p><p>  mysql += Me.TextBox1.Text.ToString()</p><p>  mysql += "','"

58、</p><p>  mysql += Me.TextBox2.Text.ToString()</p><p>  mysql += "','"</p><p>  mysql += Me.TextBox3.Text.ToString()</p><p>  mysql += "')&qu

59、ot;</p><p>  Dim sql As SqlCommand</p><p>  sql = New SqlCommand(mysql, conn)</p><p>  If Me.TextBox12.Text.ToString <> Me.TextBox13.Text.ToString Then</p><p>  M

60、essageBox.Show("密碼不一致,重新輸入", "提示")</p><p><b>  Return</b></p><p><b>  End If</b></p><p>  If (sql.ExecuteNonQuery() > 0) Then</p>

61、;<p>  MessageBox.Show("添加成功", "提示")</p><p><b>  End If</b></p><p>  conn.Close()</p><p><b>  Else</b></p><p>  Messa

62、geBox.Show("請核對信息是否完整!", "提示")</p><p><b>  End If</b></p><p><b>  End Sub</b></p><p>  Private Sub Button4_Click(ByVal sender As System.O

63、bject, ByVal e As System.EventArgs) Handles Button4.Click</p><p>  Dim conn As SqlConnection = New SqlConnection("Server=(local);uid=sa;pwd=sa;Database=D:\新建文件夾\EATFOODS.MDF")</p><p> 

64、 conn.Open()</p><p>  Dim mysql As String</p><p>  mysql = "delete from ruser where name='"</p><p>  mysql += Me.TextBox6.Text</p><p>  mysql += "

65、9;"</p><p>  Dim sql As SqlCommand</p><p>  sql = New SqlCommand(mysql, conn)</p><p>  If (sql.ExecuteNonQuery() > 0) Then</p><p>  MessageBox.Show("刪除成功&q

66、uot;, "提示")</p><p><b>  End If</b></p><p>  conn.Close()</p><p><b>  End Sub</b></p><p>  Private Sub Button2_Click(ByVal sender As Sy

67、stem.Object, ByVal e As System.EventArgs) Handles Button2.Click</p><p>  If (Me.TextBox1.Text <> "" And Me.TextBox2.Text <> "" And Me.TextBox3.Text <> "" And M

68、e.TextBox4.Text <> "") Then</p><p>  Dim conn As SqlConnection = New SqlConnection("Server=(local);uid=sa;pwd=sa;Database=D:\新建文件夾\EATFOODS.MDF")</p><p>  conn.Open()&l

69、t;/p><p>  Dim mysql As String</p><p>  mysql = "update food set name=' "</p><p>  mysql += Me.TextBox1.Text</p><p>  mysql += "',price='"

70、</p><p>  mysql += Me.TextBox2.Text</p><p>  mysql += "',formula='"</p><p>  mysql += Me.TextBox3.Text</p><p>  mysql += "',effect='"

71、;</p><p>  mysql += Me.TextBox4.Text</p><p>  mysql += "'"</p><p>  Dim sql As SqlCommand</p><p>  sql = New SqlCommand(mysql, conn)</p><p> 

72、 If (sql.ExecuteNonQuery() > 0) Then</p><p>  MessageBox.Show("修改成功!", "提示")</p><p>  conn.Close()</p><p><b>  Else</b></p><p><b&

73、gt;  Try</b></p><p>  Catch ex As Exception</p><p>  MessageBox.Show(ex.Message)</p><p><b>  End Try</b></p><p><b>  End If</b></p>

74、<p><b>  Else</b></p><p>  MessageBox.Show("信息未填完整", "提示")</p><p><b>  End If</b></p><p><b>  End Sub</b></p>&l

75、t;p><b>  將信息顯示到表格</b></p><p>  Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click</p><p>  Dim conn As SqlConnection = New

76、 SqlConnection("Server=(local);uid=sa;pwd=sa;Database=D:\新建文件夾\EATFOODS.MDF")</p><p><b>  Try</b></p><p>  conn.Open()</p><p>  Catch ex As Exception</p>

77、<p>  MessageBox.Show(ex.Message)</p><p><b>  End Try</b></p><p>  Dim command As New SqlCommand("select * from rcustomer where name like '%" + TextBox14.Text +

78、 "%'")</p><p>  command.CommandType = CommandType.Text</p><p>  command.Connection = conn</p><p>  Dim dr As New SqlDataAdapter</p><p>  dr.SelectCommand

79、= command</p><p>  Dim ds As New DataSet</p><p>  ds = New DataSet()</p><p>  dr.Fill(ds, "name")</p><p>  DataGridView1.DataSource = ds</p><p> 

80、 DataGridView1.DataMember = "name"</p><p>  conn.Close()</p><p><b>  End Sub</b></p><p>  Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As Syst

81、em.EventArgs) Handles MyBase.Load</p><p>  'TODO: 這行代碼將數(shù)據(jù)加載到表“EatfoodsDataSet.rcustomer”中。您可以根據(jù)需要移動或刪除它。</p><p>  Me.RcustomerTableAdapter.Fill(Me.EatfoodsDataSet.rcustomer)</p><p

82、><b>  End Sub</b></p><p><b>  4.其他幾個界面</b></p><p><b>  退訂</b></p><p>  Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As Sys

83、tem.EventArgs) Handles Button3.Click</p><p>  Dim conn As SqlConnection = New SqlConnection("Server=(local);uid=sa;pwd=sa;Database=D:\新建文件夾\EATFOODS.MDF")</p><p>  conn.Open()</p>

84、;<p>  Dim str As String</p><p>  str = DataGridView3.Rows(DataGridView3.CurrentRow.Index).Cells(0).Value</p><p>  Dim mysql As String</p><p>  mysql = "delete from cord

85、er where name="</p><p>  mysql += str</p><p>  Dim sql As SqlCommand</p><p>  sql = New SqlCommand(mysql, conn)</p><p>  If (sql.ExecuteNonQuery() > 0) Then<

86、/p><p>  MessageBox.Show("退訂成功", "提示")</p><p><b>  End If</b></p><p>  DataGridView3.Rows.RemoveAt(DataGridView3.CurrentRow.Index)</p><p> 

87、 conn.Close()</p><p><b>  End Sub</b></p><p><b>  支付</b></p><p>  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handl

88、es Button1.Click</p><p>  Dim conn As SqlConnection = New SqlConnection("Server=(local);uid=sa;pwd=sa;Database=D:\新建文件夾\EATFOODS.MDF")</p><p>  conn.Open()</p><p>  Dim mq

89、l As String</p><p>  mql = "select money From corder where name='"</p><p>  mql += Me.TextBox1.Text.ToString()</p><p>  mql += "'"</p><p>  

90、Dim price As SqlCommand</p><p>  price = New SqlCommand(mql, conn)</p><p>  price.CommandText = mql</p><p>  price.Connection = conn</p><p>  Dim totalprice</p>

91、<p>  totalprice = price.ExecuteScalar()</p><p>  Me.TextBox2.Text = totalprice.ToString</p><p>  Dim mysql As String</p><p>  mysql = "update rcustomer set money = money

92、 - usedmoney"</p><p>  Dim sql As SqlCommand</p><p>  sql = New SqlCommand(mysql, conn)</p><p>  If (sql.ExecuteNonQuery() > 0) Then</p><p>  MessageBox.Show(&q

93、uot;支付成功", "提示")</p><p><b>  End If</b></p><p>  conn.Close()</p><p><b>  End Sub</b></p><p><b>  充值</b></p>&

94、lt;p>  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click</p><p>  Dim conn As SqlConnection = New SqlConnection("Server=(local);uid=sa;pwd=sa

95、;Database=D:\新建文件夾\EATFOODS.MDF")</p><p>  conn.Open()</p><p>  Dim a As String</p><p>  Dim b As String</p><p>  Dim doll As String</p><p>  If Label

96、9.Text <> "" Then</p><p>  a = Label9.Text</p><p>  If TextBox2.Text <> "" Then</p><p>  b = TextBox2.Text</p><p>  doll = a + b</p&g

97、t;<p><b>  End If</b></p><p>  Dim mysql As String</p><p>  mysql = "update rcustomer set money = doll"</p><p>  Dim sql As SqlCommand</p><p

98、>  sql = New SqlCommand(mysql, conn)</p><p>  If (sql.ExecuteNonQuery() > 0) Then</p><p>  MessageBox.Show("充值成功", "提示")</p><p><b>  End If</b>

99、</p><p>  conn.Close()</p><p><b>  End If</b></p><p><b>  End Sub</b></p><p>  其他代碼大部分都一樣,像添加刪除修改之類的都差不多,這里就不再說了</p><p><b>  

100、數(shù)據(jù)庫實施及運行</b></p><p><b>  設(shè)計中遇到的問題</b></p><p>  用封裝類的寫法寫代碼,老是出錯,后來就換了種寫法,調(diào)試過程中出現(xiàn)很多錯誤,char轉(zhuǎn)換成int不好轉(zhuǎn)換,還有數(shù)據(jù)庫建立的時候用的char定義的,這個很惡心,非要寫夠才可以運行,不然就出錯,結(jié)果又重新建數(shù)據(jù)庫,一連好幾次。</p><p&g

101、t;<b>  總結(jié)</b></p><p>  之所以選擇餐飲這塊,是因為我們宿舍有個同學(xué)想開一個飯店,所以我們就選擇了,這次的課程設(shè)計業(yè)學(xué)到了好多東西,想著每日來的熬到天明,一路走來的艱辛歷程,看看現(xiàn)在的結(jié)果,也不枉此次的奮斗。</p><p>  世界上沒有任何一樣?xùn)|西是十全十美的,在完成了餐飲信息管理系統(tǒng)后,報表這塊還不行,有些地方做得不夠完善,原本看上去應(yīng)該

102、比較完善的系統(tǒng)又有了新的可以改進的地方,如預(yù)定的餐點要取消其中的一份該如何實現(xiàn)。我想如果我把這個功能實現(xiàn)了,也許又會有新的功能需要我去做,系統(tǒng)的完善不是一朝一夕可以完成的,如果給我更多的時間,我一定能將它制作的更好。</p><p><b>  八.致謝</b></p><p>  感謝這段時間內(nèi)老師的指導(dǎo)和同學(xué)的幫忙,他們給了我很大幫助和動力,在這里,我要謝謝所有關(guān)

溫馨提示

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

最新文檔

評論

0/150

提交評論