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

關鍵詞：公安信息化；公安筆錄軟件；公安信息管理

中圖分類號：TP311.52 文獻標識碼：A 文章編號：1007-9599 （2012） 17-0000-02

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

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

為了解決這些問題，本文提出了使用WORD制作的筆錄模版來實現(xiàn)電子筆錄的制作，首先將會大大減少在模版調整上所花費的時間。由于許多人用WORD來處理辦公文檔，因此在對模版進行細節(jié)方面的調整時，不會因為要重新學習，而花費大量時間。其次使用Word作為法律文書模版，可以有效避免在排版時所出現(xiàn)的各式各樣的問題，有效降低了編程開發(fā)難度，節(jié)約了大量的寶貴時間。

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

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

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

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

其中Application對象用于訪問應用程序級的設置和選項，即Word應用程序對象，同時也是整個對象模型的根對象，所有子對象均由它派生而來。Document對象表示一個Word文檔，Range對象表示文檔中一定范圍的文本，而Shape對象則表示嵌入在Word文檔中的圖、表、圖片或其他對象。在筆錄軟件中，為了能夠正確讀取法律文書的Word文件，首先要構建一個Application對象，以便于能夠正常訪問Document對象，利用Document對象來打開法律文書模版，用Range和Shape對象進行相應的添加刪除操作。

2 系統(tǒng)設計

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

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

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

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

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

3.1 數(shù)據(jù)庫連接。由于是同Access數(shù)據(jù)庫進行交互操作，可以通過ADO（ActiveX Data Object）方式連接，ADO是一組經過優(yōu)化的訪問數(shù)據(jù)庫的專用對象集，利用ADO方式比用其它的連接方式更為簡單、專業(yè)和方便，而且功能強大，為了避免由于應用程序工作路徑的切換，而導致在連接數(shù)據(jù)庫文件時失敗，因此在編寫過程中，應當注意設定好含有應用程序路徑的全局變量。部分實現(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 法律文書接口的設定。為了規(guī)范各種法律文書數(shù)據(jù)處理接口名稱，我們定義了ProcLayer接口，利用接口方式，可以有效減少兼容性問題，可以在不損害現(xiàn)有實現(xiàn)的情況下，對接口進行增強實現(xiàn)處理。部分實現(xiàn)代碼如下：

……

Public Interface ProcLayer

Sub DataInit（） ‘數(shù)據(jù)初使化

Sub DocInit（） ‘法律文書初使化

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

Sub DataUpdate（） ‘數(shù)據(jù)更新操作

Sub DataSave（） ‘數(shù)據(jù)存儲

Sub DataReader（） ‘數(shù)據(jù)讀取

Sub DataConnection（） ‘數(shù)據(jù)庫連接

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

End Interface

……

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

……

二是對筆錄對話樣本的處理，在筆錄對話樣本中為了能夠正確讀取問與答的記錄，便于在錄入對話過程中可以提供對話樣本進行填充，可以利用記錄中每行開始的“問：”、“答：”關鍵字來進行區(qū)別。部分實現(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（\"問：\"） = 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 結束語

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

參考文獻：

[1]申巍.關于訊問筆錄中合法性的幾點思考[J].山西廣播電視大學學報，2005，2.

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

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