【正文】 If 0 Then 39。,[21]= 39。 + Str() + 39。,[6]= 39。*** 給操作員授權(quán)的事件過程 *** Private Sub Cmd_sq_Click() rtn = SetWindowPos(, 2, 0, 0, 0, 0, 3) 39。通過代碼連接數(shù)據(jù)庫 = Provider=。 調(diào) 用 數(shù) 據(jù) 反 綁 定 過 程 39。清空文本框中的內(nèi)容 Text1(i).Text = Next i = False End If Else MsgBox 當(dāng)前數(shù)據(jù)庫中已經(jīng)沒有可刪除的記錄 , 64, 提示信息 End If Call TRefresh End Sub Private Sub Cmd_exit_Click() Unload Me End Sub 貨品出庫界面實現(xiàn) 對于貨品 出庫 的 添加、刪除、修改等操作，在貨品出庫界面實現(xiàn)。 Val(Text1(4).Text) amp。單擊“添加”按鈕之后，清空文本框中的內(nèi)容 Text1(i).Text = Next i = select * from tb_in order by ID If 0 Then 39。顯示查看日志窗體 = False End Sub Private Sub CKSZ_Click() 39。 amp。定義一個 ListItem 對象 Dim a Dim key As String 39。 ，業(yè)務(wù)操作簡單，進(jìn)入系統(tǒng)即能使用。一個連接是 指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個不同的表中獲取信息時建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。 Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。 SQL 語言在 VB 中的應(yīng)用 提供的實用函數(shù) 為實現(xiàn)使用 VB 程序調(diào)用 SQL 語言訪問 Access 數(shù)據(jù)庫多個記錄的目的，我們利用 SQL提供的函數(shù)。因為程序員無需編寫任何代碼，就可以在這些控件中顯示 當(dāng)前記錄的數(shù)據(jù)。程序員不必?fù)?dān)心如何判斷事件是否已發(fā)生，只需要編寫一段代碼告訴計算機(jī)在事件發(fā)生以后應(yīng)該做什么工作就可以了。特別是微型計算機(jī)的出現(xiàn)和普及，為信息處理提供了物美價廉的手段，對于推動我國管理信息處理現(xiàn)代化起到了重要作用。在此階段解決的主要是面向高層管理，大范圍的決策問題以及非結(jié)構(gòu)化信息的處理。 （ 4） 向各級管理機(jī)構(gòu)提供不同詳細(xì)程度的報告，縮短分析和解釋時間。同時簡單介 紹了 Visual Basic 編程環(huán)境和 Access 數(shù)據(jù)庫管理系統(tǒng)的功能特點(diǎn)，物資管理系統(tǒng)是企業(yè)物流管理中不可或缺的一部分。我們應(yīng)該承認(rèn)，誰掌握的知識多，信息量大，信息處理速度快，批量大，誰的效率就高，誰就能在各種競爭中立于不敗之地。過去的革命最高成就就是 “用機(jī)器制造機(jī)器 ”，是手的延長，而計算機(jī)的出現(xiàn)卻能做到 “用機(jī)器控制機(jī)器 ”，是腦的延伸。 由于種種原因，我國的信息資源建設(shè)水平遠(yuǎn)遠(yuǎn)落后于信息基礎(chǔ)設(shè)施的建設(shè)的水平。 針對以上存在的問題，領(lǐng)導(dǎo)決定通過建立物資管理信息系統(tǒng)使物資管理工作更加規(guī)范化、程序化，提高其處理工作的速度和準(zhǔn)確性，也便于動態(tài)查詢，提高決策水平 第三章 應(yīng)用系統(tǒng)開發(fā)工具 Visual Basic 簡介及實現(xiàn)原理 Visual Basic（簡稱 VB）是美國微軟公司（ Microsoft）于 1990 年推出的一套完整的Windows 系統(tǒng)軟件開發(fā)工具，可用于開發(fā) Windows 環(huán)境下的各類應(yīng)用程序，是一種可視化、面向?qū)ο?、用事件?qū) 動方式的結(jié)構(gòu)化高級程序設(shè)計語言和工具，是目前使用最廣泛的編程語言之一。 Data 控件 Data 控件是 Visual Basic 中最基本的數(shù)據(jù)庫操作控件。 DataGrid 控件 在許多情況下，需要使用表格形式來顯示數(shù)據(jù)庫 中的數(shù)據(jù)。 （ 2）如何設(shè)置 Data 控件的 Recordsource 屬性 設(shè)置 Datasource 屬性的命令為： =”Setect Vss_code,voyage,Sum(weight)AS Weight20 from monthquery where ctn_size=’20’group by Vss_code,Voyage” 在這個命令中字段名 Vss_code 為船名代碼， Voyage 為航次， ctn_size 為集裝箱號， weight為集裝箱重量。關(guān)系數(shù)據(jù)庫中包含了多個數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個不同部分的術(shù)語，象記錄、域等。 有了 貨品的入庫，自然也就有貨品的銷售，這部分提供的功能與入庫操作流程差不多，有所區(qū)別的只是對一些銷售貨品的管理，也很方便數(shù)據(jù)的輸入。 系統(tǒng)超級管理員可以對系統(tǒng)管理員 進(jìn)行那一項操作進(jìn)行設(shè)置。判斷數(shù)據(jù)的密碼是否正確 (2).Text = 當(dāng)前操作員： + (M_Name) Name1 = 39。 主窗體界面如下： 主界面精彩代碼如下： Dim itmX As ListItem 39。 程序源代碼： Dim Prices As Single 39。刪除入庫信息 Call main select * from tb_KCXX where KC_name=39。 and KC_UNIT =39。單擊“添加”按鈕之后，清空文本框中的內(nèi)容 Text1(i).Text = Next i = select * from tb_out order by ID If 0 Then StrNum = Val((ID)) + 1 39。連接出庫信息數(shù)據(jù)表 = ( ) / 2 39。執(zhí)行模糊查詢 = select * from tb_KCXX where kc_name like 39。,[3]= 39。 + Str() + 39。 _ Str() + 39。 amp。 (M_。通過代碼連接數(shù)據(jù)庫 = Provider=。,[17]= 39。 + Str() + 39。, [2]= 39。通過文本框的 Change 事件來動態(tài)地對庫存貨品信息進(jìn)行模糊查詢 On Error Resume Next 39。 \。定義一個日志標(biāo)識變量 39。 and KC_SPEC=39。*** 刪除入庫信息的事件過程 *** Private Sub Cmd_del_Click() rtn = SetWindowPos(, 2, 0, 0, 0, 0, 3) 39。但它無法對數(shù)據(jù)進(jìn)行動態(tài)輸入，只能提供瀏覽功能。 通過運(yùn)行程序首先進(jìn)入登陸窗體，通過輸入密碼，驗證身份后進(jìn)入主窗體，在主窗體上有六個菜單項，分別對應(yīng)各自的功能模塊窗體，包括系統(tǒng)，物資管理，入庫管理，出庫管理，倉庫設(shè)置， 查詢統(tǒng)計、 系統(tǒng)權(quán)限操作設(shè)置，數(shù)據(jù)備份，數(shù)據(jù)恢復(fù)，打印和查詢。 39。 模塊劃分 基本模塊與功能： 包括用戶管理，密碼管理，關(guān)閉系統(tǒng)，以及數(shù)據(jù)的備份與恢復(fù)，可以根據(jù)需要對整個數(shù)據(jù)庫進(jìn)行備份，以確保數(shù)據(jù)的安全性。 對于一個物資管理來說，最大的功能就是存儲貨品，所以物資管理就是對貨品信息，物資管理信息，短線貨品及超儲貨品的管理，用戶可以根據(jù)實際情況對各種貨品信息進(jìn)行分類管理，包括添加，刪除更新數(shù)據(jù)庫等。數(shù)據(jù)庫的作用在于組織和表達(dá)信息，簡而言之，數(shù)據(jù)庫就是信息的集合。這里用到了 Setect Statement) 以后如果需要這樣的查詢，只需要引用查詢名 ”monthquery”即可。 DataList 控件 /DataCombo 控件 DataList 控件是一個數(shù)據(jù)綁定列表框，它可以自動地由一個附加數(shù)據(jù)源中的一個字段充填，并且可選擇地更新另一個數(shù)據(jù)源中一個相關(guān)表的一個字段。這些控件包括： ● Data 控件； ● ADO Data 控件； ● DataList 控件 /DataCombo 控件； ● DataGrid 控件； ● MSChart 控件。 2 ） 從開據(jù)發(fā)料單到每月結(jié)帳、清冊都是手工操作，計算器加算盤，效率低且準(zhǔn)確率不高。我國的計算機(jī)應(yīng)用要比西方國家落后十幾年，管理信息系統(tǒng)的開發(fā)應(yīng)用是從 1973 年開始的， 83 年以后才開始了大量的實際的開發(fā)和研究工作。從宏觀上講，順應(yīng)了社會的信息化、社會化潮流，縮短了整個社會化大生產(chǎn)的周期。自世 界上第一 臺計算 機(jī)ENINC(Electronic numerical integrator and calculator)于 1946 年在美國問世到現(xiàn)在，計算機(jī)業(yè)飛速發(fā)展，技術(shù)淘汰指標(biāo)高的驚人，價格下降以及軟件應(yīng)用的快速擴(kuò)展引發(fā)了以信息處理計算機(jī)化為標(biāo)志的 “微機(jī)革命 ”，隨之而來的是以全球信息網(wǎng)絡(luò)普及和全球信息共享為標(biāo)志的“全球信息網(wǎng)絡(luò)革命 ”的蓬勃興起。s material flow management. Keywords: stock management, database, information management, VB 緒論 物資管理 系統(tǒng)是一個 企事業(yè) 單位不可缺少的 一 部分 ,它的內(nèi)容對于企業(yè)的決策者和管理者來說都是至關(guān)重要的，因此，物資管理系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段，但一直以來人們使用傳統(tǒng)的人工方式管理物資管理，這種管理方式存在著許多缺點(diǎn)，諸如效率低，保密性差等，而且時間一長，將產(chǎn)生大量的文件和數(shù)據(jù)，這對于查找、更新和維護(hù)都帶來了不少的困難。 1． 2 物資信息系統(tǒng)開發(fā)的意義 信息已成為繼勞動力、土地、資本之后的又一大資源。這個階段強(qiáng)調(diào)的是綜合管理功能，多維服務(wù)模式，人機(jī)協(xié)調(diào)的、智能化的、集成化的計算機(jī)輔助管理功能等。供應(yīng)站則負(fù)責(zé)保證檢測工作的順利進(jìn)行所需的物資正常供應(yīng)工作。 利用 VB 的可視性特點(diǎn)，可方便的設(shè)計了程序的窗體界面，并在各個窗體中的合適位置繪制所需的每種控件。 當(dāng)與 Data 控件相連接時， DataList、 DataCombo、 DataGrid 和 MSHFlexGrid 控件都能管理記錄集合。 假定“ Orders”是數(shù)據(jù)庫文件中地一張表格，則 x=Dsum(“[Feight]”,”O(jiān)rder”.”[ship country]=’UK’”) SQL 訪問多個記錄地方法 在進(jìn)信息查詢和統(tǒng) 計地過程中，我們往往需要從記錄集中根據(jù)待定的條件提取其中的一部分記錄信息。另外， Access 允許創(chuàng)建自定義報表用于打印或輸出數(shù)據(jù)庫中的信息。這種連接是指一個表被連接到它自己的一個字段，或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。 ，選用具有大型 數(shù)據(jù)庫安全機(jī)制的 數(shù)據(jù)庫系統(tǒng) ，提供各種級別的數(shù)據(jù)保護(hù)和權(quán)限控制方式，確保數(shù)據(jù)的安全可靠。*** 用戶登錄按鈕的事件代碼 *** Private Sub Command1_Click() rtn = SetWindowPos(, 2, 0, 0, 0, 0, 3) 39。Persist Security Info=False = select * from tb_enter = select * from tb_enter If 0 Then = True Do While = False 39。顯示出庫查詢窗體 = False End Sub Private Sub CRKNTJ_Click() 39。將入庫編號加 1 Select Case Len(Trim(StrNum)) 39。重新計算庫存貨品的數(shù)量 SNum = Val((KC_Num)) Val(Text1(3).Text) 39。 出庫源代碼如下： Dim Prices As Single 39。如果按下的是回車鍵，則光標(biāo)落到文本框當(dāng)中 Text1(5).SetFoc