小型企業(yè)進銷存管理系統(tǒng)畢業(yè)設計論文

1、小型企業(yè)進銷存管理系統(tǒng)摘要： 隨著我國市場經濟的蓬勃發(fā)展和人們對計算機的普遍應用，批發(fā)、零售行業(yè)正處在一個高速發(fā)展的時期。行業(yè)的快速發(fā)展必然導致競爭的加劇，要想在激烈的市場競爭中謀求發(fā)展，客觀上要求企業(yè)必須加強內部管理，提高運營效率。而我國大部分小型批發(fā)、零售企業(yè)在信息機制上還沒有擺脫原有的手工模式，企業(yè)內部沒有形成完善的、有效的信息化管理機制，企業(yè)發(fā)展的動力不足，從而影響企業(yè)的持續(xù)、穩(wěn)定、快速的發(fā)展。本文介紹了筆者編寫的一個用于小型企業(yè)進銷存管理系統(tǒng)。其中擁有功能比較全面的進銷存管理系統(tǒng)。該系統(tǒng)包括用戶注冊和登錄、日常業(yè)務管理、庫存管理、查詢統(tǒng)計管理、應收應付管理、統(tǒng)計報表管理、基礎信息管理

2、和系統(tǒng)設置幾個模塊。Abstract:關鍵字： 進銷存管理 查詢 信息管理 日常業(yè)務一、 引言隨著計算機的普遍應用，企業(yè)對內部機制形成完善的、有效的信息化管理機制，是使企業(yè)的各項管理實現(xiàn)現(xiàn)代化，在確定了本系統(tǒng)的設計目標之后，特開發(fā)了本管理系統(tǒng)，來完善企業(yè)內部的管理機制。二、開發(fā)和運行的環(huán)境開發(fā)工具：Microsoft Visual Studio 2008中文版，后臺所用數(shù)據(jù)庫是SQL2008，團隊開發(fā)工具Microsoft Visual Softsafe。運行環(huán)境：1、運行 Intel 或兼容的 Pentium、Pentium Pro 或 Pentium II 處理器的計算機上運作。處理器必須

3、以最低 166 MHz 的速度運行。內存要求最低 64 MB。2、SQL Server 2000，Visual Basic 6.0三、 正文1、 流程分析 庫存表 商品入庫表商品入庫 供應商明細表 商品退貨表退貨返廠 庫存表 商品銷售表商品銷售 商品銷售退貨表銷售退貨進入系統(tǒng)驗證登錄操作員 客戶明細表 說明： 供應商明細表付款單 數(shù)據(jù)源點和匯點 加工 客戶明細表收款單 數(shù)據(jù)文件 數(shù)據(jù)流 庫存查詢、盤點庫存管理 出入庫、銷售、退貨查詢查詢統(tǒng)計商品信息查詢、修改、刪除 應收應付款查詢應收應付管理進入系統(tǒng)驗證登錄管理員職員信息查詢、修改、刪除倉庫信息查詢、修改、刪除 說明：供應商信息查詢、修改、刪除

4、基礎信息管理 數(shù)據(jù)源點和匯點 客戶信息查詢、修改、刪除 加工 本單位定義、操作員及密碼增加、修改、刪除，權限設置，系統(tǒng)初始化系統(tǒng)設置 數(shù)據(jù)文件 數(shù)據(jù)流 2、 數(shù)據(jù)庫的設計（1）E-R圖:商品出入庫：倉庫基礎信息表CKINF商品基礎信息表SPINF員工基礎信息表YGINF供應商基礎信息表GYS商品編號一對多關系倉庫代碼一對多關系員工編號一對多關系供應商編號一對多關系商品入庫表RKD退貨返廠表RKTH商品編號多對一關系供應商編號多對多關系庫存表KC供應商明細表GYSMX商品銷售、退貨：倉庫基礎信息表CKINF商品基礎信息表SPINF員工基礎信息表YGINF客戶基礎信息表KH商品編號一對多關系倉庫代

