【正文】 b Private Sub cmdOK_Click() 39。將代碼放在這里傳遞 39。設置全局變量時最容易的 LoginSucceeded = True strCurUser = Else MsgBox 無效的密碼，請重試 !, , 登錄 SendKeys {Home}+{End} End If Else MsgBox 請選擇用戶名 !, , 登錄 End If End Sub Option Explicit Public LoginSucceeded As Boolean Private Sub cmdCancel_Click() 39。不提示失敗的登錄 LoginSucceeded = False XVIII End Sub Private Sub cmdOK_Click() 39。將代碼放在這里傳遞 39。設置全局變量時最容易的 LoginSucceeded = True strCurUser = Else MsgBox 無效的密碼，請重試 !, , 登錄 SendKeys {Home}+{End} End If Else MsgBox 請選擇用戶名 !, , 登錄 End If End Sub Private Sub Form_Load() = LoadPicture( amp。 strYear amp。 single = strSQL strSQL = alter table mat_head add column price amp。 strMonth _ amp。 strYear amp。 =qty, amp。 strYear amp。 =price = strSQL strSQL = update r_parameter set pass_date=cdate(39。 strBeg amp。),offline=false,monthdate=cdate(39。 strBeg amp。) = strSQL = True XXV = True = True = True = False MsgBox 系統(tǒng)已正式啟用 !, vbInformation, 系統(tǒng)啟用 Else MsgBox 日期格式錯誤！ , vbCritical, 啟用錯誤 Exit Sub End If End Sub Private Sub mnuSys_trans_Click() Dim strBeg As String Dim strYear, strMonth As String Dim strSQL As String strBeg = InputBox(請輸入月終結轉時間 , 月終結轉 , CStr(Date)) If IsDate(strBeg) Then strSQL = select monthdate from r_parameter Set rsSys = New strSQL, , adOpenDynamic, adLockOptimistic If Format(CDate(strBeg), yyyymm) Format(rsSys!monthdate, yyyymm) Then strYear = Right(CStr(Year(CDate(strBeg))), 2) strMonth = Format(CStr(Month(CDate(strBeg))), 0) strSQL = alter table mat_head add column qty amp。 strMonth _ amp。 strYear amp。 currency = strSQL strSQL = update mat_head set qty amp。 strMonth amp。 _ XXVI price amp。 strMonth amp。 amp。 _ 39。 amp。 39。 amp。 CStr(intTmp + 1) Next = 0 End Sub Option Explicit Private Sub Form_Load() Text1(0).Text = Year(Date) Text1(1).Text = Month(Date) Text1(2).Text = Day(Date) Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) End Sub Private Sub Label1_Click(Index As Integer) End Sub Private Sub OKButton_Click() Dim strCurDate As String strCurDate = Trim((0).Text) amp。 Trim((1).Text) strCurDate = strCurDate amp。 Trim((2).Text) If Not IsDate(strCurDate) Then MsgBox 日期輸入錯誤！ , vbCritical, 系統(tǒng)日期 (0).SelStart = 0 (0).SelLength = Len((0).Text) (0).SetFocus Else dteSysDate = CDate(strCurDate) Unload Me End If End Sub Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) XXIX Dim strValid As String strValid = 0123456789 If KeyAscii = 13 Then If Index 2 Then Text1(Index + 1).SelStart = 0 Text1(Index + 1).SelLength = Len(Text1(Index + 1).Text) Text1(Index + 1).SetFocus Else End If End If If KeyAscii 26 Then If InStr(strValid, Chr(KeyAscii)) = 0 Then KeyAscii = 0 End If End If 39。 Case 1 39。 End If 39。 amp。 39。 _ order_detail_a where p_id=39。 strSaleNum amp。 group by p_id strSQL, , adOpenStatic, adLockReadOnly strSQL = select p_id,sum(qty) as sqty,sum(price) as sprice from amp。 amp。 39。 amp。 39。Persist amp。Data Source= amp。 \data\ = strConnect End Sub Private Sub DataReport_Initialize() (2).(31).Caption = (2).(34).Caption = (2).(36).Caption = End Sub XXXII 倉庫庫存管理系統(tǒng) 摘要 倉庫庫存 管理是管理部門日常工作中一項十分重要的基礎管理工作。本文介紹了倉庫庫存 管理系統(tǒng)的關鍵開發(fā)技術及系統(tǒng)功能，描述了系統(tǒng)模型及數(shù)據(jù)詞典，并對數(shù)據(jù)庫開發(fā)的相關技術進行了討論。 Access 是關系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。而用計算機來處理企業(yè)內部信息間的流通和使用，既可以實現(xiàn)數(shù)據(jù)信息的共享，控制好數(shù)據(jù)的冗余度，并使企業(yè)有統(tǒng)一的管理，提高信息的利用率；又可以實現(xiàn)整體數(shù)據(jù)的結構化，表示大量數(shù)據(jù)相互間的多種聯(lián)系，這樣就可以大大的提高企業(yè)生產(chǎn)動作的效率。所以近年來，企業(yè)管理者開始重視存貨管理的重要性，存貨管理主要是對商品的管理，它強調的是對商品貨物的存儲和傳送，數(shù)量和狀態(tài)變化信息的管理，其目標是在于降低庫存成本，減少庫存資金占用的同時，保證商品貨物按計劃流動，保證生產(chǎn)過程中的物料需求，保證生產(chǎn)的正常運行，從而使商品滿足顧客和市場上的需求，庫存控制 就是要權衡庫存費用（包括商品價值，訂貨費用，短缺等），使總費用最低。所以庫存管理人員已經(jīng)成為倉庫的計劃員，他們的工作也受到了高度的重視，他們和市場部門及生產(chǎn)部門協(xié)同工作并成為整個企業(yè)組織的重要組成部分。 35 第 1 章 系統(tǒng)概述 課題來源 、目的、意義 隨著社會經(jīng)濟的迅速發(fā)展和科學技術的全面進步，計算機事業(yè)的飛速發(fā)展，以計算機與 通信技術為基礎的信息系統(tǒng)正處于蓬勃發(fā)展的時期。計算機就是為了使人們的工作效率提高而應允而生的。現(xiàn)在的計算機軟件的更新速度之快，消耗資源之大都是令人難以預料的，所以硬件的升級就顯得非常重要。在計算機飛速發(fā)展的今天，利用計算機技術改造倉庫庫存信息管理已經(jīng)成了現(xiàn)代企業(yè)所面臨的一項重要任務。還能及時處理各種信息，幫助企業(yè)確定各種經(jīng)營策略，特別是在提高員工的工作效率和企業(yè)的經(jīng)濟效益方面起到的作用更是由為明顯。依然是以出庫、入庫和庫存三者之間的聯(lián)系為主。因此 ，信息管理系統(tǒng)與理論僅停留在對制造部分的信息集成與理論研究上是遠遠不夠的?，F(xiàn)代管理思想和方法的提出和發(fā)展 。 相繼出現(xiàn)了 MES(ManufacturingExecuteSystem—— 制造執(zhí)行系統(tǒng) )、AMS(AgileManufacturingSystem—— 敏捷制造系統(tǒng) )等現(xiàn)代管理思想。 通過對倉庫管理日常工作的詳細調查，搜集大量有關資料，從系統(tǒng)結構的組織，功能的實現(xiàn)，技術的要求以及可行性等多方面進行考慮，本課題是一個適應現(xiàn)今電腦配件管理需要的計算機信息管理系統(tǒng)，具有一定的實際開發(fā)價值和使用價值。在企業(yè)生產(chǎn)經(jīng)營活動中，庫存管理既必須保證生產(chǎn)車間對原材料、零部件需求，又直接影響采購、銷售部門的購、銷活動。根據(jù)對我國眾多制造業(yè)企業(yè)的庫存管理情況所作的調查和參考有關資料，發(fā)現(xiàn)目前制造業(yè)企業(yè)在庫存管理方面普遍存在著如下問題 : 1. 不能及時獲得庫存信息。