基于net平台的档案管理系统

基于net平台的档案管理系统内容摘要：

n value=server=speed。 user id=sa。 password=123。 Database=SubmitReport///数据库连接字符串 add key=Full value=Provider=SQLOLEDB。 Server=speed。 UID=sa。 PWD=123。 Database=SubmitReport/ add key=StartReportNo value=31 / add key=StartReportYear value=2020 / /appSettings 由于每一个 文件都会将其配置设置应用至本身所在目录及其之下的所有子目录，所以将此 文件放在系统的根目录下。 在使用 时只用指定关键字 Full 和DBConnection 就能访问数据库。 在这个文件中定义了几个系统中常用的函数，函数代码如下： (1) Public Sub MsgBox(ByVal oPage As , ByVal strInfo As String) Dim strScript As String = strScript amp。 = Script Language=39。 Javascript39。 strScript amp。 = alert( amp。 Replace(Replace(strInfo, \, \\), vbCrLf, \r\n) amp。 )。 //显示提示信息 strScript amp。 = /Script (strScript) End Sub 这个函数主要作用是替换提示信息中特殊字符。 提供一个通用的提示函数。 (2) Public Function GetLoginName(ByVal strDomainAccount As String) As String Dim strLoginName As String = strDomainAccount = (/, \) ’替换其中的 ”/” If (\) 1 Then strDomainAccount = ((\) + 1) End If strLoginName = strDomainAccount If strLoginName = Then strLoginName = yongh Return strLoginName End Function 这个函数是将用户登陆的用户名中的特殊字符替换，避免由于用户的错误输入而操作错误。 (3) Public Function EncryptDes(ByVal SourceStr As String) As String Try Dim des As DESCryptoServiceProvider = New DESCryptoServiceProvider() Dim inputByteArray As Byte() inputByteArray = (SourceStr) = (strKey) = (strKey) 中 南 民 族 大 学 计 算 机 科 学 学 院 2020 级 毕 业 论 文 9 Dim ms As MemoryStream = New MemoryStream() Dim cs As CryptoStream = New CryptoStream(ms, (), ) Dim sw As StreamWriter = New StreamWriter(cs) (SourceStr) () () () Return ((), 0, ) Catch Ex As Exception Return End Try End Function 由于员工档案的机密性，故保存的各项档案信息都要进行加密，所以使用 EncryptDes 函数加密。 该函数是使用标准 DES对称加密算法。 (4) Public Function DecryptDes(ByVal SourceStr As String) As String Try Dim des As DESCryptoServiceProvider = New DESCryptoServiceProvider() = (strKey) = (strKey) Dim buffer As Byte() = (SourceStr) Dim ms As MemoryStream = New MemoryStream(buffer) Dim cs As CryptoStream = New CryptoStream(ms, (), ) Dim sr As StreamReader = New StreamReader(cs) Return () Catch Ex As Exception Return End Try End Function 在查询人员资料的时候，由于数据库中的数据经过 EncryptDes 函数加密故要使用相应的解密函数解密，函数 DecryptDes使用标准 DES对称解密算法。 (5)Public Function GetDynamicInfo(ByVal strURLTemp As String, ByVal strTableID As String, ByVal strLeader As String, ByVal strEdition As String) As String Try Dim srTargetFile As New StreamReader(strURLTemp, (GB2312)) (0, ) Dim strHTML As String = () () () srTargetFile = Nothing 39。 39。 替换内容 Dim oSqlHelper As New () Dim dtRetVal As DataTable = (DBConnection, , sp_getFieldByTableID amp。 strTableID) If 0 Then Dim i As Integer For i = 0 To 1 Dim strFieldName As String Dim strFiledID As String Dim strType As String Dim strTableNameEN As String Dim strDictionaryName As String Dim strIsFill As String Dim strIsFillHtml As String = strFieldName = (i)(ColName) strFiledID = (i)(ID) 中 南 民 族 大 学 计 算 机 科 学 学 院 2020 级 毕 业 论 文 10 strType = (i)(Type) strTableNameEN = (i)(TableNameEn) strIsFill = (i)(IsFill) If CType(strIsFill, Boolean) Then strIsFillHtml = FONT color=ff0000*/FONT End If 39。 39。 获得到第一个字段的值 Dim strFiledValue As String = Dim dsRetVal As New DataSet() Dim strSP As String = Exec sp_getFieldFieldValue strSP amp。 = 39。 amp。 strEdition strSP amp。 = 39。 ,39。 amp。 strFiledID strSP amp。 = 39。 dsRetVal = CallSP((Full), strSP) If 0 Then If (0). 0 Then strFiledValue = (0).Rows(0)(FiledValue) End If End If 39。 39。 39。 加密数据 strFiledValue = DecryptDes(strFiledValue) 39。 39。 如果是 下拉列表 Dim dscboRetVal As New DataSet() 39。 39。 根据字段类型不同生成不同的网页 Select Case strType Case 字符 , 数据 39。 39。 替换字符和数据类型，显示一个文本框 strHTML = (! amp。 strFieldName amp。 , INPUT type=text name= amp。 strTableNameEN amp。 strFiledID amp。 value = amp。 strFiledValue amp。 amp。 strIsFillHtml) Case 文本 39。 39。 替换文本类型，显示一个备注框 strHTML = (! amp。 strFieldName amp。 , TEXTAREA style=WIDTH: 100% Rows = 6 name= amp。 strTableNameEN amp。 strFiledID amp。 amp。 strFiledValue amp。 /TEXTAREA amp。 strIsFillHtml) Case 日期 39。 39。 替换日期类型，显示日期选择器 Dim strReplace As String strReplace = INPUT type=text name= amp。 strTableNameEN amp。 strFiledID amp。 value = amp。 strFiledValue amp。 strReplace += IMG style=CURSOR: hand onclick=javascript:selectDate((39。 amp。 strTableNameEN amp。 strFiledID amp。 39。 ),this)。 src=../Image/ align=absMiddle width=16 height=16 strHTML = (! amp。 strFieldName amp。 , strReplace amp。 strIsFillHtml) Case 下拉列表 39。 39。 替换列表类型，显示一个下拉列表 strDictionaryName = (i)(DictionaryName) strSP = Exec sp_getDataValeByField strSP amp。 = 39。 amp。 strDictionaryName strSP amp。 = 39。 39。 39。 获取下拉列表的数据 dscboRetVal = CallSP((Full), strSP) Dim strCboHtml As String Dim k As Integer strCboHtml = SELECT name= amp。 strTableNameEN amp。 strFiledID amp。 For k = 0 To (0). 1 strCboHtml = strCboHtml + OPTION Dim strcbovalue As String = (0).Rows(k)(FiledVales) If strcbovalue = strFiledValue Then strCboHtml = strCboHtml + selected End If 中 南 民 族 大 学 计 算 机 科 学 学 院 2020 级 毕 业 论 文 11 strCboHtml = strCboHtml + value= + strcbovalue + + strcbovalue + /OPTION Next strCboHtml = strCboHtml + /SELECT trHTML = (! amp。 strFieldName amp。 , strCboHtml amp。 strIsFillHtml) End Select Next End If Return strHTML Catch Ex As Exception Return 请检查配置页面及登记表信息。 End Try End Function 由于本系统的档案查询界面是由用户上传的 HTML 模板生成的，上传的模板中主要界面是表格，将要显示的内容设置在每个格中，故要在每个格中加个标识记号，标识记号的格式为：“ !字段名 ”。 系统就根据这些标记查询数据库中相应的字段，然后根据用户设置的该显示字段的类型通过该函数替换相应的 html代码。 并显示出相应的字段值。 用户定义的类型有：字符数据、文本、日期、下拉列表。 字符和数据的标识在程序中用文本框替换，文本则用备注框的代码替换，日期型的字段是在文本框后面添加一个按扭，点击该按钮后弹出一个日期选择器，选择日期后选择的日期就会显示在文本框中，下拉列表型的。