数据库小型餐饮管理系统Word文件下载.docx
- 文档编号:13803783
- 上传时间:2022-10-13
- 格式:DOCX
- 页数:11
- 大小:238.93KB
数据库小型餐饮管理系统Word文件下载.docx
《数据库小型餐饮管理系统Word文件下载.docx》由会员分享,可在线阅读,更多相关《数据库小型餐饮管理系统Word文件下载.docx(11页珍藏版)》请在冰豆网上搜索。
备注
1
User_id
会员账号
Nvarcharr
20
不允许空
2
Passcode
会员密码
Nvarchar
20
3
Name
会员姓名
Nvarchar
20
4
Phone
会员电话
Nvarchar
5
Money
收款金额
Money
10
6
Sex
会员性别
Nvarchar
4
允许空
food(食谱表)
Name
食谱名称
Nvarchar
Price
价格
Nvarchar
10
Photo
食物照片
Nvarchar
100
Formula
配料
Nvarchar
50
Effect
功效
Nvarchar
三、实现的功能及相应的界面和代码:
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);
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文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 数据库 小型 餐饮 管理 系统