第12章綜合應(yīng)用

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