毕业设计论文-餐饮信息管理系统的设计与实现

毕业设计论文-餐饮信息管理系统的设计与实现内容摘要：

End If Catch ex As Exception eErr ex End Try 系统先进行数据库操作判断是否存在用户名用户密码和用户类型完全符合要求的数据如果存在则说明用户可以登录同时把登录的用户类型和用户名告诉需要用到用户类型和用户名数据的模块如系统主界面充值模块和买单模块等等 用户注销模块的实现 用户注销模块的代码如下 Private Sub 注销 ToolStripMenuItem_Click ByVal sender As SystemObject ByVal e As SystemEventArgs Handles 注销ToolStripMenuItemClick Mem_style Mem_Login False For Each ChildForm As Form In MeMdiChildren ChildFormClose Next main_Load sender e LoginShow MeToolStripStatusLabel1Text 登录 End Sub 用户通过本模块可以注销系统系统恢复到登录前画面这样就可以防止在用户离开后系统数据被人恶意修改43 客户信息管理 客户信息的添加 图 42 客户的添加 当用户点击添加按钮时系统执行以下代码 CmdStr SELECT id FROM [customer] where id TextBox2Text If TextBox2Text Then 身份证不为空 MsgBox 请输入身份证号 TextBox2Focus ElseIf sqlobjectIs_SQL_Cmd CmdStr Then 检查是否已注册 MsgBox 该客户已经存在 TextBox2Focus 中间还有很多类似的验证 Else CmdStr insert into customer nameidaddressbirthdaypwdaddtimemoneyusedmoneytelmobilephoneuserid VALUES TextBox1Text TextBox2Text TextBox3Text DateTimePicring TextBox6Text Now 0 0 TextBox4Text TextBox5Text user Try sqlobjectExecCmd CmdStr 添加客户 MsgBox 添加成功 添加成功提示 FileUrl 复位空格 Catch ex As Exception eErr ex End Try End If End Sub 在添加用户前系统进行了详细的表单验证包括验证要提交的客户是否已经存在用户两次输入的密码是否一样以及联系方式不为空等等使用 insert 语句将通过验证的表格中的数据提交到数据库菜单信息添加模块与本模块的原理类似以下不再阐述 图像的处理 如果用户在上面添加客户信息时添加了图像信息那么系统就会执行以下命令 If FileUrl Then 图像存在的话添加图像 Dim imgstreem As New FileStream FileUrl FileModeOpen FileAccessRead Dim imgbyte imgstreemLength As Byte imgstreemRead imgbyte 0 imgstreemLength imgstreemClose Dim sqlcmd As New SylientSqlCommand Dim sqlconn As New SylientSqlConnection SQL_Connconstr CmdStr update customer set photo image where id TextBox2Text sq image SqlDbTypeImage sqlcmdParameters image Value imgbyte sqlcmdConnection sqlconn sqlcmdCommandText CmdStr Try sqlconnOpen sqlcmdExecuteNonQuery sqlconnClose Catch ex As Exception eErr ex End Try End If 如果用户提交了客户的相片相片将会被转化为二进制数据提交到数据库中这样就可以方便用户日后对客户资料进行维护也有助于服务人员记住客户当客户再次光临时一口报出客户的名字将会使客户对餐厅的好感大增 客户信息的修改 图 43 客户信息的修改 当客户资料因实际情况发生变更时可以修改系统中的资料数据用户需提供注册时所使用的客户密码使用密码可以防止客户的资料被恶意修改充分保护客户权益即使是管理员也不能在不经过客户同意的情况下修改客户数据以下是修改按钮的代码 CmdStr select pwd from customer where pwd TextBox12Text and id TextBox8Text 确定客户身份代码 省略验证信息 If sqlobjectIs_SQL_Cmd CmdStr Then 如果客户同意修改的话继续 CmdStr update customer set address TextBox9Text tel TextBox10Text mobilephone TextBox11Text pwd TextBox13Text where id TextBox8Text Try sqlobjectExecCmd CmdStr 执行更新 MsgBox 修改成功 TextBox8Text PictureBox2Image Nothing Call TabControl1_SelectedIndexChanged sender e Catch ex As Exception eErr ex End Try Else MsgBox 密码错误 End If 使用方法 Is_SQL_Cmd 验证客户密码的正确性如果原始密码正确用户在输入新密码后可以进行对联系方式等基本资料进行修改使用 update 语句将空格中的数据更新到服务器如果更新成功系统会弹出修改成功的提示 菜单信息修改模块与本模块的原理类似以下不再阐述 客户信息的删除 客户信息可以在得到客户确认的情况下删除因设计到账户余额问题所以在进行此操作时万分谨慎客户资料来之不易建议不要轻易删除客户资料以下是删除模块的程序代码 Private Sub Button6_Click ByVal sender As SystemObject ByVal e As SystemEventArgs Handles Button6Click If TextBox12Text Then MsgBox 请输入用户密码 TextBox12Focus Else CmdStr select pwd from customer where pwd TextBox12Text and id TextBox8Text 用户密码确认 If sqlobjectIs_SQL_Cmd CmdStr Then CmdStr delete from customer where id TextBox8Text Try sqlobjectExecCmd CmdStr 执行删除命令 MsgBox 删除成功 PictureBox2Image Nothing Catch ex As Exception eErr ex End Try Else MsgBox 密码错误 End If End If Call TabControl1_SelectedIndexChanged sender e End Sub 系统先对客户密码进行了核对密码正确的话使用 delete 语句根据客户的身份证号对数据库中的客户数据进行删除因添加客户数据时要求身份证号是唯一的所以不用担心误删的问题菜单信 息删除模块与本模块的原理类似以下不再阐述 客户信息的查询 图 44 客户信息的查询 1 客户查询模块载入 Private Sub kehuchaxun_Load ByVal sender As SystemObject ByVal e As SystemEventArgs Handles MyBaseLoad sqlobject New SQL_Conn CmdStr SELECT name as 客户姓名 id as 身份证 address as 家庭地址 tel as 电话号码 mobilephone as 手机号码 money as 账户余额 usedmoney as 已消费额 FROM customer Try MeDataGridView1DataSource sqlobjectSQL_Ada CmdStr Catch ex As Exception eErr ex End Try MeDataGridView1AutoSizeColumnsMode DataGridViewAutoSizeColumnsModeDisplayedCells End Sub 使用 SQL_Ada 方法查询 customer 表中的个别数据将数据库中的数据提取出来保存在内存中的 datatable 表中客户信息查询中的 DataGridView 组件将内存中的 datatable 数据表里的数据提取出来显示给用户查。