【正文】 號(hào))) If .Fields(185。+ 39。or 簡(jiǎn)稱 like 39。+ 39。 (3).TextEnd SubPrivate Sub Form_Load() = 102: = 9 s = Array(300, 2100, 1200, 1800, 1500, 765, 1200, 1200, 1200) y = Array(xh, 商品名稱, 商品編號(hào), 規(guī)格, 產(chǎn)地, 單位, 進(jìn)價(jià), 數(shù)量, 金額) For i = 0 To 8 (i) = s(i): (0, i) = y(i) Next i = 1: = 1 For i = 1 To 101 (i, 0) = i Next i = Date End SubPrivate Sub Form_Unload(Cancel As Integer) = TrueEnd SubPrivate Sub ck_Change() = Trim()End SubPrivate Sub ck_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then = 1: = 1 = True End IfEnd SubPrivate Sub gys_Change() = select * from gys where 供應(yīng)商全稱 like 39。定義數(shù)據(jù)集對(duì)象Dim rs1 As New Dim rs2 As New Dim rs3 As New Dim rs4 As New Dim rs5 As New Dim s, y, i, j Public Sub yfje_exp() = Format((Val() * (Val() / 10)) + (Val() * (Val() / 100)), )End SubPrivate Sub Form_Activate() = Date (現(xiàn)金): (轉(zhuǎn)帳支票) (匯票): = 0 = amp。 amp。 . amp。 . amp。 Dim i As Integer For i = 0 To 1 Label1(i).Caption = Next i = 版本： V amp。 amp。 amp。 If And = Trim((密碼)) Then Load frm_main (3).Text = Trim() Unload Me Else If TIM = 3 Then MESSAGE = MsgBox(密碼輸入錯(cuò)誤,請(qǐng)向系統(tǒng)管理員查詢!, 0, ) If MESSAGE = vbOK Then End End If If = Then MsgBox (請(qǐng)輸入操作員!) Else If Trim() Trim((操作員名稱)) Then MsgBox (查無此操作員,請(qǐng)重新輸入操作員!) Else If (密碼) Then MsgBox (密碼錯(cuò)誤,請(qǐng)重新輸入密碼!) TIM = TIM + 1 End If End If End If End If End If End SubPrivate Sub cmd2_Click() EndEnd Sub3. 主程序模塊Private Sub ckcx_Click() Load main_cxtj_ckcx = FalseEnd SubPrivate Sub Form_Load() = amp。供應(yīng)商信息管理) = (客戶信息管理) (19).Enabled = (客戶信息管理) = (本單位定義) = (操作員及密碼) = (權(quán)限設(shè)置) = (系統(tǒng)初始化) Dim MESSAGE As String = TIM = select * from qxsz where 操作員名稱=39。, n, adOpenKeyset, adLockOptimistic If 0 Then = (商品入庫(kù)) (1).Enabled = (商品入庫(kù)) = (商品銷售) (8).Enabled = (商品銷售) = (退貨返廠) = (銷售退貨) (10).Enabled = (銷售退貨) = (庫(kù)存查詢) (5).Enabled = (庫(kù)存查詢) = (庫(kù)存盤點(diǎn)) = (入庫(kù)查詢) (3).Enabled = (入庫(kù)查詢) = (退貨返廠查詢) = (銷售查詢) (12).Enabled = (銷售查詢) = (銷售退貨查詢) = (付款單) (15).Enabled = (付款單) = (收款單) (16).Enabled = (收款單) = (應(yīng)收款查詢) = (應(yīng)付款查詢) = (銷售日?qǐng)?bào)表) = (銷售月報(bào)表) = (客戶銷售報(bào)表) = (職員銷售報(bào)表) = (商品信息管理) = (員工信息管理) = (倉(cāng)庫(kù)信息管理) = (185。 amp。打開數(shù)據(jù)庫(kù)If = 0 Then myval = MsgBox(進(jìn)入系統(tǒng)后先設(shè)置操作員和操作員權(quán)限！,0) Load frm_main Unload Me Else End IfEnd SubPrivate Sub DataCombo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then = True End IfEnd SubPrivate Sub cmd1_Click() select * from qxsz where 操作員名稱=39。 . amp。 . amp。 版本： V amp。聲明一個(gè)整型變量Dim rs1 As New 定義一個(gè)數(shù)據(jù)集對(duì)象Dim myval As String Private Sub Form_Activate()39。Data Source=Gcgl。Persist Security Info=False。（二）、關(guān)于功能：版權(quán)說明及查看計(jì)算機(jī)系統(tǒng)信息。（四）、系統(tǒng)初始化功能：對(duì)系統(tǒng)數(shù)據(jù)庫(kù)進(jìn)行清空記錄說明：第一次進(jìn)入系統(tǒng)時(shí)清空測(cè)試數(shù)據(jù)，可以選擇初始化對(duì)象。（二）、操作員及密碼功能：操作員信息的添加、修改、刪除、密碼的修改及操作員信息瀏覽。（五）、客戶信息管理功能：完成客戶基本信息的錄入、保存、修改、刪除，可以按任意字段查詢客戶基本信息。（三）、倉(cāng)庫(kù)信息管理功能：完成倉(cāng)庫(kù)基本信息的錄入、保存、修改、刪除，可按列表方式查詢倉(cāng)庫(kù)信息。（二）、職員信息管理功能：完成職員基本信息的錄入、保存、修改、刪除，可按任意字段查詢職員基本情況，支持列表瀏覽職員信息。八）、基礎(chǔ)信息管理（一）、商品信息管理功能：完成商品基本信息的錄入、保存、修改、刪除，支持鍵盤操作，選擇字段查詢商品基本信息，并可列表瀏覽商品信息。（四）、職員銷售報(bào)表功能：統(tǒng)計(jì)公司所有職員銷售商品的情況。（三）、客戶銷售報(bào)表功能：統(tǒng)計(jì)所有客戶銷售商品的情況。七）、統(tǒng)計(jì)報(bào)表管理（一）、銷售日?qǐng)?bào)表功能：查詢當(dāng)天的商品銷售日?qǐng)?bào)，同時(shí)統(tǒng)計(jì)商品銷售品種、銷售數(shù)量、銷售金額。（四）、應(yīng)付款查詢功能：查詢向供應(yīng)商付款信息。（三）、應(yīng)收款查詢功能：查詢客戶付款信息。（二）、收款單功能：實(shí)現(xiàn)向客戶收款的功能。六）、應(yīng)收應(yīng)付管理（一）、付款單功能：實(shí)現(xiàn)向供應(yīng)商付款的功能。（四）、銷售退貨功能：查詢客戶退貨信息。（三）、銷售查詢功能：查詢商品銷售信息。（二）、出庫(kù)查詢功能：查詢退供應(yīng)商貨物信息。五）、查詢統(tǒng)計(jì)管理（一）、入庫(kù)查詢功能：查詢商品入庫(kù)信息。（二）、庫(kù)存盤點(diǎn)功能：查詢各倉(cāng)庫(kù)中商品庫(kù)存情況。功能：四）、庫(kù)存管理（一）、庫(kù)存商品查詢功能：查詢商品庫(kù)中所有商品的信息。功能：完成客戶退貨的工作。說明：銷售采用錄入方式同商品入庫(kù)錄入方式，自動(dòng)生成銷售票號(hào)，自動(dòng)統(tǒng)計(jì)商品銷售品種、數(shù)量、金額、計(jì)算折扣、稅率。說明：同商品入庫(kù)工作相似，同商品入庫(kù)成正反關(guān)系。系統(tǒng)自動(dòng)生成入庫(kù)票號(hào)，可利用組合鍵選擇供應(yīng)商信息、經(jīng)手人、倉(cāng)庫(kù)。說明：入庫(kù)采用智能化表單錄入，可一次錄入多種商品，在“商品名稱”欄內(nèi)輸入商品名稱或簡(jiǎn)稱的前幾個(gè)字或找〈PageDown〉鍵，系統(tǒng)將自動(dòng)利用表格顯示相關(guān)商品信息。說明：在窗體中需要Adodc和DataCombo控件，則需要加載“Microsoft ADO Data Control (SP4)(OLEDB)”和“Microsoft DataList Control (SP3) (OLEDB)”部件，將控件添加到工具箱。.T.進(jìn)入系統(tǒng)End功能：用戶登錄驗(yàn)證成功后進(jìn)入進(jìn)銷存管理系統(tǒng)。內(nèi)存要求最低 64 MB。運(yùn)行環(huán)境：運(yùn)行 Intel 或兼容的 Pentium、Pentium Pro 或 Pentium II 處理器的計(jì)算機(jī)上運(yùn)作。Abstract:關(guān)鍵字： 進(jìn)銷存管理 查詢 信息管理 日常業(yè)務(wù)一、 引言隨著計(jì)算機(jī)的普遍應(yīng)用，企業(yè)對(duì)內(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ī)制。其中擁有功能比較全面的進(jìn)銷存管理系統(tǒng)。而我國(guó)大部分小型批發(fā)、零售企業(yè)在信息機(jī)制上還沒有擺脫原有的手工模式，企業(yè)內(nèi)部沒有形成完善的、有效的信息化管理機(jī)制，企業(yè)發(fā)展的動(dòng)力不足，從而影響企業(yè)的持續(xù)、穩(wěn)定、快速的發(fā)展。小型企業(yè)進(jìn)銷存管理系統(tǒng)摘要： 隨著我國(guó)市場(chǎng)經(jīng)濟(jì)的蓬勃發(fā)展和人們對(duì)計(jì)算機(jī)的普遍應(yīng)用，批發(fā)、零售行業(yè)正處在一個(gè)高速發(fā)展的時(shí)期。行業(yè)的快速發(fā)展必然導(dǎo)致競(jìng)爭(zhēng)的加劇，要想在激烈的市場(chǎng)競(jìng)爭(zhēng)中謀求發(fā)展，客觀上要求企業(yè)必須加強(qiáng)內(nèi)部管理，提高運(yùn)營(yíng)效率。本文介紹了筆者編寫的一個(gè)用于小型企業(yè)進(jìn)銷存管理系統(tǒng)。該系統(tǒng)包括用戶注冊(cè)和登錄、日常業(yè)務(wù)管理、庫(kù)存管理、查詢統(tǒng)計(jì)管理、應(yīng)收應(yīng)付管理、統(tǒng)計(jì)報(bào)表管理、基礎(chǔ)信息管理和系統(tǒng)設(shè)置幾個(gè)模塊。二、開發(fā)和運(yùn)行的環(huán)境開發(fā)工具：Visual Basic ，后臺(tái)所用數(shù)據(jù)庫(kù)是SQL2000，同時(shí)建立ODBC數(shù)據(jù)庫(kù)接口。處理器必須以最低 166 MHz 的速度運(yùn)行。SQL Server 2000，Visual Basic 三、 正文 流程分析 庫(kù)存表 商品入庫(kù)表商品入庫(kù) 供應(yīng)商明細(xì)表 商品退貨表退貨返廠 庫(kù)存表 商品銷售表商品銷售 商品銷售退貨表銷售退貨進(jìn)入系統(tǒng)驗(yàn)證登錄操作員 客戶明細(xì)表 說明： 供應(yīng)商明細(xì)表付款單 數(shù)據(jù)源點(diǎn)和匯點(diǎn) 加工 客戶明細(xì)表收款單 數(shù)據(jù)文件 數(shù)據(jù)流 庫(kù)存查詢、盤點(diǎn)庫(kù)存管理 出入庫(kù)、銷售、退貨查詢查詢統(tǒng)計(jì)商品信息查詢、修改、刪除 應(yīng)收應(yīng)付款查詢應(yīng)收應(yīng)付管理進(jìn)入系統(tǒng)驗(yàn)證登錄管理員職員信息查詢、修改、刪除倉(cāng)庫(kù)信息查詢、修改、刪除 說明：供應(yīng)商信息查詢、修改、刪除基礎(chǔ)信息管理 數(shù)據(jù)源點(diǎn)和匯點(diǎn) 客戶信息查詢、修改、刪除 加工 本單位定義、操作員及密碼增加、修改、刪除，權(quán)限設(shè)置，系統(tǒng)初