基于VFP的多金屬地質(zhì)儲(chǔ)量管理系統(tǒng)研究＊

陳丙強(qiáng)

(長沙礦山研究院, 湖南長沙 410012)

基于VFP的多金屬地質(zhì)儲(chǔ)量管理系統(tǒng)研究＊

陳丙強(qiáng)

(長沙礦山研究院, 湖南長沙 410012)

針對(duì)柿竹園多金屬礦年度地質(zhì)儲(chǔ)量計(jì)算和年度儲(chǔ)量計(jì)劃編制工作,以 Visual Fox-Pro為平臺(tái),利用其數(shù)據(jù)編制各類儲(chǔ)量計(jì)算表,同時(shí)結(jié)合 Excel進(jìn)行報(bào)表編制、打印,開發(fā)出簡單可行的應(yīng)用程序,初步實(shí)現(xiàn)了地質(zhì)儲(chǔ)量管理的電算化。

多金屬礦;地質(zhì)儲(chǔ)量管理;VFP;計(jì)算機(jī)應(yīng)用

儲(chǔ)量管理是礦山最基礎(chǔ)也是最重要的地質(zhì)工作,直接影響著資源評(píng)價(jià)、生產(chǎn)計(jì)劃的編制和部署、生產(chǎn)中的貧化損失等一系列工作的進(jìn)行。同時(shí)儲(chǔ)量計(jì)算、計(jì)劃是一年一度的經(jīng)常性地質(zhì)管理工作,具有很強(qiáng)的連續(xù)性和相承性,認(rèn)真編制好年終儲(chǔ)量計(jì)算和年中儲(chǔ)量計(jì)劃則格外重要。然而傳統(tǒng)的管理模式常常因資料繁雜、管理混亂,導(dǎo)致查詢困難,甚至服務(wù)滯后,已難于滿足企業(yè)對(duì)技術(shù)的要求,因此,及時(shí)引進(jìn)計(jì)算機(jī)管理,充分發(fā)揮電腦對(duì)數(shù)據(jù)管理的特有優(yōu)勢,對(duì)提高礦山地質(zhì)技術(shù)水平將起到不可估量的作用。本文以 Visual FoxPro 6.0和 Excel 2003為平臺(tái)進(jìn)行設(shè)計(jì)開發(fā),并應(yīng)用于柿竹園有色金屬有限責(zé)任公司多金屬儲(chǔ)量計(jì)算工作中。

1 設(shè)計(jì)方案

按照儲(chǔ)量管理的有關(guān)規(guī)定及技術(shù)規(guī)范,結(jié)合多金屬礦山實(shí)際,制定統(tǒng)一規(guī)范的設(shè)計(jì)方案是設(shè)計(jì)的基礎(chǔ),對(duì)后面的計(jì)算、資料的統(tǒng)一規(guī)范管理影響很大。本文采用塊段計(jì)算法,對(duì)特高品位按平均值處理,計(jì)算范圍和類別為礦體位置、儲(chǔ)量級(jí)別、礦塊編號(hào)、礦房或礦柱、礦帶分類、礦石或夾石,計(jì)算內(nèi)容為礦體、礦塊、礦房或各礦柱 (北、南、西、東、底柱 )的塊段體積,及夾石體積、副產(chǎn)體積、礦石體積、礦石儲(chǔ)量 (夾石含量)、鎢鉬鉍地質(zhì)品位和金屬量。儲(chǔ)量成果表 (打印表)有品位表、礦塊表、開采損失表、掘進(jìn)副產(chǎn)表、勘探增減表、重算增減表、儲(chǔ)量平衡表等。為保證各表間數(shù)據(jù)的互通,方便數(shù)據(jù)查詢、更新,應(yīng)設(shè)置成規(guī)范統(tǒng)一的字段,各表中字段的類型、長度、數(shù)值型字段的小數(shù)位盡量一致,字段內(nèi)容統(tǒng)一規(guī)格,特別是關(guān)鍵詞應(yīng)確保一致。本文使用表達(dá)式“ALLTR I M(礦體位置)+ALLTR I M(儲(chǔ)量級(jí)別)+ALLTR I M(礦塊編號(hào))+ALLTR I M(礦房礦柱)+ALLTR I M(礦帶代號(hào))+ALLTR I M(礦石夾石)”或其中的一部分作為完整的關(guān)鍵詞。此后,可對(duì)照已有的儲(chǔ)量計(jì)算成果表,預(yù)制相應(yīng)的 Visual FoxPro 6.0數(shù)據(jù)庫項(xiàng)目,在其中新建或添加相應(yīng)的儲(chǔ)量計(jì)算表,并逐步建立所需的命令程序。同樣地,可在 Excel 2003中預(yù)先設(shè)置好相應(yīng)的成果打印表備用,完善并最后定型后可直接套用,一勞永逸。

2 儲(chǔ)量計(jì)算表的編制

2.1 品位表的編制