5、碼一對多關系員工編號一對多關系客戶編號一對多關系商品銷售表XSD銷售退貨表XSTH商品編號多對一關系客戶編號多對多關系庫存表KC客戶明細表KHMX（2）關系模型(數(shù)據(jù)庫的結構)本單位信息表：字段名稱數(shù)據(jù)類型字段大小公司簡稱Char 10公司電話Char20公司全稱Char50公司地址Char50稅務登記號Char20開戶銀行及賬號Char60備注Char50倉庫信息表：（倉庫代碼為主鍵）字段名稱數(shù)據(jù)類型字段大小倉庫代碼Char10倉庫名稱Char20庫管員Char10倉庫說明Char100員工信息表：（員工編號為主鍵）字段名稱數(shù)據(jù)類型字段大小員工編號Char10員工姓名Cha16性別Cha10

6、出生年月Datetime文化程度Cha20所屬部門Cha30職務Cha30身份證號Varchar30聯(lián)系電話Varchar20聯(lián)系地址Cha50聘用日期Datetime薪金Money商品信息表：（商品編號為主鍵）字段名稱數(shù)據(jù)類型字段大小商品編號Char8商品名稱Char100簡稱Char10規(guī)格Char40產地Char50單位Char6進價Money批發(fā)價Money零售價Money供貨信息Char200備注Char200權限設置信息表：字段名稱數(shù)據(jù)類型字段大小商品入庫Bit退貨返廠Bit商品銷售Bit銷售退貨Bit庫存查詢Bit庫存盤點Bit入庫查詢Bit退貨返廠查詢Bit銷售查詢Bit銷售退

7、貨查詢Bit收款單Bit付款單Bit應收款查詢Bit應付款查詢Bit銷售日報表Bit銷售月報表Bit客戶銷售報表Bit職員銷售報表Bit商品信息管理Bit員工信息管理Bit倉庫信息管理Bit供應商信息管理Bit客戶信息管理Bit本單位定義Bit操作員編號及密碼設置Bit權限設置Bit系統(tǒng)初始化Bit操作員編號Char10操作員名稱Cha10密碼Cha10供應商信息表：（供應商編號為主鍵）字段名稱數(shù)據(jù)類型字段大小供應商編號Char20供應商全稱Char50簡稱Char10地址Char30所屬地區(qū)Char20郵政編碼Char10電話Char30傳真Char10聯(lián)系人Char30聯(lián)系人電話Char3

8、0開戶銀行Char20納稅人登記Char30網(wǎng)址郵箱Char20客戶信息表：（客戶編號為主鍵）字段名稱數(shù)據(jù)類型字段大小客戶編號Char20客戶全稱Char50簡稱Char10地址Char30所屬地區(qū)Char20郵政編碼Char10電話Char30傳真Char30聯(lián)系人Char10聯(lián)系人電話Char30開戶銀行Char30銀行賬號Char20納稅人登記Char30網(wǎng)址郵箱Char20庫存商品信息表：（商品編號為主鍵）字段名稱數(shù)據(jù)類型字段大小商品編號Char8商品名稱Char100規(guī)格Char40產地Char50單位Char6進價Money庫存數(shù)量Number18庫存金額Money倉庫Char10

9、商品入庫信息表：（商品編號為主鍵）字段名稱數(shù)據(jù)類型字段大小商品編號Char8商品名稱Char100規(guī)格Char40產地Char50單位Char6進價Money數(shù)量Numeric18金額Money倉庫Char10供應商Char50操作員Char10經手人Char10日期Datetime票號Char30供貨退貨信息表：（商品編號為主鍵）字段名稱數(shù)據(jù)類型字段大小商品編號Char8商品名稱Char100規(guī)格Char40產地Char50單位Char6進價Money數(shù)量Numeric18金額Money倉庫Char10供應商全稱Char50操作員Char10經手人Char10日期Datetime票號Char

10、30供應商賬款往來信息表：（供應商全稱為主鍵）字段名稱數(shù)據(jù)類型字段大小日期Datetime時間Datetime摘要Varchar200數(shù)量Numeric18單位Char10單價Money金額小計Money欠款記賬Money付款合計Money累計金額Money供應商全稱Char50票號Char30備注Char60銷售信息表：（商品編號為主鍵）字段名稱數(shù)據(jù)類型字段大小商品編號Char8商品名稱Char100簡稱Char10規(guī)格Char40產地Char50單位Char6進價Money數(shù)量Numeric18金額Money倉庫Char10客戶全稱Char50操作員Char10經手人Char10日期Dat

