基于vb的糧食收購程序設(shè)計

1、電氣控翻一基于VB硇糨食收購程序設(shè)計單學(xué)軍陳良杰(遼寧沈陽前進糧庫，遼寧沈陽110045)摘要：介紹了基于VB的網(wǎng)絡(luò)化程序設(shè)計用于國家糧食儲備庫收購糧食的構(gòu)架闡述了基于企業(yè)局域網(wǎng)的客戶／服務(wù)器體系結(jié)構(gòu)的應(yīng)用程序設(shè)計。以及VB與地中衡通訊功能和數(shù)據(jù)庫SQLServer的基本連接方法，并使其與條形碼技術(shù)相結(jié)合。VisualBasic語言具有簡潔明了、編程效率高、網(wǎng)絡(luò)功能強等特點，適于開發(fā)國家糧食儲備庫糧食收購程序。關(guān)鍵詞：通信：數(shù)據(jù)交換：C

2、／S體系結(jié)構(gòu)中圖分類號：，IP3111文獻標識碼：B文章編號：1007—3582(2003)06—0023—02長期以來受我國糧庫流通和儲藏企業(yè)技術(shù)水平的限制，計算機技術(shù)在糧食流通領(lǐng)域一直沒有普及，只有一些大型糧庫有初步應(yīng)用。但也都停留在單機簡單數(shù)據(jù)錄入階段。20世紀90年代以來，隨著世行項目和國儲庫等工程的建成使用。局域網(wǎng)和計算機信息管理技術(shù)雖然在糧食流通領(lǐng)域得到了廣泛應(yīng)用。但許多糧庫冬季收購糧食仍然是手工單據(jù)作業(yè)。存在效率低，成本高

3、，易出錯，有漏洞等問題，不但影響企業(yè)工作效率和效益。也與現(xiàn)代化糧庫建設(shè)不相適應(yīng)?；赩B的網(wǎng)絡(luò)化收購糧食程序。寓管理于軟件之中，將大大提高工作效率，充分享受IT技術(shù)的發(fā)展為糧食流通應(yīng)用帶來的便利。1系統(tǒng)描述VisualBasic是一種可視化的、面向?qū)ο蟮腤indows開發(fā)語言。具有簡潔穩(wěn)定、編程效率高、開發(fā)周期短、網(wǎng)絡(luò)功能強等特點。數(shù)據(jù)庫采用MicroSoflSQLServer2000它是一個多用戶關(guān)系數(shù)據(jù)庫管理系統(tǒng)它為復(fù)雜環(huán)境下實現(xiàn)商

4、業(yè)應(yīng)用提供了強有力的客戶機／服務(wù)器(c／s)平臺。主要采用條碼技術(shù)并配合激光掃描器、數(shù)據(jù)采集器(PDA)不僅可減少人力、物力。而且提高了準確率和工作效率。網(wǎng)絡(luò)化的經(jīng)理遠程查詢?？旖葚S富的報表統(tǒng)計功能；分布式的管理方式。適合實際的工作環(huán)境，可以實現(xiàn)信息的實時共享。同時采用客戶／服務(wù)器體系結(jié)構(gòu)的數(shù)據(jù)庫應(yīng)用模式。即數(shù)據(jù)庫和應(yīng)用程序是分離的，數(shù)據(jù)庫存放在數(shù)據(jù)庫服務(wù)器上。應(yīng)用程序主要運行在客戶端的工作站上，它向數(shù)據(jù)庫服務(wù)器提出請求、返回數(shù)據(jù)，并在

5、本機操作，然后將操作的結(jié)果發(fā)送到數(shù)據(jù)庫服務(wù)器，數(shù)據(jù)庫服務(wù)器提供大容量的存儲設(shè)備、管理數(shù)據(jù)資源并運行數(shù)據(jù)庫引擎、處理客戶機的請求，也運行應(yīng)用系統(tǒng)的服務(wù)器程序。不僅可以實現(xiàn)對數(shù)據(jù)庫的共享。同時也提高數(shù)據(jù)庫的安全。在主域控制器PDC上運行Windows2000Server。用來管理當(dāng)前域，同時作為應(yīng)用程序服務(wù)器見圖1。量經(jīng)理查詢中心糠務(wù)器／，，／／＼f70登記生成條碼化驗室檢驗圖1網(wǎng)絡(luò)結(jié)構(gòu)示意財務(wù)結(jié)算2糧庫收購糧食工作流程糧庫收購糧食主要流程

6、：門衛(wèi)登記一化驗室檢驗一磅房檢斤毛重一現(xiàn)場復(fù)驗一磅房檢斤皮重一財務(wù)結(jié)算一門衛(wèi)檢查一農(nóng)戶離開糧庫。3程序設(shè)計與編寫6／2003鞭食流通技術(shù)23維普資訊一電氣控■單學(xué)軍等：基于VB的糧食收購程序設(shè)計31檢斤通信實現(xiàn)檢斤工作站與現(xiàn)場帶有標準RS一232接口的汽車衡進行通信來采集現(xiàn)場數(shù)據(jù)，收購軟件采用VB開發(fā)因VB具有強大的圖形顯示功能，可以開發(fā)出界面良好的Windows標準風(fēng)格的圖形用戶界面；同時VB還提供了通訊控件Mscomm，程序員利用該

