也談使用VB編制辦公軟件

邢建春

摘要：隨著信息化技術(shù)的不斷推進，各種程序開發(fā)軟件層出不窮，然而VB以其優(yōu)越穩(wěn)定可靠的性能仍然在程序開發(fā)應(yīng)用領(lǐng)域占有著很重要的位置。VB（Visual Basic）是由微軟公司開發(fā)的編程語言，具有操作性強、穩(wěn)定可靠、擁有可視的人機畫面、較輕易實現(xiàn)數(shù)據(jù)庫的對接等特點被廣大程序員所認可。通過使用VB提供的組件功能開發(fā)出《電子辦公軟件》應(yīng)用程序，取得了文件自動生成、提高工作效率的效果。

關(guān)鍵詞：VB 編制；辦公軟件

中圖分類號：TP393 文獻標識碼：A 文章編號：1009-3044（2018）27-0094-02

在當前信息時代，各種用于程序開發(fā)的軟件有數(shù)十種之多，然而VB以其優(yōu)越穩(wěn)定可靠的性能仍然在程序開發(fā)應(yīng)用領(lǐng)域占有著很重要的位置。VB（Visual Basic）是由微軟公司開發(fā)的編程語言。具有操作性強、穩(wěn)定可靠、擁有可視的人機畫面、較輕易實現(xiàn)數(shù)據(jù)庫的對接等特點被廣大程序員所認可。我使用VB提供的組件功能開發(fā)出《電子辦公軟件》應(yīng)用程序，投入使用后，獲得了好評，達到文件自動生成、提高工作效率的目的。現(xiàn)就軟件設(shè)計研發(fā)過程闡述如下

1 研發(fā)背景

我公司作為通信方面的主要運營商，接受上級公司和地方政府的雙重領(lǐng)導(dǎo)，與地方政府在行政事務(wù)中有較多的聯(lián)系，每年接受地方政府方面的各類文件近千件，涉及我公司的各類文件近200件，來文單位有30余個，需要根據(jù)每個文件內(nèi)容逐個填寫文件收發(fā)記錄、來文單位、文件編號、書寫文件批辦單等工作，有時還要根據(jù)文件要求內(nèi)容對政府部門進行匯報，文件查找起來復(fù)雜、煩瑣，研發(fā)針對性強的文件處理軟件可解放文件員的勞動強度，提高工作效率。

2 研發(fā)原理

采用模版+應(yīng)用軟件+數(shù)據(jù)庫形式來實現(xiàn)，根據(jù)整個畫面前景和后景要素約近50項，初步估算各類控件設(shè)計約300項左右，總體來說數(shù)據(jù)量相對較小，采用VB來進行程序開發(fā)較易實現(xiàn)，且擴展靈活，便于操作管理。具體研發(fā)使用固定模版，固定文件批辦單格式，文件批辦單由此應(yīng)用軟件自動回填完成，其中來文單位、公文文號及批辦意見設(shè)計為自動記憶功能，通過數(shù)據(jù)庫自動添加并進行高頻置頂處理，實現(xiàn)電子化替代手工填寫的方式，自動生成、收文納入數(shù)據(jù)庫管理。

3 程序?qū)崿F(xiàn)

按照辦公習(xí)慣將程序分別設(shè)置為基本信息等不同的功能模塊，功能按鍵置于畫面右側(cè)，實現(xiàn)文件生成、預(yù)覽、選擇打印、取消、返回上級、退出等6個功能。

在基本信息等界面中，錄入辦公要求的相關(guān)內(nèi)容，管理操作的人員設(shè)置使用ACCESS調(diào)用進行維護和管理。當全部畫面的相關(guān)信息參數(shù)填寫、選擇完成后，即可生成預(yù)制的文件，通過選擇功能鍵“預(yù)覽”和“選擇打印”等可以分別實現(xiàn)校對和打印?！巴顺觥惫δ苕I實現(xiàn)的是程序的退出關(guān)閉功能。

此應(yīng)用軟件經(jīng)過調(diào)試試用后，可以將煩瑣的紙質(zhì)文字填寫轉(zhuǎn)變?yōu)殡娮由?，并借助電腦功能實現(xiàn)公文的登記批辦、管理和檢索查找，提高了工作效率，為公司節(jié)約了成本，達到了預(yù)期的效果。