11、etime票號Char30銷售退貨信息表：（商品編號為主鍵）字段名稱數(shù)據(jù)類型字段大小商品編號Char8商品名稱Char100規(guī)格Char40產地Char50單位Char6單價Money數(shù)量Numeric18金額Money倉庫Char10客戶全稱Char50操作員Char10經手人Char10日期Datetime票號Char30客戶往來賬款信息表：（客戶全稱為主鍵）字段名稱數(shù)據(jù)類型字段大小日期Datetime時間Datetime摘要Varchar200數(shù)量Numeric18單位Char10單價Money金額小計Money欠款記賬Money收款合計Money累計金額Money客戶全稱Char50票

12、號Char30備注Char603、 總體設計汽車發(fā)油管理系統(tǒng)統(tǒng)計查詢業(yè)務合同計量管理作業(yè)管理通知單管理系統(tǒng)維護合同間轉入轉出合同信息管理合同信息手工調賬審批通過業(yè)務計劃生產作業(yè)計劃評審作業(yè)計劃評審記錄儲罐基本信息登陸頁面管理菜單管理油品基本信息儲罐監(jiān)控及歷史油品存量分布圖汽車出庫業(yè)務計劃業(yè)務計劃評審業(yè)務計劃評審記錄汽車發(fā)油計量儲罐計量4、 主要功能模塊分析一）、系統(tǒng)登錄模塊Start選擇用戶名并輸入密碼符合條件嗎？ .F. 在數(shù)據(jù)庫中驗證用戶的密碼。.T.進入系統(tǒng)End功能：用戶登錄驗證成功后進入進銷存管理系統(tǒng)。如是第一次直接進入系統(tǒng)設置操作員及密碼。說明：在窗體中需要Adodc和DataCo

13、mbo控件，則需要加載“Microsoft ADO Data Control 6.0(SP4)(OLEDB)”和“Microsoft DataList Control 6.0(SP3) (OLEDB)”部件，將控件添加到工具箱。二）、日常業(yè)務管理(一)、商品入庫、出庫 商品入庫 商品出庫(二)、商品銷售、退貨 商品銷售(一)、商品入庫、出庫流程圖：新建業(yè)務計劃分配財務部經理生產部經理查看具體業(yè)務信息查看具體業(yè)務信息 通過？通過？是否都通過？發(fā)貨工發(fā)貨T F END . .F. .T.功能：完成商品入庫工作，付供應商貨款方式可采用現(xiàn)金和支票，并可掛帳。說明：入庫采用智能化表單錄入，可一次錄入多種

14、商品，在“商品名稱”欄內輸入商品名稱或簡稱的前幾個字或找PageDown鍵，系統(tǒng)將自動利用表格顯示相關商品信息。使用方向鍵、 選擇商品，按回車鍵，該商品信息將自動錄入到表格中，只需輸入如哭數(shù)量（系統(tǒng)自動計算商品金額），回車后即可入庫下一商品。系統(tǒng)自動生成入庫票號，可利用組合鍵選擇供應商信息、經手人、倉庫。自動統(tǒng)計商品入庫功能：完成退還給供應商貨物的工作。說明：同商品入庫工作相似，同商品入庫成正反關系。(二)、商品銷售、退貨流程圖：Start登記選擇供應商，經手人，入庫倉號，商品信息等 信息是否輸入完整？ .F. .T. 是否保存？ .F. .T.End功能：完成商品銷售工作，客戶貨款方式可采用

15、現(xiàn)金和支票，并可掛帳。說明：銷售采用錄入方式同商品入庫錄入方式，自動生成銷售票號，自動統(tǒng)計商品銷售品種、數(shù)量、金額、計算折扣、稅率。但如果銷售商品數(shù)量大于庫存商品數(shù)量時，此筆交易將被取消，所以在商品銷售模中銷售的商品數(shù)量一定要小于等于該商品的庫存數(shù)量。功能：完成客戶退貨的工作。說明：退貨采用錄入方式同商品銷售。功能：四）、庫存管理（一）、庫存商品查詢功能：查詢商品庫中所有商品的信息。說明：可選擇不同字段查詢商品庫存信息，并支持模糊查詢和鍵盤操作。（二）、庫存盤點功能：查詢各倉庫中商品庫存情況。說明：選擇倉庫名稱、查詢該倉庫中庫存商品的情況。五）、查詢統(tǒng)計管理（一）、入庫查詢功能：查詢商品入庫信

