【正文】 門。 第二章 國內外現(xiàn)狀的研究 國外現(xiàn)狀 計算機的發(fā)明應用，被視為人類的第三次重大的科學技術革命，是一次飛躍。 此階段以單項數據處理為主，如財務管理、物資管理、工資管理等。在此階段解決的主要是面向高層管理，大范圍的決策問題以及非結構化信息的處理。 2． 2 國內狀況 由于種種原因，我國的信息資源建設水平遠遠落后于信息基礎設施的建設的水平。因此，信息資源的開發(fā)和利用已被確立為國民經濟信息的核 心內容，信息數字化，傳輸的網絡化是縮小發(fā)展中國家與發(fā)達國家差距的捷徑，值世界信息化浪潮正以不可阻擋之勢席卷全球時，我國要迎頭趕上，就必須利用現(xiàn)有的信息基礎設施，重點開發(fā)和推廣應用于各類科技經濟等數據庫和網絡資源服務系統(tǒng)，以便取得巨大的社會效益和經濟效益。我國的計算機應用要比西方國家落后十幾年，管理信息系統(tǒng)的開發(fā)應用是從 1973 年開始的， 83 年以后才開始了大量的實際的開發(fā)和研究工作。特別是微型計算機的出現(xiàn)和普及，為信息處理提供了物美價廉的手段，對于推動我國管理信息處理現(xiàn)代化起到了重要作用。供應站每月要向局供應處及中心機關上報月度庫存清冊，其數據都是從各種賬本中收集，再統(tǒng)計，最后逐級匯總再報送。 單位配備的計算機僅 局限于打字，做報表，不能開單據，計算機應有的功能沒有充分發(fā)揮。系統(tǒng)引進了窗體和控件的機制，用于設計應用程序界面。程序員不必擔心如何判斷事件是否已發(fā)生，只需要編寫一段代碼告訴計算機在事件發(fā)生以后應該做什么工作就可以了。 利用 VB 的事件驅動性特點，只需在窗體或控件上的代碼窗口中添加少量的代碼，便可達到告訴當在相應的窗體或控件上發(fā)生某一事件時，它們在事件發(fā)生后應該做什么工作的目的。 下面將分別對這些控件的主要功能及使用方法進行介紹。許多其他的數據庫操作控件都需要 Data 控件或類似的數據源控件（比如 ADO Data 控件）。因為程序員無需編寫任何代碼，就可以在這些控件中顯示 當前記錄的數據。內部的 Picture、 Label、 TextBox、CheckBox、 Image、 OLE、 ListBox 和 ComboBox 控件也是數據覺察的，能和由 Data 控件管理的 Recordset 對象的某個字段相連接。 DataCombo 控件的功能與DataList 控件完全相同，只不過 DataCombo 控件是一個組合框。這個 DataGrid 控件實際上是一個固定的列集合，每一列的行數都是不確定的。 SQL 語言在 VB 中的應用 提供的實用函數 為實現(xiàn)使用 VB 程序調用 SQL 語言訪問 Access 數據庫多個記錄的目的，我們利用 SQL提供的函數。 （ 1）建立一個新的查詢 set mydb=Open Database(“c:\DIR1\”) （打開數據庫文件 c:\DIR1\） set myquery= QueryDef(“monthquery”)(創(chuàng)建查詢名為 monthquery 的查詢 ) =”select*from OPNRPT where mid $(year,7,2)=’”amp。需要說明的兩點是：①使用前先定義 Dim mydb AS Database 及 myquery AS querydef.②查詢 ”monthquery”沒有使用 Data 控件，也就不直接顯示信息。 通過這 一個方法定義的記錄集可以使用 move 和 Find 方法逐條記錄的進行操作。 Access 的優(yōu)點在于它能使用數據表示圖或自定義窗體收集信息。 Access 是一種關系數據庫工具，關系數據庫是已開發(fā)的最通用的數據庫之一。計算機的數據庫可以分為兩類：非關系數據庫（ flatfile）和關系數據庫（ relational）。 1． 標識需要的數據； 2． 收集被標識的字段到表中； 3． 標識主關鍵字字段； 4． 繪制一個簡單的數據圖表； 5． 規(guī)范數據； 6． 標識指定字段的信息； 7． 創(chuàng)建物理表。一個連接是 指一種虛擬的表，這種表是在當用戶要求從相互關聯(lián)的各個不同的表中獲取信息時建立的，關鍵字段用于在相互連接的不同表中查找匹配的記錄。在表中使用的關鍵字類型用于描述庫表示什么以及在數據庫中如何與其它的庫建立關系。 當然，物資管理中貨品入庫也是常有的事，入庫管理操作就是對于貨品入庫情況的管理，用戶可以方便地輸入一些貨品的信息。物資管理人員可以瀏覽、查詢、添加、刪除等貨品的基本信息以及統(tǒng)計等，并可以對一些基本的信息生成報表形式，并打印輸出的功能。 ，業(yè)務操作簡單，進入系統(tǒng)即能使用。操作快捷、方便。 幫助：本系統(tǒng) 的幫助信息，包括應用程序的版本信息； 貨品信息管理：對物資管理里的貨品進行登記； 貨品物資管理：管理物資管理的物資管理情況； 貨品管理：對物資管理里短線的貨品進行登記，以便及時采購補貨； 入庫登記管理：能對貨品的入庫登記，刪除，更改等； 入庫期間統(tǒng)計：貨品入庫期間年度的統(tǒng)計； 出庫登記管理：能對貨品的出庫登記，刪除，更改等； 可根據輸入的條件，對貨品的入庫信息，物資管理信息等進行簡單查詢和組合查詢。 ●入庫登記統(tǒng)計表 入庫登記 _合計 ●貨品入庫年度統(tǒng)計表 入庫登記 _n ●供貨單位年度供貨金額統(tǒng)計表 入庫登記 _w ●物資管理匯總表 物資管理 ●銷售登記統(tǒng)計表 銷售登記 _合計 表 3 入庫登記表 表 5 供貨單位信息表 表 7 用戶表 第五章 應用程序設計 在進入系統(tǒng)，要求輸入用戶名和密碼。定義一個 ListItem 對象 Dim a Dim key As String 39。判斷是否使用的是超級口令登錄 (2).Text = 當前操作員： mr Name1 = Unload Me Else = select * from tb_enter where M_Name =39。 If 0 Then MPassword = (M_Password) If = MPassword Then 39。 \系統(tǒng)日志 .ini) For Output As 1 Print 1, TStr Close 1 Unload Me Else MsgBox 密碼不正確 ,請您確認后重新輸入 , , 庫存管理系統(tǒng) = End If Else MsgBox 對不起 沒有此用戶的信息 , , 庫存管理系統(tǒng) = = End If End If End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Call WHScreen rtn = SetWindowPos(, 1, 0, 0, 0, 0, 3) 39。 amp。 + + 39。需要哪個功能的時候就點哪個菜單，相對應的窗體會自動彈出。聲明 API 函數及常量 Private Declare Function GetSystemMenu Lib user32 (ByVal hwnd As Long, ByVal bRevert As Long) As Long Private Declare Function RemoveMenu Lib user32 (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Private Const MF_REMOVE = amp。顯示查看日志窗體 = False End Sub Private Sub CKSZ_Click() 39。顯示出入庫信息日統(tǒng)計窗體 = False End Sub Private Sub CZYQXSZ_Click() 39。 此界面下只有給了管理員權限后才可以進行操作，若沒有給予權限則不能進行操作。用于顯示編號信息的變量 Dim StrNum As Long 39。單擊“添加”按鈕之后，清空文本框中的內容 Text1(i).Text = Next i = select * from tb_in order by ID If 0 Then 39。 Trim(StrTemp) amp。運用 API 函數 SetWindowPos，來實現(xiàn)取消窗體置前的 功能 If = False Then c = MsgBox(您確認要刪除該記錄嗎 ?, 17, 刪除提示信息 ) If c = vbOK Then 39。 + Text1(2).Text + 39。 Val(Text1(4).Text) amp。 + Str(SNum) + 39。 + Text1(2).Text + 39。 Val(Text1(4).Text) amp。清空文本框中的內容 Text1(i).Text = Next i = False End If Else MsgBox 當前數據庫中已經沒有可刪除的記錄 , 64, 提示信息 End If Call TRefresh End Sub Private Sub Cmd_exit_Click() Unload Me End Sub 貨品出庫界面實現(xiàn) 對于貨品 出庫 的 添加、刪除、修改等操作，在貨品出庫界面實現(xiàn)。運用在 FOR 循環(huán)中的變量 Dim StrTemp 39。*** “添加”貨品出庫信息按鈕的事件過程 *** Private Sub Cmd_Add_Click() For i = 0 To 5 39。 Trim(StrTemp) amp。 調 用 數 據 反 綁 定 過 程 39。利用代碼連接數據庫 = Provider=。Persist Security Info=False = select * from tb_out 39。每個界面都可以實現(xiàn)顯示全部產品。通過代碼連接數據庫 = Provider=。Persist Security Info=False = select * from tb_kcxx 39。執(zhí)行錯誤處理 39。 源程序代碼： Dim itmX As ListItem 39。*** 給操作員授權的事件過程 *** Private Sub Cmd_sq_Click() rtn = SetWindowPos(, 2, 0, 0, 0, 0, 3) 39。 If 0 Then c = MsgBox(確認要將所選權限的信息賦給該操作員嗎 ?, 33, 提示信息 ) If c = vbOK Then 39。 + Str() + 39。 + Str() + 39。,[6]= 39。,[8]= 39。,[10]= 39。 _ Str() + 39。 + Str() + 39。 + Str() + 39。 amp。,[19]= 39。,[21]= 39。) MsgBox 成功授權 !!, 48, 信息提示 = False Else End If End If 39。Data Source= amp。連接操作員信息表 = ( ) / 2 = ( ) / 2 a = = select * from tb_enter If 0 Then = True 39。 If 0 Then 39。 + +