基于Word模版筆錄軟件的設(shè)計(jì)與實(shí)現(xiàn)

摘要：針對(duì)公安邊防部隊(duì)現(xiàn)有筆錄軟件存在軟件不統(tǒng)一、操作方法各不相同、軟件應(yīng)用和普及的難度大、各地區(qū)對(duì)筆錄格式要求不同等問(wèn)題，提出了使用WORD制作的筆錄模版來(lái)實(shí)現(xiàn)電子筆錄的制作，操作者無(wú)需花大量時(shí)間學(xué)習(xí)軟件的使用，也可以有效降低編程開(kāi)發(fā)和格式排版的難度，這有利于該軟件的推廣。

關(guān)鍵詞：公安信息化；公安筆錄軟件；公安信息管理

中圖分類號(hào)：TP311.52 文獻(xiàn)標(biāo)識(shí)碼：A 文章編號(hào)：1007-9599 （2012） 17-0000-02

隨著公安信息化建設(shè)的不斷深入，為了提高公安邊防部隊(duì)辦案過(guò)程中的工作效率，筆錄制作軟件也逐漸變得十分普及。筆錄軟件的使用，使公安邊防干警在處理案件時(shí)能夠快速、方便、準(zhǔn)確的制作法律文書(shū)，為干警工作節(jié)約了大量寶貴時(shí)間。

由于公安邊防部隊(duì)中并沒(méi)有統(tǒng)一的公安邊防部隊(duì)筆錄軟件，其操作的方法也各不相同，這增加了軟件應(yīng)用和普及的難度。許多筆錄軟件是利用計(jì)算機(jī)圖形繪制的方式，通過(guò)編程繪制筆錄表格模版，然后通過(guò)在指定位置輸出錄入數(shù)據(jù)來(lái)實(shí)現(xiàn)筆錄的制作。這種方法，首先不利于調(diào)整，由于錄入字符串長(zhǎng)度不一，難免會(huì)出現(xiàn)因字符串長(zhǎng)度過(guò)長(zhǎng)而出現(xiàn)字符跨行跨列等排版問(wèn)題；其次，由于各地區(qū)對(duì)筆錄格式有不同的要求，當(dāng)為了適應(yīng)地域性差別時(shí)，就不得不針對(duì)各地區(qū)的格式要求編程繪制進(jìn)行修改，這樣將花費(fèi)大量的時(shí)間。

為了解決這些問(wèn)題，本文提出了使用WORD制作的筆錄模版來(lái)實(shí)現(xiàn)電子筆錄的制作，首先將會(huì)大大減少在模版調(diào)整上所花費(fèi)的時(shí)間。由于許多人用WORD來(lái)處理辦公文檔，因此在對(duì)模版進(jìn)行細(xì)節(jié)方面的調(diào)整時(shí)，不會(huì)因?yàn)橐匦聦W(xué)習(xí)，而花費(fèi)大量時(shí)間。其次使用Word作為法律文書(shū)模版，可以有效避免在排版時(shí)所出現(xiàn)的各式各樣的問(wèn)題，有效降低了編程開(kāi)發(fā)難度，節(jié)約了大量的寶貴時(shí)間。

1 系統(tǒng)原理分析

系統(tǒng)原理分析主要包括Word法律文書(shū)的實(shí)現(xiàn)原理和word編程原理兩個(gè)方面。

1.1 Word法律文書(shū)的實(shí)現(xiàn)原理。利用數(shù)據(jù)流程圖（DFD）可以分析出構(gòu)建筆錄軟件的邏輯模型。在筆錄數(shù)據(jù)管理模塊中，通過(guò)對(duì)數(shù)據(jù)的添加、修改、刪除操作來(lái)實(shí)現(xiàn)筆錄數(shù)據(jù)的錄入，通過(guò)將相關(guān)數(shù)據(jù)流轉(zhuǎn)至數(shù)據(jù)處理轉(zhuǎn)換模塊，對(duì)錄入的數(shù)據(jù)進(jìn)行處理、完成筆錄制作，并將其保存至數(shù)據(jù)庫(kù)中。

1.2 WORD編程原理。利用VB操作實(shí)現(xiàn)Word功能時(shí)，無(wú)論選擇什么樣的方法，最終都將與Word對(duì)象模型進(jìn)行交互，才能完成相應(yīng)的功能。