16、息。說明：選擇字段查詢商品入庫信息，支持模糊查詢，按任意時間段查詢商品入庫信息，統(tǒng)計入庫品種、入庫數(shù)量、入庫金額。（二）、出庫查詢功能：查詢退供應商貨物信息。說明：選擇字段查詢商品入庫信息，支持模糊查詢，按任意時間段查詢商品入庫信息，統(tǒng)計入庫品種、入庫數(shù)量、入庫金額。（三）、銷售查詢功能：查詢商品銷售信息。說明：選擇任意字段、不同條件查詢商品銷售信息，也可按任意時間段查詢商品銷售信息，支持模糊查詢和精確查詢，可統(tǒng)計銷售品種、數(shù)量、金額。（四）、銷售退貨功能：查詢客戶退貨信息。說明：選擇任意字段、不同條件查詢商品銷售信息，也可按任意時間段查詢商品銷售信息，支持模糊查詢和精確查詢，可統(tǒng)計銷售品種、

17、數(shù)量、金額。六）、應收應付管理（一）、付款單功能：實現(xiàn)向供應商付款的功能。說明：可查詢與供應商之間的往來帳款信息，提供供應商列表選擇，并計算欠供應商的累計余額。（二）、收款單功能：實現(xiàn)向客戶收款的功能。說明：可查詢與客戶之間的往來帳款信息，提供客戶列表選擇、并計算應收客戶累計余額。（三）、應收款查詢功能：查詢客戶付款信息。說明：查詢任意時間段內與客戶往來帳款信息，輸入或選擇客戶名稱查詢應收款，統(tǒng)計欠款金額，尚欠余額。（四）、應付款查詢功能：查詢向供應商付款信息。說明：查詢任意時間段內與供應商之間的往來帳款信息，提供供應商列表供用戶選擇、支持鍵盤操作，統(tǒng)計欠款余額，付款金額，尚欠余額。七）、統(tǒng)計

18、報表管理（一）、銷售日報表功能：查詢當天的商品銷售日報，同時統(tǒng)計商品銷售品種、銷售數(shù)量、銷售金額。（二）、銷售月報表功能：查詢任意一個月或任意時間段的商品銷售報表，統(tǒng)計銷售品種、銷售數(shù)量、銷售余額。（三）、客戶銷售報表功能：統(tǒng)計所有客戶銷售商品的情況。說明：可以按商品名稱、倉庫、職員或任意時間段統(tǒng)計所有客戶銷售商品的情況，采用組合式查詢方法。（四）、職員銷售報表功能：統(tǒng)計公司所有職員銷售商品的情況。說明：可以按商品名稱、倉庫或客戶名稱或任意時間段統(tǒng)計所有職員銷售商品的情況。八）、基礎信息管理（一）、商品信息管理功能：完成商品基本信息的錄入、保存、修改、刪除，支持鍵盤操作，選擇字段查詢商品基本信

19、息，并可列表瀏覽商品信息。說明：錄入時單擊“登記”按鈕，將自動生成8位商品編號，在處理數(shù)據(jù)時，列表瀏覽商品信息不可用。（二）、職員信息管理功能：完成職員基本信息的錄入、保存、修改、刪除，可按任意字段查詢職員基本情況，支持列表瀏覽職員信息。說明：登記職員信息時自動生成職員編號。（三）、倉庫信息管理功能：完成倉庫基本信息的錄入、保存、修改、刪除，可按列表方式查詢倉庫信息。（四）、供應商信息管理功能：完成供應商基本信息的錄入、保存、修改、刪除，可以按任意字段查詢供應商基本信息。（五）、客戶信息管理功能：完成客戶基本信息的錄入、保存、修改、刪除，可以按任意字段查詢客戶基本信息。九）、系統(tǒng)設置（一）、本

