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