其中Application對(duì)象用于訪問(wèn)應(yīng)用程序級(jí)的設(shè)置和選項(xiàng)，即Word應(yīng)用程序?qū)ο?，同時(shí)也是整個(gè)對(duì)象模型的根對(duì)象，所有子對(duì)象均由它派生而來(lái)。Document對(duì)象表示一個(gè)Word文檔，Range對(duì)象表示文檔中一定范圍的文本，而Shape對(duì)象則表示嵌入在Word文檔中的圖、表、圖片或其他對(duì)象。在筆錄軟件中，為了能夠正確讀取法律文書(shū)的Word文件，首先要構(gòu)建一個(gè)Application對(duì)象，以便于能夠正常訪問(wèn)Document對(duì)象，利用Document對(duì)象來(lái)打開(kāi)法律文書(shū)模版，用Range和Shape對(duì)象進(jìn)行相應(yīng)的添加刪除操作。

2 系統(tǒng)設(shè)計(jì)

參照系統(tǒng)分析中數(shù)據(jù)流程圖所構(gòu)制的模型，設(shè)計(jì)系統(tǒng)中的重要模塊，主要包括數(shù)據(jù)庫(kù)設(shè)計(jì)和系統(tǒng)功能模塊設(shè)計(jì)。

2.1 數(shù)據(jù)庫(kù)設(shè)計(jì)。數(shù)據(jù)庫(kù)設(shè)計(jì)在軟件設(shè)計(jì)中有極其重要的作用，根據(jù)筆錄軟件所提供的邏輯模型，遵循規(guī)范化和減少數(shù)據(jù)冗余的原則，利用Access構(gòu)建筆錄軟件的數(shù)據(jù)庫(kù)系統(tǒng)。

2.2 系統(tǒng)功能模塊設(shè)計(jì)。根據(jù)所處理的事務(wù)的需要將系統(tǒng)功能劃分為數(shù)據(jù)庫(kù)存取模塊，法律文書(shū)模版存取模塊、筆錄輸入模塊，信息處理模塊，筆錄樣版存取模塊。

3 系統(tǒng)實(shí)現(xiàn)

系統(tǒng)實(shí)現(xiàn)涉及到方方面面的知識(shí)，這里主要從數(shù)據(jù)庫(kù)連接、法律文書(shū)接口的設(shè)定和數(shù)據(jù)處理三方面加以闡述。

3.1 數(shù)據(jù)庫(kù)連接。由于是同Access數(shù)據(jù)庫(kù)進(jìn)行交互操作，可以通過(guò)ADO（ActiveX Data Object）方式連接，ADO是一組經(jīng)過(guò)優(yōu)化的訪問(wèn)數(shù)據(jù)庫(kù)的專用對(duì)象集，利用ADO方式比用其它的連接方式更為簡(jiǎn)單、專業(yè)和方便，而且功能強(qiáng)大，為了避免由于應(yīng)用程序工作路徑的切換，而導(dǎo)致在連接數(shù)據(jù)庫(kù)文件時(shí)失敗，因此在編寫(xiě)過(guò)程中，應(yīng)當(dāng)注意設(shè)定好含有應(yīng)用程序路徑的全局變量。部分實(shí)現(xiàn)代碼如下：

Dim strCnn As String = \"Provider=Microsoft.Jet.OLEDB.4.0； Data Source=\" + GloablCommon.CurrWorkDir + \"＼DataBase.mdb；Jet OLEDB：Database Password=0898\"

Me.MakerConnect = New ADODB.Connection（）

MakerConnect.Open（strCnn）

3.2 法律文書(shū)接口的設(shè)定。為了規(guī)范各種法律文書(shū)數(shù)據(jù)處理接口名稱，我們定義了ProcLayer接口，利用接口方式，可以有效減少兼容性問(wèn)題，可以在不損害現(xiàn)有實(shí)現(xiàn)的情況下，對(duì)接口進(jìn)行增強(qiáng)實(shí)現(xiàn)處理。部分實(shí)現(xiàn)代碼如下：

……

Public Interface ProcLayer

Sub DataInit（） ‘?dāng)?shù)據(jù)初使化

Sub DocInit（） ‘法律文書(shū)初使化

Sub DictInit（） ‘字典數(shù)據(jù)初使化

