【正文】 + + 39。+ 39。定義數(shù)據(jù)集對象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 Private Sub Command1_Click()End SubPrivate Sub Form_Activate() = Date (現(xiàn)金): (轉帳支票) (匯票): = 0 = amp。 , amp。 Trim() amp。 Format(lsph, 0000) End If Else = Date amp。+ 39。%39。 End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case Is = rk rkd_Click 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 Is = xsth xsth_ClickCase Is = skd skd_ClickCase Is = tc End End SelectEnd SubPrivate Sub Timer1_Timer() (2).Text = Format(Date, long date) amp。 . amp。 39。 amp。四、各個重要模塊的程序簡介1. 公用模塊Option ExplicitPublic Function n() As String n = Provider=。（四）、供應商信息管理功能：完成供應商基本信息的錄入、保存、修改、刪除，可以按任意字段查詢供應商基本信息。說明：可以按商品名稱、倉庫、職員或任意時間段統(tǒng)計所有客戶銷售商品的情況，采用組合式查詢方法。說明：可查詢與客戶之間的往來帳款信息，提供客戶列表選擇、并計算應收客戶累計余額。說明：選擇字段查詢商品入庫信息，支持模糊查詢，按任意時間段查詢商品入庫信息，統(tǒng)計入庫品種、入庫數(shù)量、入庫金額。說明：退貨采用錄入方式同商品銷售。使用方向鍵〈↑〉、〈↓〉 選擇商品，按回車鍵，該商品信息將自動錄入到表格中，只需輸入如哭數(shù)量（系統(tǒng)自動計算商品金額），回車后即可入庫下一商品。處理器必須以最低 166 MHz 的速度運行。行業(yè)的快速發(fā)展必然導致競爭的加劇，要想在激烈的市場競爭中謀求發(fā)展，客觀上要求企業(yè)必須加強內(nèi)部管理，提高運營效率。Abstract:關鍵字： 進銷存管理 查詢 信息管理 日常業(yè)務一、 引言隨著計算機的普遍應用，企業(yè)對內(nèi)部機制形成完善的、有效的信息化管理機制，是使企業(yè)的各項管理實現(xiàn)現(xiàn)代化，在確定了本系統(tǒng)的設計目標之后，特開發(fā)了本管理系統(tǒng)，來完善企業(yè)內(nèi)部的管理機制。說明：在窗體中需要Adodc和DataCombo控件，則需要加載“Microsoft ADO Data Control (SP4)(OLEDB)”和“Microsoft DataList Control (SP3) (OLEDB)”部件，將控件添加到工具箱。說明：銷售采用錄入方式同商品入庫錄入方式，自動生成銷售票號，自動統(tǒng)計商品銷售品種、數(shù)量、金額、計算折扣、稅率。五）、查詢統(tǒng)計管理（一）、入庫查詢功能：查詢商品入庫信息。六）、應收應付管理（一）、付款單功能：實現(xiàn)向供應商付款的功能。七）、統(tǒng)計報表管理（一）、銷售日報表功能：查詢當天的商品銷售日報，同時統(tǒng)計商品銷售品種、銷售數(shù)量、銷售金額。（二）、職員信息管理功能：完成職員基本信息的錄入、保存、修改、刪除，可按任意字段查詢職員基本情況，支持列表瀏覽職員信息。（四）、系統(tǒng)初始化功能：對系統(tǒng)數(shù)據(jù)庫進行清空記錄說明：第一次進入系統(tǒng)時清空測試數(shù)據(jù)，可以選擇初始化對象。聲明一個整型變量Dim rs1 As New 定義一個數(shù)據(jù)集對象Dim myval As String Private Sub Form_Activate()39。打開數(shù)據(jù)庫If = 0 Then myval = MsgBox(進入系統(tǒng)后先設置操作員和操作員權限！,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。 If And = Trim((密碼)) Then Load frm_main (3).Text = Trim() Unload Me Else If TIM = 3 Then MESSAGE = MsgBox(密碼輸入錯誤,請向系統(tǒng)管理員查詢!, 0, ) If MESSAGE = vbOK Then End End If If = Then MsgBox (請輸入操作員!) Else If Trim() Trim((操作員名稱)) Then MsgBox (查無此操作員,請重新輸入操作員!) Else If (密碼) Then MsgBox (密碼錯誤,請重新輸入密碼!) 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。 . amp。 (3).TextEnd SubPrivate Sub Form_Load() = 102: = 9 s = Array(300, 2100, 1200, 1800, 1500, 765, 1200, 1200, 1200) y = Array(xh, 商品名稱, 商品編號, 規(guī)格, 產(chǎn)地, 單位, 進價, 數(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 供應商全稱 like 39。 If And 0 Then = TrueEnd SubPrivate Sub gys_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then = False End If If KeyCode = vbKeyPageDown Then = True End IfEnd SubPrivate Sub grid1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then With If .RecordCount 0 Then If .Fields(商品名稱) Then If .Fields(商品名稱) Then (, 1) = Trim(.Fields(商品名稱)) If .Fields(商品編號) Then (, 2) = Trim(.Fields(商品編號)) If .Fields(規(guī)格) Then (, 3) = Trim(.Fields(規(guī)格)) If .Fields(產(chǎn)地) Then (, 4) = Trim(.Fields(產(chǎn)地)) If .Fields(單位) Then (, 5) = Trim(.Fields(單位)) If .Fields(進價) Then (, 6) = .Fields(進價) = = 6 = False Else MsgBox (無數(shù)據(jù)選擇!!!) = False End If End If End With End If If KeyCode = vbKeyEscape Then = False End IfEnd SubPrivate Sub DataList1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then = Trim() = False End IfEnd SubPrivate Sub jsr_Change() = Trim()End SubPrivate Sub jsr_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End SubPrivate Sub MS1_Click() If = 1 And ( 1, 7) Then = True End IfEnd SubPrivate Sub MS1_entercell() Dim X As String, y As String, p As String If = 0 Or = 0 Then Exit Sub X = (, ): y = (, 0) If y Then If = 3 Then = + 1 If 0 And 0 Then = : = = + : = + End If X = (, ): y = (, 0) p = (, ) = = 0 = Len() End IfEnd SubPrivate Sub MS1_RowColChange() For i = 1 To 101 If (i, 1) Then (, 6) = Format((, 6), ) (, 8) = Val((, 7)) * Val((, 6)) (, 8) = Format((, 8), ) End If Next iEnd SubPrivate Sub