【正文】 ................................................................................... 20 貨品出庫界面實(shí)現(xiàn) ................................................................................................. 23 、查詢 界面實(shí)現(xiàn) ...................................................................................................... 25 、系統(tǒng)權(quán)限設(shè)置界面實(shí)現(xiàn) ...................................................................................... 27 總結(jié) ...................................................................................................................................... 32 致謝 ...................................................................................................................................... 32 參考文獻(xiàn) .............................................................................................................................. 33 摘 要 隨著現(xiàn)代工業(yè)的發(fā)展，計(jì)算機(jī)信息管理系統(tǒng)越來越受到企業(yè)重視。因此，開發(fā)一個(gè)物資管理系統(tǒng)是很有必要的，具有其特有的技術(shù)意義和管理意義。 管理信息系統(tǒng)是企業(yè)的信息系統(tǒng)，它具備數(shù)據(jù)處理、計(jì)劃、控制、預(yù)測(cè)和輔助決策功能，具體作用如下： （ 1） 用統(tǒng)一標(biāo)準(zhǔn)處理和提供信息，排除使用前后矛盾的不完整的數(shù)據(jù)。正因?yàn)楣?yīng)部門是關(guān)鍵的中轉(zhuǎn)環(huán)節(jié)，建立一套物資 管理信息系統(tǒng) 對(duì)于如何有效的把本單位生產(chǎn)所需的生產(chǎn)資料及時(shí)、保質(zhì)保量的供應(yīng)上去，有著重要的意義。 第二階段（ 19641974）管理信息系統(tǒng)階段（ MIS）。長期以來，我國信息資源的開發(fā)管理未能與信息資源的增長同步進(jìn)行。因此，信息資源的開發(fā)和利用已被確立為國民經(jīng)濟(jì)信息的核心內(nèi)容，信息數(shù)字化，傳輸?shù)木W(wǎng)絡(luò)化是縮小發(fā)展中國家與發(fā)達(dá)國家差距的捷徑，值世界信息化浪潮正以不可阻擋之勢(shì)席卷全球時(shí)，我國要迎頭趕上，就必須利用現(xiàn)有的信息基礎(chǔ)設(shè)施，重點(diǎn)開發(fā)和推廣應(yīng)用于各類科技經(jīng)濟(jì)等數(shù)據(jù)庫和網(wǎng)絡(luò)資源服務(wù)系統(tǒng)，以便取得巨大的社會(huì)效益和經(jīng)濟(jì)效益。目前存在的 主要問題是： 1 ） 根據(jù)各三級(jí)單位所報(bào)材料明細(xì)逐個(gè)與 庫存賬本對(duì)照查閱，進(jìn)行庫平，即庫中有其所需材料則開據(jù)料單從庫中領(lǐng)取，若庫中無，則通知采購人員采購。用戶通過在屏幕上生成窗體，在窗體中繪制所需要的控件和按鈕，設(shè)計(jì)菜單和對(duì)話框， VB會(huì)自動(dòng)生成相應(yīng)的代碼。例如幾個(gè)窗體上的添加、刪除、返回按鈕的作用， 就是通過在各個(gè)相應(yīng)按鈕的代碼窗口中輸入相應(yīng)的代碼，來達(dá)到當(dāng)在幾個(gè)按鈕上出現(xiàn)單擊（ Click）事件后，相應(yīng)按鈕實(shí)現(xiàn)添加、刪除、返回的功能的。 Data 控件可以執(zhí)行大部分?jǐn)?shù)據(jù)庫訪問操作，但是它并不能顯示數(shù)據(jù)庫中數(shù)據(jù)的內(nèi)容。 ADO Data 控件 ADO Data 控件與內(nèi)部 Data 控件以及 Remote Data 控件（ RDC）相似。 MSChart 控件 MSChart 控件的功能是以圖形方式顯示數(shù)據(jù)的圖表。amp。 Access 2021 簡述 Access2021 是關(guān)系數(shù)據(jù)庫開發(fā)工具， 1992年， Microsoft Access 作為第一個(gè)面向 Windows操作平臺(tái)的桌面數(shù)據(jù)庫管理系統(tǒng)而誕生，它不但充分體現(xiàn)了面向?qū)ο蟮乃枷?，提供可視化的編程手段，而且充分利用?Windows 操作平臺(tái)的優(yōu)越性，采用與 Windows 完全一致的界面風(fēng)格，使界面非常友好。如上所 述， Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。 _ 修改已建的數(shù)據(jù)庫 數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄。 第四章 、 系統(tǒng)設(shè)計(jì)分析 需求分析 本套應(yīng)用程序名稱為“物資管理系統(tǒng)”，主要用于物資管理貨品信息的管理，系統(tǒng)包括物資管理、 入庫、銷售、一些統(tǒng)計(jì)查詢和報(bào)表等幾部分組成。 報(bào)表是一個(gè)數(shù)據(jù)庫中最重要的功能之一，有了報(bào)表才能清楚地知道貨品的出入庫情況，在數(shù)據(jù)報(bào)表功能中包括銷售報(bào)表，物資管理報(bào)表 及經(jīng)辦人員報(bào)表等一些基本信息的打印，方便簡潔。易懂易會(huì)。如果輸入正確的用戶名和密碼則進(jìn)入系統(tǒng)主界面，若系統(tǒng)用戶名和密碼 不正確則無法進(jìn)入系統(tǒng)，在這個(gè)登陸界面有系統(tǒng)用戶名的顯示，也可以進(jìn)行選擇登陸，若密碼輸錯(cuò)三次后則系統(tǒng)自動(dòng)退出，不允許你再輸入。 amp。運(yùn)用 API 函數(shù) SetWindowPos，來實(shí)現(xiàn)使窗體置前的功能 39。 If 0 Then = 所選操作員的職務(wù)： amp。H1000amp。顯示操作員權(quán)限設(shè)置窗體 = False End Sub Private Sub CZYXXWH_Click() 39。用于顯示編號(hào)信息的變量 Dim ETemp As Integer 39。 Trim(Str(StrNum)) Else Text1(0).Text = J000001 39。 and KC_UNIT =39。 where KC_name=39。 ) End If ETemp = 1 39。用于顯示編號(hào)信息的變量 Dim StrNum As Long 39。 Trim(Str(StrNum)) Else Text1(0).Text = L000001 39。Data Source= amp。以 控件 DATAGRID 來實(shí)現(xiàn)全部產(chǎn)品的顯示信息。連接庫存信息數(shù)據(jù)表 = ( ) / 2 39。定義一個(gè) ListItem 對(duì)象 Dim a, c Dim key As String 39。給操作員分配權(quán)限 Set adoRs = (UPDATE tb_enter SET [1]= 39。,[5]= 39。 + Str() + 39。,[12]= 39。,[16]= 39。 + Str() + 39。關(guān)閉數(shù)據(jù)連接 End Sub Private Sub Form_Load() rtn = SetWindowPos(, 1, 0, 0, 0, 0, 3) 39。刷新 ListView 控件 Do While = False 39。 On Error Resume Next If 0 Then 39。*** 單擊 ListView 控件將在 Check 控件中顯示相應(yīng)的權(quán)限 *** Private Sub ListView1_Click() = True = select * from tb_enter where M_Name=39。Persist Security Info=False = select * from tb_enter 39。 + + 39。 + Str() + 39。,[15]= 39。 amp。 + Str() + 39。,[4]= 39。判斷數(shù)據(jù)庫中是否存在該操作員 39。 End Sub Private Sub Form_Unload(Cancel As Integer) = True End Sub 、 系統(tǒng)權(quán)限設(shè)置 界面 實(shí) 現(xiàn) 操作員權(quán)限設(shè)置界面可以對(duì)每個(gè)注冊(cè)用戶的訪問權(quán)限進(jìn)行設(shè)置，具體為期初設(shè)置、貨品管理、查詢統(tǒng)計(jì)、數(shù)據(jù)報(bào)表、系統(tǒng)維護(hù)等權(quán)限授權(quán)。 \。分別都以貨品名稱進(jìn)行查詢。運(yùn)用 API 函數(shù) SetWindowPos，來實(shí)現(xiàn)使窗體置前的功能 39。位數(shù)不足者補(bǔ) 0 Case 1 StrTemp = 00000 Case 2 StrTemp = 0000 Case 3 StrTemp = 000 Case 4 StrTemp = 00 Case 5 StrTemp = 0 Case 6 StrTemp = End Select Text1(0).Text = L amp。定義一個(gè)計(jì)算價(jià)格的變量 Dim i As Integer 39。 and KC_Price= amp。修改該貨品的庫 存數(shù)量 Set adoRs = (UPDATE tb_KCXX SET KC_Num=39。 and KC_SPEC=39。位數(shù)不足則補(bǔ) 0 Case 1 StrTemp = 00000 Case 2 StrTemp = 0000 Case 3 StrTemp = 000 Case 4 StrTemp = 00 Case 5 StrTemp = 0 Case 6 StrTemp = End Select Text1(0).Text = J amp。運(yùn)用在 FOR 循環(huán)中的變量 Dim StrTemp 39。顯示出入庫現(xiàn)金年統(tǒng)計(jì)窗體 = False End Sub Private Sub CRKXXRTJ_Click() 39。定義一個(gè)添加系統(tǒng)登錄日志功能的變量 Dim TStr As String 39。將操作員信息添加到ListView 控件當(dāng)中 key = (M_Name) Set itmX = (, , key, 1) Loop Else = False End If ScreenCenter If TWidth = 800 Or THeigth = 600 Then Exit Sub Else ScreenCenter End If End Sub Private Sub ListView1_Click() = = select * from tb_enter where M_Name=39。 \系統(tǒng)日志 .ini) For Input As 1 Do While Not EOF(1) Line Input 1, Intext TStr = TStr + Intext + Chr(13) + Chr(10) Loop Close 1 TStr = TStr + + Name1 + + Format(Now, yyyymmdd hh:mm:ss) + + 系統(tǒng)登錄 + Chr(13) + Chr(10) Open ( amp。運(yùn)用 API 函數(shù) SetWindowPos，來實(shí)現(xiàn)取消窗體置前的功能 On Error Resume Next Dim MPassword As String If = mr And = mingrisoft Then 39。 物資管理系統(tǒng) 期初設(shè)置 貨品管理 查詢統(tǒng)計(jì) 數(shù)據(jù)報(bào)表 系統(tǒng)維護(hù) 供應(yīng)商信息 倉庫設(shè)置 期初設(shè)置 入庫貨品 出庫貨品 收供