第12章綜合應用

VB.NET程序設計實訓教程第12章綜合應用12.1系統(tǒng)概述12.2重點模塊設計12.1數據庫系統(tǒng)簡介本系統(tǒng)有“系統(tǒng)管理員”、“進貨管理員”、“銷售管理員”、“倉庫管理員”和“總經理”五個不同的用戶，每個用戶的權限不同，功能實現上有所不同。登錄系統(tǒng)時首先要在用戶登錄界面選擇用戶身份，如圖所示。系統(tǒng)采用SQLServer2005軟件設計數據庫。數據庫中包含10個基本表，分別為：User表、Order表、Product表、Sale表、Store表、Supplier表、Type表和Warehouse表、getmoney表和paymoney表。當以“總經理”登錄時，顯示的登錄界面如圖所示，輸入正確的密碼，單擊“確定”按鈕即可進入系統(tǒng)主界面。系統(tǒng)中“總經理”具有全部權限，如果以“總經理”登錄將顯示全部功能菜單。在主界面中設計了6個功能菜單。1.用戶登錄子模塊的設計用戶登錄是用戶管理模塊的子模塊。用戶管理模塊主要完成用戶的添加、刪除、修改等操作。用戶登錄子模塊按照登錄系統(tǒng)的用戶名和密碼來完成登錄系統(tǒng)主界面的任務。(1)界面設計：用戶登錄窗體如圖12-1所示。使用組合框控件顯示User表中的用戶名，使用文本框控件接收輸入的密碼。(2)用戶登錄窗體中“確定”按鈕單擊事件的過程代碼： IfUser.LoginConfirmThen '傳遞用戶權限到主窗體 mdiMain.Privilege=User.Privilege.Trim() '傳遞用戶姓名到主窗體 mdiMain.UserName=comboUserName.Text mdiMain.Show() Finalize()Else '如果用戶驗證失敗，則將登錄次數加一 Times=Times+112.2重點模塊設計'如果用戶輸入錯誤的用戶名和密碼超過三次，提示錯誤并退出系統(tǒng)IfTimes>2ThenMsgBox("您輸入用戶名和密碼錯誤已經超過三次，您無權登錄此系統(tǒng)！", MsgBoxStyle.Exclamation,"用戶登錄")Close()ElseMsgBox("用戶名或密碼輸入不正確，請重試",MsgBoxStyle.Exclamation,"用戶登錄") ExitSubEndIf2.權限管理功能的設計(1)設計思想：用戶權限在登錄窗體界面中通過語句mdiMain.Privilege=User.Privilege.Trim()傳遞到主窗體mdiMain.vb中。例如，權限為“系統(tǒng)管理員”，只能使用“用戶管理”功能，增、刪、改、查用戶，而不能使用其他功能。所以要設計只有“用戶管理”菜單可見，其余四個主菜單不可見。即設置不可見的菜單其Visible屬性值為False，程序代碼為：If_privilege="系統(tǒng)管理員"ThenOrderManageMenuItem.Visible=FalseStoreManageMenuItem.Visible=FalseSaleManageMenuItem.Visible=FalseInfoManageMenuItem.Visible=False說明：其中OrderManageMenuItem、StoreManageMenuItem、SaleManageMenuItem、InfoManageMenuItem分別為訂貨管理菜單、入庫管理菜單、出庫管理菜單和商品信息管理菜單。3.數據庫連接模塊的設計在系統(tǒng)中要訪問數據庫，就要創(chuàng)建數據庫連接相關的類和對象。編程建立DBConfig命名空間，在DBConfig命名空間中建立如圖所示的類?？梢钥吹紻BConfig命名空間中包含七個類。其中DBDataTable、DBCommand、DBDataReader和DBDataRelation都是繼承自DBConnection類的子類。所有使用數據庫連接的其他類在類文件的開頭只需使用Imports語句引入DBConfig命名空間，就可以使用命名空間中的任意類，這樣做既規(guī)范簡化了編程，同時也有利于項目的維護。4.出庫管理模塊的設計以“出庫管理模塊”為例說明系統(tǒng)怎樣實現增、刪、改、查功能。出庫管理模塊實現了“添加出庫單”、“修改出庫單”、“刪除和查詢出庫單”功能。添加出庫單子模塊設計'判斷銷售量是否小于庫存IfInteger.Parse(txtCount.Text)>MaxCountThenMessageBox.Show("庫存不足！","添加出庫記錄",MessageBoxButtons.OK,MessageBoxIcon.Error)ReturnEndIf'計算總價DimsumAsDouble=Double.Parse(txtPrice.Text)*Integer.Parse(txtCount.Text)DimcmdAsDBCommand=NewDBCommand(NewConnectionString().ConnectionInfo)'設置SQL語句向Sale表插入記錄DimSQLStringAsString="InsertIntoSaleValues('"&txtSaleDate.Text&"','"&TxtSaler.Text&"',"&comboProductID.Text&",'"&txtProductName.Text&"',"&txtCount.Text&","&txtPrice.Text&","&sum.ToString()&")“'如果Insert方法返回值大于0表示插入記錄成功，否則表示插入記錄失敗Ifcmd.Insert(strSQL)>0Then'生成出庫單后向getmoney表中插入包含收款總金額的記錄SQLString="InsertIntogetmoney(日期,金額,導購員)Values('"&txtSaleDate.Text&"',"&sum.ToString()&",'"&TxtSaler.Text&"')"cmd.Insert(SQLString)'得到該商品的剩余數量DimCountAsInteger=MaxCount-Integer.Parse(txtCount.Text)IfCount>0Then'如果商品銷售后還有庫存，修改Product表中“數量”和“售價”字段的值cmd.Update("Product","數量="&Count,"編號",comboProductID.Text)cmd.Update("Product","售價="&txtPrice.Text,"編號",comboProductID.Text)Else'如果商品全部售罄，則從Product表中刪除該商品記錄cmd.Delete("Product","編號",comboProductID.Text)EndIf MsgBox("添加出庫信息成功！",MsgBoxStyle.OkOnly,"添加出庫表")Else MsgBox("添加出庫信息失?。?,MsgBoxStyle.Critical,"添加出庫表")EndIf(2)修改出庫單子模塊設計①代碼設計：'修改出庫單窗體中“讀取”按鈕單擊事件的過程代碼：PrivateSubRead_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs) HandlesRead.ClickDataBinding.FillTextBox(TxtSaler,"sale","導購員",NewConnectionString().ConnectionInfo,"編號",txtSaleID.Text)DataBinding.FillTextBox(txtSaleDate,"sale","日期",NewConnectionString().ConnectionInfo,"編號", txtSaleID.Text)DataBinding.FillTextBox(txtProductID,"sale","商品編號",NewConnectionString().ConnectionInfo,"編號", txtSaleID.Text)DataBinding.FillTextBox(txtProductName,"sale","商品名稱", NewConnectionString().ConnectionInfo,"編號",txtSaleID.Text)DataBinding.FillTextBox(txtCount,"sale","商品數量",NewConnectionString().ConnectionInfo,"編號",txtSaleID.Text)DataBinding.FillTextBox(txtPrice,"sale","商品售價", NewConnectionString().ConnectionInfo,"編號",txtSaleID.Text)'讀取信息后，出庫單編號不能再修改txtSaleID.ReadOnly=TrueEndSub'修改出庫單窗體中“確定”按鈕單擊事件的過程代碼：DimcmdAsDBCommand=NewDBCommand(NewConnectionString().ConnectionInfo)'計算總價DimsumAsDouble=Double.Parse(txtPrice.Text)*Integer.Parse(txtCount.Text)'設置更新的內容字符串DimstringCont="導購員='"&ComSaler.Text&"',商品數量="&Integer.Parse(txtCount.Text)&",總計="&sum.ToString()'執(zhí)行更新命令Ifcmd.Update("sale",stringCont,"編號",txtSaleID.Text)>0ThenMsgBox("修改出貨單成功！",MsgBoxStyle.OkOnly,"修改出貨單")ElseMsgBox("修改出貨單失?。?,MsgBoxStyle.Critical,"修改出貨單")EndIf(3)刪除和查詢出庫單子模塊設計‘“查詢”按鈕單擊事件的過程代碼：DimstringFieldAsStringDimstringValueAsString'根據單選按鈕的選擇狀態(tài)得到查詢字段，根據文本框中的輸入值得到查詢關鍵字IfRadioButton1.CheckedThenstringField="編號"stringValue=TextBox1.TextElsestringField="導購員"stringValue="'"&TextBox1.Text&"'"EndIfListView1.Items.Clear()'在ListView1中顯示滿足查詢條件的所有記錄DataBinding.FillListView(ListView1,"sale",8, NewConnectionString().ConnectionInfo,stringField,"=",stringValue)'“刪除”按鈕單擊事件的過程代碼：PrivateSubDelete_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs) HandlesDelete.ClickDimcmdAsDBCommand=NewDBCommand(NewConnectionString().ConnectionInfo)'執(zhí)行刪除操作Ifcmd.Delete("sale","編號",ListView1.SelectedItems(0).Text)>0ThenMsgBox("刪除出庫單成功！",MsgBoxStyle.OkOnly,"刪除出庫單")ElseMsgBox("刪除出庫單失??！",MsgBoxStyle.Critical,"刪除出庫單")EndIf'