OBPS开发管理平台-使用模板开发导入功能

时间：2015-10-03 06:17:32 阅读：245 评论：0 收藏：0 [点我收藏+]

和之前讲的一样，我们讲过代码就知道了是怎么生成的，所以这个导入功能也是一样的。

第一步：

我们从vbscript 开始调用

           ‘说明：导出模板
Private Sub ExportTemp()
    Call ExportExcelTemplate("IG0050", "防腐管检查信息表", frmHtmlData.UID.value)
End Sub
‘说明：导入数据
Private Sub ImportData3()
    dim ls_para
    ls_para= document.all.FormPara_ParentID.value
    Call ImportExcelDataToDb("IG0050", "钢板信息导入模板",frmHtmlData.UID.value,3,4,"<Handle Type=‘0‘ Code=‘ParentID‘ Value=‘" & ls_para &"‘ />")
End Sub
‘校验
Private Sub CheckValidExcelData(ByVal as_File,ByVal al_StartRow,ByVal al_EndRow)
    dim ls_xml,ls_sql
ls_xml = "<Root Handle=‘CheckExcel‘ Code=‘IG0050‘ CodeIndex=‘B‘ ExcelFile=‘" & as_File &"‘ StartRow=‘" & al_StartRow &"‘ EndRow=‘" & al_EndRow &"‘></Root>"
ls_sql = "select PipeNo from CJ103"
Call ExcelDataCheck(frmHtmlData.UID.value,ls_xml,ls_sql,"G0050","PipeNo","管道编号","CJ001","PipeNo","钢管信息表")
End Sub

          注意看这个ImportExcelDataToDb文件，他放在服务器

这个位置： \Include\ImportExportData.vbs; 要在界面里引用这个路径。

然后就是找到这个文件我们可以看一下，主要的片段代码

           Private Sub ImportExcelDataToDbAll(ByVal as_ModelCode, ByVal as_Name, ByVal as_Guid, ByVal al_StartRow, ByVal al_EndRow, ByVal as_Xml, ByVal ab_Select)
   Dim ls_File : ls_File = mo_PublicProc.FileUpload2(1, "xls|xlsx", 10, False)
   If ls_File = "" Then Exit Sub
   ls_File = Left(ls_File, InStr(1, ls_File, "[") - 1)

   Dim ls_Text : ls_Text = ""
   If al_StartRow = -1 And al_EndRow = -1 Then
       ls_Text = mo_PublicProc.ShowWindow("SelectImportExcelRow.aspx?UID=" & as_Guid, "", "300px", "180px")
       If ls_Text = "" Then Exit Sub
   Else
       If al_StartRow > 0 And al_EndRow > 0 Then
            If ab_Select Then
                ls_Text = mo_PublicProc.ShowWindow("SelectImportExcelRow.aspx?StartRow=" & CStr(al_StartRow) & "&EndRow="& CStr(al_EndRow) & "&UID=" & as_Guid, "", "300px", "180px")
                If ls_Text = "" Then Exit Sub
            Else
                ls_Text = CStr(al_StartRow) & "," & CStr(al_EndRow)
           End If
       End If
   End If
   Call IsValidExcelData(ls_File)
   If mb_RunScript = False Then Exit Sub

   Dim ls_Url : ls_Url = "ImportExportHandle.aspx?UID=" & as_Guid
   Dim ls_Xml : ls_Xml = "<Root Handle=""ImportData"" DeleteExcelProcess=""" & CStr(mi_DeleteExcelProcess) & """ Code=""" & as_ModelCode & """ ExcelFile=""" & ls_File & """ Row=""" & ls_Text & """>" & as_Xml & "</Root>"
   ls_Xml = mo_PublicProc.Handle(ls_Url, ls_Xml, "导入Excel数据文件", "导入", True)
   If ls_Xml = "" Then Exit Sub
   Call RefreshWindow
End Sub