7、控件只需設(shè)置、監(jiān)視其屬性和事件，即可簡易快捷地進行串行通信編程。初始化程序Subforml_load()‘初始化設(shè)置Mscomm1comport=1‘選擇端口COM1Mscommasettings=“2400。n。8，1”’設(shè)置通信參數(shù)一波特率、校驗、數(shù)據(jù)位、停止位Mseomm1portopen=true‘啟動COM1Mscomm1inputmode=0CominputmodeText‘設(shè)(3)在該數(shù)據(jù)庫下建立表1，表2，：(4)根據(jù)各

8、個變量的屬性和狀態(tài)確定數(shù)據(jù)庫中表的屬性和值：(5)在user中設(shè)置用戶和權(quán)限，以保證數(shù)據(jù)庫的安全。332數(shù)據(jù)庫描述(1)基本設(shè)置：相關(guān)操作人員權(quán)限管理以保證整個系統(tǒng)數(shù)據(jù)的安全性；糧食品種水分等基本信息。(2)修改及刪除：操作員基本信息：糧食品種水分等基本信息。(3)查詢：依據(jù)不同字段作查詢條件。日、月或時間段詳細數(shù)據(jù)查詢；根據(jù)糧食品種、等級、水分等詳細數(shù)據(jù)查詢；主管領(lǐng)導(dǎo)遠程查詢。(4)報表：日、月或時間段詳細數(shù)據(jù)報表報表；根據(jù)糧食品種、

9、等級、水分等詳細數(shù)據(jù)報表。置Input屬性檢索數(shù)據(jù)類型(5)自動備份和壓縮數(shù)據(jù)庫。Mscomm1inputlen=0‘讀入接收緩沖區(qū)全34網(wǎng)絡(luò)通信實現(xiàn)部字符Endsub32VB與SQLServer的連接基于ODBC的應(yīng)用程序與數(shù)據(jù)庫的連接ODBC的開放性而變得簡單。只需在客戶端的ODBC的數(shù)據(jù)源中指定所需連接的數(shù)據(jù)源名稱和位置，同時在應(yīng)用程序設(shè)計中明確對該數(shù)據(jù)源的調(diào)用，則程序運行時系統(tǒng)自動將數(shù)據(jù)源通過ODBC連接起來，兩種連接方式。一種

10、是使用ADO對象，它需要建立一個C0nnection對象或是使用一個比較方便的方法，直接使用ADO的控件。33數(shù)據(jù)庫需求與描述數(shù)據(jù)庫建立及使用開發(fā)工具為MicrosoftSQLServer它是一個客戶／$1務(wù)器Client／server關(guān)系式數(shù)據(jù)庫系統(tǒng)。使用SQL語言，支持并發(fā)網(wǎng)絡(luò)協(xié)議，對數(shù)據(jù)庫進行操作為數(shù)據(jù)庫管理員和SQL開發(fā)人員提供了創(chuàng)建和管理完備的數(shù)據(jù)系統(tǒng)所需的每一個工具。數(shù)據(jù)庫建立于中心數(shù)據(jù)庫，統(tǒng)一的文件存儲，允許在相同的數(shù)據(jù)基

11、礎(chǔ)上工作，并方便的備份關(guān)鍵的數(shù)據(jù)數(shù)據(jù)保密性強。331數(shù)據(jù)庫建立步驟(1)在windows2000server系統(tǒng)下安裝SQLServer2000；(2)啟動SQLServerEnterpriseManager，在$QLServerGroup下選擇本機下數(shù)據(jù)庫Database，利用菜單命令“ActionNewDatabase”建立一個新的數(shù)據(jù)庫；246／2003鞭食流通技術(shù)VB60增加了強大的網(wǎng)絡(luò)功能。VB的Winsock控件對Winso

12、ckAPI做了封裝。程序員可以不必了解TCP／IP和WinsockAH函數(shù)的細節(jié)。而只需設(shè)定好相應(yīng)的屬性，并在觸發(fā)的事件做好相應(yīng)的處理，就可以輕松地編出網(wǎng)絡(luò)應(yīng)用程序。在局域網(wǎng)內(nèi)，利用軟件在網(wǎng)絡(luò)上建立一個可以保證系統(tǒng)高度一致和整體的分布式系統(tǒng)，可以動態(tài)地給系統(tǒng)擁有的所有通用的物理和邏輯資源分配任務(wù)。系統(tǒng)中的工作機通過網(wǎng)絡(luò)實現(xiàn)信息相互交換。4調(diào)試和配置方案通信端口的調(diào)試是該系統(tǒng)的難點，某些語句中含有端口數(shù)據(jù)，若要調(diào)試這樣的代碼則需將含有端口