物流信息系統(tǒng)實(shí)驗(yàn)報(bào)告

1、實(shí) 驗(yàn) 報(bào) 告 書課程名稱： 物流信息系統(tǒng) 學(xué)生姓名： 學(xué) 號(hào)： 所在班級(jí)： 所在系（部）： 物流工程系 指導(dǎo)教師： 實(shí)驗(yàn)學(xué)期： 2013 2014 學(xué)年 第 一 學(xué)期山東交通學(xué)院 交通與物流工程一、實(shí)驗(yàn)名稱物流信息系統(tǒng)認(rèn)識(shí)上機(jī)二、時(shí)間 2013年9月14日三、地點(diǎn) 交通與物流工程實(shí)驗(yàn)中心，機(jī)房（6207、6205、6103室）四、指導(dǎo)教師 劉建磊五、實(shí)驗(yàn)?zāi)康耐ㄟ^一般的物流信息系統(tǒng)軟件的實(shí)際操作，認(rèn)識(shí)這類軟件的常見主要功能，了解物流過程中的庫存管理、運(yùn)輸管理、配送管理流程，學(xué)會(huì)這類軟件的基本操作。六、實(shí)驗(yàn)用儀器設(shè)備計(jì)算機(jī)、相關(guān)物流信息系統(tǒng)軟件七、實(shí)驗(yàn)內(nèi)容與實(shí)驗(yàn)步驟1 使用物流管理系統(tǒng)軟件，獲知

2、其主要功能有：1部門資料設(shè)置：對(duì)部門資料進(jìn)行增加、刪除、修改、查詢等操作，截圖如下：2車輛調(diào)度安排：隨時(shí)掌握司機(jī)以及車輛的動(dòng)態(tài)，對(duì)車輛進(jìn)行合理的安排，截圖如下：3車輛資料設(shè)置：將車輛以及司機(jī)的資料電子化，方便、快捷的對(duì)車輛信息進(jìn)行及時(shí)的更新，來對(duì)車輛的信息做到進(jìn)一步的完善，截圖如下：4密碼修改：對(duì)密碼進(jìn)行簡單的修改工作，截圖如下：5貨物托運(yùn)管理：進(jìn)行貨物托運(yùn)的各項(xiàng)內(nèi)容設(shè)置，比如對(duì)托運(yùn)的貨物進(jìn)行增減，承運(yùn)單位的各種信息，以及收貨單位的各種信息，截圖如下： 除以上功能外，該物流管理系統(tǒng)軟件還具有貨物驗(yàn)收管理、客戶資料設(shè)置、司機(jī)資料設(shè)置等。使用物流物流管理系統(tǒng)軟件，獲知其主要功能有：1物資入庫單填寫

3、：主要記錄物資的編號(hào)、數(shù)量、名稱等項(xiàng)目，截圖如下：2物資出庫單填寫：主要內(nèi)容和入庫單的大體相同，截圖如下：3用戶管理：通過密碼設(shè)置來進(jìn)行用戶的識(shí)別與管理，截圖如下：3 使用鋼材行業(yè)物流管理軟件，獲知其主要功能有： 1審核報(bào)損出庫單：對(duì)報(bào)損物品進(jìn)行備注與審核，截圖如下：2查詢存款單，截圖如下：一、實(shí)驗(yàn)名稱物流信息技術(shù)上機(jī)二、時(shí)間 2013年9月18日三、地點(diǎn) 交通與物流工程實(shí)驗(yàn)中心，機(jī)房（6207、6205、6103室）四、指導(dǎo)教師 劉建磊五、實(shí)驗(yàn)?zāi)康氖煜B的系統(tǒng)環(huán)境，了解VB程序的編寫、保存和編譯的方法過程；掌握基本語句的使用；掌握表達(dá)式的正確書寫方法及函數(shù)、運(yùn)算符的正確使用；掌握邏輯表達(dá)式

4、及關(guān)系表達(dá)式的正確書寫形式，掌握IF語句單行和塊書寫格式及其正確使用。六、實(shí)驗(yàn)用儀器設(shè)備計(jì)算機(jī)、VisualBasic軟件七、實(shí)驗(yàn)內(nèi)容與實(shí)驗(yàn)步驟1 編一程序，程序運(yùn)行的初始界面如圖所示，當(dāng)用戶在文本框中輸入姓名，例如輸入“張三”，單擊“確定”按鈕，則程序的運(yùn)行情況如圖1-2所示，如果單擊“結(jié)束”按鈕，即結(jié)束程序運(yùn)行。源代碼：Private Sub Command1_Click()Command2.Enabled = FalseText1.Text = ""End SubPrivate Sub Command2_Click()EndEnd Sub2 設(shè)計(jì)一個(gè)猜數(shù)字游戲軟件，點(diǎn)

