某橡膠制品廠生產(chǎn)管理系統(tǒng)論文

1、新 疆 廣 播 電 視 大 學畢 業(yè) 論 文（設 計）書（開放教育計算機科學與技術本科專業(yè)）題 目 新疆昆侖橡膠制品廠生產(chǎn)管理系統(tǒng) 姓 名 學號 班級 指導教師 職 稱 2007 年 12 月 10日摘要【摘要】生產(chǎn)部門如果沒有專業(yè)化管理的工具，都會受到如周期、庫存、人力、發(fā)貨、廢品、引入新產(chǎn)品和滿足客戶要求等問題的困擾。如果沒有一個有效的計劃，生產(chǎn)部門對以上這些問題以及其他一些類似的問題是很難回答的。由于缺乏公認的專業(yè)工具和知識體系以及其有效系統(tǒng)，也很難準確的衡量生產(chǎn)部門的工作業(yè)績。由此可見，生產(chǎn)管理系統(tǒng)的引入迫在眉睫。在應用生產(chǎn)管理系統(tǒng)的環(huán)境下，在制定銷售與運作規(guī)劃時先要通過資源計劃來估算

2、為生產(chǎn)一定數(shù)量的某類產(chǎn)品所需的資源，以保證銷售與運作規(guī)劃的合理性?！娟P鍵詞】 生產(chǎn)部門 問題 生產(chǎn)管理系統(tǒng)Abstract Unless managing means is effectively put on use in production department,it will be tired by time,stock,human resources,delivery and even how new products satisfy the customers.only after conceiving these problem.Can we answer those thoug

3、h question .Because of shortage of standard,means and successful knowledge systems,we are difficulties measure and access the result from production divisions.Therefore ,to bring in production managing system is urgent and magnificent.In order to ensure the rationality fo sales and running plans .we

4、 have to reckon the resource for manufacturing when you will be scheduled to make the general plan.目錄 TOC o 1-3 h z HYPERLINK l _Toc131404689 摘要 PAGEREF _Toc131404689 h 2 HYPERLINK l _Toc131404690 目錄 PAGEREF _Toc131404690 h 3 HYPERLINK l _Toc131404691 0 引言 PAGEREF _Toc131404691 h 4 HYPERLINK l _Toc1

5、31404692 1 系統(tǒng)分析 PAGEREF _Toc131404692 h 5 HYPERLINK l _Toc131404693 1.1 需求分析 PAGEREF _Toc131404693 h 5 HYPERLINK l _Toc131404694 1.2 可行性分析 PAGEREF _Toc131404694 h 5 HYPERLINK l _Toc131404695 2 總體設計 PAGEREF _Toc131404695 h 5 HYPERLINK l _Toc131404696 2.1 項目規(guī)劃 PAGEREF _Toc131404696 h 5 HYPERLINK l _To

6、c131404697 2.2 系統(tǒng)功能架構圖 PAGEREF _Toc131404697 h 6 HYPERLINK l _Toc131404698 3 系統(tǒng)設計 PAGEREF _Toc131404698 h 6 HYPERLINK l _Toc131404699 3.1 設計目標 PAGEREF _Toc131404699 h 6 HYPERLINK l _Toc131404700 3.2 開發(fā)及運行環(huán)境 PAGEREF _Toc131404700 h 7 HYPERLINK l _Toc131404701 3.3 數(shù)據(jù)庫設計 PAGEREF _Toc131404701 h 7 HYPER

7、LINK l _Toc131404702 4 主要功能模塊設計 PAGEREF _Toc131404702 h 8 HYPERLINK l _Toc131404703 4.1 公共模塊設計 PAGEREF _Toc131404703 h 8 HYPERLINK l _Toc131404704 4.2 主窗體 PAGEREF _Toc131404704 h 9 HYPERLINK l _Toc131404705 4.3 系統(tǒng)登錄窗體 PAGEREF _Toc131404705 h 12 HYPERLINK l _Toc131404706 4.4 物料信息設置 PAGEREF _Toc131404

8、706 h 16 HYPERLINK l _Toc131404707 4.5 生產(chǎn)計劃單管理 PAGEREF _Toc131404707 h 21 HYPERLINK l _Toc131404708 4.6 設備報廢信息 PAGEREF _Toc131404708 h 23 HYPERLINK l _Toc131404719 附錄A 參考文獻 PAGEREF _Toc131404719 h 26 HYPERLINK l _Toc131404720 附錄B 數(shù)據(jù)表 PAGEREF _Toc131404720 h 27 HYPERLINK l _Toc131404721 附錄C 文件架構圖 PAG

9、EREF _Toc131404721 h 370 引言20世紀60年代以來，一種以“既要降低庫存，又要不出現(xiàn)物料短缺”的計劃方法逐漸發(fā)展起來，主要解決間歇生產(chǎn)的生產(chǎn)計劃和控制問題。在間歇生產(chǎn)的情況下，如何保證生產(chǎn)計劃的高校運行，保證及時供應物料以滿足生產(chǎn)需要，是生產(chǎn)管理中的重要問題，這個問題處理不好，就會造成又庫存積壓，又物料短缺的情況。目前，無論是企業(yè)還是工廠都實行了信息化管理，以提高管理水平和工作效率，同時也可以最大限度的減少手工操作帶來的錯誤。于是生產(chǎn)管理系統(tǒng)應運而生。隨著我國改革開放的不斷深入，企業(yè)發(fā)展已經(jīng)從面向區(qū)域市場轉向面對國內外廣闊的市場。過去長期采用的傳統(tǒng)手工或手工加微機的管理