在Visual FoxPro 6.0數(shù)據(jù)庫的品位項(xiàng)目文件中建立品位表,主要的品位表有柱狀孔品位表、礦塊地探工程品位表、生探工程品位表、礦房礦柱品位計(jì)算表。輸入程序、查詢程序、檢查程序與品位表相對(duì)應(yīng)。通過查詢以上基礎(chǔ)品位表可建立本年度所需的最新儲(chǔ)量計(jì)算品位表,作為下面各表金屬量計(jì)算的根據(jù)。其中應(yīng)特別注意關(guān)鍵詞表達(dá)式的正確性,各礦房、礦柱品位數(shù)據(jù)的唯一性 (建立候選索引文件)和完整性,以確保后面各表中的礦房、礦柱皆能在此查詢到唯一正確的品位數(shù)據(jù)。

2.2 礦塊表的編制

本年的礦塊表以上年底的礦塊表為基礎(chǔ),初表可通過拷貝原表獲取。因此在編制本年度的礦塊表之前,首先應(yīng)檢查上年底礦塊表的正確性,主要通過查詢檢查各類別的分類匯總結(jié)果,檢查無誤后才能繼續(xù)進(jìn)行后面的工作。

對(duì)勘探升級(jí)礦塊采用直接添加法,即先在數(shù)據(jù)庫表中打上刪去標(biāo)記,然后對(duì)原有礦塊細(xì)分成礦房、礦柱,進(jìn)行品位更新后再分別計(jì)算其相應(yīng)的體積參數(shù)、礦石儲(chǔ)量、金屬量,最后添加并物理刪除原有礦塊,并在備注中加以說明。品位更新過程中應(yīng)特別注意關(guān)鍵詞表達(dá)式的正確性,及兩表記錄的對(duì)應(yīng)關(guān)系 (不能為“多多關(guān)系”,應(yīng)為“一一對(duì)應(yīng)”或“一對(duì)多”或“多對(duì)一”)。數(shù)值精度應(yīng)通過 ROUND()函數(shù)保證。

對(duì)無勘探升級(jí)礦塊常采用減去法,即按其與開采損失表、掘進(jìn)副產(chǎn)表的對(duì)應(yīng)關(guān)系,并按前述關(guān)聯(lián)查詢的要求,用對(duì)應(yīng)項(xiàng)相減即可獲得。更新中應(yīng)注意分礦石與夾石分別進(jìn)行。

2.3 掘進(jìn)副產(chǎn)表和開采損失表的編制

此兩表數(shù)據(jù)來源于本年度計(jì)劃的月報(bào)表統(tǒng)計(jì),因此數(shù)據(jù)庫表可通過 Excel表轉(zhuǎn)入,即先在 Excel表格中匯總年度報(bào)表統(tǒng)計(jì),并對(duì)關(guān)鍵字段進(jìn)行必要的名稱校正,字段內(nèi)容進(jìn)行必要的完善、規(guī)范,然后對(duì)數(shù)值型字段進(jìn)行必要的設(shè)置,才可“另存為”數(shù)據(jù)庫表。在 Visual FoxPro中,還應(yīng)增加“礦石夾石”字段,按主關(guān)鍵詞分類匯總,并按前述關(guān)聯(lián)查詢的要求對(duì)其進(jìn)行品位更新和數(shù)據(jù)計(jì)算,即可形成所需的掘進(jìn)副產(chǎn)表和開采損失表。

2.4 儲(chǔ)量增減表的編制

因勘探增減、重算增減只需計(jì)算整個(gè)礦塊的量,不考慮礦房礦柱和礦帶代號(hào),故只需按“ALLTR I M(礦體位置)+ALLTR I M(礦塊編號(hào))”制作 1個(gè)含年初保有、開采損失、掘進(jìn)副產(chǎn)、年終保有的聯(lián)接表,在查詢程序中再增加儲(chǔ)量增減、鎢鉬鉍金屬量增減字段便可。

具體步驟如下:先利用設(shè)計(jì)好的分類匯總查詢命令,分別對(duì)年初保有、開采損失、掘進(jìn)副產(chǎn)、年終保有表中的儲(chǔ)量、鎢鉬鉍金屬量按“ALLTR I M(礦體位置)+ALLTR I M(礦塊編號(hào))”進(jìn)行分類匯總,然后進(jìn)行聯(lián)接查詢,并設(shè)計(jì)程序?qū)ψ侄芜M(jìn)行必要的增、刪、改工作,以獲得礦塊的儲(chǔ)量增減表;對(duì)儲(chǔ)量增減表按增減性質(zhì)進(jìn)行分解,便可獲得所需的勘探增減表、重算增減表 (因多表聯(lián)接較復(fù)雜,可采用雙表逐步聯(lián)接實(shí)現(xiàn)多表間數(shù)據(jù)查詢)。

2.5 平衡表的編制

與儲(chǔ)量增減表的制作類似,只是需增加勘探增減、重算增減內(nèi)容的字段,損失量單獨(dú)設(shè)項(xiàng),開采量中需加上掘進(jìn)副產(chǎn)部分。分類匯總關(guān)鍵詞表達(dá)式變成“ALLTR I M(礦體位置 )+ALLTR I M(儲(chǔ)量級(jí)別)”,另需增加儲(chǔ)量、金屬量的平衡檢查字段。