5、擊出題按鈕，產(chǎn)生一個(gè)10到99的隨機(jī)數(shù)，然后在文本框中由用戶輸入數(shù)字，如果結(jié)果不對(duì)，應(yīng)提示是大了，還是小了，否則提示正確。運(yùn)行界面如圖3-1所示。程序源代碼為：Dim a As SinglePrivate Sub Command1_Click() a = Int(Rnd * 90) + 10End SubPrivate Sub Command2_Click()Dim b As SingleDim c As Singlec = ab = Text1.TextIf c < b Then MsgBox ("您猜的數(shù)字大了，加油加油")If c > b Then Msg

6、Box ("您猜的數(shù)字小了，加油加油")If c = b Then MsgBox ("您猜對(duì)了，恭喜恭喜")Text1.Text = ""End SubPrivate Sub Command3_Click()EndEnd Sub3 設(shè)計(jì)一個(gè)登陸界面，包含用戶名、密碼及文本框，確定按鈕，退出按鈕，并編寫代碼實(shí)現(xiàn)，用戶名和密碼正確時(shí)彈出對(duì)話框，提示“歡迎使用該系統(tǒng)”，否則提示“用戶名和密碼錯(cuò)誤，請(qǐng)重新輸入”截圖如下：寫入實(shí)現(xiàn)上述內(nèi)容的一段代碼:Dim a As SingleDim b As SinglePrivate Sub Comman

7、d1_Click()a = "123"b = "456"If Text1.Text = a And Text2.Text = b Then MsgBox ("歡迎使用該系統(tǒng)")Else MsgBox ("密碼錯(cuò)誤，請(qǐng)重新輸入")End IfText1.Text = ""Text2.Text = ""End Sub一、實(shí)驗(yàn)名稱物流信息技術(shù)上機(jī)二、時(shí)間 2013年10月12日三、地點(diǎn) 交通與物流工程實(shí)驗(yàn)中心，機(jī)房（6207、6205室）四、指導(dǎo)教師 張良智五、實(shí)驗(yàn)?zāi)康恼莆誇or語

8、句的使用,掌握DoLoopWhile|Until兩種形式的使用。掌握如何控制循環(huán)條件，防止死循環(huán)或不循環(huán)。熟練掌握循環(huán)條件設(shè)置及循環(huán)的控制方法。掌握數(shù)組的聲明、數(shù)組元素的引用,掌握靜態(tài)數(shù)組和動(dòng)態(tài)數(shù)組的使用差別,應(yīng)用數(shù)組解決與數(shù)組有關(guān)的常用問題。六、實(shí)驗(yàn)用儀器設(shè)備計(jì)算機(jī)、VisualBasic軟件七、實(shí)驗(yàn)內(nèi)容與實(shí)驗(yàn)步驟1、編一程序，顯示出所有的水仙花數(shù)。所謂水仙花數(shù)是指：一個(gè)三位數(shù)的各位數(shù)字立方和等于該數(shù)字本身。如：153=，因此153是一個(gè)水仙花數(shù)。截圖如下：程序源代碼為Private Sub Form_click()Dim i As Integer For i = 100 To 999 If

9、 (i 100) 3 + (i 10 Mod 10) 3 + (i Mod 10) 3 = i Then Print i NextEnd Sub2、設(shè)計(jì)一個(gè)程序，將用戶輸入的10個(gè)數(shù)字進(jìn)行倒置。截圖如下：程序源代碼為：Private Sub Form_click()Dim s As Strings = InputBox("請(qǐng)輸入要倒置的數(shù)字", "測試")If s <> "" Thens = StrReverse(s)MsgBox sEnd IfEnd Sub3、設(shè)計(jì)一個(gè)程序，定義一個(gè)5×5的二維數(shù)組，隨機(jī)存放1

10、0-60之間的整數(shù)，輸出內(nèi)容如下：1）按矩陣形式輸出所有數(shù)組元素。2）在每行結(jié)尾輸出各行元素之和。3）在每列的下面輸出主對(duì)角線上的元素。截圖如下：程序源代碼為：Private Sub Form_click()Dim I As Integer, J As IntegerDim IntSumH As IntegerDim IntSj(1 To 5, 1 To 5) As IntegerRandomizeFor I = 1 To 5 IntSumH = 0 Print "|" For J = 1 To 5 IntSj(I, J) = Int(Rnd() * 51 + 10) In

11、tSumH = IntSumH + IntSj(I, J) Print IntSj(I, J); Next J Print "|" Print IntSumHNext IFor I = 1 To 5Print ""Next IPrintPrint " "For I = 1 To 5 Print IntSj(I, I);Next IPrintPrint " "For I = 1 To 5 Print IntSj(6 - I, I);Next IEnd Sub一、實(shí)驗(yàn)名稱數(shù)據(jù)庫操作上機(jī)二、時(shí)間 2013年10月16日三

