【正文】 False End Sub Private Sub CKXXCX_Click() 39。 主窗體界面如下： 主界面精彩代碼如下： Dim itmX As ListItem 39。 \。判斷數(shù)據(jù)的密碼是否正確 (2).Text = 當前操作員： + (M_Name) Name1 = 39。定義字符串變量 39。 系統(tǒng)超級管理員可以對系統(tǒng)管理員 進行那一項操作進行設(shè)置。 ，采用先進的數(shù)據(jù)庫訪問方式，數(shù)據(jù)更安全，性能更穩(wěn)定。 有了 貨品的入庫，自然也就有貨品的銷售，這部分提供的功能與入庫操作流程差不多，有所區(qū)別的只是對一些銷售貨品的管理，也很方便數(shù)據(jù)的輸入。一個更高級的連接形式稱為自連接。關(guān)系數(shù)據(jù)庫中包含了多個數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個不同部分的術(shù)語，象記錄、域等。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(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為集裝箱重量。 ● Davg Function（求平均值） ● Dcount Function（計算滿足條件的記錄數(shù)） ● Dfirst Function（返回記錄集的第一個記錄的某個域值） ● Dlast Function（返回記錄集的最后一個記錄的某個域值） ● Dlookup Function（返回記錄集中滿足待定條件的記錄的域值） ● Dsum Function（求和計算） ● Dmax Function（求最大值） ● Dmin Function（求最小值） 利用以上的 SQL 函數(shù)能夠方便地進行數(shù)據(jù)庫文件記錄地查詢和統(tǒng)計工作，以 Dsum 為例，語法如下： Dsum(expr,clomain[,criteria]) 例：計算目的港為英國地所有訂單地運費總和。 DataGrid 控件 在許多情況下，需要使用表格形式來顯示數(shù)據(jù)庫 中的數(shù)據(jù)。當 Data 控件中當前記錄發(fā)生變化時，數(shù)據(jù)覺察控件的內(nèi)容也會隨之發(fā)生變化。 Data 控件 Data 控件是 Visual Basic 中最基本的數(shù)據(jù)庫操作控件。這樣，設(shè)計一個 Windows 應(yīng)用程序簡化為 用鼠標在屏幕上點擊、拖拽并添加少量的代碼就可以完成了，大大降低了對程序設(shè)計的要求，提高了應(yīng)用程序的開發(fā)效率。 針對以上存在的問題，領(lǐng)導決定通過建立物資管理信息系統(tǒng)使物資管理工作更加規(guī)范化、程序化，提高其處理工作的速度和準確性，也便于動態(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è)計語言和工具，是目前使用最廣泛的編程語言之一。 第三章 物資管理工作中存在的主要問題 技術(shù)檢測中心是 1991 年初成立的局屬二級單位，主要負責油田地區(qū)各單位的安全教育、工程質(zhì)量、鍋爐壓力容器、計量設(shè)備、儀器儀表及環(huán)境檢測，井架檢測等監(jiān)督檢測工作。 由于種種原因，我國的信息資源建設(shè)水平遠遠落后于信息基礎(chǔ)設(shè)施的建設(shè)的水平。 第四階段（ 1980）職能管理系統(tǒng)階段 （ IMS）。過去的革命最高成就就是 “用機器制造機器 ”，是手的延長，而計算機的出現(xiàn)卻能做到 “用機器控制機器 ”，是腦的延伸。 （ 5） 用最低的費用最短的時間提供盡可能精確、可靠的信息，以便使決策者選擇最佳的實施方案，以提高企業(yè)的經(jīng)濟效益。我們應(yīng)該承認，誰掌握的知識多，信息量大，信息處理速度快，批量大，誰的效率就高，誰就能在各種競爭中立于不敗之地。 關(guān)鍵詞：物資管理，數(shù)據(jù)庫，信息管理， VB Abstract With the development of modern industry, the information management system of the puter is being paid attention to by enterprises. This text has analysed some basic functions of the administrative system of the stock and makes up the situation mainly, including the systematic demand is analysed, systematic structure, the function module divides and the data base mode is analysed etc., have realized doing the introduction to the actual development of the application program especially. Having reached the consistency and security of the data, and the application program function is plete, have accorded with the administrative system of the stock as the request for the typical information management system (MIS). Introduced the function characteristics of Visual Basic programming environment and Access data base management system briefly at the same time, the administrative system of the stock is an indispensable part in enterprise39。同時簡單介 紹了 Visual Basic 編程環(huán)境和 Access 數(shù)據(jù)庫管理系統(tǒng)的功能特點，物資管理系統(tǒng)是企業(yè)物流管理中不可或缺的一部分。可見，世界已進入在計算機信息管理領(lǐng)域中激烈競爭的時代，計算機已經(jīng)變得普通的不能再普通的工具，如同我們離不開的自行車、汽車一樣。 （ 4） 向各級管理機構(gòu)提供不同詳細程度的報告，縮短分析和解釋時間。 第二章 國內(nèi)外現(xiàn)狀的研究 國外現(xiàn)狀 計算機的發(fā)明應(yīng)用，被視為人類的第三次重大的科學技術(shù)革命，是一次飛躍。在此階段解決的主要是面向高層管理，大范圍的決策問題以及非結(jié)構(gòu)化信息的處理。因此，信息資源的開發(fā)和利用已被確立為國民經(jīng)濟信息的核 心內(nèi)容，信息數(shù)字化，傳輸?shù)木W(wǎng)絡(luò)化是縮小發(fā)展中國家與發(fā)達國家差距的捷徑，值世界信息化浪潮正以不可阻擋之勢席卷全球時，我國要迎頭趕上，就必須利用現(xiàn)有的信息基礎(chǔ)設(shè)施，重點開發(fā)和推廣應(yīng)用于各類科技經(jīng)濟等數(shù)據(jù)庫和網(wǎng)絡(luò)資源服務(wù)系統(tǒng)，以便取得巨大的社會效益和經(jīng)濟效益。特別是微型計算機的出現(xiàn)和普及，為信息處理提供了物美價廉的手段，對于推動我國管理信息處理現(xiàn)代化起到了重要作用。 單位配備的計算機僅 局限于打字，做報表，不能開單據(jù)，計算機應(yīng)有的功能沒有充分發(fā)揮。程序員不必擔心如何判斷事件是否已發(fā)生，只需要編寫一段代碼告訴計算機在事件發(fā)生以后應(yīng)該做什么工作就可以了。 下面將分別對這些控件的主要功能及使用方法進行介紹。因為程序員無需編寫任何代碼，就可以在這些控件中顯示 當前記錄的數(shù)據(jù)。 DataCombo 控件的功能與DataList 控件完全相同，只不過 DataCombo 控件是一個組合框。 SQL 語言在 VB 中的應(yīng)用 提供的實用函數(shù) 為實現(xiàn)使用 VB 程序調(diào)用 SQL 語言訪問 Access 數(shù)據(jù)庫多個記錄的目的，我們利用 SQL提供的函數(shù)。需要說明的兩點是：①使用前先定義 Dim mydb AS Database 及 myquery AS querydef.②查詢 ”monthquery”沒有使用 Data 控件，也就不直接顯示信息。 Access 的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。計算機的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫（ flatfile）和關(guān)系數(shù)據(jù)庫（ relational）。一個連接是 指一種虛擬的表，這種表是在當用戶要求從相互關(guān)聯(lián)的各個不同的表中獲取信息時建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。 當然，物資管理中貨品入庫也是常有的事，入庫管理操作就是對于貨品入庫情況的管理，用戶可以方便地輸入一些貨品的信息。 ，業(yè)務(wù)操作簡單，進入系統(tǒng)即能使用。 幫助：本系統(tǒng) 的幫助信息，包括應(yīng)用程序的版本信息； 貨品信息管理：對物資管理里的貨品進行登記； 貨品物資管理：管理物資管理的物資管理情況； 貨品管理：對物資管理里短線的貨品進行登記，以便及時采購補貨； 入庫登記管理：能對貨品的入庫登記，刪除，更改等； 入庫期間統(tǒng)計：貨品入庫期間年度的統(tǒng)計； 出庫登記管理：能對貨品的出庫登記，刪除，更改等； 可根據(jù)輸入的條件，對貨品的入庫信息，物資管理信息等進行簡單查詢和組合查詢。定義一個 ListItem 對象 Dim a Dim key As String 39。 If 0 Then MPassword = (M_Password) If = MPassword Then 39。 amp。需要哪個功能的時候就點哪個菜單，相對應(yīng)的窗體會自動彈出。顯示查看日志窗體 = False End Sub Private Sub CKSZ_Click() 39。 此界面下只有給了管理員權(quán)限后才可以進行操作，若沒有給予權(quán)限則不能進行操作。單擊“添加”按鈕之后，清空文本框中的內(nèi)容 Text1(i).Text = Next i = select * from tb_in order by ID If 0 Then 39。運用 API 函數(shù) SetWindowPos，來實現(xiàn)取消窗體置前的 功能 If = False Then c = MsgBox(您確認要刪除該記錄嗎 ?, 17, 刪除提示信息 ) If c = vbOK Then 39。 Val(Text1(4).Text) amp。 + Text1(2).Text + 39。清空文本框中的內(nèi)容 Text1(i).Text = Next i = False End If Else MsgBox 當前數(shù)據(jù)庫中已經(jīng)沒有可刪除的記錄 , 64, 提示信息 End If Call TRefresh End Sub Private Sub Cmd_exit_Click() Unload Me End Sub 貨品出庫界面實現(xiàn) 對于貨品 出庫 的 添加、刪除、修改等操作，在貨品出庫界面實現(xiàn)。*** “添加”貨品出庫信息按鈕的事件過程 *** Private Sub Cmd_Add_Click() For i = 0 To 5 39。 調(diào) 用 數(shù) 據(jù) 反 綁 定 過 程 39。Persist Security Info=False = select * from tb_out 39。通過代碼連接數(shù)據(jù)庫 = Provider=。執(zhí)行錯誤處理 39。*** 給操作員授權(quán)的事件過程 *** Private Sub Cmd_sq_Click() rtn = SetWindowPos(, 2, 0, 0, 0, 0, 3) 39。 + Str() + 39。,[6]= 39。,[10]= 39。 + Str() + 39。 amp。,[21]= 39。Data Source= amp。 If 0 Then