《第12章综合应用ppt课件(全).pptx》由会员分享，可在线阅读，更多相关《第12章综合应用ppt课件(全).pptx（14页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、VB.NETVB.NET程序设计实训教程程序设计实训教程第第1212章章 综合应用综合应用12.1 系统概述系统概述12.2 重点模块设计重点模块设计1212.1 .1 数据库系统简介数据库系统简介本系统有“系统管理员”、“进货管理员”、“销售管理员”、“仓库管理员”和“总经理”五个不同的用户，每个用户的权限不同，功能实现上有所不同。登录系统时首先要在用户登录界面选择用户身份，如图所示。系统采用SQL Server 2005软件设计数据库。数据库中包含10个基本表，分别为：User表、Order表、Product表、Sale表、Store表、Supplier表、Type表和Warehouse表
2、、getmoney表和paymoney表。当以“总经理”登录时，显示的登录界面如图所示，输入正确的密码，单击“确定”按钮即可进入系统主界面。系统中“总经理”具有全部权限，如果以“总经理”登录将显示全部功能菜单。在主界面中设计了6个功能菜单。1.用用户户登登录录子模子模块块的的设计设计用户登录是用户管理模块的子模块。用户管理模块主要完成用户用户登录是用户管理模块的子模块。用户管理模块主要完成用户的添加、删除、修改等操作。用户登录子模块按照登录系统的用的添加、删除、修改等操作。用户登录子模块按照登录系统的用户名和密码来完成登录系统主界面的任务。户名和密码来完成登录系统主界面的任务。(1)界面设计：
3、用户登录窗体如图界面设计：用户登录窗体如图12-1所示。使用组合框控件显示所示。使用组合框控件显示User表中的用户名，使用文本框控件接收输入的密码。表中的用户名，使用文本框控件接收输入的密码。(2)用户登录窗体中用户登录窗体中“确定确定”按钮单击事件的过程代码：按钮单击事件的过程代码：If User.LoginConfirm Then传递用户权限到主窗体传递用户权限到主窗体mdiMain.Privilege=User.Privilege.Trim()传递用户姓名到主窗体传递用户姓名到主窗体mdiMain.UserName=comboUserName.TextmdiMain.Show()Fin
4、alize()Else如果用户验证失败，则将登录次数加一如果用户验证失败，则将登录次数加一Times=Times+112.2 12.2 重点模块设计重点模块设计如果用户输入错误的用户名和密码超过三次，提示错误并退如果用户输入错误的用户名和密码超过三次，提示错误并退出系统出系统If Times 2 ThenMsgBox(您输入用户名和密码错误已经超过三次，您无权登您输入用户名和密码错误已经超过三次，您无权登录此系统！录此系统！,MsgBoxStyle.Exclamation,用户登录用户登录)Close()ElseMsgBox(用户名或密码输入不正确，请重试用户名或密码输入不正确，请重试,Msg
5、BoxStyle.Exclamation,用户登录用户登录)Exit SubEndIf2.权权限管理功能的限管理功能的设计设计(1)设计思想：用户权限在登录窗体界面中通过语句mdiMain.Privilege=User.Privilege.Trim()传递到主窗体mdiMain.vb中。例如，权限为“系统管理员”，只能使用“用户管理”功能，增、删、改、查用户，而不能使用其他功能。所以要设计只有“用户管理”菜单可见，其余四个主菜单不可见。即设置不可见的菜单其Visible属性值为False，程序代码为：If _privilege=系统管理员 Then OrderManageMenuItem.Vi
6、sible=False StoreManageMenuItem.Visible=False SaleManageMenuItem.Visible=False InfoManageMenuItem.Visible=False说明：其中OrderManageMenuItem、StoreManageMenuItem、SaleManageMenuItem、InfoManageMenuItem分别为订货管理菜单、入库管理菜单、出库管理菜单和商品信息管理菜单。3.数据数据库连库连接模接模块块的的设计设计在系统中要访问数据库，就要创建数据库连接相关的类和对象。编程建立DBConfig命名空间，在DBConf
7、ig命名空间中建立如图所示的类。可以看到DBConfig命名空间中包含七个类。其中DBDataTable、DBCommand、DBDataReader和DBDataRelation都是继承自DBConnection类的子类。所有使用数据库连接的其他类在类文件的开头只需使用Imports语句引入DBConfig命名空间，就可以使用命名空间中的任意类，这样做既规范简化了编程，同时也有利于项目的维护。4.出出库库管理模管理模块块的的设计设计以“出库管理模块”为例说明系统怎样实现增、删、改、查功能。出库管理模块实现了“添加出库单”、“修改出库单”、“删除和查询出库单”功能。(1)添加出库单子模块设计判
8、断销售量是否小于库存If Integer.Parse(txtCount.Text)MaxCount ThenMessageBox.Show(库存不足！,添加出库记录,MessageBoxButtons.OK,MessageBoxIcon.Error)ReturnEnd If计算总价Dim sum As Double=Double.Parse(txtPrice.Text)*Integer.Parse(txtCount.Text)Dim cmd As DBCommand=New DBCommand(New ConnectionString().ConnectionInfo)设置SQL语句向Sale
9、表插入记录Dim SQLString As String=Insert Into Sale Values(&txtSaleDate.Text&,&TxtSaler.Text&,&comboProductID.Text&,&txtProductName.Text&,&txtCount.Text&,&txtPrice.Text&,&sum.ToString()&)“如果Insert方法返回值大于0表示插入记录成功，否则表示插入记录失败If cmd.Insert(strSQL)0 Then生成出库单后向getmoney表中插入包含收款总金额的记录 SQLString=Insert Into getm
10、oney(日期,金额,导购员)Values(&txtSaleDate.Text&,&sum.ToString()&,&TxtSaler.Text&)cmd.Insert(SQLString)得到该商品的剩余数量Dim Count As Integer=MaxCount-Integer.Parse(txtCount.Text)If Count 0 Then 如果商品销售后还有库存，修改Product表中“数量”和“售价”字段的值 cmd.Update(Product,数量=&Count,编号,comboProductID.Text)cmd.Update(Product,售价=&txtPrice.
11、Text,编号,comboProductID.Text)Else 如果商品全部售罄，则从Product表中删除该商品记录 cmd.Delete(Product,编号,comboProductID.Text)End IfMsgBox(添加出库信息成功！,MsgBoxStyle.OkOnly,添加出库表)ElseMsgBox(添加出库信息失败！,MsgBoxStyle.Critical,添加出库表)End If(2)修改出库单子模块设计代码设计：修改出库单窗体中“读取”按钮单击事件的过程代码：Private Sub Read_Click(ByVal sender As System.Object,
12、ByVal e As System.EventArgs)Handles Read.ClickDataBinding.FillTextBox(TxtSaler,sale,导购员,New ConnectionString().ConnectionInfo,编号,txtSaleID.Text)DataBinding.FillTextBox(txtSaleDate,sale,日期,NewConnectionString().ConnectionInfo,编号,txtSaleID.Text)DataBinding.FillTextBox(txtProductID,sale,商品编号,NewConnect
13、ionString().ConnectionInfo,编号,txtSaleID.Text)DataBinding.FillTextBox(txtProductName,sale,商品名称,NewConnectionString().ConnectionInfo,编号,txtSaleID.Text)DataBinding.FillTextBox(txtCount,sale,商品数量,NewConnectionString().ConnectionInfo,编号,txtSaleID.Text)DataBinding.FillTextBox(txtPrice,sale,商品售价,NewConnect
14、ionString().ConnectionInfo,编号,txtSaleID.Text)读取信息后，出库单编号不能再修改txtSaleID.ReadOnly=TrueEnd Sub修改出库单窗体中“确定”按钮单击事件的过程代码：Dim cmd As DBCommand=NewDBCommand(NewConnectionString().ConnectionInfo)计算总价Dim sum As Double=Double.Parse(txtPrice.Text)*Integer.Parse(txtCount.Text)设置更新的内容字符串Dim stringCont=导购员=&ComSal
15、er.Text&,商品数量=&Integer.Parse(txtCount.Text)&,总计=&sum.ToString()执行更新命令If cmd.Update(sale,stringCont,编号,txtSaleID.Text)0 Then MsgBox(修改出货单成功！,MsgBoxStyle.OkOnly,修改出货单)Else MsgBox(修改出货单失败！,MsgBoxStyle.Critical,修改出货单)End If(3)删除和查询出库单子模块设计“查询”按钮单击事件的过程代码：Dim stringField AsStringDim stringValue AsString根
16、据单选按钮的选择状态得到查询字段，根据文本框中的输入值得到查询关键字If RadioButton1.Checked ThenstringField=编号stringValue=TextBox1.TextElsestringField=导购员stringValue=&TextBox1.Text&EndIfListView1.Items.Clear()在ListView1中显示满足查询条件的所有记录DataBinding.FillListView(ListView1,sale,8,NewConnectionString().ConnectionInfo,stringField,=,stringVa
17、lue)“删除”按钮单击事件的过程代码：Private Sub Delete_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Delete.ClickDim cmd As DBCommand=New DBCommand(NewConnectionString().ConnectionInfo)执行删除操作If cmd.Delete(sale,编号,ListView1.SelectedItems(0).Text)0 ThenMsgBox(删除出库单成功！,MsgBoxStyle.OkOnly,删除出库
18、单)ElseMsgBox(删除出库单失败！,MsgBoxStyle.Critical,删除出库单)EndIf在ListView1,中显示删除后所有记录DataBinding.FillListView(ListView1,sale,8,NewConnectionString().ConnectionInfo)End Sub订单管理模块、入库管理模块的设计与此模块类似，分别实现订单的增、删、改、查和入库单的增、删、改、查功能，界面设计和代码编写也与出库管理模块类似。用户管理模块实现了用户信息的增、删、改、查功能，与此模块也类似。商品信息管理模块包含商品类别管理、商品管理、仓库管理和供应商管理子模块。在这些子模块中也要实现对应的增、删、改、查功能，实现方法与出库管理模块类似。