12、、地點(diǎn) 交通與物流工程實(shí)驗(yàn)中心，機(jī)房（6207、6205室）四、指導(dǎo)教師 張良智五、實(shí)驗(yàn)?zāi)康睦斫怅P(guān)系數(shù)據(jù)庫的基本概念，掌握Access數(shù)據(jù)管理系統(tǒng)的基本操作。練習(xí)建立數(shù)據(jù)表，熟悉各數(shù)據(jù)類型的內(nèi)容。六、實(shí)驗(yàn)用儀器設(shè)備計(jì)算機(jī)、ACCESS軟件七、實(shí)驗(yàn)內(nèi)容與實(shí)驗(yàn)步驟1 ACCESS數(shù)據(jù)庫軟件的主要功能有：（1） 新建數(shù)據(jù)庫，截圖如下：圖1 供應(yīng)商表設(shè)計(jì)視圖圖2 貨物表設(shè)計(jì)視圖圖3 貨物出庫表設(shè)計(jì)視圖圖4 貨物入庫表設(shè)計(jì)視圖圖5 客戶表設(shè)計(jì)視圖圖6 運(yùn)貨商設(shè)計(jì)視圖圖7 貨物表數(shù)據(jù)視圖圖8 貨物出庫表數(shù)據(jù)視圖圖9 貨物入庫表數(shù)據(jù)視圖一、實(shí)驗(yàn)名稱數(shù)據(jù)庫操作上機(jī)二、時(shí)間 2013年10月30日三、地點(diǎn) 交通

13、與物流工程實(shí)驗(yàn)中心，機(jī)房（6207、6205室）四、指導(dǎo)教師 張良智五、實(shí)驗(yàn)?zāi)康耐ㄟ^在VB和ACCESS的交互操作，練習(xí)高級(jí)語言操作數(shù)據(jù)庫的多種方法，重點(diǎn)掌握使用DATA控件、ADODC控件和DATAGRID控件、數(shù)據(jù)窗體設(shè)計(jì)器三種方法連接數(shù)據(jù)庫，并了解使用ADO對(duì)象編寫代碼連接數(shù)據(jù)的方法。六、實(shí)驗(yàn)用儀器設(shè)備計(jì)算機(jī)、ACCESS軟件、VisualBasic軟件七、實(shí)驗(yàn)內(nèi)容與實(shí)驗(yàn)步驟1、使用DATA控件連接數(shù)據(jù)庫在硬盤的用戶盤上建立一個(gè)用戶目錄（如E:WORK），用于保存所有實(shí)驗(yàn)文件。啟動(dòng)ACCESS，找到數(shù)據(jù)庫“倉儲(chǔ)管理信息系統(tǒng)”,確認(rèn)有貨物表，并已經(jīng)錄入了多條數(shù)據(jù)。將“倉儲(chǔ)管理信息系統(tǒng)”數(shù)據(jù)

14、庫打開，轉(zhuǎn)化97格式的數(shù)據(jù)庫，取名“倉儲(chǔ)管理信息系統(tǒng)-97”，復(fù)制到用戶目錄下。啟動(dòng)VB，在窗體上加入DATA控件data1，文本框控件text1，保存文件和工程到用戶目錄下。設(shè)置DATA控件的databasename屬性為“倉儲(chǔ)管理信息系統(tǒng)97”，設(shè)置DATA控件的Recordsource屬性為貨物表。設(shè)置文本框控件的datasource屬性為data1,設(shè)置文本框控件的datafield屬性為貨物名稱。運(yùn)行程序，查看結(jié)果。修改上述文本框控件的datafield屬性，查看結(jié)果。添加其他文本框控件，設(shè)置屬性，顯示更多的貨物表內(nèi)容。顯示多個(gè)貨物表信息的界面截屏如下：圖10 貨物出庫查詢2、使用A

15、DODC控件連接數(shù)據(jù)庫在硬盤的用戶盤上建立一個(gè)用戶目錄（如E:WORK），用于保存所有實(shí)驗(yàn)文件。啟動(dòng)ACCESS，找到數(shù)據(jù)庫“倉儲(chǔ)管理信息系統(tǒng)”,確認(rèn)有貨物表，并已經(jīng)錄入了多條數(shù)據(jù)。復(fù)制到用戶目錄下。啟動(dòng)VB,通過菜單 工程部件控件添加控件Microsoft ADO DATA CONTROL 6.0 和Microsoft DATAgrid CONTROL 6.0。通過工具箱加兩個(gè)控件到窗體上。設(shè)置ADODC的屬性，生成提供程序Microsoft JET 4.0 OLE DB；連接WLGL測試連接成功；記錄源命令類型：2表名稱：貨物表。設(shè)置datagrid控件屬性datasource為ADODC

