【導(dǎo)讀】本系統(tǒng)對(duì)企業(yè)中常見(jiàn)的采購(gòu)、庫(kù)存、銷售等商業(yè)活動(dòng)以及相關(guān)的供應(yīng)商。和客戶等基本信息進(jìn)行管理，自動(dòng)生成采購(gòu)入庫(kù)單、出庫(kù)單，定期盤(pán)點(diǎn)庫(kù)存，計(jì)不具體對(duì)某一個(gè)行業(yè)或企業(yè)，具有一定的普適性。系統(tǒng)開(kāi)發(fā)的總體任務(wù)是實(shí)現(xiàn)各種信息的系統(tǒng)化、規(guī)范化、自動(dòng)化。設(shè)計(jì)的模塊主要是實(shí)現(xiàn)用戶名和密碼的管理、基本信息的輸入和修改、

　　

【正文】 ，依次添加分隔條、 “庫(kù)存查詢” 、 “密碼設(shè)置” 、 “推出系統(tǒng)”等按鈕。（9） 、單擊“確定”按鈕，完成工具欄的創(chuàng)建。工具欄的設(shè)計(jì)就完成了。 創(chuàng)建狀態(tài)欄應(yīng)用程序中的狀態(tài)欄用于顯示當(dāng)前狀態(tài)下應(yīng)用程序或者操作系統(tǒng)的執(zhí)行狀態(tài)。一般狀態(tài)欄顯示在窗口的最下方。在這個(gè)應(yīng)用程序中，在窗口的地步放一個(gè)狀態(tài)欄，用于顯示系統(tǒng)名稱、作者信息、當(dāng)前日期和當(dāng)前時(shí)間信息。 、31創(chuàng)建狀態(tài)欄的步驟如下所示：（1） 、從 Toolbox 工具箱中拖動(dòng)一個(gè) StatusBar 控件到 frmMain 窗口上，命名為 stbMain。（2） 、用鼠標(biāo)右鍵單擊 stbMain 控件，在彈出的快捷菜單中選擇“屬性”菜單項(xiàng)。（3） 、切換到“窗格”選項(xiàng)卡，將索引為 1 的窗格文本設(shè)置為“進(jìn)銷存管理系統(tǒng)” ，最小寬度設(shè)置為 6，對(duì)其方式選擇為 sbrCenter。這樣就在狀態(tài)欄中添加了一個(gè)寬度為 6 的狀態(tài)條，在中間顯示“進(jìn)銷存管理系統(tǒng)”文本。（4） 、按照以上的方法，在“插入窗格”按鈕上插入狀態(tài)條，用來(lái)顯示系統(tǒng)名稱、作者信息、當(dāng)前日期和當(dāng)前時(shí)間信息。這樣，狀態(tài)欄的創(chuàng)建就完成了，至此，主窗口 frmMain 的界面就全部創(chuàng)建完成了，效果如下所示。 創(chuàng)建采購(gòu)單經(jīng)過(guò)前面的操作，登錄窗口和主窗口都全部設(shè)計(jì)完畢了。但是主窗口中各種功能，包括菜單中和工具欄中的，都是沒(méi)有事件處理代碼的空架子。當(dāng)調(diào)用這些功能的時(shí)候，不會(huì)有任何效果。32設(shè)計(jì)入庫(kù)單操作步驟如下：（1） 、按照前述方法在應(yīng)用程序中新增一個(gè) Windows 窗口 frmCGD。（2） 、在窗口中添加控件，并設(shè)置相關(guān)屬性。（3） 、使用 Adode 控件連接數(shù)據(jù)庫(kù)，首先將這個(gè)控件添加到工具箱中，在工具箱中單擊鼠標(biāo)右鍵，在彈出的快捷菜單中選擇“部件”菜單項(xiàng)。（4）在“控件”選項(xiàng)卡中選擇“Microsoft ADO Data Control (OLEDB)”選項(xiàng)，然后單擊“關(guān)閉”按鈕，這時(shí)工具箱中就添加了一個(gè)新的圖標(biāo)，這就是Adodc 控件。（5） 、利用 Adodc 控件連接數(shù)據(jù)庫(kù)。從工具箱中拖動(dòng)一個(gè) Adodc 控件到frmCGD 窗口中，將其命名為 adoCGD，Visible 屬性設(shè)置為 False。用鼠標(biāo)右鍵單擊 adoCGD 控件，在彈出的快捷菜單中選擇“ADODC 屬性”菜單項(xiàng)。（6） 、單擊“生成按鈕” ，出現(xiàn)“數(shù)據(jù)連接屬性”對(duì)話框。在“提供程序”選項(xiàng)卡中 Microsoft OLE DB Provider for SQL Server 選項(xiàng)，切換到“連接”選項(xiàng)卡。（7） 、建立到 PurchaseandSale 數(shù)據(jù)庫(kù)的連接。（8） 、至此，采購(gòu)單的界面部分就設(shè)計(jì)完成了。效果如下所示。（9） 、當(dāng)在主窗口菜單欄中依次選擇“日常業(yè)務(wù)”→“采購(gòu)單”菜單項(xiàng)時(shí)，需要加載 frmCGD 窗體。同時(shí)，為了防止采購(gòu)入庫(kù)操作時(shí)其他操作引起數(shù)據(jù)不一33致，此時(shí)應(yīng)該禁止 frmMain 主窗體。在主窗體中單擊“采購(gòu)單”菜單項(xiàng)，輸入代碼如下：Private Sub CGD_Click()Load frmCGD 39。加載 frmCGD 窗體 39。顯示 frmCGD 窗體 = False 39。設(shè)置主窗體不可用End Sub（10） 、當(dāng)在主窗體中單擊“采購(gòu)單”時(shí)，頁(yè)需要執(zhí)行單擊采購(gòu)單菜單項(xiàng)相同的操作，所以此處可以直接調(diào)用采購(gòu)單菜單項(xiàng)的單擊事件，在主窗體中雙擊工具欄，進(jìn)入工具欄的按鈕單擊事件的響應(yīng)代碼中。輸入如下代碼：Private Sub tlbMain_ButtonClick(ByVal Button As ) Select Case 39。如果單擊的工具欄按鈕的關(guān)鍵字為 CGD,則觸發(fā)菜單欄中的“采購(gòu)單”菜單項(xiàng)的單擊事件 Case Is = CGD CGD_Click End SelectEnd Sub（11）在界面設(shè)計(jì)窗口中，雙擊 frmCGD 窗口，進(jìn)入窗口加載事件，輸入如下代碼：Private Sub Form_Load() On Error GoTo myerr 39。有異常跳轉(zhuǎn) = adCmdText = Select from 商品名稱 Product 39。設(shè)置 adoCGD 的數(shù)據(jù)源為 Product 數(shù)據(jù)表 With .MoveFirst Do While Not .EOF 39。從第一條開(kāi)始逐句添加到 Combo1 的子項(xiàng)中 DoEvents34 (!商品名稱) .MoveFirst Loop End With = select 用戶 from Uers 39。設(shè)置 adoCGD 的數(shù)據(jù)源為 Users 數(shù)據(jù)表 With .MoveFirst Do While Not .EOF 39。從第一條開(kāi)始逐條添加到 Combo2 的子項(xiàng)中 DoEvents (!用戶) .MoveNext Loop End With = select 供應(yīng)商簡(jiǎn)稱 from supplier 39。設(shè)置 adoCGD的數(shù)據(jù)源為 Supplier 數(shù)據(jù)表 With .MoveFirst Do While Not .EOF 39。從第一條開(kāi)始逐條添加到 Combo3 的子項(xiàng)中 DoEvents (!供應(yīng)商簡(jiǎn)稱) .MoveNext Loop End With = select 票號(hào) from purchase order by 票號(hào) 39。設(shè)置 adoCGD 的數(shù)據(jù)源為 Purchase 數(shù)據(jù)表 35 With If .RecordCount 0 Then 39。如果已有記錄則在原來(lái)的序號(hào)上遞增 .MoveLast If !票號(hào) Then Dim lsph As String lsph = Right(Trim(!票號(hào)), 3) + 1 = $ amp。 _p_ amp。 Format(lsph, 000) End If Else 39。如果還沒(méi)有記錄則序號(hào)開(kāi)始為 001 = $ amp。 _p_ amp。 001 End If End With = $ 39。系統(tǒng)當(dāng)前日期的字符串形式賦值myerr:End Sub 創(chuàng)建銷售單菜單欄中的第 2 項(xiàng)是銷售單。每次有產(chǎn)品售出的時(shí)候，都要生成一張銷售單。設(shè)計(jì)銷售單的操作步驟如下：（1） 、按照前述方法在應(yīng)用程序中新增一個(gè) Windows 窗口 frmXSD。（2） 、在窗口中添加控件，并設(shè)置相關(guān)屬性。（3） 、按照前述方法創(chuàng)建 Adodc 控件 adoXSD，連接到數(shù)據(jù)庫(kù)。（4） 、按照采購(gòu)的設(shè)計(jì)步驟完成銷售單界面部分的設(shè)計(jì)。（5） 、在主窗口菜單上單擊“銷售單”菜單項(xiàng)，進(jìn)入菜單項(xiàng)的單擊事件響應(yīng)程序中，輸入如下代碼：Private Sub XSD_Click()36 Load frmXSD 39。加載 frmXSD 窗體 39。顯示 frmXSD 窗體 = False 39。設(shè)置主窗體不可用End Sub（6） 、當(dāng)在主窗口中單擊工具欄中的銷售按鈕時(shí)，直接調(diào)用“銷售單”菜單項(xiàng)的單擊事件，在主窗口中雙擊工具欄的按鈕單擊事件的響應(yīng)代碼中，輸入如下代碼：Private Sub tlbMain_ButtonClick(ByVal Button As ) Select Case 39。如果單擊的工具欄按鈕的關(guān)鍵字為 CGD，則觸發(fā)菜單欄中的”采購(gòu)單“菜單項(xiàng)的單擊事件 Case Is = CGD CGD_Click 39。如果單擊的工具欄按鈕的關(guān)鍵字為 XSD，則觸發(fā)菜單欄中的”銷售單“菜單項(xiàng)的單擊事件 Case Is = XSD XSD_Click End Select End Sub這樣，所有銷售單的功能都可以使用了。運(yùn)行程序，經(jīng)過(guò)登錄后進(jìn)入到系統(tǒng)主窗口，可以生成銷售單，效果如圖所示：37 創(chuàng)建庫(kù)存盤(pán)點(diǎn)窗口菜單中的第 3 項(xiàng)是庫(kù)存盤(pán)點(diǎn)。所謂的庫(kù)存盤(pán)點(diǎn)就是根據(jù)銷售記錄和采購(gòu)記錄計(jì)算出每種商品的庫(kù)存數(shù)量。由于企業(yè)中采購(gòu)和銷售活動(dòng)非常頻繁，而且銷售的商品種類需要考慮到實(shí)際庫(kù)存大于零，因此庫(kù)存盤(pán)點(diǎn)功能也是十分常用和重要的。創(chuàng)建庫(kù)存盤(pán)點(diǎn)窗口的步驟如下：（1） 、在應(yīng)用窗口中加入一個(gè)窗口 frmKCPD。（2） 、設(shè)置 frmKCPD 窗口的屬性。（3） 、從工具箱中拖動(dòng)一個(gè)控件到窗體中，并命名為 adoKCPD。設(shè)置其連接屬性使其連接到數(shù)據(jù)庫(kù)并檢索數(shù)據(jù)表中的所有記錄。設(shè)置屬性。（4） 、為了顯示檢索數(shù)據(jù)，需要在窗口中使用 DataGrid 控件。按照前述方法添加。（5） 、從工具箱中拖動(dòng)一個(gè) DataGrid 控件到 frmKCPD 窗口中，將其命名為dgdKCPD.（6） 、設(shè)置 dgdKCPD 的屬性。（7） 、從工具箱中拖動(dòng)兩個(gè)命令按鈕控件到 frmKCPD 窗口中，設(shè)置其屬性。（8） 、當(dāng)用戶單擊“庫(kù)存盤(pán)點(diǎn)”按鈕后，需要根據(jù)數(shù)據(jù)表更新字段的值，38雙擊 Command1 控件，在其單擊事件中輸入如下代碼：Private Sub Command1_Click()On Error GoTo myerrDim conn As New Dim rs As New Dim strUpdata As StringDim connstring As StringstrUpdate = update product set 庫(kù)存=（select sum(數(shù)量) from purchase where amp。 商品名稱=)（select sum(數(shù)量) from sale where amp。 商品名稱=）connstring = Provider=。Password=ecc。Persist Security amp。 Info=True。User ID=sa。Initial Catalog=PurchaseandSale。Server=(local)If 1 Then (connstring)End If (strUpdate)myerr:End Sub（9） 、當(dāng)用戶單擊“退出窗口”按鈕時(shí)，需要調(diào)用窗體的卸載事件。所以雙擊 Command2 控件，在其單擊事件中輸入如下代碼：Private Sub Command2_Click()Unload MeEnd Sub（10） 、這樣，庫(kù)存盤(pán)點(diǎn)主要的功能就設(shè)置完成了。下面需要將 frmKCPD 窗口和主窗口中相應(yīng)的菜單綁定。單擊 frmMain 窗口中的“庫(kù)存盤(pán)點(diǎn)”菜單，進(jìn)入到菜單的單擊事件中，輸入如下代碼：Private Sub KCPD_Click()Load frmKCPD39 = FalseEnd Sub這樣，庫(kù)存盤(pán)點(diǎn)的功能就全部實(shí)現(xiàn)了。登錄程序，登錄后進(jìn)入到系統(tǒng)的主窗口，單擊菜單欄中的庫(kù)存盤(pán)點(diǎn)，效果如圖所示。 創(chuàng)建產(chǎn)品管理窗口菜單中的第 4 項(xiàng)是產(chǎn)品管理，也就是對(duì)數(shù)據(jù)庫(kù)中的 Product 數(shù)據(jù)表進(jìn)行維護(hù)。在價(jià)格管理窗口中，允許用戶對(duì)商品和產(chǎn)品的記錄進(jìn)行增加、刪除和編輯等操作。創(chuàng)建庫(kù)存盤(pán)點(diǎn)窗口的步驟如下：（1）按照前述方法在應(yīng)用程序工程中加入一個(gè) Windows 窗口 frmCPGL。（2） 設(shè)置 frmCPGL 窗口的 Icon 屬性為 System。ico，BorderStyle 屬性為Fixed Single，StartUpPosition 屬性為屏幕中心，Caption 屬性為“產(chǎn)品管理” 。（3） 利用 Adodc 控件連接到數(shù)據(jù)庫(kù)。從工具箱中拖動(dòng)一個(gè) Adodc 控件到窗體 中，命名為 adoCPGL。（4）前述方法設(shè)置 adoCPGL 控件的連接屬性，使其連接到數(shù)據(jù)庫(kù)PurchaseandSale，并檢索 Product 數(shù)據(jù)表。40（5） DataGrid 控件不但可以顯示數(shù)據(jù)，還可以在其中編輯數(shù)據(jù)。從工具箱中拖動(dòng)一個(gè) DataGrid 控件到富 frmCPGL 窗口中，命名為 dgdCPGL。設(shè)置其DataSource 屬性為 adoCPGL，AllowUpdate 屬性為 False。（6） 在 frmCPGL 窗體設(shè)置中放置 5 個(gè)命令按鈕控件，設(shè)置其 Caption 為“添加” 、 “