【文章內(nèi)容簡(jiǎn)介】 塊圖 數(shù)據(jù)庫實(shí)現(xiàn)在二維下料系統(tǒng)中，其中重要的一部分就是毛坯零件信息庫的管理。在管理這些數(shù)據(jù)時(shí)，需要對(duì)這些數(shù)據(jù)進(jìn)行插入、修改和刪除等操作。但最重要的是要對(duì)這些數(shù)據(jù)進(jìn)行分析，然后從分析結(jié)果中把厚度、材質(zhì)相同的毛坯零件放在同一個(gè)下料任務(wù)表中，并且要把表中那些長(zhǎng)寬相同的加在一起。毛坯零件基本信息實(shí)體的ER圖如33所示。圖33 毛坯信息關(guān)系數(shù)據(jù)模型由概念模型轉(zhuǎn)化而來，是按照計(jì)算機(jī)系統(tǒng)的觀點(diǎn)來對(duì)數(shù)據(jù)建模的。上面的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為某種數(shù)據(jù)庫系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型，也就是數(shù)據(jù)庫的邏輯結(jié)構(gòu)。毛坯零件基本信息表如表31所示。表31 毛坯數(shù)據(jù)庫字段屬性字段名類型長(zhǎng)度是否為空說明編號(hào)數(shù)字長(zhǎng)整型N長(zhǎng)度數(shù)字單精度N二維下料零件的長(zhǎng)度寬度數(shù)字單精度N二維下料零件的寬度厚度數(shù)字單精度N二維下料零件的厚度材料文本50N二維下料零件的材料數(shù)量數(shù)字單精度N二維下料零件的數(shù)量名稱文本50N二維下料的名稱 功能與應(yīng)用背景二維下料優(yōu)化系統(tǒng)可以對(duì)所有的零件進(jìn)行下料優(yōu)化，達(dá)到提高下料利用率，加快下料速度，降低成本，提高生產(chǎn)率的目的。本優(yōu)化系統(tǒng)主要的功能有：（1）零件庫的建立與維護(hù)，包括零件的添加、修改與刪除等。（2）可以加入和刪除零件庫。（3）可以查詢和修改常用零件庫。（4）可以建立常用零件庫。（5）生成下料圖表，直觀方便，直接應(yīng)用于生產(chǎn)。 二維下料優(yōu)化系統(tǒng)的實(shí)現(xiàn)VB數(shù)據(jù)庫應(yīng)用程序有3個(gè)部分，即數(shù)據(jù)庫引擎、數(shù)據(jù)庫和應(yīng)用程序。 數(shù)據(jù)庫引擎是數(shù)據(jù)庫驅(qū)動(dòng)程序，使用它，我們可以用統(tǒng)一的格式訪問各種文件。使用VB應(yīng)用程序訪問數(shù)據(jù)庫時(shí)，Jet引擎被包含在一組動(dòng)態(tài)連接（DLL）文件中。運(yùn)行時(shí)，這些文件被引用到VB程序中。(Access文件后綴)文件或其他數(shù)據(jù)庫的物理操作。Jet引擎真正讀取、寫入和修改數(shù)據(jù)庫，并處理所有內(nèi)部的事務(wù)。數(shù)據(jù)庫是包含數(shù)據(jù)庫表的一個(gè)或多個(gè)文件。對(duì)于本地Access數(shù)據(jù)庫來說。 添加公共模塊模塊1定義兩個(gè)函數(shù),以提高代碼執(zhí)行效率:Option ExplicitPublic Declare Function CopyFile Lib kernel32 Alias CopyFileA (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long39。定義文件復(fù)制的API函數(shù)39。檢測(cè)文件是否存在Function FileExists(FileName As String) As Boolean On Error Resume Next FileExists = Dir$(FileName) If 0 Then FileExists = False End If On Error GoTo 0End Function模塊2主要定義兩個(gè)常用變量,程序中可直接使用以減少重復(fù)定義.Option ExplicitDim yyyy As String 39。主要標(biāo)識(shí)符Type stunum As StringEnd Type 歡迎模塊的實(shí)現(xiàn)（1）為了使系統(tǒng)美觀,開始首先進(jìn)入歡迎界面，其主體部分用Timer和VScroll控制可以循環(huán)顯示使界面具有動(dòng)態(tài)美。實(shí)現(xiàn)的滾動(dòng)文字的函數(shù)如下：Private Sub Timer1_Timer() = 100b = b + 1 39。制作滾動(dòng)的文本框If b i Then b = 0 If = + 20 Then = 30 Else = DoEvents End If = = True DoEvents t = Left(atitle, b) = tEnd Sub圖34 歡迎模塊示例歡迎界面的功能：點(diǎn)擊圖標(biāo)，進(jìn)入二維下料優(yōu)化設(shè)計(jì)系統(tǒng)。 系統(tǒng)主模塊的實(shí)現(xiàn)在車床切割期間一次只能使用一種板材，因此在尋求最優(yōu)排樣方案前應(yīng)先創(chuàng)建本次任務(wù)的分批數(shù)據(jù)庫，然后依據(jù)板材名稱、規(guī)格和厚度的不同，把總體下料任務(wù)劃分為具體的各個(gè)子任務(wù)，并存放在分批數(shù)據(jù)庫中。在左上角的list用于顯示分批數(shù)據(jù)庫中的各個(gè)下料任務(wù)表名，這樣用戶可以很方便的選擇每次要實(shí)現(xiàn)的子任務(wù)，并進(jìn)行排樣。有時(shí)用戶需要的下料信息并不是從別的任務(wù)派生出來的，這時(shí)用戶可以通過“新建下料表”自己創(chuàng)建一個(gè)具體的下料任務(wù)表。表存儲(chǔ)在數(shù)據(jù)庫的同時(shí)用戶也可以在右側(cè)的text文本框里看到新建的表名。當(dāng)一個(gè)任務(wù)完成時(shí)，點(diǎn)擊一下“確認(rèn)下料表”就可以把表名從text文本框中刪除，用戶可以方便的了解總的任務(wù)完成的進(jìn)度。為了便于用戶及時(shí)準(zhǔn)確清楚每次的下料數(shù)據(jù)，此界面添加了一個(gè)DataGrid控件。用戶不管點(diǎn)擊list還是text里的表名，選中表的詳細(xì)信息就會(huì)添加到DataGrid控件中，用戶還可以選擇其中的記錄進(jìn)行添加、刪除、更新等操作。任務(wù)表和板材的信息確定后就可以通過“方案圖表”來實(shí)現(xiàn)最優(yōu)排樣方案，并繪制方案圖形。Private Sub fangantubiao_Click()為實(shí)現(xiàn)排樣的函數(shù)。核心代碼部分如下：w = 39。記錄條數(shù) 寬度向量ReDim sy(101, 2 * w + 1) 39。為動(dòng)態(tài)數(shù)組變量重新分配存儲(chǔ)空間ReDim c(1, w)For i = 1 To wc(1, i) = Val() * Val() 39。val函數(shù)返回包含于字符串內(nèi)的數(shù)字，字符串中是一個(gè)適當(dāng)類型的數(shù)值Next i 39。cj表示第j種排樣方式所使用板材的單張面積，如果只用一種板材，可令cj=L H，1=j=mu = Val() 39。板料寬度 價(jià)值向量For i = 1 To wb(i, 1) = (5).Value 39。數(shù)量Next iFor i = 1 To wFor j = 1 To wIf i = j Thena(i, j) = 1 39。a()為單位矩陣Elsea(i, j) = 0End IfNext j, iReDim p(1, w)For i = 1 To w 39。長(zhǎng)度 39。鋸縫p(1, i) = (1).Value + Val() 39。p()單個(gè)樣本長(zhǎng)度(比實(shí)際長(zhǎng)度多一個(gè)鋸縫)Next iFor i = 1 To wsw(1, 2 * i 1) = sp(1, i) 39。sw()為單個(gè)樣本寬度 長(zhǎng)度交替sw(1, 2 * i) = p(1, i)Next iReDim su(1, 2 * w)For i = 1 To wsu(1, 2 * i 1) = Int(Val() / p(1, i)) 39。板材長(zhǎng)度/單個(gè)樣本長(zhǎng)度su(1, 2 * i) = Int(Val() / sp(1, i)) ‘su()為單個(gè)樣本長(zhǎng)度倍數(shù)、與寬度倍數(shù)交替Next i基于上述功能的實(shí)現(xiàn)，運(yùn)行實(shí)例如圖35所示的。圖35 系統(tǒng)主模塊示例二維下料系統(tǒng)主界面的主要功能有：（1）新建非常規(guī)下料任務(wù)表，并對(duì)其進(jìn)行添加、刪除、修改等操作。（2）輸入原料的尺寸以及鋸縫、材料厚度、名稱等數(shù)據(jù)。（3）通過點(diǎn)擊“產(chǎn)品數(shù)據(jù)”來建立常規(guī)下料任務(wù)表。（4）運(yùn)行計(jì)算顯示方案圖表。（5）退出程序。 產(chǎn)品分類模塊的實(shí)現(xiàn)二維下料系統(tǒng)產(chǎn)品分類界面主要功能：（1）添加常規(guī)類下料任務(wù)表（自動(dòng)存儲(chǔ)）。（2）對(duì)已有的下料任務(wù)進(jìn)行添加、修改、刪除等操作。（3）這些產(chǎn)品進(jìn)行分類、并保存到數(shù)據(jù)庫中。（4）刪除常規(guī)類下料任務(wù)表。（5）所建產(chǎn)品數(shù)據(jù)庫可以隨時(shí)調(diào)用，避免重復(fù)輸入數(shù)據(jù)的麻煩。（6）每個(gè)產(chǎn)品規(guī)格表在加入下料表時(shí)可以更改其中的數(shù)據(jù)記錄，并可設(shè)置下料套數(shù)。（7）只需雙擊產(chǎn)品規(guī)格表就可把數(shù)據(jù)加入下料任務(wù)表中，點(diǎn)擊“數(shù)據(jù)分類”就可在主界面自動(dòng)生成下料任務(wù)表。（8）最主要的功能就是數(shù)據(jù)分析，首先創(chuàng)建一個(gè)分批數(shù)據(jù)庫，然后依據(jù)名稱、規(guī)格、厚度的不同下料任務(wù)分為不同的下料任務(wù)表并保存在分批數(shù)據(jù)庫中。運(yùn)行實(shí)例如圖36所示。圖36 產(chǎn)品分類模塊示例 方案圖表生成模塊的實(shí)現(xiàn)方案圖表生成模塊主要功能：給出排樣方案表中的排樣數(shù)據(jù)以及排樣中的條帶分布規(guī)律并輸出板材總的板材下料利用率，每種排樣的零料以及此次下料