16、1.運(yùn)行程序，顯示貨物表全部內(nèi)容的界面如下：圖11 物資查詢 3、使用數(shù)據(jù)窗體設(shè)計(jì)器操作數(shù)據(jù)庫在硬盤的用戶盤上建立一個(gè)用戶目錄（如E:WORK），用于保存所有實(shí)驗(yàn)文件。啟動(dòng)ACCESS，找到數(shù)據(jù)庫“倉儲(chǔ)管理信息系統(tǒng)”,確認(rèn)有貨物表，并已經(jīng)錄入了多條數(shù)據(jù)。將“倉儲(chǔ)管理信息系統(tǒng)”數(shù)據(jù)庫打開，轉(zhuǎn)化97格式的數(shù)據(jù)庫，取名“倉儲(chǔ)管理信息系統(tǒng)97”，復(fù)制到用戶目錄下。啟動(dòng)VB,通過菜單 外接程序可視化數(shù)據(jù)管理器，在visdata界面上文件-打開數(shù)據(jù)庫Microsoft ACCESS- “倉儲(chǔ)管理信息系統(tǒng)97”,實(shí)用程序-數(shù)據(jù)窗體設(shè)計(jì)器窗體名稱:huowu記錄源：貨物表添加使用的多個(gè)字段到右側(cè)生成窗體關(guān)閉。

17、對(duì)自動(dòng)生成的窗體，重新排列位置、設(shè)置字體大小，顏色，控件長度等，調(diào)整界面美觀大方，不留空白，不顯擁擠。運(yùn)行程序，得到操作數(shù)據(jù)庫的界面設(shè)計(jì)如下：圖12 客戶管理表一、實(shí)驗(yàn)名稱物流信息系統(tǒng)開發(fā)上機(jī)二、時(shí)間 2013年11月13日三、地點(diǎn) 交通與物流工程實(shí)驗(yàn)中心，機(jī)房（6207、6205室）四、指導(dǎo)教師 張良智五、實(shí)驗(yàn)?zāi)康耐ㄟ^編制系統(tǒng)可行性分析報(bào)告了解物流信息系統(tǒng)可行性分析的內(nèi)容，通過系統(tǒng)業(yè)務(wù)流程圖的繪制，熟悉系統(tǒng)業(yè)務(wù)過程，學(xué)會(huì)繪制業(yè)務(wù)流程圖；通過界面設(shè)計(jì)熟練輸入設(shè)計(jì)、輸出設(shè)計(jì)的方法，掌握基本的界面設(shè)計(jì)方法。六、實(shí)驗(yàn)用儀器設(shè)備計(jì)算機(jī)、ACCESS、WORD、VB、DiagramDesigner軟件七

18、、實(shí)驗(yàn)內(nèi)容與實(shí)驗(yàn)步驟1 系統(tǒng)可行性分析（1）方案的可行性 本系統(tǒng)方案是適應(yīng)現(xiàn)代倉儲(chǔ)業(yè)高效倉儲(chǔ)化作業(yè)而設(shè)計(jì)的，且系統(tǒng)界面友好， 系統(tǒng)功能比較簡單，任何人都可以很快掌握操作原理并使用，不存在太大難度。（2）技術(shù)的可行性系統(tǒng)的總體架構(gòu)將采用三層架構(gòu)模型，數(shù)據(jù)庫采用微軟的Access，其工作穩(wěn)定，功能強(qiáng)大，資源耗費(fèi)較少，所以能夠充分滿足目前的需要。采用VB語言進(jìn)行編程。VB是安全的、穩(wěn)定的、簡單的面向?qū)ο蟮木幊陶Z言。因此，開發(fā)本系統(tǒng)在技術(shù)上是可行的。（3）經(jīng)濟(jì)的可行性 由于本系統(tǒng)的開發(fā)以課程設(shè)計(jì)為依托，參與人員的目的以學(xué)習(xí)為主，投入成本比較小。本系統(tǒng)比較簡單且只在本機(jī)使用，暫不考慮網(wǎng)絡(luò)，因而