10、方式已無法對經(jīng)營過程中多層次、多品種、多批量的生產(chǎn)計劃進行管理，也無法對任何一種產(chǎn)品生產(chǎn)全過程的動態(tài)信息進行管理。各部門之間的信息傳遞不流暢，而且大量冗余，決策者常常得不到他們所需要的準確信息，結果造成了生產(chǎn)過程中庫存、資金嚴重積壓，原材料時常短缺，零部件生產(chǎn)不配套，計劃不準確等不良現(xiàn)象。這在很大程度上影響了公司的進一步發(fā)展。本系統(tǒng)正是在這種背景之下提出的。本系統(tǒng)的功能特點集中表現(xiàn)在：提高了企業(yè)的經(jīng)營質量和效率。降低了企業(yè)的生產(chǎn)成本，增強了企業(yè)的市場競爭力。強化了企業(yè)的資金流管理，提高了資金利用率。優(yōu)化生產(chǎn)管理，疏通生產(chǎn)渠道。提高了生產(chǎn)效率。1 系統(tǒng)分析1.1 需求分析通過調查，要求本系統(tǒng)需要

11、有以下功能：由于操作人員的計算機操作能力普遍較差，因此要求系統(tǒng)具有良好的人機交互界面。由于本系統(tǒng)的使用對象較多，因此要有完備的權限管理功能。完全人性化設計，無需專業(yè)人士指導，即可操作本系統(tǒng)。系統(tǒng)具有數(shù)據(jù)備份及數(shù)據(jù)還原功能，能夠保證系統(tǒng)數(shù)據(jù)的安全性。方便的、全方位的數(shù)據(jù)查詢功能。自動完成數(shù)據(jù)計算，盡量減少人工干預。強大的報表打印功能。1.2 可行性分析新疆昆侖橡膠制品廠生產(chǎn)管理系統(tǒng)后臺數(shù)據(jù)庫采用SQL Server 2000數(shù)據(jù)庫，以保證數(shù)據(jù)的安全、高效和穩(wěn)定。前臺采用Microsoft公司的Visual Basic 6.0作為主要的開發(fā)工具，該工具可與SQL Server 2000數(shù)據(jù)庫無縫鏈

12、接。2 總體設計2.1 項目規(guī)劃生產(chǎn)管理系統(tǒng)是一個典型的數(shù)據(jù)庫開發(fā)應用程序，由基礎信息管理模塊、計劃信息管理模塊、生產(chǎn)設備管理模塊、產(chǎn)品庫存管理模塊、輔助功能模塊、系統(tǒng)維護模塊、幫助信息模塊7個功能模塊組成，規(guī)劃系統(tǒng)功能模塊如下：基礎信息管理模塊該模塊主要包括產(chǎn)品基礎信息、物料基本信息、設備狀態(tài)設置、設備類型設置、設備攤銷時間設置、車間部門設置6部分組成。計劃信息管理模塊該模塊主要包括生產(chǎn)計劃單管理、生產(chǎn)計劃單查詢、物料需求計劃、物料需求查詢4部分。生產(chǎn)設備管理模塊該模塊主要由生產(chǎn)設備檔案、生產(chǎn)設備查詢、生產(chǎn)設備報廢、生產(chǎn)設備報廢查詢、生產(chǎn)設備維修、生產(chǎn)設備維修查詢6部分組成。產(chǎn)品庫存管理模塊

13、該模塊主要由產(chǎn)品完工入庫、產(chǎn)品入庫查詢、物料入庫、物料入庫查詢、生產(chǎn)領料、生產(chǎn)領料查詢、物料庫存信息查詢7部分組成。輔助功能模塊該模塊主要包括調用Word、調用Excel、調用計算器、登錄Internet、工作備忘5部分。系統(tǒng)維護模塊該模塊主要由操作員設置、密碼修改、操作權限設置、數(shù)據(jù)清理、數(shù)據(jù)備份與恢復、設置主窗口圖片6部分組成。幫助信息模塊該模塊主要有：本單位信息、關于、幫助。2.2 系統(tǒng)功能架構圖圖1 新疆昆侖橡膠制品廠生產(chǎn)管理系統(tǒng)功能架構圖3 系統(tǒng)設計3.1 設計目標本系統(tǒng)屬于典型的數(shù)據(jù)庫管理系統(tǒng)，是針對中小型企業(yè)生產(chǎn)管理開發(fā)設計的，實現(xiàn)進一步的計算機化的管理。通過本系統(tǒng)可以達到以下目