最后，對程序進行了美化，分別設(shè)置了封面、標題欄和狀態(tài)欄。

4 部分程序代碼

Option Explicit

Private Sub Form_Load（） ' 初始化TabStrip控件的位置和大小

Dim i As Integer '使TabStrip控件大小隨著窗體變化

TabStrip1.Top = 0

TabStrip1.Left = 0

TabStrip1.Width = Me.ScaleWidth

TabStrip1.Height= Me.ScaleHeight

Cmd2.Enabled = False

Cmd3.Enabled = False

……

Tex1.Text = Year（Now（））

Tex2.Text = Month（Now（））

Tex3.Text = Day（Now（））

Tex4.Text = Hour（Now（））

Tex5.Text = Minute（Now（））

If Val（Minute（Now（））） > 19 Then

Tex5.Text = Minute（Now（）） - 20

Tex4.Text = Hour（Now（））

End If

If Val（Minute（Now（））） < 20 Then

Tex4.Text = Hour（Now（）） - 1

Tex5.Text = （Minute（Now（）） - 20 + 59）

End If

End Sub

Private Sub Option1_Click（）

Lab41.Visible = False

Tex41.Visible = False

Text12.Visible = True

Text13.Visible = True

Opt1.Visible = True

Opt2.Visible = False

End Sub

Private Sub Option2_Click（）

Lab41.Visible = True

Tex41.Visible = True

Text1.Visible = False

Label4.Visible = False

Combo1.Visible = True

……

Opt1.Visible = False

Opt2.Visible = True

End Sub

Private Sub Cmd1_Click（）

Dim WordApp

Dim Word '判斷編號是否為空

If Tex7.Text = "" Then

MsgBox "請輸入文件編號！"， 48， "提示"

Exit Sub

End If

Set WordApp = CreateObject（"Word.Application"）

Set Word = WordApp.Documents.Open（"d：＼bangong＼bangong.doc"）

Word.bookmarks.Item（"dizhi"）.range.Text = dizhi

Word.bookmarks.Item（"renyuan11"）.range.Text = xingming

Word.bookmarks.Item（"bookyear5"）.range.Text = year1

Word.bookmarks.Item（"bookday6"）.range.Text = day1

Word.saveas （current_file）

Word.Close

WordApp.quit

Set WordApp = Nothing

Set Word = Nothing

MsgBox "存盤成功！"， 0， "提示"

End Sub

Private Sub Cmd2_Click（）

Dim WordApp

Dim Word

current_file = "d：＼bangong＼" + bianhao + ".doc"

Set WordApp = CreateObject（"Word.Application"）

Set Word = WordApp.Documents.Open（current_file）

WordApp.Visible = True

Set WordApp = Nothing

Set Word = Nothing

End Sub

Private Sub Cmd3_Click（）

WordApp.printout

Word.Close

WordApp.quit

Set WordApp = Nothing

Set Word = Nothing

End Sub

Private Sub Cmd4_Click（）

Cmd2.Enabled = False

Cmd3.Enabled = False

Tex1.Text = Year（Now（））

Tex2.Text = Month（Now（））

Tex3.Text = Day（Now（））

Tex4.Text = Hour（Now（））

Tex5.Text = Minute（Now（））

Text6.Text = ""

Text7.Text = ""

Tex38.Text = ""

Tex39.Text = ""

Tex41.Text = ""

Tex42.Text = ""

Tex43.Text = ""

Tex44.Text = ""

Tex47.Text = ""

Tex51.Text = ""

Tex68.Text = "" Text1.Visible = False

Label4.Visible = False

Label5.Visible = False

End Sub

Private Sub Cmd5_Click（）

Form3.Hide '窗體3隱藏

Form2.Show '窗體2顯示

End Sub

參考文獻：

[1] 將word文檔按分頁另存為多個word文件的VBA代碼-網(wǎng)絡(luò)學(xué)院-中原硅谷網(wǎng)[EB/OL].http：//school.zzit.com.cn/OfficeSoft/Word/20110105/296308.html.

[2] 張立科. Visual Basic 6.0程序設(shè)計參考手冊[M].北京：人民郵電出版社，2003.

[通聯(lián)編輯：光文玲]