19、開發(fā)費(fèi)用小。同時(shí)無紙化辦公可以節(jié)省資源，減少后期資源浪費(fèi)。因此，開發(fā)本系統(tǒng)在經(jīng)濟(jì)上是可行的。（4）社會(huì)的可行性在社會(huì)生產(chǎn)飛速發(fā)展的今天，物流己經(jīng)成為國民經(jīng)濟(jì)的支柱，尤其是倉儲(chǔ)管理，信息化是發(fā)展物流、提高效率的關(guān)鍵。倉儲(chǔ)管理系統(tǒng)數(shù)據(jù)邏輯設(shè)計(jì)規(guī)范，系統(tǒng)功能健全，數(shù)據(jù)標(biāo)準(zhǔn)化，可以滿足企業(yè)物流倉儲(chǔ)業(yè)務(wù)的實(shí)際需要，提高倉儲(chǔ)工作的效率。這些需求成為發(fā)展物流的關(guān)鍵因素。因此，本系統(tǒng)在社會(huì)上具有可行性。2.業(yè)務(wù)流程圖圖13 入庫作業(yè)流程圖圖14 出庫作業(yè)流程圖圖15 盤點(diǎn)作業(yè)流程圖3界面設(shè)計(jì)截圖如下：圖16 用戶登錄界面圖17 倉儲(chǔ)管理系統(tǒng)主界面圖18 客戶管理界面圖19 供應(yīng)商查詢界面圖20 供應(yīng)商管理界面

20、一、實(shí)驗(yàn)名稱物流信息系統(tǒng)開發(fā)上機(jī)二、時(shí)間 2013年11月28日三、地點(diǎn) 交通與物流工程實(shí)驗(yàn)中心，機(jī)房（6207、6205室）四、指導(dǎo)教師 張良智五、實(shí)驗(yàn)?zāi)康耐ㄟ^系統(tǒng)分析（含業(yè)務(wù)流程分析和數(shù)據(jù)流程分析）、系統(tǒng)設(shè)計(jì)（含數(shù)據(jù)庫設(shè)計(jì)、界面設(shè)計(jì)）、系統(tǒng)實(shí)施等環(huán)節(jié)，讓學(xué)生全面掌握物流信息系統(tǒng)開發(fā)的全部內(nèi)容，并初步掌握一些關(guān)鍵技術(shù)，了解系統(tǒng)開發(fā)的整體流程。六、實(shí)驗(yàn)用儀器設(shè)備計(jì)算機(jī)、ACCESS、WORD、VB、DiagramDesigner軟件七、實(shí)驗(yàn)內(nèi)容與實(shí)驗(yàn)步驟（一）系統(tǒng)分析采購入庫時(shí)由倉儲(chǔ)部門開出會(huì)驗(yàn)收通知單，交相關(guān)檢驗(yàn)人員進(jìn)行檢驗(yàn)（驗(yàn)收標(biāo)準(zhǔn)由使用部門即生產(chǎn)科給定，在本系統(tǒng)中不進(jìn)行管理），開出驗(yàn)收單

21、，如果驗(yàn)收合格，則進(jìn)行移倉，并記入倉庫臺(tái)帳，然后財(cái)務(wù)根據(jù)具體情況進(jìn)行付款操作，當(dāng)然付款作業(yè)并不包括在本倉儲(chǔ)管理系統(tǒng)內(nèi)，本系統(tǒng)僅僅在此預(yù)留與財(cái)務(wù)系統(tǒng)的接口而已；如果驗(yàn)收不合格，則視具體情況進(jìn)行處理，根據(jù)需要進(jìn)行退貨作業(yè)，在此本系統(tǒng)只負(fù)責(zé)退貨單的維護(hù)。領(lǐng)料出庫有多種形式，生產(chǎn)領(lǐng)料和其他領(lǐng)料如設(shè)備維修領(lǐng)料等的領(lǐng)料作業(yè)流程和領(lǐng)料單都相同。領(lǐng)料出庫時(shí)，由相關(guān)檢驗(yàn)人員查可用庫存量，如果領(lǐng)料量小于可用庫存量則進(jìn)行發(fā)料，從而入倉庫臺(tái)賬；如果領(lǐng)料單不小于庫存量則重新填寫領(lǐng)料單并且填寫請(qǐng)購單。（二）系統(tǒng)設(shè)計(jì)1.物理配置方案設(shè)計(jì)隨著信息技術(shù)的飛速發(fā)展，各種計(jì)算機(jī)軟、硬件產(chǎn)品競相投向市場。多種多樣的計(jì)算機(jī)技術(shù)產(chǎn)品為信

