基于Visual Basic語言的林業電子文檔管理軟件開發及應用

楊 靜 ，解瑞清，楊克佳，馬春燕 ，王法波 ，楊秀蘋 ，莊肅學

（1.日照市林業局，山東 日照 276826；2.莒縣林業局）

隨著國民經濟及科學技術的發展，粗放的林業管理方式已經成為限制林業發展的重要因素。在林業管理過程中，文檔管理是至為重要的環節。如何管理日益海量化、電子化的林業文檔已經成為林業基礎研究與應用領域中的重要問題。盡管電子文檔解決了傳統紙質文檔占用過多實體空間、修改保存不便等問題，但是保存混亂、難于查閱等問題仍未解決。構建林業文檔管理軟件對于林業部門的日常管理工作具有重要意義。

Visual Basic語言作為一種基于Windows環境的程序設計語言，其面向對象的可視化編程模式使其在森林資源數據采集、林業地圖自動化制圖、木材無損檢測、水文生態研究等林業領域已有較多應用。

本文探討如何基于Visual Basic語言開發林業電子文檔管理軟件，以期為林業部門文檔高效管理工作提供必要的理論與技術依據。

1 開發環境與功能設計

軟件基于Windows操作平臺開發，編程語言為Visual Basic（版本：6.0）。為滿足文檔管理工作的需求，按照界面簡潔、功能實用、操作簡便、運行快速的基本原則，設計如下基本功能：外部文檔導入、文檔分類管理、以及文檔默認方式打開、保存、修改、復制、重命名、刪除等基本操作。另外，結合文檔管理工作相對枯燥、對時效性要求較高等特點，設計如下附加功能：音頻播放、網頁鏈接以及當前時間顯示等。為滿足交流需要及擴大使用范圍，界面采用中英雙語。

2 界面設計與代碼實現

2.1 界面設計

按照界面簡潔、功能實用的原則將界面分為4個區域（圖 1）：

（1）頂部按鈕區：該區域位于界面最上部。設置“導入文件Import Files”、“導入簡介 Import Introductions”、 “刷 新 列 表 Refresh the list”、 “ 使 用 說 明Readme”、“單位博客 Author’s blog”5 個命令按鈕。 其中“導入文件”和“導入簡介”命令可以從外部向軟件系統導入林業文檔；“刷新列表”命令用于在導入文檔后更新文件列表；“使用說明”命令用于詳細介紹軟件操作技巧；“單位博客”命令根據部門實際設置固定的網站鏈接，方便文檔管理人員快捷查閱網絡資料。

（2）左側文件列表區：該區域位于界面中部整個左側區域。設置一個“文件列表File List”文本框用于顯示軟件系統實際收錄的林業文檔（可以導入任意格式的文件）。文件列表框上方實時顯示系統實際收錄的文檔數量及當前時間。

（3）右側文檔信息區：該區域位于界面中部及下部整個右側區域。設置兩個文本框：“當前選中文件Current selected file”（用于顯示當前選中文件的完整文件名）和“文件簡介Introduction”（用于顯示具體文檔的屬性信息等）。在“文件簡介”文本框下方實時顯示當前文檔簡介字數等統計信息。右下部為“修改簡介Modify Introduction”命令按鈕，通過該按鈕實現對文檔簡介的修改。為使文檔免于意外修改，在軟件主界面上不允許直接復制、修改及刪除文檔，而需通過軟件默認的快捷鍵執行上述操作。

（4）底部多媒體區：位于界面左下部。設置一個“Windows Media播放器控件”（用于自動播放指定音頻文件）。

圖1 林業文檔管理軟件界面設計圖

2.2 主要功能代碼

為使軟件符合操作簡便、運行快速的要求，在代碼編寫中力求精簡優化，重點滿足核心功能的代碼需求。通過逐步的代碼優化，最終主程序僅占用132 KB磁盤空間。以下為主要功能的代碼：

（1）導入外部文檔：

Private Sub Dir1_Change()

File1.Path=Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path=Drive1.Drive

End Sub

Private Sub File1_Click()

Dim oldname As String

Dim newname As String

selectedfile=File1.Path&""&File1.FileName

oldname=selectedfile

newname=App.Path+"Documents"+File1.FileName

FileCopy oldname,newname

End Sub

（2）修改文件簡介：

Private Sub Commandmodify_Click()

Dim yyy As String

Dim yy As String

yyy=List1.Text

yy=yyy

yyy="X"+yyy+".txt"

If Dir(yyy)=""And yyy＜＞"X.txt"Then

Open yyy For Output As#1

Write#1,yy&"："

Close#1

MyShell(App.Path+""+yyy)

Else：MyShell(App.Path+""+yyy)

End If

End Sub

（3）默認方式打開文件：

Private Sub MyShell(Path As String)