20、單位定義功能：定義本單位的基本信息，可以修改。（二）、操作員及密碼功能：操作員信息的添加、修改、刪除、密碼的修改及操作員信息瀏覽。（三）、權限設置功能：對操作員進行不同的權限設置。（四）、系統(tǒng)初始化功能：對系統(tǒng)數(shù)據(jù)庫進行清空記錄說明：第一次進入系統(tǒng)時清空測試數(shù)據(jù)，可以選擇初始化對象。十）、幫助（一）、幫助功能：幫助提示信息。（二）、關于功能：版權說明及查看計算機系統(tǒng)信息。四、各個重要模塊的程序簡介1. 公用模塊Option ExplicitPublic Function cnn() As String cnn = "Provider=MSDASQL.1;Persist Securit

21、y Info=False;User ID=sa;Data Source=Gcgl;Initial Catalog=Gcgl"End FunctionPublic Sub Enter(KeyCode As Integer) If KeyCode = vbKeyReturn Then SendKeys "Tab" End IfEnd Sub2. 系統(tǒng)登錄模塊Dim TIM As Integer '聲明一個整型變量Dim rs1 As New ADODB.Recordset 定義一個數(shù)據(jù)集對象Dim myval As String Private Sub For

22、m_Activate()'顯示軟件名稱及版本信息Me.Caption = App.Title & "版本： V" & App.Major & "." & App.Minor & "." & App.Revisionrs1.Open "select * from qxsz ", cnn, adOpenKeyset, adLockOptimistic '打開數(shù)據(jù)庫If rs1.RecordCount = 0 Then myval = MsgBox(&quo

23、t;進入系統(tǒng)后先設置操作員和操作員權限！",0") Load frm_main frm_main.Show Unload Me Else DataCombo1.SetFocus End Ifrs1.CloseEnd SubPrivate Sub DataCombo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text2.SetFocus End SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Int

24、eger) If KeyCode = vbKeyReturn Then Cmd1.Visible = True Cmd1.SetFocus End IfEnd SubPrivate Sub cmd1_Click() rs1.Open "select * from qxsz where 操作員名稱='" & DataCombo1.BoundText & "'", cnn, adOpenKeyset, adLockOptimistic If rs1.RecordCount > 0 Then商品入庫")商品入庫&

25、quot;)商品銷售") f商品銷售")退貨返廠")銷售退貨")銷售退貨")庫存查詢") f庫存查詢")庫存盤點")入庫查詢")入庫查詢")退貨返廠查詢") 銷售查詢")銷售查詢")銷售退貨查詢")付款單")付款單")收款單")收款單")應收款查詢")應付款查詢")銷售日報表") frm_main.xsybb.Enabled = rs1.Fields("銷售月報表")

26、客戶銷售報表")職員銷售報表")商品信息管理")員工信息管理")1.Fields("倉庫信息管理")供應商信息管理")供應商信息管理")客戶信息管理")客戶信息管理") frm_main.bdwdy.Enabled = rs1.Fields("本單位定義")操作員及密碼")權限設置")系統(tǒng)初始化") Dim MESSAGE As String Textime.Text = TIM Adodc1.RecordSource = "selec

27、t * from qxsz where 操作員名稱='" + DataCombo1.BoundText + "'" Adodc1.Refresh密碼") Then Load frm_main frm_main.Show Unload Me Else If TIM = 3 Then MESSAGE = MsgBox("密碼輸入錯誤,請向系統(tǒng)管理員查詢!", 0, "") If MESSAGE = vbOK Then End End If If DataCombo1.BoundText = "

28、" Then MsgBox ("請輸入操作員!") DataCombo1.SetFocus Else 操作員名稱") Then MsgBox ("查無此操作員,請重新輸入操作員!") DataCombo1.SetFocus Else密碼") Then MsgBox ("密碼錯誤,請重新輸入密碼!") TIM = TIM + 1 Text2.SetFocus End If End If End If End If End If rs1.CloseEnd SubPrivate Sub cmd2_Click()

29、 EndEnd Sub3. 主程序模塊Private Sub ckcx_Click() Load main_cxtj_ckcxmain_cxtj_ckcx.Showfrm_main.Enabled = FalseEnd SubPrivate Sub Form_Load()Me.Caption = App.Title & " 版本： V" & App.Major & "." & App.Minor & "." & App.Revision Dim i As Integer For i =