22、息系統(tǒng)的建設(shè)提供了極大的靈活性，其性價(jià)比也是五年前甚至是半年前所無法比擬的，使我們可以根據(jù)應(yīng)用的需要靈活選用不同生產(chǎn)者的性能各異的軟、硬件產(chǎn)品。該系統(tǒng)采用Client/Server、Browser/Server結(jié)構(gòu)，采用了最先進(jìn)的三層結(jié)構(gòu)設(shè)計(jì)，使應(yīng)用層和數(shù)據(jù)庫邏輯分離，進(jìn)而使核心數(shù)據(jù)庫更安全，升級(jí)和擴(kuò)展可不受原系統(tǒng)的局限。服務(wù)器采用Windows2000 Server操作系統(tǒng)，數(shù)據(jù)庫是SQL Server2000，中間層服務(wù)器和客戶端開發(fā)語言為VB6.0。2.系統(tǒng)設(shè)計(jì)原則 系統(tǒng)設(shè)計(jì)遵循的原則：（1）系統(tǒng)的標(biāo)準(zhǔn)化和規(guī)范化，系統(tǒng)的標(biāo)準(zhǔn)化和規(guī)范化是信息系統(tǒng)建設(shè)基本而又關(guān)鍵的一步，要實(shí)現(xiàn)信息通訊與共享

23、，必須規(guī)范信息技術(shù)標(biāo)準(zhǔn)。（2）系統(tǒng)的實(shí)用性、穩(wěn)定和可靠性，系統(tǒng)建設(shè)要以滿足工作的業(yè)務(wù)需求為首要目標(biāo)，建設(shè)方案以實(shí)際可接受能力為尺度，避免盲目追求新技術(shù)。系統(tǒng)中的軟硬件及信息資源要滿足可靠性設(shè)計(jì)要求，系統(tǒng)必須可靠地長期安全運(yùn)行，即系統(tǒng)的設(shè)計(jì)必須在成本可以接受的條件下，從系統(tǒng)結(jié)構(gòu)、設(shè)計(jì)方案、設(shè)備選型、廠商的技術(shù)服務(wù)與維護(hù)響應(yīng)能力、備件供應(yīng)能力等方面考慮，使得系統(tǒng)故障發(fā)生的可能性盡可能少，對(duì)各種可能出現(xiàn)的緊急情況有應(yīng)急的工作方案和對(duì)策。（3）系統(tǒng)的安全性。遵循有關(guān)信息安全標(biāo)準(zhǔn)，系統(tǒng)具有很強(qiáng)的安全防衛(wèi)機(jī)制，應(yīng)提供多方式、多層次、多渠道的安全保密措施，防止各種形式與途徑的非法侵入和機(jī)密信息泄露；同時(shí)要有

24、備份機(jī)制，保證客戶信息的安全。（4）系統(tǒng)的靈活性和可擴(kuò)充性。計(jì)算機(jī)技術(shù)發(fā)展迅速，日新月異，系統(tǒng)的設(shè)計(jì)要保證軟件兼容的情況下，利用最小代價(jià)，使網(wǎng)絡(luò)系統(tǒng)結(jié)構(gòu)平滑過渡到新的網(wǎng)絡(luò)結(jié)構(gòu)體系，可以靈活擴(kuò)充。系統(tǒng)能有較強(qiáng)的應(yīng)變能力，實(shí)現(xiàn)程序與處理數(shù)據(jù)分離，處理數(shù)據(jù)的變化不需要修改應(yīng)用程序軟件，如表格、數(shù)據(jù)結(jié)構(gòu)的定義，既滿足上級(jí)的要求，又滿足用戶自己的特殊需要，用戶可以靈活定義和變化。 3.網(wǎng)絡(luò)結(jié)構(gòu) 網(wǎng)絡(luò)主要由企業(yè)內(nèi)部網(wǎng)和信息發(fā)布系統(tǒng)兩部分組成。根據(jù)企業(yè)客戶信息管理系統(tǒng)的需求，在網(wǎng)絡(luò)系統(tǒng)的設(shè)計(jì)中，采用目前先進(jìn)成熟的快速以太網(wǎng)技術(shù)，以最優(yōu)的性能價(jià)格比實(shí)現(xiàn)整個(gè)網(wǎng)絡(luò)系統(tǒng)的高性能和高可靠性。這樣，客戶隨時(shí)隨地都可通過

25、公眾網(wǎng)訪問本信息系統(tǒng)。網(wǎng)絡(luò)設(shè)計(jì)的目標(biāo)是：（1）系統(tǒng)采用星型網(wǎng)絡(luò)結(jié)構(gòu)，因此單機(jī)損壞對(duì)整個(gè)系統(tǒng)無影響；（2）采用高容錯(cuò)技術(shù)，系統(tǒng)可以不間斷的運(yùn)；（3）星型布線使站點(diǎn)不受限制，在站點(diǎn)增加、減少的情況下，系統(tǒng)不停機(jī)；（4）采用實(shí)用的客戶機(jī)/服務(wù)器和瀏覽器/服務(wù)器結(jié)構(gòu)；（5）服務(wù)器采用易于管理的Windows NT系統(tǒng)；（6）客戶端采用方便實(shí)用的Windows 98、2000和XP。 4.系統(tǒng)軟件 （1）操作系統(tǒng)Windows NT Server。該系統(tǒng)為各種組織的計(jì)算環(huán)境提供了一個(gè)完整的方案。從文件/打印操作，到Intranet和Internet服務(wù)，關(guān)鍵任務(wù)的應(yīng)用程序支持，所有的服務(wù)被嵌入操作系統(tǒng)。