Shell"rundll32 url.dll,FileProtocolHandler"""&Path&"""",vbNormalFocus

End Sub

Private Sub list1_dblclick()

Dim yyyy As String

yyyy=List1.Text

MyShell App.Path+"Documents"+yyyy

End Sub

（4）系統內部復制（選中后按C鍵實現）：

If KeyAscii=99 Or KeyAscii=67 Then

yy=List1.Text

yyyy=List1.Text

oldname=App.Path+"Documents"+yy

newname=App.Path+"Documents"+"Copy of"+yy

FileCopy oldname,newname

End if

（5）系統內部重命名（選中后按R鍵實現）：

If KeyAscii=114 Or KeyAscii=82 Then

yy=List1.Text

yyyy=List1.Text

oldname=App.Path+"Documents"+yy

a=InputBox("輸入新文件名Input a new filename：","重命名 Rename",yy)

newname=App.Path+"Documents"+a

Name oldname As newname

End if

（6）系統內部刪除（選中后按D鍵實現）：

If KeyAscii=100 Or KeyAscii=68 Then

yy=List1.Text

yyyy=List1.Text

oldname=App.Path+"Documents"+yy

response=MsgBox("確定刪除該文件嗎Are you sure to delete this file?",vbYesNoCancel,"確認刪除Delete it")

If response=vbYes Then

Kill oldname

Else

End If

（7）自動載入信息：

Private Sub Form_Load()

sosuofile1(App.Path+"Documents")

sosuofile2(App.Path+"X")

Form1.Print

Form1.Print

Form1.Print Space(1)+"本系統目前總計收錄"+Str(List1.ListCount)+"篇文獻"+Str(List2.List-Count)+"項文獻簡介。"

Form1.Print Space(1)+"There are"+Str(List1.ListCount)+"files and"+Str(List2.ListCount)+"introductions in total."

WindowsMediaPlayer1.URL=App.Path&"BGMBGM.mp3"

End Sub

（8）刷新文件列表：

Private Sub Commandrefresh_Click()

List1.Clear

List2.Clear

Form1.Cls

sosuofile1(App.Path+"Documents")

sosuofile2(App.Path+"X")

Form1.Print

Form1.Print

Form1.Print Space(1)+"本系統目前總計收錄"+Str(List1.ListCount)+"篇文獻"+Str(List2.List-Count)+"項文獻簡介。"

Form1.Print Space(1)+"There are"+Str(List1.ListCount)+"files and"+Str(List2.ListCount)+"introductions in total."

End Sub

（9）網站鏈接：

Private Sub Commandweb_Click()

Dim website As String

Shell"C：\Program Files\Internet Explorer\IEXPLORE.exe http：//www.sdau.edu.cn/"

End Sub

（10）實時校對與顯示系統時間：

Private Sub Timer1_Timer()

Picture1.Cls

Picture1.Print Space(0);Year(Now);"年";Month(Now);"月";Day(Now);"日";WeekdayName(Weekday(Now));Hour(Now);"點";Minute(Now);"分";Second(Now);"秒"

End Sub

3 結論與討論

通過Visual Basic語言構建林業電子文檔管理軟件是完全可行的。此類軟件系統可以導入任意格式的電子文檔，并可以進行文件的復制、修改、重命名等基本操作，而且還可以對任意文件添加文件簡介，該功能可以使文檔管理人員在不打開原文件的情況下回顧文件內容，提高工作效率。軟件系統還可以增加音頻播放、網站直達等功能，保持工作人員高效工作狀態。此外，采用上述界面設計和代碼編程的軟件主程序所占磁盤空間僅為132 KB，無需安裝直接可以使用，軟件運行對電腦硬件配置要求極低，運行速度快，界面簡潔清晰，而且采用中英雙語界面，這些都使得軟件的應用范圍更加廣泛，可操作性更強，不僅適于林業管理及科研部門需要，對其他領域相關部門人員的文件管理工作也具有普遍適用性和較高應用價值。

基于Visual Basic開發的林業電子文檔管理軟件也存在一定的不足：只能在Windows操作系統中運行。該缺點使得使用其他操作平臺的文檔管理人員無法使用該類軟件。不過，由于目前大多數計算機采用的是Windows操作平臺，因而，上述缺點對大多數林業文檔管理人員的實際工作不會造成影響。

[1]李磊,徐宗學.基于VB 6.0的生態基流計算軟件開發與應用[J].水土保持通報,2012,32(3)：145-149.

[2]王偉平,謝力生.基于VB的人造板多層熱壓機杠桿式同時閉合裝置專家系統程序設計 [J].林業機械與木工設備,2008,36(11)：38-40.

[3]馮國紅,朱玉杰,安麗華.基于VB的木材無損檢測近紅外光譜圖檢索系統的實現 [J].森林工程,2011,27(1)：16-18.

[4]王志平,李耀翔,萬道印.基于VB的森林資源數據采集系統構建[J].森林工程,2010,26(1)：12-15.

[5]唐朝輝.淺談基層林業檔案管理存在的問題[J].吉林農業,2011,(6)：221.

[6]李東平.基于MapInfo和VB的林業地圖跨平臺制圖自動化研究[D].西北師范大學碩士學位論文,2003.