摘要：针对公安边防部队现有笔录软件存在软件不统一、操作方法各不相同、软件应用和普及的难度大、各地区对笔录格式要求不同等问题，提出了使用WORD制作的笔录模版来实现电子笔录的制作，操作者无需花大量时间学习软件的使用，也可以有效降低编程开发和格式排版的难度，这有利于该软件的推广。
关键词：公安信息化；公安笔录软件；公安信息管理
中图分类号：TP311.52 文献标识码：A 文章编号：1007-9599 （2012） 17-0000-02
随着公安信息化建设的不断深入，为了提高公安边防部队办案过程中的工作效率，笔录制作软件也逐渐变得十分普及。笔录软件的使用，使公安边防干警在处理案件时能够快速、方便、准确的制作法律文书，为干警工作节约了大量宝贵时间。
由于公安边防部队中并没有统一的公安边防部队笔录软件，其操作的方法也各不相同，这增加了软件应用和普及的难度。许多笔录软件是利用计算机图形绘制的方式，通过编程绘制笔录表格模版，然后通过在指定位置输出录入数据来实现笔录的制作。这种方法，首先不利于调整，由于录入字符串长度不一，难免会出现因字符串长度过长而出现字符跨行跨列等排版问题；其次，由于各地区对笔录格式有不同的要求，当为了适应地域性差别时，就不得不针对各地区的格式要求编程绘制进行修改，这样将花费大量的时间。
为了解决这些问题，本文提出了使用WORD制作的笔录模版来实现电子笔录的制作，首先将会大大减少在模版调整上所花费的时间。由于许多人用WORD来处理办公文档，因此在对模版进行细节方面的调整时，不会因为要重新学习，而花费大量时间。其次使用Word作为法律文书模版，可以有效避免在排版时所出现的各式各样的问题，有效降低了编程开发难度，节约了大量的宝贵时间。
1 系统原理分析
系统原理分析主要包括Word法律文书的实现原理和word编程原理两个方面。
1.1 Word法律文书的实现原理。利用数据流程图（DFD）可以分析出构建笔录软件的逻辑模型。在笔录数据管理模块中，通过对数据的添加、修改、删除操作来实现笔录数据的录入，通过将相关数据流转至数据处理转换模块，对录入的数据进行处理、完成笔录制作，并将其保存至数据库中。
1.2 WORD编程原理。利用VB操作实现Word功能时，无论选择什么样的方法，最终都将与Word对象模型进行交互，才能完成相应的功能。
其中Application对象用于访问应用程序级的设置和选项，即Word应用程序对象，同时也是整个对象模型的根对象，所有子对象均由它派生而来。Document对象表示一个Word文档，Range对象表示文档中一定范围的文本，而Shape对象则表示嵌入在Word文档中的图、表、图片或其他对象。在笔录软件中，为了能够正确读取法律文书的Word文件，首先要构建一个Application对象，以便于能够正常访问Document对象，利用Document对象来打开法律文书模版，用Range和Shape对象进行相应的添加删除操作。
2 系统设计
参照系统分析中数据流程图所构制的模型，设计系统中的重要模块，主要包括数据库设计和系统功能模块设计。
2.1 数据库设计。数据库设计在软件设计中有极其重要的作用，根据笔录软件所提供的逻辑模型，遵循规范化和减少数据冗余的原则，利用Access构建笔录软件的数据库系统。
2.2 系统功能模块设计。根据所处理的事务的需要将系统功能划分为数据库存取模块，法律文书模版存取模块、笔录输入模块，信息处理模块，笔录样版存取模块。
3 系统实现
系统实现涉及到方方面面的知识，这里主要从数据库连接、法律文书接口的设定和数据处理三方面加以阐述。
3.1 数据库连接。由于是同Access数据库进行交互操作，可以通过ADO（ActiveX Data Object）方式连接，ADO是一组经过优化的访问数据库的专用对象集，利用ADO方式比用其它的连接方式更为简单、专业和方便，而且功能强大，为了避免由于应用程序工作路径的切换，而导致在连接数据库文件时失败，因此在编写过程中，应当注意设定好含有应用程序路径的全局变量。部分实现代码如下：
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 法律文书接口的设定。为了规范各种法律文书数据处理接口名称，我们定义了ProcLayer接口，利用接口方式，可以有效减少兼容性问题，可以在不损害现有实现的情况下，对接口进行增强实现处理。部分实现代码如下：
……
Public Interface ProcLayer
Sub DataInit（） ‘数据初使化
Sub DocInit（） ‘法律文书初使化
Sub DictInit（） ‘字典数据初使化
Sub DataUpdate（） ‘数据更新操作
Sub DataSave（） ‘数据存储
Sub DataReader（） ‘数据读取
Sub DataConnection（） ‘数据库连接
Sub DataDisConnection（） ‘关闭数据库连接
End Interface
……
3.3 数据的处理。在该软件中，数据处理是最重要的一部份，关系到是否能够正常生成Word格式的笔录或法律文书，它主要由两部份组成：一是法律文书的模版处理，从Word对象模型中可以了解到对Word中的文本进行操作，因其对象的不同，其操作的方法也不尽相同，如单元格、图形、正文文本等，均要为其设计相关的替换方法。部分实现代码如下：
……
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
……
二是对笔录对话样本的处理，在笔录对话样本中为了能够正确读取问与答的记录，便于在录入对话过程中可以提供对话样本进行填充，可以利用记录中每行开始的“问：”、“答：”关键字来进行区别。部分实现代码如下：
……
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 结束语
根据现有笔录软件存在的缺陷，并结合工作的实际需要，提出了一种利用WORD制作的笔录模版来实现电子笔录的制作的笔录软件系统。利用该笔录软件，公安边防干警可以快速完成笔录及法律文书在制作方面的一系列繁锁工作；同时该笔录软件所具有的灵活性改变了现有的笔录软件只允许使用固定模版的情况，干警可以根据自身需求，对模版样式进行修改调整，从而更加适应自身的工作需求，提高了工作效率。
参考文献：
[1]申巍.关于讯问笔录中合法性的几点思考[J].山西广播电视大学学报，2005，2.
[2]朱丰磊.基于Web环境下的公安笔录系统数据安全需求分析[J].软件导刊，2008，7（12）：170-172.
[3]尹晓磊，于明，支秀玲.公安派出所综合信息管理系统设计与实现[J].信息技术与信息化，2010，2：87-91.