26、從基本點(diǎn)著手，Windows NT Server設(shè)計(jì)成為最具有集成性，完整性和便捷性的服務(wù)器操作系統(tǒng)，并提供了對(duì)關(guān)鍵任務(wù)應(yīng)用程序所必備的評(píng)測性，可靠性和管理性。 （2）數(shù)據(jù)庫系統(tǒng)SQLServer 2000。SQL Server 2000是一個(gè)綜合的分布式管理框架結(jié)構(gòu)，允許你集中地管理組織機(jī)構(gòu)中所有數(shù)據(jù)庫服務(wù)器。通過增強(qiáng)的基于Windows的管理工具和強(qiáng)大的基于服務(wù)器的作業(yè)日程安排，你可以直觀地控制多個(gè)服務(wù)器，并且實(shí)現(xiàn)分布式環(huán)境命令構(gòu)成的遠(yuǎn)程操作的自動(dòng)執(zhí)行。考慮到與Internet的集成，SQL Server還提供了高性能的Web頁面信息訪問機(jī)制。它的新組件Web Assistant能使你通過

27、多種方式利用SQL數(shù)據(jù)推廣你的Web服務(wù)，允許在一個(gè)私有Intranet網(wǎng)或在世界范圍網(wǎng)（Internet）的Web上分發(fā)公司數(shù)據(jù)。 （3）客戶端系統(tǒng)軟件?？蛻舳瞬僮飨到y(tǒng)可采用Windows NT Workstation 4.0 或Windows 98中文版。（三）數(shù)據(jù)庫設(shè)計(jì)1.使用DATA控件連接數(shù)據(jù)庫在硬盤的用戶盤上建立一個(gè)用戶目錄（如E:WORK），用于保存所有實(shí)驗(yàn)文件。啟動(dòng)ACCESS，找到數(shù)據(jù)庫“倉儲(chǔ)管理信息系統(tǒng)”,確認(rèn)有貨物表，并已經(jīng)錄入了多條數(shù)據(jù)。將“倉儲(chǔ)管理信息系統(tǒng)”數(shù)據(jù)庫打開，轉(zhuǎn)化97格式的數(shù)據(jù)庫，取名“倉儲(chǔ)管理信息系統(tǒng)-97”，復(fù)制到用戶目錄下。啟動(dòng)VB，在窗體上加入DAT

28、A控件data1，文本框控件text1，保存文件和工程到用戶目錄下。設(shè)置DATA控件的databasename屬性為“倉儲(chǔ)管理信息系統(tǒng)97”，設(shè)置DATA控件的Recordsource屬性為貨物表。設(shè)置文本框控件的datasource屬性為data1,設(shè)置文本框控件的datafield屬性為貨物名稱。運(yùn)行程序，查看結(jié)果。修改上述文本框控件的datafield屬性，查看結(jié)果。添加其他文本框控件，設(shè)置屬性，顯示更多的貨物表內(nèi)容。2.使用ADODC控件連接數(shù)據(jù)庫在硬盤的用戶盤上建立一個(gè)用戶目錄（如E:WORK），用于保存所有實(shí)驗(yàn)文件。啟動(dòng)ACCESS，找到數(shù)據(jù)庫“倉儲(chǔ)管理信息系統(tǒng)”,確認(rèn)有貨物表，并

29、已經(jīng)錄入了多條數(shù)據(jù)。復(fù)制到用戶目錄下。啟動(dòng)VB,通過菜單 工程部件控件添加控件Microsoft ADO DATA CONTROL 6.0 和Microsoft DATAgrid CONTROL 6.0。通過工具箱加兩個(gè)控件到窗體上。設(shè)置ADODC的屬性，生成提供程序Microsoft JET 4.0 OLE DB；連接WLGL測試連接成功；記錄源命令類型：2表名稱：貨物表。設(shè)置datagrid控件屬性datasource為ADODC1.3.使用數(shù)據(jù)窗體設(shè)計(jì)器操作數(shù)據(jù)庫在硬盤的用戶盤上建立一個(gè)用戶目錄（如E:WORK），用于保存所有實(shí)驗(yàn)文件。啟動(dòng)ACCESS，找到數(shù)據(jù)庫“倉儲(chǔ)管理信息系統(tǒng)”,確

