【正文】 x False End Sub Private Sub kcpd_Click Load main_kcgl_kcpd False End Sub Private Sub xscx_Click Load main_cxtj_xscx False End Sub Private Sub rkcx_Click Load main_cxtj_rkcx False End Sub Private Sub fkd_Click Load main_ysyf_fkd False End Sub Private Sub skcx_Click Load main_ysyf_skcx False End Sub Private Sub fkcx_Click Load main_ysyf_fkcx False End Sub Private Sub xsrbb_Click Load main_tjbb_xsrbb False End Sub Private Sub xsthcx_Click Load main_cxtj_xsthcx End Sub Private Sub xsybb_Click Load main_tjbb_xsybb False End Sub Private Sub khxsbb_Click Load main_tjbb_khxsbb False End Sub Private Sub zyxsbb_Click Load main_tjbb_zyxsbb False End Sub Private Sub spinf_Click Load main_jbxx_spinf False End Sub Private Sub yginf_Click Load main_jbxx_yginf False End Sub Private Sub ckinf_Click Load main_jbxx_ckinf False End Sub Private Sub gysinf_Click Load main_jbxx_gys False End Sub Private Sub khinf_Click Load main_jbxx_kh False End Sub Private Sub bdwdy_Click Load main_bdwdy False End Sub Private Sub czysz_Click Load main_xtsz_czysz False End Sub Private Sub qxsz_Click Load main_xtsz_qxsz False End Sub Private Sub xtcsh_Click Load main_xtsz_xtcsh False End Sub Private Sub bz1_Click Load frmTip False End Sub Private Sub gy_Click Load frmAbout False End Sub Private Sub spxs_Click Load main_rcyw_xs False End Sub Private Sub xsth_Click Load main_rcyw_xsth False End Sub Private Sub skd_Click Load main_ysyf_skd End Sub Private Sub exit_Click End End Sub 商品入庫模塊 39。 amp。 . amp。 版本： V amp。 39。 select * from qxsz , n, adOpenKeyset, adLockOptimistic 39。 amp。Initial Catalog Gcgl End Function Public Sub Enter KeyCode As Integer If KeyCode vbKeyReturn Then SendKeys Tab End If End Sub 系統(tǒng)登錄模塊 Dim TIM As Integer 39。 四、各個重要模塊的程序簡介 公用模塊 Option Explicit Public Function n As String n Provider 。 （三）、權(quán)限設(shè)置 功能：對操作員進行不同的權(quán)限設(shè)置。 （四）、供應(yīng)商信息管理 功能：完成供應(yīng)商基本信息的錄入、保存、修改、刪除，可以按任意字段查詢供應(yīng)商基本信息。 說明：錄入時單擊“登記”按鈕，將自動生成 8 位商品編號，在處理數(shù)據(jù)時，列表瀏覽商品信息不可用。 說明：可以按商品名稱、倉庫、職員或任意時間段統(tǒng)計所有客戶銷售商品 的情況，采用組合式查詢方法。 說明：查詢?nèi)我鈺r間段內(nèi)與供應(yīng)商之間的往來帳款信息，提供供應(yīng)商列表供用戶選擇、支持鍵盤操作，統(tǒng)計欠款余額，付款金額，尚欠余額。 說明：可查詢與客戶之間的往來帳款信息，提供客戶列表選擇、并計算應(yīng)收客戶累計余額。 說明：選擇任意字段、不同條件查詢商品銷售信息，也可按任 意時間段查詢商品銷售信息，支持模糊查詢和精確查詢，可統(tǒng)計銷售品種、數(shù)量、金額。 說明：選擇字段查詢商品入庫信息，支持模糊查詢，按任意時間段查詢商品入庫信息，統(tǒng)計入庫品種、入庫數(shù)量、入庫金額。 說明：選擇倉庫名稱、查詢該倉庫中庫存商品的情況。 說明：退貨采用錄入方式同商品銷售。 二 、商品銷售、退貨流程圖： .F. .T. .F. .T. 功能：完成商品銷售工作，客戶貨款方式可采用現(xiàn)金和支票，并可掛帳。使用方向鍵〈↑〉、〈↓〉 選擇商品，按回車鍵，該商品信息將自動錄入到表格中，只需輸入如哭數(shù)量（系統(tǒng)自動計算商品金額），回車后即可入庫下一商品。如是第一次直接進入系統(tǒng)設(shè)置操作員及密碼。 運行環(huán)境： 運行 Intel 或兼容的 Pentium、 Pentium Pro 或 Pentium II 處理器的計算機上運作。其中擁有功能比較全面的進銷存管理系統(tǒng)。小型企業(yè)進銷存管理系統(tǒng)設(shè)計 小型企業(yè)進銷存管理系統(tǒng) 摘要： 隨著我國市場經(jīng)濟的蓬勃發(fā)展和人們對計算機的普遍應(yīng)用，批發(fā)、零售行業(yè)正處在一個高速發(fā)展的時期。 本文介紹了筆者編 寫的一個用于小型企業(yè)進銷存管理系統(tǒng)。 二、開發(fā)和運行的環(huán)境 開發(fā)工 具： Visual Basic 中文版，后臺所用數(shù)據(jù)庫是 SQL2020，同時建立 ODBC 數(shù)據(jù)庫接口。 SQL Server 2020， Visual Basic 三、 正文 流程分析 說明： 數(shù)據(jù)源點和匯點 加工 數(shù)據(jù)文件 數(shù)據(jù)流 說明： 數(shù)據(jù)源點和匯點 加工 數(shù)據(jù)文件 數(shù)據(jù)流 數(shù)據(jù)庫的設(shè)計 （ 1） ER 圖 : 商品出入庫： 商品銷售、退貨： （ 2）關(guān)系模型 數(shù)據(jù)庫的結(jié)構(gòu) 本單位信息表： 字段名稱 數(shù)據(jù)類型 字段大 小 公司簡稱 Char 10 公司電話 Char 20 公司全稱 Char 50 公司地址 Char 50 稅務(wù)登記號 Char 20 開戶銀行及賬號 Char 60 備注 Char 50 倉庫信息表：（倉庫代碼為主鍵） 字段名稱 數(shù)據(jù)類型 字段大小 倉庫代碼 Char 10 倉庫名稱 Char 20 庫管員 Char 10 倉庫說明 Char 100 員工信息表：（員工編號為主鍵） 字段名稱 數(shù)據(jù)類型 字段大小 員工編號 Char 10 員工姓名 Cha 16 性別 Cha 10 出生年月 Datetime 文化程度 Cha 20 所屬部門 Cha 30 職務(wù) Cha 30 身份證號 Varchar 30 Varchar 20 聯(lián)系地址 Cha 50 聘用日期 Datetime 薪金 Money 商品信息表：（商品編號為主鍵） 字段名稱 數(shù)據(jù)類型 字段大小 商品編號 Char 8 商品名稱 Char 100 簡稱 Char 10 規(guī)格 Char 40 產(chǎn)地 Char 50 單位 Char 6 進價 Money 批發(fā)價 Money 零售價 Money 供貨信息 Char 200 備注 Char 200 權(quán)限設(shè)置信息表： 字段名稱 數(shù)據(jù)類型 字段大小 商品入庫 Bit 退貨返廠 Bit 商品銷售 Bit 銷售退貨 Bit 庫存查詢 Bit 庫存盤點 Bit 入庫查詢 Bit 退貨返廠查詢 Bit 銷售查詢 Bit 銷售退貨查詢 Bit 收款單 Bit 付款單 Bit 應(yīng)收款查詢 Bit 應(yīng)付款查詢 Bit 銷售日報表 Bit 銷售月報表 Bit 客戶 銷售報表 Bit 職員銷售報表 Bit 商品信息管理 Bit 員工信息管理 Bit 倉庫信息管理 Bit 供應(yīng)商信息管理 Bit 客戶信息管理 Bit 本單位定義 Bit 操作員編號及密碼設(shè)置 Bit 權(quán)限設(shè)置 Bit 系統(tǒng)初始化 Bit 操作員編號 Char 10 操作員名稱 Cha 10 密碼 Cha 10 供應(yīng)商信息表：（供應(yīng)商編號為主鍵） 字段名稱 數(shù)據(jù)類型 字段大小 供應(yīng)商編號 Char 20 供應(yīng)商全稱 Char 50 簡稱 Char 10 地址 Char 30 所屬地區(qū) Char 20 郵政編碼 Char 10 電話 Char 30 傳真 Char 10 聯(lián)系人 Char 30 聯(lián)系人電話 Char 30 開戶銀行 Char 20 納稅人登記 Char 30 網(wǎng)址郵箱 Char 20 客戶信息表：（客戶編號為主鍵） 字段名稱 數(shù)據(jù)類型 字段大小 客戶編號 Char 20 客戶全稱 Char 50 簡稱 Char 10 地址 Char 30 所屬地區(qū) Char 20 郵政編碼 Char 10 電話 Char 30 傳真 Char 30 聯(lián)系人 Char 10 聯(lián)系人電話 Char 30 開戶銀行 Char 30 銀行賬號 Char 20 納稅人登記 Char 30 網(wǎng)址郵箱 Char 20 庫存商品信息表：（商品編號為主鍵） 字段名稱 數(shù)據(jù)類型 字段大小 商品編號 Char 8 商品名稱 Char 100 規(guī)格 Char 40 產(chǎn)地 Char 50 單位 Char 6 進價 Money 庫存數(shù)量 Number 18 庫存金額 Money 倉庫 Char 10 商 品入