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

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

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

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

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

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

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

7、貨查詢Bit收款單Bit付款單Bit應(yīng)收款查詢Bit應(yīng)付款查詢Bit銷售日報(bào)表Bit銷售月報(bào)表Bit客戶銷售報(bào)表Bit職員銷售報(bào)表Bit商品信息管理Bit員工信息管理Bit倉庫信息管理Bit供應(yīng)商信息管理Bit客戶信息管理Bit本單位定義Bit操作員編號及密碼設(shè)置Bit權(quán)限設(shè)置Bit系統(tǒng)初始化Bit操作員編號Char10操作員名稱Cha10密碼Cha10供應(yīng)商信息表：（供應(yīng)商編號為主鍵）字段名稱數(shù)據(jù)類型字段大小供應(yīng)商編號Char20供應(yīng)商全稱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產(chǎn)地Char50單位Char6進(jìn)價(jià)Money庫存數(shù)量Number18庫存金額Money倉庫Char10

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

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

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

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

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

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

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

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

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

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

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

20、單位定義功能：定義本單位的基本信息，可以修改。（二）、操作員及密碼功能：操作員信息的添加、修改、刪除、密碼的修改及操作員信息瀏覽。（三）、權(quán)限設(shè)置功能：對操作員進(jìn)行不同的權(quán)限設(shè)置。（四）、系統(tǒng)初始化功能：對系統(tǒng)數(shù)據(jù)庫進(jìn)行清空記錄說明：第一次進(jìn)入系統(tǒng)時(shí)清空測試數(shù)據(jù)，可以選擇初始化對象。十）、幫助（一）、幫助功能：幫助提示信息。（二）、關(guān)于功能：版權(quán)說明及查看計(jì)算機(jī)系統(tǒng)信息。四、各個(gè)重要模塊的程序簡介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 '聲明一個(gè)整型變量Dim rs1 As New ADODB.Recordset 定義一個(gè)數(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;進(jìn)入系統(tǒng)后先設(shè)置操作員和操作員權(quán)限！",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庫存查詢")庫存盤點(diǎn)")入庫查詢")入庫查詢")退貨返廠查詢") 銷售查詢")銷售查詢")銷售退貨查詢")付款單")付款單")收款單")收款單")應(yīng)收款查詢")應(yīng)付款查詢")銷售日報(bào)表") frm_main.xsybb.Enabled = rs1.Fields("銷售月報(bào)表")

26、客戶銷售報(bào)表")職員銷售報(bào)表")商品信息管理")員工信息管理")1.Fields("倉庫信息管理")供應(yīng)商信息管理")供應(yīng)商信息管理")客戶信息管理")客戶信息管理") frm_main.bdwdy.Enabled = rs1.Fields("本單位定義")操作員及密碼")權(quán)限設(shè)置")系統(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("密碼輸入錯(cuò)誤,請向系統(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 ("密碼錯(cuò)誤,請重新輸入密碼!") 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 ("轉(zhuǎn)帳支票") 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ī)格", "產(chǎn)地", "單位", "進(jìn)價(jià)", "數(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 供應(yīng)商全稱 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("產(chǎn)地") <> "" Then MS1.TextMatrix(MS1.Ro

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