14、標：靈活的運用表格批量輸入數(shù)據(jù)，使信息傳遞更快捷。系統(tǒng)采用良好的人機對話模式，界面設計美觀友好，信息查詢靈活、方便、快捷、準確，數(shù)據(jù)存儲安全可靠。鍵盤操作，快速響應。實現(xiàn)各種查詢及打印功能。操作員可以隨時修改自己的口令。管理員可以設置操作員的權限。對用戶輸入的數(shù)據(jù)，系統(tǒng)進行嚴格的數(shù)據(jù)檢驗，盡可能排除人為的錯誤。數(shù)據(jù)保密性強，為每個用戶設置權限級別。系統(tǒng)運行穩(wěn)定、安全可靠。3.2 開發(fā)及運行環(huán)境系統(tǒng)開發(fā)平臺：Visual Basic 6.0。數(shù)據(jù)庫管理系統(tǒng)軟件：SQL Server 2000。運行平臺：Windows xp/ Windows 2000。分辨率：最佳效果800*600。3.3 數(shù)據(jù)

15、庫設計本系統(tǒng)數(shù)據(jù)庫采用SQL Server 2000數(shù)據(jù)庫，系統(tǒng)數(shù)據(jù)庫名稱為db_SCGL。數(shù)據(jù)庫db_SCGL中包含19張數(shù)據(jù)表。下面分別給出數(shù)據(jù)表概要說明和數(shù)據(jù)表的結構。1數(shù)據(jù)表概要說明如圖2所示的即為本系統(tǒng)中數(shù)據(jù)庫中的數(shù)據(jù)表的樹形結構圖，該數(shù)據(jù)表樹型結構圖包含系統(tǒng)所有數(shù)據(jù)表。可以清晰地反應數(shù)據(jù)庫信息。圖2 數(shù)據(jù)表樹型結構圖2數(shù)據(jù)表的結構由于篇幅所限，關于數(shù)據(jù)庫中的數(shù)據(jù)表請參見附錄二。4 主要功能模塊設計4.1 公共模塊設計為了節(jié)省系統(tǒng)資源，實現(xiàn)代碼重用，可以在系統(tǒng)中創(chuàng)建一個Modulel模塊。就本系統(tǒng)而言，該模塊主要用于共享數(shù)據(jù)庫連接。在公共模塊中定義了一些公共的變量、數(shù)據(jù)連接以及Too

16、lbar控件中的相關設置。由于本系統(tǒng)中的大部分窗體都采用Toolbar控件的風格模式，因此，在這里出模塊中關于Toolbar控件中按鈕設置的代碼。其他相關代碼請參見源程序。定義設置Toolbar控件上按鈕狀態(tài)的函數(shù) Public Function tlbState(tlb As Toolbar, state As Boolean) With tlb If state = True Then 如果狀態(tài)變量為True .Buttons(1).Enabled = False : .Buttons(2).Enabled = False : .Buttons(3).Enabled = False .Bu

17、ttons(6).Enabled = False : .Buttons(4).Enabled = True : .Buttons(5).Enabled = True Else 如果狀態(tài)變量為False .Buttons(1).Enabled = True : .Buttons(2).Enabled = True : .Buttons(3).Enabled = True .Buttons(6).Enabled = True : .Buttons(4).Enabled = False : Buttons(5).Enabled = False End If End WithEnd Function4

18、.2 主窗體主窗體主要是對新疆昆侖橡膠制品廠生產(chǎn)管理系統(tǒng)的各個子功能模塊進行調用，并在主窗體中顯示操作員的姓名及日期，其運行結果如圖3所示。圖3 主窗體運行結果1窗體設計（1）在“工程”中新建一個窗體，將窗體的“名稱”設置為frm_Main，MaxButton屬性設置為False，Caption屬性設置為“生產(chǎn)管理系統(tǒng)”，StartUpPosition屬性設置為2-屏幕中心。（2）利用VB提供的菜單編輯器設計窗體菜單。如圖4所示。圖4新疆昆侖橡膠制品廠生產(chǎn)管理系統(tǒng)菜單設計（3）向窗體上添加1個Toolbar控件，和1個ImageList控件，并將這兩個控件連接。（4）向窗體上添加1個TreeV

19、iew控件。添加完成后將其與ImageList控件連接，同時設置其“熱跟蹤”屬性為True。并將其MousePointer屬性設置為99Custom，MouseIcon屬性為“生產(chǎn)管理系統(tǒng)Program窗體Image鼠標.ico”。（5）向窗體上添加1個Image控件。設置其Picture屬性，設置Stretch屬性為True。該控件用于顯示系統(tǒng)的主界面。（6）向窗體上添加1個StatusBar控件。（7）向窗體上添加1個Timer控件，設置其Interval屬性為60，Enabled屬性為True。用于顯示系統(tǒng)當前的時間。（8）向窗體上添加1個CommonDialog控件。由于CommonD