30、0 To 1 Label1(i).Caption = App.Title Next i Label2.Caption = "版本： V" & App.Major & "." & App.Minor & "." & App.RevisionEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case Is = "rk" rkd_Cli

31、ck Case Is = "kc" kccx_Click Case Is = "xscx" xscx_Click Case Is = "rkcx" rkcx_Click Case Is = "fkd" fkd_Click Case Is = "kh" khinf_Click Case Is = "gys" gysinf_Click Case Is = "bz" bz1_ClickCase Is = "xs" spxs_ClickCase

32、 Is = "xsth" xsth_ClickCase Is = "skd" skd_ClickCase Is = "tc" End End SelectEnd SubPrivate Sub Timer1_Timer() St1.Panels(2).Text = Format(Date, "long date") & " " & TimeEnd SubPrivate Sub rkd_Click() Load main_rcyw_rk main_rcyw_rk.Show frm_m

33、ain.Enabled = FalseEnd SubPrivate Sub rktd_Click() Load main_rcyw_rktdmain_rcyw_rktd.Showfrm_main.Enabled = FalseEnd SubPrivate Sub kccx_Click() Load main_kcgl_kccx main_kcgl_kccx.Show frm_main.Enabled = FalseEnd SubPrivate Sub kcpd_Click() Load main_kcgl_kcpd main_kcgl_kcpd.Show frm_main.Enabled =

34、FalseEnd SubPrivate Sub xscx_Click() Load main_cxtj_xscx main_cxtj_xscx.Show frm_main.Enabled = FalseEnd SubPrivate Sub rkcx_Click() Load main_cxtj_rkcx main_cxtj_rkcx.Show frm_main.Enabled = FalseEnd SubPrivate Sub fkd_Click() Load main_ysyf_fkd main_ysyf_fkd.Show frm_main.Enabled = FalseEnd SubPri

35、vate Sub skcx_Click() Load main_ysyf_skcx main_ysyf_skcx.Show frm_main.Enabled = FalseEnd SubPrivate Sub fkcx_Click() Load main_ysyf_fkcx main_ysyf_fkcx.Show frm_main.Enabled = FalseEnd SubPrivate Sub xsrbb_Click() Load main_tjbb_xsrbb main_tjbb_xsrbb.Show frm_main.Enabled = FalseEnd SubPrivate Sub

36、xsthcx_Click() Load main_cxtj_xsthcxmain_cxtj_xsthcx.ShowEnd SubPrivate Sub xsybb_Click() Load main_tjbb_xsybb main_tjbb_xsybb.Show frm_main.Enabled = FalseEnd SubPrivate Sub khxsbb_Click() Load main_tjbb_khxsbb main_tjbb_khxsbb.Show frm_main.Enabled = FalseEnd SubPrivate Sub zyxsbb_Click() Load mai

37、n_tjbb_zyxsbb main_tjbb_zyxsbb.Show frm_main.Enabled = FalseEnd SubPrivate Sub spinf_Click() Load main_jbxx_spinf main_jbxx_spinf.Show frm_main.Enabled = FalseEnd SubPrivate Sub yginf_Click() Load main_jbxx_yginf main_jbxx_yginf.Show frm_main.Enabled = FalseEnd SubPrivate Sub ckinf_Click() Load main

38、_jbxx_ckinf main_jbxx_ckinf.Show frm_main.Enabled = FalseEnd SubPrivate Sub gysinf_Click() Load main_jbxx_gys main_jbxx_gys.Show frm_main.Enabled = FalseEnd SubPrivate Sub khinf_Click() Load main_jbxx_kh main_jbxx_kh.Show frm_main.Enabled = FalseEnd SubPrivate Sub bdwdy_Click() Load main_bdwdy main_

39、bdwdy.Show frm_main.Enabled = FalseEnd SubPrivate Sub czysz_Click() Load main_xtsz_czysz main_xtsz_czysz.Show frm_main.Enabled = FalseEnd SubPrivate Sub qxsz_Click() Load main_xtsz_qxsz main_xtsz_qxsz.Show frm_main.Enabled = FalseEnd SubPrivate Sub xtcsh_Click() Load main_xtsz_xtcsh main_xtsz_xtcsh.

