C#实现公安通信信息查询系统摘要：为了提高公安系统对通话业务相关信息查询的准确性、快速性，减轻技术人员劳动强度，强化查询信息的安全性，简化查询流程，在总结分析目前信息查询现状后，运用C#语言、结合Oracle数据库技术，开发了公安通信信息查询系统，实现了自动查询、保存、发送查询信息。关键词：C#;Oracle；自动：TP311.52文献标识码：A:167277800（2011）012?0079?02作者简介：许江韬（1979-），男，山东烟台人，硕士，中国联合网络通信有限公司烟台市分公司工程师，研宄方向为软件开发与利用；冯慧霞（1976-），女，山西原平人，硕士，中国联合网络通信有限公司烟台市分公司职员，研究方向为软件开发与利用。0引言现如今在公安系统侦破的一些案件中，犯罪嫌疑人的通话及通话工具情况是一个重点调查方向。以往都是相关技术人员在收到所要查询的信息后，登录到数据库手工进行查询，再手工将查询结果保存后通过电子邮件发送给公安系统相关单位，并且每天的查询量很大，因此为了快速、准确、自动地完成这项工作，减少办案时间，开发了公安信息查询系统。本系统运用C#语言对Oracle数据库的信息进行快速、准确、高效的查询。1公安通信信息查询系统的设计思路考虑到此系统的保密性，设定只能通过内网进行登录，并且只能是指定IP、特定技术人员，通过密码进行访问。登录到该系统后，技术人员只需简单输入查询号码，点选相关查询信息、收件人信息后，点击一■键完成即可。系统会将查询信息自动以Excel格式保存下来，并自动以邮件附件的形式发出。在采用编程语言方面，考虑到C#语言的通用性、易用性及编码速度的快速性，决定采用该语言进行程序开发。2公安通信信息查询系统的实现2.1系统的保密性2.1.1在网络方面的保密性在网络设计上要充分考虑此系统的保密性，通过防火墙对内网进行仔细设置，并实现内外网的物理隔禹。2.1.2软件方面的保密性首先通过C#语言取得登录机器的IP地址与指定IP进行比对，如果不符，则不允许登录。取本机IP地址的代码如下：IPHostEntryIpEntry=Dns.GetHostEntry(Dns.GetHostName());stringIpYesOrNo=lpEntry.AddressList[0].ToString();其次需要输入用户名、密码才能登录系统，并将此信息记录到Oracle数据库日志表中。2.2查询实现2.2.1建立存储过程，并通过C#来调用这个存储过在Oracle查询数据库中建立多个可以访问其他信息数据库的db激nk，然后再建立一个传入参数型存储过程，该存储过程主要将查询条件按照连接串格式生成SQL语句，通过db激nk访问不同数据库，查找到相关信息，最后将这些信息汇总到查询信息结果表里。最后将查询条件信息用户在界面上选定相关信息后，通过C#就可以调用这个存储过程了，存储过程名是PR_JF_HDCX_GJoC#界面调用存储过程语句如下：try{cm—hdcx—pmandText="PR」F_HDCX_GJn;cm激dcx一pmandType=CommandType.StoredProcedure;cm_hdcx_p.Parameters.Add(nnbr",OracleType.VarChar,20).Value=number.Trimj);cm_hdcx_p.Parameters.Add(Nstart_month",OracleType.Float).Value=vi_s;cm_hdcx_p.Parameters.Add(,,end_monthM,OracleType.Float).Value=vi_e;cm激dcx一p.Parameters.Add("flagn,OracleType.Float).Value=vi_flag;C一hdcx.Open();cm_hdcx_p.ExecuteNonQuery();C_hdcx.Close();}catch(System.Exceptionex){finally{}2.2.2自动保存、发送考虑到自动保存、自动发送在程序中多处用到，因此在C#中生成两个方法，一个是自动保存，一个是自动发送。在查询完相关信息后，通过自动保存将所需信息保存下来，然后再调用自动发送，将所需信息按照先前设定的邮箱地址发送出去。C#自动保存方法如下：publicboolXForm」DT(stringCap_s,System.Data.DataTableMyExcel—Data,stringMyExcel—N,stringMyExcel_Un,stringMyExcel一F){if(this.DaoChuExcelj)){returndd;}}publicboolDaoChuExcel()if(MyExcel_D.Columns.Count>0){RangeMyExcel_R=MyExcel—S.get一Range(MyExcel—S.Cells[l,1],MyExcel一S.Cells[2,MyExceLD.Columns.Count]);//这里设置表头标题for(inta=0;amessage.Attachments.Add(item);}if(System.10.File.Exists(textBox4.Te...