20、ialog控件屬于ActiveX控件，在使用之前必須從“部件”對話框中添加到工具箱。添加方法如下：在“工程”/“部件”對話框中勾選“Microsoft Common Dialog Controls6.0（SP6）”列表項，單擊【確定】按鈕之后即可將CommonDialog控件添加到工具箱當中。該控件用于打開相應的對話框。2代碼設計在窗體加載時，調用自定義過程Tree_Change，設置TreeView控件中的數(shù)據(jù)信息。其設計思路是：首先將菜單中的項目存儲到數(shù)據(jù)表tb_SCGL_menu中，在窗體啟動時，利用嵌套循環(huán)向TreeView控件中添加數(shù)據(jù)信息。其實現(xiàn)的代碼如下：自定義一個過程，用于顯示

21、TreeView控件中的數(shù)據(jù)Public Sub Tree_change() Dim key, Text, BH, StrTemp As String Dim Nod As Node 定義一個節(jié)點變量 rs1.Open select distinct menu_menu,menu_menuid from tb_SCGL_menu order by menu_menuid, cnn, adOpenKeyset If rs1.RecordCount 0 Then 如果記錄數(shù)大于零 rs1.MoveFirst 移至第一條記錄集 Do While rs1.EOF = False 循環(huán)讀取第1層節(jié)點中的