30、認(rèn)有貨物表，并已經(jīng)錄入了多條數(shù)據(jù)。將“倉儲(chǔ)管理信息系統(tǒng)”數(shù)據(jù)庫打開，轉(zhuǎn)化97格式的數(shù)據(jù)庫，取名“倉儲(chǔ)管理信息系統(tǒng)97”，復(fù)制到用戶目錄下。啟動(dòng)VB,通過菜單 外接程序可視化數(shù)據(jù)管理器，在visdata界面上文件-打開數(shù)據(jù)庫Microsoft ACCESS- “倉儲(chǔ)管理信息系統(tǒng)97”,實(shí)用程序-數(shù)據(jù)窗體設(shè)計(jì)器窗體名稱:huowu記錄源：貨物表添加使用的多個(gè)字段到右側(cè)生成窗體關(guān)閉。對(duì)自動(dòng)生成的窗體，重新排列位置、設(shè)置字體大小，顏色，控件長度等，調(diào)整界面美觀大方，不留空白，不顯擁擠。（四）系統(tǒng)實(shí)現(xiàn)（1）實(shí)現(xiàn)對(duì)供應(yīng)商管理的代碼Private Sub cmdAdd_Click() Data1.Recor

31、dset.AddNewEnd SubPrivate Sub cmdDelete_Click() '如果刪除記錄集的最后一條記錄 '記錄或記錄集中唯一的記錄 Data1.Recordset.Delete Data1.Recordset.MoveNextEnd SubPrivate Sub cmdRefresh_Click() '這僅對(duì)多用戶應(yīng)用程序才是需要的 Data1.RefreshEnd SubPrivate Sub cmdUpdate_Click() Data1.UpdateRecord Data1.Recordset.Bookmark = Data1.Record

32、set.LastModifiedEnd SubPrivate Sub cmdClose_Click()Unload Me Form2.ShowEnd SubPrivate Sub Data1_Error(DataErr As Integer, Response As Integer) '這就是放置錯(cuò)誤處理代碼的地方 '如果想忽略錯(cuò)誤，注釋掉下一行代碼 '如果想捕捉錯(cuò)誤，在這里添加錯(cuò)誤處理代碼 MsgBox "數(shù)據(jù)錯(cuò)誤事件命中錯(cuò)誤：" & Error$(DataErr) Response = 0 '忽略錯(cuò)誤End SubPrivate

33、Sub Data1_Reposition() Screen.MousePointer = vbDefault On Error Resume Next '這將顯示當(dāng)前記錄位置 '為動(dòng)態(tài)集和快照 Data1.Caption = "記錄：" & (Data1.Recordset.AbsolutePosition + 1) '對(duì)于 Table 對(duì)象，當(dāng)記錄集創(chuàng)建后并使用下面的行時(shí)， '必須設(shè)置 Index 屬性 'Data1.Caption = "記錄：" & (Data1.Recordset.Recor

34、dCount * (Data1.Recordset.PercentPosition * 0.01) + 1End SubPrivate Sub Data1_Validate(Action As Integer, Save As Integer) '這是放置驗(yàn)證代碼的地方 '當(dāng)下面的動(dòng)作發(fā)生時(shí)，調(diào)用這個(gè)事件 Select Case Action Case vbDataActionMoveFirst Case vbDataActionMovePrevious Case vbDataActionMoveNext Case vbDataActionMoveLast Case vbDat

35、aActionAddNew Case vbDataActionUpdate Case vbDataActionDelete Case vbDataActionFind Case vbDataActionBookmark Case vbDataActionClose End Select Screen.MousePointer = vbHourglassEnd Sub（2）實(shí)現(xiàn)用戶注冊(cè)的單擊事件Private Sub Command1_Click()If Text1.Text <> "" And Text2.Text <> "" A

36、nd Text3.Text <> "" And Text3.Text = Text2.Text ThenpubConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "倉儲(chǔ)管理信息系統(tǒng).mdb" & "" & "Persist Security Info=False"pubConn.Connection

37、Timeout = 30pubConn.Openrs.CursorLocation = adUseClientstrSQL = "select * from user "rs.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic rs.AddNew rs!用戶名 = Text1.Text rs!密碼 = Text2.Text rs.Update MsgBox "注冊(cè)成功！", vbExclamation + vbOKOnly, "警告" Form4.Hide Else m = Ms

38、gBox("錯(cuò)誤,請(qǐng)重新登錄", vbExclamation) Text1.Text = "" Text2.Text = "" Text3.Text = ""End IfEnd Sub（3）實(shí)現(xiàn)貨物出庫管理的代碼Private Sub cmdAdd_Click() Data1.Recordset.AddNewEnd SubPrivate Sub cmdDelete_Click() '如果刪除記錄集的最后一條記錄 '記錄或記錄集中唯一的記錄 Data1.Recordset.Delete Data1.Reco