Sub DataUpdate（） ‘?dāng)?shù)據(jù)更新操作

Sub DataSave（） ‘?dāng)?shù)據(jù)存儲(chǔ)

Sub DataReader（） ‘?dāng)?shù)據(jù)讀取

Sub DataConnection（） ‘?dāng)?shù)據(jù)庫(kù)連接

Sub DataDisConnection（） ‘關(guān)閉數(shù)據(jù)庫(kù)連接

End Interface

……

3.3 數(shù)據(jù)的處理。在該軟件中，數(shù)據(jù)處理是最重要的一部份，關(guān)系到是否能夠正常生成Word格式的筆錄或法律文書(shū)，它主要由兩部份組成：一是法律文書(shū)的模版處理，從Word對(duì)象模型中可以了解到對(duì)Word中的文本進(jìn)行操作，因其對(duì)象的不同，其操作的方法也不盡相同，如單元格、圖形、正文文本等，均要為其設(shè)計(jì)相關(guān)的替換方法。部分實(shí)現(xiàn)代碼如下：

……

Public Sub FindReplace（ByVal findtext As String）

Dim tmp As String

For Each shape In doc.Shapes

tmp = shape.TextFrame.TextRange.Text.Trim

If key_str.ContainsKey（tmp） Then

shape.TextFrame.TextRange.Text = key_str（tmp）

End If

Next

End Sub

Public Sub FindReplaceShape（ByVal findtext As String， ByVal replacetext As String） Dim i As Integer

For i = 1 To doc.Shapes.Count

shape = doc.Shapes.Item（i）

If flag（i） = False Then

find2 = shape.TextFrame.TextRange.Find

With find2

.Text = findtext

.Replacement.Text = replacetext

End With

flag（i） = find2.Execute（Replace：=WdReplace.wdReplaceOne）

End If

Next

End Sub

……

二是對(duì)筆錄對(duì)話樣本的處理，在筆錄對(duì)話樣本中為了能夠正確讀取問(wèn)與答的記錄，便于在錄入對(duì)話過(guò)程中可以提供對(duì)話樣本進(jìn)行填充，可以利用記錄中每行開(kāi)始的“問(wèn)：”、“答：”關(guān)鍵字來(lái)進(jìn)行區(qū)別。部分實(shí)現(xiàn)代碼如下：

……

Public Sub textprase（ByVal filepath As String）

Dim fr As StreamReader = New StreamReader（filepath）

Dim str_line As String = fr.ReadLine（）

Try

Do

If str_line.IndexOf（\"問(wèn)：\"） = 0 Then

Q_length += 1

QA_list（Q_length）.str_Q = str_line

QA_list（Q_length）.array_A = New ArrayList（）

Else

QA_list（Q_length）.array_A.Add（str_line）

End If

str_line = fr.ReadLine（）

Loop Until str_line Is Nothing

Catch e As Exception

MsgBox（\"Error：\" + e.Message）

End Try

fr.Close（）

End Sub

……

4 結(jié)束語(yǔ)

根據(jù)現(xiàn)有筆錄軟件存在的缺陷，并結(jié)合工作的實(shí)際需要，提出了一種利用WORD制作的筆錄模版來(lái)實(shí)現(xiàn)電子筆錄的制作的筆錄軟件系統(tǒng)。利用該筆錄軟件，公安邊防干警可以快速完成筆錄及法律文書(shū)在制作方面的一系列繁鎖工作；同時(shí)該筆錄軟件所具有的靈活性改變了現(xiàn)有的筆錄軟件只允許使用固定模版的情況，干警可以根據(jù)自身需求，對(duì)模版樣式進(jìn)行修改調(diào)整，從而更加適應(yīng)自身的工作需求，提高了工作效率。

參考文獻(xiàn)：

[1]申巍.關(guān)于訊問(wèn)筆錄中合法性的幾點(diǎn)思考[J].山西廣播電視大學(xué)學(xué)報(bào)，2005，2.

[2]朱豐磊.基于Web環(huán)境下的公安筆錄系統(tǒng)數(shù)據(jù)安全需求分析[J].軟件導(dǎo)刊，2008，7（12）：170-172.

[3]尹曉磊，于明，支秀玲.公安派出所綜合信息管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)[J].信息技術(shù)與信息化，2010，2：87-91.