【文章內(nèi)容簡介】 戶全稱Nvarchar100是客戶單位全稱地址nvarchar100是郵政編碼nchar6是電話numeric9是傳真int9是聯(lián)系人nvarchar30是聯(lián)系人電話numeric9是開戶銀行nvarchar100是銀行帳號numeric13是企業(yè)網(wǎng)址nvarchar50是Users數(shù)據(jù)表結(jié)構(gòu) Users數(shù)據(jù)表主要用于存儲本系統(tǒng)的用戶信息，包括用戶的名稱和系統(tǒng)登錄密碼。 Users數(shù)據(jù)表結(jié)構(gòu)如表4所示。表4 User數(shù)據(jù)表結(jié)構(gòu)字段名數(shù)據(jù)類型長度是否允許為空說明用戶nvarchar10否主鍵，唯一標(biāo)識系統(tǒng)用戶密碼nvarchar10是用戶密碼，可以為空Purchase數(shù)據(jù)表結(jié)構(gòu) Purchase數(shù)據(jù)表主要用于存儲企業(yè)的采購信息，比如采購商品的名稱、價格、供應(yīng)商編號、采購數(shù)量、采購日期、經(jīng)手人等。 Purchase數(shù)據(jù)表結(jié)構(gòu)如表5所示。 表5 Purchase數(shù)據(jù)表結(jié)構(gòu)字段名數(shù)據(jù)類型長度是否允許為空說明商品名稱nvarchar255否外鍵，對應(yīng)Product表中商品名稱數(shù)量int4否每筆采購記錄必須有采購數(shù)量進價money8否每筆采購記錄必須有采購進價金額money6是由數(shù)量和進價計算得出備注nvarchar9是供應(yīng)商nvarchar9否外鍵，對應(yīng)Supplier表中供應(yīng)商簡稱日期smalldatetime30否每筆采購記錄必須有采購時間，默認為當(dāng)天經(jīng)手人nvarchar9否外鍵，對應(yīng)User表中操作員票號nvarchar100否每筆采購記錄必須有唯一的票號，系統(tǒng)自動生成Sale數(shù)據(jù)表結(jié)構(gòu) Sale數(shù)據(jù)表主要用于存儲企業(yè)的銷售信息，比如銷售商品的名稱、價格、客戶編號、銷售數(shù)量、銷售日期、經(jīng)手人等。 表6 Sale數(shù)據(jù)表結(jié)構(gòu)字段名數(shù)據(jù)類型長度是否允許為空說明商品名稱nvarchar255否外鍵，對應(yīng)Product表中商品名稱數(shù)量int4否每筆采購記錄必須有采購數(shù)量單價money8否每筆采購記錄必須有采購進價金額money8是由數(shù)量和進價計算得出備注nvarchar220是客戶nvarchar10否外鍵，對應(yīng)Customer表中客戶簡稱日期smalldatetime4否每筆采購記錄必須有采購時間，默認為當(dāng)天經(jīng)手人nvarchar9否外鍵，對應(yīng)User表中操作員票號nvarchar50否每筆采購記錄必須有唯一的票號，系統(tǒng)自動生成實際進銷存業(yè)務(wù)中的一些數(shù)據(jù)是在多個業(yè)務(wù)活動中共享的，比如采購單中的商品必須在Product數(shù)據(jù)表中有相關(guān)記錄，所以在本系統(tǒng)中也對上述的6個數(shù)據(jù)表設(shè)置了對應(yīng)的關(guān)系。具體關(guān)系主要體現(xiàn)在以下幾個方面：l 采購單、銷售單中的經(jīng)手人必須是企業(yè)中的合法員工，本系統(tǒng)中要求經(jīng)手人必須是在Users數(shù)據(jù)表中有相應(yīng)的記錄；l 采購單、銷售單中的產(chǎn)品必須在Product數(shù)據(jù)表中有相應(yīng)的記錄。如果采購一種新商品，必須先在Supplier數(shù)據(jù)表中增加這家供應(yīng)商的信息；l 銷售單中的客戶必須Customer數(shù)據(jù)表中有相應(yīng)有記錄。如果銷售中發(fā)展了新的客戶，必須先在Customer數(shù)據(jù)表中增加這家客戶的信息。這些關(guān)系可以在SQL Server中用關(guān)系圖工具設(shè)計和查看。第七章 系統(tǒng)的實現(xiàn) 本系統(tǒng)采用系統(tǒng)開發(fā)中常用的多文檔，搭配菜單欄、工具欄、狀態(tài)欄等界面工具實現(xiàn)系統(tǒng)分析和系統(tǒng)設(shè)計中提出的功能。在這個窗口中，單擊不同的菜單或者工具欄中的按鈕，可以打開不同的窗口以完成各種對應(yīng)的功能。 在具體的實現(xiàn)各個功能模塊之前，需要在Visual ，以管理系統(tǒng)開發(fā)中的不同資源。創(chuàng)建工程的步驟如下： （1）打開Visual ，在菜單欄中依次選擇“文件”→“創(chuàng)建工程”菜單，出現(xiàn)如圖3所示的“新建工程”對話框。圖3 “新建工程”對話框 （2）在列表中選擇“標(biāo)準(zhǔn)EXE”圖標(biāo)以指定新建應(yīng)用程序的類型為標(biāo)準(zhǔn)的Windows應(yīng)用程序，然后單擊“確定”按鈕，打開如圖4所示的系統(tǒng)初始界面。圖4系統(tǒng)初始界面 （3）在圖4菜單欄中依次選擇“工程”→“工程1屬性”菜單，出現(xiàn)如圖5所示的“工程1工程屬性”對話框。圖5 “工程工程1屬性”對話框 （4）在“工程名稱”文本框中將工程的名稱設(shè)置為“進銷存管理系統(tǒng)”，然后單擊“確定”按鈕。 （5）單擊工具欄上的保存按鈕，保存該工程。 這樣，就成功創(chuàng)建了進銷存管理系統(tǒng)工程。下面將逐個介紹系統(tǒng)中各個窗口的設(shè)計和功能的實現(xiàn)。在進入應(yīng)用程序主界面之前，一般需要登錄操作，以便確認用戶的身份，從而保證企業(yè)的數(shù)據(jù)的安全性。在本系統(tǒng)的登錄中，需求用戶從系統(tǒng)已經(jīng)創(chuàng)建的用戶中選擇一個用戶名，然后輸入相應(yīng)的密碼。程序在數(shù)據(jù)庫的Users數(shù)據(jù)表中進行查詢，如果用戶的密碼正確，就可以使用該系統(tǒng)；如果用戶的密碼錯誤，將提示用戶重新輸入密碼。登錄窗口frmLogin的設(shè)計方法如下：（1）將創(chuàng)建工程時系統(tǒng)自動創(chuàng)建的Form1作為frmLogin窗口。設(shè)置Form1窗口的名稱屬性為“frmLogin”，Caption屬性為“請登錄！”，并將其作為窗口的標(biāo)題，BorderStyle屬性設(shè)置為“Fixed Dialog”，StartUpPosition屬性設(shè)置為“屏幕中心”。（2）在窗口中按照表7放置控件并設(shè)置相應(yīng)的屬性。表7 frmLogin窗口中控件及其屬性列表控件種類控件名稱屬性屬性值說明LabellabUserNameCaption用戶名設(shè)置標(biāo)簽顯示字段Font黑體，常規(guī)，小四設(shè)置標(biāo)簽字體LabelLabPWDCaption密碼：設(shè)置標(biāo)器顯示字段Font黑體，常規(guī)，小四設(shè)置標(biāo)簽字體ComboBoxcmbUserNameStyleDropdown Combo設(shè)置組合框樣式TextBoxTxtPWDText“”設(shè)置默認為空CommandButtonCmdOKCaption“確定”設(shè)置命令按鈕標(biāo)題CommandButtoncmdCancelCaption“取消”設(shè)置命令按鈕標(biāo)題ImageImgSysDaraFormat圖片設(shè)置圖片格式ImageimgSysPicture合適的圖片文件指定顯示的圖片StretchTrue圖片可以拉伸（3）調(diào)整各個控件的位置和大小，最終狀態(tài)如下圖6所示。圖6 frmMain窗口設(shè)計效果圖（4）因為要在窗口的代碼中使用ADO中的一些對象進行數(shù)據(jù)庫的操作，所以必須先引用相應(yīng)的庫。在菜單欄中依次選擇“工程”→“引用”菜單，出現(xiàn)如圖7所示的“引用”對話框。圖7 “引用”對話框（5）在“可用的引用”列表中選擇“Microsoft ActiveX Data Library”項，然后單擊“確定”按鈕即可。這樣就可以在程序代碼中使用ADO中的對象了。（6）當(dāng)系統(tǒng)運行打開 frmLogin窗口的時候，需要從數(shù)據(jù)庫的Users數(shù)據(jù)表中查找當(dāng)前系統(tǒng)中所有的用戶，然后將它們添加到cmbUserName組合框中。雙擊frmLogin窗口，進入代碼編輯器。在其中輸入如下代碼：Dim conn As New Dim rs As New Dim connstring As StringDim num As Integer 這樣，當(dāng)程序開始運行，加載frmLogin窗口的時候，就會從Purchc數(shù)據(jù)庫的Users數(shù)據(jù)表中檢索所有記錄的用戶字段，然后將它們逐條添加到期cmbUserName組合框的子項中。最后將組合框的第一個子項設(shè)置為默認選項。（7）當(dāng)用戶單擊“確定”按鈕時，程序需要從cmbUserName組合框中取得用戶選擇的用戶名，然后根據(jù)用戶名對PurchfrmLogin數(shù)據(jù)庫的Users數(shù)據(jù)表進行檢索，如果檢索的密碼和用戶輸入的密碼一致，則卸載登錄窗口，然后打開主窗口；如果用戶輸入錯誤，則提示用戶密碼錯誤，需要重新輸入，然后將焦點轉(zhuǎn)移到cmbUserName組合框。但是如果檢測到用戶已經(jīng)連續(xù)3次輸入密碼都錯誤，就需要提示用戶無權(quán)登錄本系統(tǒng)，并退出系統(tǒng)。在界面設(shè)計窗口中雙擊cmbOK控件，進入“確定”按鈕的單擊事件處理代碼中，輸入如下代碼：Private Sub cmdOK_Click() If Trim() = Then 39。首先要求用戶名不能為空 MsgBox 用戶名不能為空！, vbOKOnly + vbExclamation, 警告！ 39。將焦點轉(zhuǎn)移到用戶名組合框中 Exit Sub End If connstring = Provider=。Password=ecc。Persist Security Info=True。User ID=sa。 _ amp。 Initial Catalog=PurchaseandSale。Server=(local) If 1 Then 39。如果數(shù)據(jù)庫沒有打開則打開數(shù)據(jù)庫 (connstring) End If Set rs = (select * from users where 用戶=39。 amp。 Trim() amp。 39。) 39。 在users數(shù)據(jù)表中檢索用戶字段值為用戶輸入的用戶名的記錄，將結(jié)果存放在rs記錄集中 If Then 39。 如果記錄為空則說明不存在此條記錄，也說明用戶名錯誤 MsgBox 沒有該用戶！ amp。 vbCrLf amp。 請重新輸入！, vbOKOnly + vbExclamation, 提示 Exit Sub Else 39。存在此用戶名，檢查密碼 If (密碼).Value = Trim() Then 39。密碼正確 Unload frmLogin 39。卸載登錄窗口 Load frmMain 39。加載主窗口 39。顯示主窗口 Else 39。密碼錯誤 If num 2 Then 39。輸入錯誤次數(shù)不足三次 num = num + 1 39。錯誤次數(shù)加1 MsgBox 口令不對，請重輸！ amp。 vbCrLf amp。 您還有 amp。 Str(3 num) amp。 次機會！, _ vbOKOnly + vbExclamation, 提示 39。提示錯誤 Exit Sub Else 39。輸入錯誤打到3次，提示后退出系統(tǒng) MsgBox 對不起，您無權(quán)使用本系統(tǒng)！, vbOKOnly + vbExclamation, 提示 Unload frmLogin Exit Sub End If End If End If 39。關(guān)閉數(shù)據(jù)庫連接End Sub（8）在用戶登錄過程中，如果用戶單擊了“取消”按鈕，將取消登錄，同時關(guān)閉登錄窗口，退出應(yīng)用程序。在界面設(shè)計窗口中雙擊cmdCancel按鈕，進入按鈕單擊事件處理代碼中，輸入如下代碼：Private Sub CmdCancel_Click() Unload frmLogin 39。卸載登錄窗口End Sub這樣，登錄界面的設(shè)計和代碼編寫就全部完成了。運行程序，系統(tǒng)開始就進入到登錄窗口中，運行效果如圖。如果用戶輸入了正確的用戶名和密碼，登錄窗口消失后系統(tǒng)主窗口打開。如果用戶輸入了錯誤的用戶名或者密碼，系統(tǒng)都將用消息對話框提示。當(dāng)?shù)卿洺晒χ?，就可以進入進銷存管理系統(tǒng)的主界面進行操作了。下面介紹如何創(chuàng)建應(yīng)用程序的主界面frmMain窗口。（1）在工程中添加一個窗體。在工程資源管理器窗口中單擊鼠標(biāo)右鍵,在彈出的快捷菜單中依次選擇“添加”→“添加窗口”項，出現(xiàn)如圖8所示的“添加窗體”對話框。圖8 “添加窗體”對話框（2）在“新建”選項卡中選擇“窗體”選項，然后單擊“打開”按鈕即可打開新建的窗口。（3）設(shè)置fr