OBPS開發管理平台-使用模板開發匯入功能

標籤：列表介面-匯入功能

OBPS開發管理平台-使用模板開發匯入功能          

          和之前講的一樣，我們講過代碼就知道了是怎麼產生的，所以這個匯入功能也是一樣的。

         第一步：

             我們從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

注意看到這個url的路徑   ：Dim ls_Url : ls_Url = "ImportExportHandle.aspx?UID=" & as_Guid

          用的是i介面對吧

          然後i介面發布在哪裡呢？

         就是ImportExportHandle.aspx 檔案裡，就是發步在Application 裡，內容如下：

<%@ Page Language="vb" AutoEventWireup="false"

Inherits="CMFly.Web.Base.TApp_ImportExportHandleServer" %>

意思就是所要用dll檔案還是在bin裡面運行，由CMFly.Web.Base.TApp_ImportExportHandleServer

  由這個解決方案來寫的

  問題大致就是只有一個過程了

        

  

本文出自 “木易陽” 部落格，請務必保留此出處http://478210830.blog.51cto.com/8821092/1699943

OBPS開發管理平台-使用模板開發匯入功能