22、數(shù)據(jù)信息 key = Trim(rs1.Fields(menu_menu) Text = rs1.Fields(menu_menu) StrTemp = rs1.Fields(menu_menu) Set node1 = TreeView1.Nodes.Add(, tvwChild, key, Text, 1) 給第1層節(jié)點賦與數(shù)值 rs2.Open select * from tb_SCGL_menu where menu_menu = + StrTemp + , cnn, adOpenKeyset If rs2.RecordCount 0 Then rs2.MoveFirst Do Whi

23、le rs2.EOF = False 循環(huán)讀取第2層節(jié)點中的數(shù)據(jù)信息 key = Trim(rs2.Fields(menu_submenu) Text = rs2.Fields(menu_submenu) 給第2層節(jié)點賦與數(shù)值Set Node2 = TreeView1.Nodes.Add(node1.Index, tvwChild, key, Text, 2) rs2.MoveNext Loop End If rs2.Close rs1.MoveNext Loop End If rs1.CloseEnd Sub4.3 系統(tǒng)登錄窗體系統(tǒng)登錄主要用于對登錄生產(chǎn)管理系統(tǒng)的用戶進行安全性檢查，以防止非

24、法用戶進入該系統(tǒng)。只有合法的用戶，才可以登錄本系統(tǒng)，同時系統(tǒng)根據(jù)操作員的不同，給予這個操作員相應的操作權限。驗證操作員及其密碼，主要通過對數(shù)據(jù)表tb_user的查詢，結合If語句判斷用戶選定的操作員及其輸入的密碼是否符合數(shù)據(jù)庫中的操作員和密碼，如果符合則允許登錄，并給予相應的權限，否則提示錯誤信息。如果錯誤超過3次，則強行退出系統(tǒng)。生產(chǎn)管理系統(tǒng)登錄界面如圖5所示。圖5 系統(tǒng)登錄界面 1窗體設計（1）在“工程”中新建一個窗體，將窗體的“名稱”設置為Frm_mm，BorderStyle屬性設置為0None，StartUpPosition屬性設置為2屏幕中心。（2）向窗體上添加1個PictureBo

25、x控件，設置其Picture屬性。（3）向窗體上添加1個ListView控件，1個ImageList控件，設置ListView控件的Picture屬性，并將ListView控件與ImageList控件連接在一起。用于顯示操作員頭像和姓名。（4）分別向窗體上添加Label控件、TextBox控件、Image控件。本窗體應用到的主要控件的相關屬性請參見表1。圖6 生產(chǎn)管理系統(tǒng)登錄界面表1 主要控件對象的屬性列表對象屬性值功能ImageNameStrechImg_TxTrue顯示登錄的操作員頭像ImageListNameImt_Tx用于存儲圖片ListViewNameListView1顯示操作員列表

26、PictureBoxNamePicture1顯示圖片TextBoxNamePasswordCharTextTxt_mm*空輸入操作員密碼TextBoxNameTextVisibleTxt_TimeTxt_TimeFalse存儲錯誤輸入次數(shù)2代碼設計在窗體加載時，向ListView控件中添加所有的操作員信息，并將顯示在前面的操作員頭像、操作員編號、操作員姓名顯示在操作員信息中，其實現(xiàn)的代碼如下：Private Sub Form_Load() Lbl_Infor.Caption = 初始用戶名為：mr 密碼為：mrsoft + Chr(10) + Chr(10) + 本軟件由巴州電大路航開發(fā)， 設

27、置標簽內容 rs.Open select * from tb_user, cnn, adOpenKeyset 打開對象 If rs.RecordCount 0 Then rs.MoveFirst 移至第一條記錄 將第一條記錄的信息顯示在相應的控件中 Lbl_Czyid.Caption = rs.Fields(user_id) Lbl_Name.Caption = rs.Fields(user_name) MyIcon = Val(Right(rs.Fields(user_tx), Val(Len(rs.Fields(user_tx) - 2) Set Img_Tx.Picture = Imt_

28、Tx.ListImages(MyIcon).Picture 向ListView中添加圖片 Do While rs.EOF = False Mystr = rs.Fields(user_name) MyIcon = Val(Right(rs.Fields(user_tx), Val(Len(rs.Fields(user_tx) - 2) Set itmX = ListView1.ListItems.Add(, , Mystr, MyIcon) rs.MoveNext Loop End If rs.Close 關閉對象 Txt_mm.Text = End Sub當用戶單擊ListView控件中操作

29、員列表項時，系統(tǒng)會自動將用戶所選擇的操作員的頭像、操作員編號、操作員姓名顯示在相應的位置，以便用戶確認該信息是否正確。其實現(xiàn)的代碼如下：Private Sub ListView1_Click() If ListView1.ListItems.Count 0 Then 查詢操作員信息 rs.Open select * from tb_user where user_Name = + ListView1.SelectedItem + , cnn, adOpenKeyset If rs.RecordCount 0 Then 如果記錄數(shù)大于零 顯示操作員信息 Lbl_Czyid.Caption = r

30、s.Fields(user_id) : Lbl_Name.Caption = rs.Fields(user_Name) MyIcon = Val(Right(rs.Fields(user_tx), Val(Len(rs.Fields(user_tx) - 2) 將所選擇的操作員頭像添加到Image控件中Set Img_Tx.Picture = Imt_Tx.ListImages(MyIcon).Picture End If rs.Close 關閉數(shù)據(jù)集對象 End IfEnd Sub當用戶選定相應的操作員，并在文本框中輸入密碼，單擊【確定】按鈕或在Txt_mm文本框中按Enter鍵，系統(tǒng)會核實

31、其輸入的密碼是否正確，如果正確即進入到生產(chǎn)管理系統(tǒng)內部，否則提示用戶輸入錯誤。如果用戶輸入的錯誤密碼超過3次，系統(tǒng)將強行退出。其實現(xiàn)代碼如下：Private Sub Label7_Click() rs.Open select * from tb_user where user_name = + Trim(Lbl_Name.Caption) + , cnn, adOpenKeyset If rs.RecordCount 0 Then 如果記錄數(shù)大于零 驗證操作員及密碼 If Txt_mm.Text = rs.Fields(user_mm) Then 如果輸入密碼正確 Load Frm_Main

32、加載窗體 Frm_Main.Show Frm_Main.StatusBar1.Panels(2).Text = Lbl_Name.Caption 設置狀態(tài)欄信息 Unload Me 關閉本窗體 Else 否則 If Lbl_Name.Caption = Then 如果操作員姓名為空 MsgBox 請選擇操作員！, , 信息提示 ListView1.SetFocus 設置焦點 Else If Txt_mm.Text rs.Fields(user_mm) Then 如果密碼輸入錯誤 MsgBox 密碼錯誤,請重新輸入密碼！, , 信息提示 Txt_Time.Text = Val(Txt_Time.

33、Text) + 1 計數(shù)文本框中的數(shù)量加一 Txt_mm.SetFocus 將焦點設置在密碼文本框中 End If End If If Txt_Time.Text = 3 Then 密碼錯誤3次，退出系統(tǒng) MyMsg = MsgBox(密碼輸入錯誤,請向系統(tǒng)管理員查詢！, , 信息提示) If MyMsg = vbOK Then End End If End If End If rs.CloseEnd Sub4.4 物料信息設置物料信息設置窗體可以用于對本企業(yè)所需要的物料信息進行增加、刪除、修改、查找操作，并可以通過下面的列表瀏覽所有的物料信息。物料信息設置窗體的運行結果如圖7所示。圖7 物料

34、信息設置窗體運行結果1窗體設計（1）在“工程”中新建一個窗體，將窗體的“名稱”設置為Frm_Jcxx_Wlxx，Caption屬性設置為“物料信息設置”，MaxButton屬性設置為False。（2）在窗體上添加1個Toolbar控件，1個ImageList控件。向ImageList1控件中添加圖片，并將其與Toolbar控件相連接。（3）向窗體上添加1個ADO控件，1個DataGrid控件。設置DataGrid控件的“名稱”為Dgr_Wlxx，DataSource屬性為Adodc1。設置Adodc1控件的CommandType屬性為1 adCmdText，RecordSource屬性設置為s

35、elect * from tb_SCGL_wlxx order by wlxx_id。其中DataGrid控件用于顯示物料信息，ADO控件用于數(shù)據(jù)連接。（4）向窗體上添加ComboBox控件，設置其“名稱”為Cbx_Cpbh，Style屬性為0Dropdown Combo。該控件用于顯示產(chǎn)品編號。（5）向窗體上添加若干Label控件和TextBox控件。設置TextBox控件為“名稱”為Text1的控件數(shù)組。圖8 物料信息設置設計窗體2代碼設計在程序運行時，數(shù)據(jù)的增加、刪除、修改、查找操作都是通過Toolbar控件上的按鈕來實現(xiàn)的。其實現(xiàn)的關鍵代碼如下：Private Sub Toolbar1

36、_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.key Case add 添加 blnAdd = True 設置變量，如果為True，則在【保存】按鈕中作插入操作 tlbState Toolbar1, True 調用模塊中的過程 打開數(shù)據(jù)集連接rs1.Open select * from tb_SCGL_wlxx order by wlxx_id, cnn, adOpenStatic If rs1.RecordCount 0 Then 如果數(shù)據(jù)記錄大于零 rs1.MoveLast 移至最后一條記錄 Text

37、1(0) = WL + Format(Val(Right(Trim(rs1.Fields(wlxx_id), 3) + 1, #000) 編號自動加1 Else 如果沒有記錄 Text1(0) = WL001 End If rs1.Close 關閉數(shù)據(jù)對象 For i = 1 To Text1.UBound Text1(i) = Text1(i).Locked = False Next i Cbx_Cpbh.Locked = False For i = 1 To Text1.UBound Text1(i).Enabled = True Next i Cbx_Cpbh.Enabled = Tru

38、e : Text1(1).SetFocus Case modify 修改 If Adodc1.Recordset.RecordCount 0 ThenblnAdd = False 設置變量，如果為False，則在【保存】按鈕中作修改操作 tlbState Toolbar1, True 調用模塊中的過程 For i = 1 To Text1.UBound Text1(i).Locked = False Next i Cbx_Cpbh.Locked = False view_data 調用自定義的過程 mybookmark = Dgr_Wlxx.Bookmark For i = 1 To Text

39、1.UBound Text1(i).Enabled = True Next i Cbx_Cpbh.Enabled = True Else MsgBox 系統(tǒng)沒有要修改的數(shù)據(jù)！, , 提示窗口 End If Case delete 刪除 If Adodc1.Recordset.RecordCount 0 Then 查詢其他表中是否有相關的信息正在使用，如果有這不能刪除該信息 Dim rs2 As New ADODB.Recordset rs2.Open select * from tb_SCGL_wlxq where wlxq_wlbh= + Adodc1.Recordset.Fields(wl

40、xx_id) + , cnn, adOpenKeyset If rs2.RecordCount 0 Then MsgBox 該信息正在使用，不能刪除！, , 信息提示 Exit Sub Else Adodc1.Recordset.Delete Adodc1.Refresh For i = 0 To Text1.UBound Text1(i).Text = Next i Cbx_Cpbh.Text = Call view_data 調用數(shù)據(jù)顯示自定義過程 Call Dgr_Title 調用設置表頭的字定義過程 End If Else MsgBox 系統(tǒng)沒有要刪除的數(shù)據(jù)！, , 提示窗口 End

41、If Case save 保存 On Error GoTo SaveErr 錯誤處理 If Text1(1).Text = Then MsgBox 系統(tǒng)不允許 & Label2 & 為空！, , 提示窗口 Exit Sub End If If blnAdd = True Then 添加新記錄 cnn.Execute (insert into tb_SCGL_wlxx(wlxx_id,wlxx_wlmc,wlxx_wlgg,wlxx_wldw,wlxx_cpbh,wlxx_cpmc,wlxx_cpgg,wlxx_bz,wlxx_wlsl) values( + Text1(0) + , + Tex

42、t1(1) + , + Text1(2) + , + Text1(3) + , + Cbx_Cpbh.Text + , + Text1(4).Text + , + Text1(5).Text + , + Text1(6) + , + Text1(7) + ) Unload Me Frm_Jcxx_Wlxx.Show 1 : tlbState Toolbar1, False For i = 1 To Text1.UBound Text1(i).Locked = True Next i Cbx_Cpbh.Locked = True Else 修改原有記錄 cnn.Execute (update t

43、b_SCGL_wlxx set wlxx_wlmc = + Text1(1) + ,wlxx_wlgg= + Text1(2) + ,wlxx_wldw= + Text1(3) + ,wlxx_cpbh= + Cbx_Cpbh.Text + ,wlxx_cpmc= + Text1(4) + ,wlxx_cpgg= + Text1(5) + ,wlxx_bz= + Text1(6) + ,wlxx_wlsl= + Text1(7) + where wlxx_id= + Text1(0).Text + ) Unload Me Frm_Jcxx_Wlxx.Show 1 : Dgr_Wlxx.Book

44、mark = mybookmark tlbState Toolbar1, False 調用模塊中的自定義過程 For i = 1 To Text1.UBound Text1(i).Locked = True Next i Cbx_Cpbh.Locked = True End If Exit SubSaveErr: 出錯處理程序 MsgBox Err.Description, , 信息提示 Case cancel 取消 tlbState Toolbar1, False For i = 1 To Text1.UBound Text1(i).Locked = True Next i Cbx_Cpbh

45、.Locked = True : Call view_data Case find 查詢 Mystr = InputBox(請輸入要查詢的物料信息編號, 物料信息查詢, WL001) rs1.Open select * from tb_SCGL_wlxx where wlxx_id = + Mystr + , cnn, adOpenKeyset If rs1.RecordCount 0 Then For i = 0 To 3 If rs1.Fields(i) Then Text1(i).Text = rs1.Fields(i) Else Text1(i).Text = Cbx_Cpbh.Tex

46、t = Next iIf rs1.Fields(4) Then Cbx_Cpbh.Text = rs1.Fields(4) Else Cbx_Cpbh.Text = If rs1.Fields(5) Then Text1(4).Text = rs1.Fields(5) Else Text1(4).Text = If rs1.Fields(6) Then Text1(5).Text = rs1.Fields(6) Else Text1(5).Text = If rs1.Fields(7) Then Text1(6).Text = rs1.Fields(7) Else Text1(6).Text

47、= If rs1.Fields(8) Then Text1(7).Text = rs1.Fields(8) Else Text1(7).Text = End If rs1.Close Case close 關閉 Unload Me End Select End Sub4.5 生產(chǎn)計劃單管理生產(chǎn)計劃單管理窗體是生產(chǎn)管理系統(tǒng)中一個比較重要的部分。后面的物料計劃管理模塊、產(chǎn)品入庫模塊都與生產(chǎn)計劃單有著密切的聯(lián)系。在生產(chǎn)計劃單中可以完成對生產(chǎn)計劃單的增加、刪除、修改、查找操作。在生產(chǎn)計劃單管理中，當用戶單擊【增加】按鈕時，系統(tǒng)會自動生成生產(chǎn)計劃單編號，并將企業(yè)所生產(chǎn)的產(chǎn)品添加到產(chǎn)品編號組合框中，當用戶

48、選擇要生產(chǎn)的產(chǎn)品編號后，系統(tǒng)會自動將產(chǎn)品名稱、產(chǎn)品規(guī)格、計量單位自動添加到相應的文本框中，用戶只需添入計劃數(shù)量、投產(chǎn)日期、計劃日期等即可。無須用戶查找相應的產(chǎn)品信息，使用戶操作更加簡便。生產(chǎn)計劃單窗體的運行結果如圖9所示。圖9 生產(chǎn)計劃單管理運行結果1窗體設計（1）在“工程”中新建一個窗體，將窗體的“名稱”設置為Frm_Jhgl_Scjhd，Caption屬性設置為“生產(chǎn)計劃單”，MaxButton屬性設置為False，StartUpPosition屬性設置為2屏幕中心。（2）向窗體上添加1個Toolbar控件，1個ImageList控件。向ImageList控件中添加圖片，并將這兩個控件連接

49、起來。（3）向窗體上添加1個ADO控件，1個DataGrid控件。設置DataGrid控件的“名稱”為Dgr_Scjhd，DataSource屬性設置為Adodc1。設置Adodc1控件的CommandType屬性為1adCmdText，RecordSource屬性設置為select * from tb_SCGL_scjhd。其中DataGrid控件用于顯示生產(chǎn)計劃單信息，ADO控件用于數(shù)據(jù)連接。（4）向窗體上添加2個DTPicker控件，“名稱”設置為Dtp_Tcrq和Dtp_Wgrq，分別用于顯示投產(chǎn)日期和完工日期。（5）向窗體上添加2個ComboBox控件，分別設置其“名稱”為Cbx_C

50、pbh和Cbx_wcf，Style屬性為0Dropdown Combo。分別用來顯示產(chǎn)品編號和是否完工。（6）向窗體上添加Label控件和TextBox控件。設置TextBox控件為“名稱”是Text1的控件數(shù)組。2代碼設計在生產(chǎn)計劃單管理窗體中的增加、刪除、修改操作都是利用基本的SQL語句執(zhí)行的，在這里就不做詳細的介紹，請參見源程序。在這里只介紹一下如何利用Enter鍵使光標從一個文本框移動到下一個文本框當中。并且當該文本框獲得焦點時，背景色設置為藍色，失去焦點時，背景色恢復為白色。下面首先介紹一下有關光標移動的代碼。對于控件數(shù)組的處理方法，可利用KeyPress事件和Index屬性來實現(xiàn)，

51、其關鍵代碼如下： Private Sub text1_KeyPress(Index As Integer, KeyAscii As Integer)If KeyAscii = 13 Then 按下回車鍵 If Index = 4 Then 如果光標在Text1（4）上， Dtp_Tcrq.SetFocus 則將焦點設置在Dtp_Tcrq上 Exit Sub 結束本事件 End If If Index = 5 Then Exit Sub 若光標在Text1（5）上，則結束 Text1(Index + 1).SetFocus 光標移至下一個文本框End IfEnd Sub對于非數(shù)組控件的處理方法，

52、可直接利用KeyDown事件，這里以Cbx_Cpbh控件（ComboBox控件）為例，其實現(xiàn)的關鍵代碼如下：Private Sub Cbx_Cpbh_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then Text1(4).SetFocusEnd Sub下面再介紹一下關于背景色的設置方法。對于控件數(shù)組的處理方法，可利用GotFocus事件和LostFocus事件以及Index屬性來實現(xiàn)，其關鍵代碼如下： Private Sub Text1_GotFocus(Index As Integer) Text1(Index).

53、BackColor = &HFFFF80 設置背景色為藍色 Text1(Index).SelStart = 0 Text1(Index).SelLength = Len(Text1(Index)End Sub Private Sub Text1_LostFocus(Index As Integer) Text1(Index).BackColor = &HFFFFFF 設置背景色為白色End Sub4.6 設備報廢信息設備報廢信息窗體主要實現(xiàn)的功能是對于設備報廢信息進行增加、刪除、修改、查找的操作，并可以逐條瀏覽報廢的設備信息。其運行的效果如圖10所示。圖10 設備報廢信息窗體運行效果1窗體設計

54、（1）在“工程”中新建一個窗體，將窗體的“名稱”設置為Frm_Sbgl_Sbbf，Caption屬性設置為“設備報廢信息”，MaxButton屬性設置為False，StartUpPosition屬性設置為2屏幕中心。（2）向窗體上添加1個Toolbar控件，1個ImageList控件。向ImageList控件中添加圖片，并將其與Toolbar控件相連接。（4）向窗體上添加2個ADO控件和DataGrid控件。設置DataGrid控件的“名稱”為Dgr_Sbbf，DataSource屬性為Adodc1。設置Adodc1控件的CommandType屬性設置為1adCmdText，RecordSou

55、rce屬性設置為select * from tb_SCGL_sbbf order by sbbf_id，設置Adodc2控件的CommandType屬性為1adCmdText，RecordSource屬性為select * from tb_SCGL_scsb order by scsb_sbbh。其中DataGrid控件用于顯示設備報廢信息，ADO控件用于數(shù)據(jù)連接。（5）向窗體上添加2個DTPicker控件，“名稱”設置為Dtp_Qyrq和Dtp_Bfrq，分別用于顯示設備啟用日期和設備報廢日期。（6）向窗體上添加1個ComboBox控件，設置其“名稱”為Cbx_Sbbh，Style屬性為0D

56、ropdown Combo。用來顯示產(chǎn)品編號信息。（7）向窗體上添加Label控件和TextBox控件。設置TextBox控件為“名稱”屬性是Text1的控件數(shù)組。2代碼設計設備報廢信息窗體在對報廢信息進行增加、刪除、修改、查找操作時，所采用的方法和其他窗體大致相同（請參閱物料信息設置窗體）。值得一提的是在執(zhí)行添加操作時，系統(tǒng)不但將數(shù)據(jù)信息添加到報廢信息表（tb_SCGL_sbbf）中，還將設備表（tb_SCGL_scsb）中該設備的狀態(tài)設置為“報廢”。以保持信息的完整性。其實現(xiàn)的關鍵代碼如下：Set rs1 = New ADODB.Recordsetrs1.Open tb_SCGL_sbbf

57、, cnn, adOpenKeyset, adLockOptimisticcnn.Execute (insert into tb_SCGL_sbbf (sbbf_id,sbbf_sbbh,sbbf_sbmc,sbbf_sybm,sbbf_sblx,sbbf_qyri,sbbf_bfrq,sbbf_bz) values ( + Text1(0).Text + , + Cbx_Sbbh.Text + , + Text1(1).Text + , + Text1(2).Text + , + Text1(3).Text + , + Str(Dtp_Qyrq.Value) + , + Str(Dtp_Bf

58、rq.Value) + , + Text1(4).Text + ) Dim rs4 As New ADODB.Recordset rs4.Open select * from tb_SCGL_scsb where scsb_sbbh= + Cbx_Sbbh.Text + , cnn, adOpenStaticIf rs4.RecordCount 0 Then cnn.Execute (update tb_SCGL_scsb set scsb_sbzt=報廢 where scsb_sbbh= + Cbx_Sbbh.Text + ) End Ifrs4.CloseAdodc1.Refreshrs1

59、.Close在進行“添加”操作時，用戶可以在設備編號文本框中選擇或輸入設備編號，當該文本框失去焦點時，查詢輸入或選擇的設備編號是否是本企業(yè)的設備，如果不是或者雖然是本企業(yè)的設備，但是已經(jīng)報廢，則提示相應的信息，讓用戶重新輸入或選擇，否則程序繼續(xù)執(zhí)行。其實現(xiàn)的關鍵代碼如下：Private Sub Cbx_Sbbh_LostFocus()Cbx_Sbbh.BackColor = &HFFFFFFrs4.Open select * from tb_SCGL_scsb where scsb_sbbh= + Cbx_Sbbh.Text + , cnn, adOpenKeysetIf rs4.Record

60、Count 0 Then MsgBox 該設備已經(jīng)報廢，請核實！, , 信息提示 Cbx_Sbbh.SetFocusEnd Ifrs5.CloseEnd Sub附錄A 參考文獻1Visual Basic精彩編程200例 機械工業(yè)出版社賽奎春、高春艷等 2003年1月2Visual Basic數(shù)據(jù)庫開發(fā)實例解析 機械工業(yè)出版社劉志銘、高春艷等 2003年8月3Visual FoxPro數(shù)據(jù)庫開發(fā)實例解析 機械工業(yè)出版社王晶瑩、王國輝等 2003年9月4Visual Basic工程應用與項目實踐 機械工業(yè)出版社高春艷、李俊民等 2005年1月5Visual C工程應用與項目實踐 機械工業(yè)出版社張雨