2.6 打印表的制作

對(duì)照設(shè)計(jì)好的表格打印形式,在 VFP數(shù)據(jù)庫中,查詢對(duì)應(yīng)字段并設(shè)置好排列順序,必要時(shí)可以對(duì)字段進(jìn)行增、刪、改,使其盡量符合表格打印要求。最后導(dǎo)出到電子表格中,稍作格式調(diào)整和表格編輯即可。

3 程序設(shè)計(jì)實(shí)例

CLOSE ALL

SELECT 1

USE f:年初礦塊.dbf&&打開年初礦塊表 (已改動(dòng)升級(jí)礦塊的三量級(jí)別)

COPY TO f:礦塊 X.dbf

USE f:礦塊 X.dbf

DELE FOR I NL IST(礦塊編號(hào) ,′K5-0/1′,′P4/5-0′,′P4/5-1′)

PACK &&消除礦塊中的多余記錄

APPE FROM f:勘探重算增加礦塊.dbf&&添加新記錄

DO f:礦塊匯總.qpr &&運(yùn)行已編制好的匯總程序

＊＊已制作基礎(chǔ)的新礦塊 (消除了部分勘變前的礦塊,增加了勘變礦塊)

CLOSE ALL

SELE 2

USE f:礦塊 Y.dbf

COPY TO f:礦塊 X.dbf

CLOSE ALL

SELECT 1

USE f:礦塊 X.dbf

SELE 2

USE f:勘探重算減少礦塊.dbf

COPY TO f:礦塊 Y.dbf

USE f:礦塊 Y.dbf

DO f:礦塊_礦塊.qpr &&運(yùn)行已編制好的關(guān)聯(lián)程序

＊＊消除了勘變前的礦塊

CLOSE ALL

SELECT 1

USE f:礦塊 Z.dbf

COPY TO f:礦塊 X.dbf

USE f:礦塊 X.dbf

DO f:礦塊匯總.qpr

CLOSE ALL

SELECT 1

USE f:礦塊 Y.dbf

COPY TO f:礦塊 X.dbf

USE f:礦塊 X.dbf

SELECT 3

USE f:采損.dbf

COPY TO f:采損 x.dbf

USE f:采損 x.dbf

DO f:礦塊_采損.qpr &&運(yùn)行已編制好的關(guān)聯(lián)程序

＊＊減去了開采和損失

CLOSE ALL

SELECT 1

USE f:礦塊 Z.dbf

COPY TO f:礦塊 X.dbf

USE f:礦塊 X.dbf

SELE 4

USE f:掘副.dbf

COPY TO f:掘副 x.dbf

USE f:掘副 x.dbf

DO f:礦塊_掘副.qpr &&運(yùn)行已編制好的關(guān)聯(lián)程序

＊＊減去了掘進(jìn)副產(chǎn)

4 結(jié) 論

地質(zhì)儲(chǔ)量管理工作是一項(xiàng)最基本的比較繁瑣的日常地質(zhì)工作,利用 Visual FoxPro數(shù)據(jù)庫的強(qiáng)大功能進(jìn)行管理,再結(jié)合 Excel進(jìn)行報(bào)表編制和打印,使工作快捷、方便。

程序設(shè)計(jì)中,有不少細(xì)節(jié)問題不容忽視。首先,應(yīng)做到文件存放目錄清晰明了,字段名稱長度類型和小數(shù)位盡量統(tǒng)一規(guī)范,清晰可讀;設(shè)計(jì)程序前應(yīng)對(duì)原始表做好備份,以防不測;程序運(yùn)行前應(yīng)多作調(diào)試,盡量從簡到繁,確保程序簡單高效。另外,熟練掌握更多的命令和函數(shù)可達(dá)到事半功倍的效果。

[1]羅周全,劉曉明,吳亞斌,等.地質(zhì)統(tǒng)計(jì)學(xué)在多金屬礦床儲(chǔ)量計(jì)算中的應(yīng)用研究[J].地質(zhì)與勘探,2007,43(3):83-87.

[2]焦 建,孫文潔,崔正筠.Excel在煤礦地質(zhì)工作中的應(yīng)用[J].山東煤炭科技,2009,(6):79-80.

[3]吳鴻敏,楊 佳,張寶一.固體礦產(chǎn)儲(chǔ)量估算系統(tǒng)的研究與實(shí)現(xiàn)[J].地理信息世界,2007,5(1):73-78.

[4]梁 艷,郝多虎,潘 懋,等.礦產(chǎn)儲(chǔ)量估算系統(tǒng)的開發(fā)研究[J].黑龍江科技信息,2010,(7):34-35.

“十一五”國家科技支撐計(jì)劃項(xiàng)目 (2006BAB02B05-1).

2010-10-20)

陳丙強(qiáng) (1968-),男,工程師,主要從事礦山地質(zhì)工作,Email:chenbq163@163.com。