数据库小型餐饮管理系统.docx
- 文档编号:881573
- 上传时间:2022-10-13
- 格式:DOCX
- 页数:11
- 大小:238.93KB
数据库小型餐饮管理系统.docx
《数据库小型餐饮管理系统.docx》由会员分享,可在线阅读,更多相关《数据库小型餐饮管理系统.docx(11页珍藏版)》请在冰豆网上搜索。
数据库小型餐饮管理系统
苏州科技学院
电子与信息工程学院
《数据库原理课程设计》报告
学ﻩﻩ号 1430107130
姓ﻩﻩ名郑宏艳
班级 1421
ﻩ日ﻩﻩ期 2015年12月
一、任务及要求:
小型餐饮管理系统
主要功能:
餐饮消费查询、餐饮消费更新、餐饮消费统计、餐饮消费会员管理
二、数据库设计:
(要求叙述数据库设计的过程,画出E-R图,列出数据库中的表名称及结构,并说明表间的关系)
(1)E—R图:
(2)实体模型:
我的报告总共两个表,第一个表是会员表(会员id,会员密码,会员姓名,会员电话,收款金额,会员性别等),第二个表是菜单管理表(菜单名称,菜单价格,食物照片,配料,功效)
ruser(会员表)
序号
字段名称
字段描述
字段类型
长度
备注
1
User_id
会员账号
Nvarcharr
20
不允许空
2
Passcode
会员密码
Nvarchar
20
不允许空
3
Name
会员姓名
Nvarchar
20
不允许空
4
Phone
会员电话
Nvarchar
20
不允许空
5
Money
收款金额
Money
10
不允许空
6
Sex
会员性别
Nvarchar
4
允许空
food(食谱表)
序号
字段名称
字段描述
字段类型
长度
备注
1
Name
食谱名称
Nvarchar
20
不允许空
2
Price
价格
Nvarchar
10
不允许空
3
Photo
食物照片
Nvarchar
100
允许空
4
Formula
配料
Nvarchar
50
不允许空
5
Effect
功效
Nvarchar
50
不允许空
三、实现的功能及相应的界面和代码:
1.连接数据库的实现
(1)首先实现数据库的连接,代码如下所示:
SqlConnectionconn = newSqlConnection();
conn.ConnectionString="data source =RONGER-PC\\SQLEXPRESS;initial Catalog =小型餐馆;userid =123;password =123";
conn.Open();
conn.Close();
conn.Dispose();
(2)链接数据库,后台取的数据库菜单列表的所有数据,在页面前台进行展示
视图展现:
代码的实现:
protected voidButton_Click(objectsender,EventArgs e)
{
SqlConnection conn=newSqlConnection();
conn.ConnectionString="data source=W530\\SQLEXPRESS;initialCatalog=小型餐馆;user id=123;password= 123";
conn.Open();
TextBox9.Text="连接成功!
";
stringyy=”select*fromMenu”
SqlCommand sqlCmd1=newSqlCommand(yy,conn);
sqlCmd1.ExecuteNonQuery();
conn.Close();
conn.Dispose();
}
2.用户登录界面以及用户信息添加删除修改界面
(1)
代码的实现
ImportsSystem.Data
Imports System.Data.SqlClient
Public Class Form2
PrivateSubButton_Click(ByValsenderAsSystem.Object, ByValeAsSystem.EventArgs)HandlesButton4.Click
Me.Close()
EndSub
PrivateSub Button_Click(ByValsenderAsSystem.Object,ByVale AsSystem.EventArgs)HandlesButton3.Click
IfTextBox3.Text.Trim="" OrTextBox4.Text.Trim=""Then
MsgBox("请填写用户名和密码",MsgBoxStyle.Exclamation)
ExitSub
End If
'connectSQL()
Dim conn AsSqlConnection =NewSqlConnection("Server=(local);uid=sa;pwd=sa;Database=D:
\新建文件夹\EATFOODS.MDF")
conn.Open()
DimstrAsString
str= "select* from ruserwhereuser_id='" +TextBox3.Text+"'andpasscode= '" +TextBox4.Text +"'and style='"+ComboBox2.Text+"'"
Dim scom=NewSqlClient.SqlCommand(str, conn)
scom.CommandType=CommandType.Text
Dim sexe =scom.ExecuteReader()
If(sexe.Read()) Then
Me.Visible=False
MessageBox.Show("登陆成功")
Else
MessageBox.Show("用户名或密码不正确!
", "警告")
End If
Me.Close()
conn.Close()
EndSub
EndClass
(2)
代码的实现
PrivateSubButton_Click(ByVal senderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
If(Me.TextBox10.Text<>""And Me.TextBox11.Text<> ""AndMe.TextBox12.Text<> ""And Me.TextBox13.Text<>"")Then
DimconnAsSqlConnection =NewSqlConnection("Server=(local);uid=sa;pwd=sa;Database=D:
\新建文件夹\EATFOODS.MDF")
conn.Open()
Dim mysqlAsString
mysql="insertintorcustomer(name,call,passcode,id,addtime,userid)values('"
mysql+=Me.TextBox10.Text.ToString()
mysql+="','"
mysql+=Me.TextBox11.Text.ToString()
mysql+="','"
mysql+=Me.TextBox12.Text.ToString()
mysql+="','"
mysql+= Me.TextBox1.Text.ToString()
mysql+="','"
mysql+=Me.TextBox2.Text.ToString()
mysql += "','"
mysql+=Me.TextBox3.Text.ToString()
mysql+="')"
DimsqlAsSqlCommand
sql=NewSqlCommand(mysql, conn)
IfMe.TextBox12.Text.ToString <>Me.TextBox13.Text.ToString Then
MessageBox.Show("密码不一致,重新输入","提示")
Return
EndIf
If(sql.ExecuteNonQuery()>0)Then
MessageBox.Show("添加成功", "提示")
EndIf
conn.Close()
Else
MessageBox.Show("请核对信息是否完整!
","提示")
EndIf
End Sub
Private SubButton4_Click(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)Handles Button4.Click
DimconnAsSqlConnection=New SqlConnection("Server=(local);uid=sa;pwd=sa;Database=D:
\新建文件夹\EATFOODS.MDF")
conn.Open()
DimmysqlAsString
mysql="delete fromruserwhere name='"
mysql+= Me.TextBox6.Text
mysql+= "'"
DimsqlAsSqlCommand
sql= New SqlCommand(mysql,conn)
If(sql.ExecuteNonQuery()>0)Then
MessageBox.Show("删除成功","提示")
EndIf
conn.Close()
EndSub
PrivateSubButton2_Click(ByVal sender As System.Object,ByValeAs System.EventArgs) HandlesButton2.Click
If (Me.TextBox1.Text<>"" And Me.TextBox2.Text <> "" AndMe.TextBox3.Text <>"" AndMe.TextBox4.Text<> "")Then
Dimconn AsSqlConnection =NewSqlConnection("Server
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 数据库 小型 餐饮 管理 系统
![提示](https://static.bdocx.com/images/bang_tan.gif)