40、Show frm_main.Enabled = FalseEnd SubPrivate Sub bz1_Click() Load frmTip frmTip.Show frm_main.Enabled = FalseEnd SubPrivate Sub gy_Click() Load frmAbout frmAbout.Show frm_main.Enabled = FalseEnd SubPrivate Sub spxs_Click() Load main_rcyw_xsmain_rcyw_xs.Showfrm_main.Enabled = FalseEnd SubPrivate Sub x

41、sth_Click() Load main_rcyw_xsthmain_rcyw_xsth.Showfrm_main.Enabled = FalseEnd SubPrivate Sub skd_Click() Load main_ysyf_skdmain_ysyf_skd.ShowEnd SubPrivate Sub exit_Click()EndEnd Sub4. 商品入庫模塊'定義數(shù)據(jù)集對象Dim rs1 As New ADODB.RecordsetDim rs2 As New ADODB.RecordsetDim rs3 As New ADODB.RecordsetDim rs4

42、 As New ADODB.RecordsetDim rs5 As New ADODB.RecordsetDim s, y, i, j Public Sub yfje_exp() yfje.Text = Format(Val(hjje.Text) * (Val(zk.Text) / 10) + (Val(yfje.Text) * (Val(sl.Text) / 100), "0.00")End SubPrivate Sub Form_Activate() rq.Text = Date Combo1.AddItem ("現(xiàn)金"): Combo1.AddIt

43、em ("轉帳支票") Combo1.AddItem ("匯票"): Combo1.ListIndex = 0 Me.Caption = Me.Caption & "操作員：End SubPrivate Sub Form_Load() MS1.Rows = 102: MS1.Cols = 9 s = Array("300", "2100", "1200", "1800", "1500", "765", "12

44、00", "1200", "1200") y = Array("xh", "商品名稱", "商品編號", "規(guī)格", "產地", "單位", "進價", "數(shù)量", "金額") For i = 0 To 8 MS1.ColWidth(i) = s(i): MS1.TextMatrix(0, i) = y(i) Next i MS1.FixedRows = 1: MS1

45、.FixedCols = 1 For i = 1 To 101 MS1.TextMatrix(i, 0) = i Next i rq.Text = Date End SubPrivate Sub Form_Unload(Cancel As Integer) frm_main.Enabled = TrueEnd SubPrivate Sub ck_Change() ck.Text = Trim(ck.BoundText)End SubPrivate Sub ck_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyRet

46、urn Then MS1.Row = 1: MS1.Col = 1 Text1.Visible = True Text1.SetFocus End IfEnd SubPrivate Sub gys_Change() DataList1.ReFill Adodc1.RecordSource = "select * from gys where 供應商全稱 like '" + Trim(gys.Text) + "'+ '%'or 簡稱 like '" + Trim(gys.Text) + "'+ &#

47、39;%'" Adodc1.RefreshEnd SubPrivate Sub gys_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then DataList1.Visible = False jsr.SetFocus End If If KeyCode = vbKeyPageDown Then DataList1.ReFill DataList1.Visible = True DataList1.SetFocus End IfEnd SubPrivate Sub grid1_K

48、eyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then With Adodc2.Recordset If .RecordCount > 0 Then If .Fields("商品名稱") <> "" Then If .Fields("商品名稱") <> "" Then MS1.TextMatrix(MS1.Row, 1) = Trim(.Fields("商品名稱") If

49、.Fields("商品編號") <> "" Then MS1.TextMatrix(MS1.Row, 2) = Trim(.Fields("商品編號") If .Fields("規(guī)格") <> "" Then MS1.TextMatrix(MS1.Row, 3) = Trim(.Fields("規(guī)格") If .Fields("產地") <> "" Then MS1.TextMatrix(MS1.Ro

50、w, 4) = Trim(.Fields("產地") If .Fields("單位") <> "" Then MS1.TextMatrix(MS1.Row, 5) = Trim(.Fields("單位") If .Fields("進價") <> "" Then MS1.TextMatrix(MS1.Row, 6) = .Fields("進價") Text1.Text = MS1.Text Text1.SetFocus MS1.Col