Jak dynamicky naèíst data ve formuláøi aplikace InfoPath

Tento èlánek popisuje tøi zpùsoby dynamicky naèíst data formuláøe Microsoft Office InfoPath. Použít událost OnLoad, automatizovat InfoPath ExternalApplication objekt nebo vytvoøit stránku ASP. Ukázky kódu jsou k dispozici.

Tento èlánek popisuje, jak dynamicky naèíst data ve formuláøi Office InfoPath.

Formuláøe aplikace InfoPath je soubor XML. Soubor obsahuje data z formuláøe a XML zpracování pokynù sdìlit Prùzkumníka Windows nebo do které patøí aplikace XML data tiskárny v Internet Explorer.

Mùžete dynamicky naèíst data do aplikace InfoPath pomocí jedné z následujících tøí metod:

• Použít událost OnLoad.
  
  Událost OnLoad mùžete volat stránky ASP nebo jiného externího zdroje dat naèíst data a zkopírujte jej do formuláøe.
• Automatizace objektu InfoPath ExternalApplication.
  
  Tato metoda vytvoøí nový formuláø, který je na základì dat z externího zdroje.
  Poznámka:Inicializovat a skriptovat ovládací prvky ActiveX nejsou oznaèeny jako bezpeèné nastavení v aplikaci Internet Explorer musí být nastavena na výzvu nebo Povolit pro tuto metodu pracovat.
  Platné InfoPath XML musí být také data z externího zdroje.
• Vytvoøte stránku ASP.
  
  Stránka ASP vrací XML data ve správném formátu pro InfoPath otevøít jako soubor formuláøe. XML data obsahuje odkaz na šablonu formuláøe InfoPath by mìla být data zobrazena. Aplikace InfoPath lze zobrazit data bez potíží.

Vytvoøit nový virtuální adresáø

1. Spustit Internetová informaèní služba správce.
2. Rozbalte adresáø webové servery ve stromovém zobrazení.
3. Klepnìte pravým tlaèítkem myši na webový server, kde chcete vytvoøit nový virtuální adresáø, pøejdìte na pøíkaz Nový a pak klepnìte na pøíkaz Virtuální adresáø.
4. Postupujte podle pokynù Virtual Directory vytvoøení prùvodce vytvoøit nový virtuální adresáø.
   
   Poznámka: Je nutné udìlit oprávnìní k zápisu do virtuálního adresáøe.

Návrh formuláøe aplikace InfoPath

Aplikace InfoPath 2007

1. Spustit InfoPath. V levém podoknì klepnìte na tlaèítko Navrhnout šablonu formuláøe.
2. Ve skupinovém rámeèku Navrhnout nový klepnìte na možnost Šablona formuláøe, klepnutím vyberte možnost prázdný a klepnìte na tlaèítko OK.
3. V rámeèku Navrhnout úkoly klepnìte na prvky.
4. Klepnìte dvakrát na tlaèítko Textové pole pøidat dva textové pole ovládacích prvkù do formuláøe.
5. Formuláø uložit.
6. V nabídce soubor klepnìte na tlaèítko publikovat.
7. V Prùvodci publikováním klepnìte na tlaèítko Další. Klepnìte na tlaèítko umístìní v síti a potom klepnìte na tlaèítko Další.
8. Cesta a název šablony formuláøe zadejte URL virtuálního adresáøe, který jste vytvoøili.
9. Do pole název šablony formuláøe zadejte twofield.xsn.
   
   Poznámka: Zkontrolujte adresu podobná následující:
   http:// myServer / myVirtualDirectory /twofield.xsn
10. Klepnìte na tlaèítko Další, klepnìte na tlaèítko publikovat a klepnìte na tlaèítko Zavøít.
11. Ukonèete InfoPath.

InfoPath 2003

1. Spustit InfoPath. V levém podoknì klepnìte na tlaèítko Navrhnout formuláø.
2. Ve skupinovém rámeèku Navrhnout formuláø klepnìte na tlaèítko Nový prázdný formuláø.
3. V rámeèku Navrhnout úkoly klepnìte na prvky.
4. Klepnìte dvakrát na tlaèítko Textové pole pøidat dva textové pole ovládacích prvkù do formuláøe.
5. V nabídce soubor klepnìte na tlaèítko publikovat.
6. V Prùvodci publikováním klepnìte na tlaèítko Další, klepnìte na server pro webovou a potom klepnìte na tlaèítko Další.
7. V oknì web URL a název souboru zadejte URL virtuálního adresáøe, který jste vytvoøili.
8. Do pole název formuláøe zadejte twofield.xsn.
   
   Poznámka: Zkontrolujte adresu podobná následující:
   http:// myServer / myVirtualDirectory /twofield.xsn
9. Klepnìte na tlaèítko Další, klepnìte na tlaèítko Dokonèit a potom klepnìte na tlaèítko Zavøít.
10. Ukonèete InfoPath.

Vytvoøit stránku default.ASP

1. Klepnìte na tlaèítko Start, klepnìte na pøíkaz Spustit, zadejte Poznámkový blok a potom klepnìte na tlaèítko OK.
2. Vložte následující kód jazyka Notepad.

   <%@ Language=VBScript %>
   
   <%
   
     dim serverName, hrefPath, fileNamePos, serverPath
   
     serverName = Request.ServerVariables("SERVER_NAME")
   
     hrefPath = Request.ServerVariables("PATH_INFO")
   
     fileNamePos = InStr( 1, hrefPath, "/Default.asp", 1 )
   
     hrefPath = Left(hrefPath, fileNamePos )
   
     serverPath = "http://" + serverName + hrefPath
   
   %>
   
   <HTML>
   
   <head>
   
   <SCRIPT LANGUAGE=VBScript>
   
   Sub ButtonClick()
   
    Dim oInfoPathApp
   
    set oInfoPathApp = CreateObject("InfoPath.ExternalApplication")
   
    oInfoPathApp.New "<%=serverPath%>GetData.asp?dataRequest=2"
   
    set oInfoPathApp = Nothing
   
    window.close
   
   End Sub
   
   </SCRIPT>
   
   </HEAD>
   
   <BODY onload="ButtonClick">
   
   </BODY>
   
   </HTML>

3. Uložte soubor jako default.ASP. Uložte soubor na virtuální adresáø, který jste vytvoøili v èásti "Vytvoøení nového virtuálního adresáøe".

Vytvoøte stránku ASP dynamicky generovat formuláø

1. Vyhledejte a poklepejte na Twofield.xsn formuláø, který jste publikovali.
   Poznámka: Nový prázdný formuláø je otevøen pro vyplnìní.
2. Klepnìte na soubor a klepnìte na pøíkaz Uložit jako.
3. Uložte soubor jako Form1.xml.
4. Klepnìte na tlaèítko Start, klepnìte na pøíkaz Spustit, zadejte Poznámkový blok a potom klepnìte na tlaèítko OK.
5. Paste the following code in Notepad.

   <%@ Language=VBScript %>
   <%
     ' Define the XML namespace for the form.
     Dim strNamespace
     strNamespace = "http://schemas.microsoft.com/office/infopath/2003/myXSD/2003-04-21T15:25:26"
    
     'Calculate the path of this server directory.
     dim serverName, hrefPath, fileNamePos, serverPath
     serverName = Request.ServerVariables("SERVER_NAME")
     hrefPath = Request.ServerVariables("PATH_INFO")
     fileNamePos = InStr( 1, hrefPath, "/GetData.asp", 1 )
     hrefPath = Left(hrefPath, fileNamePos )
     serverPath = "http://" + serverName + hrefPath
    
     ' Set our return content type.
     Response.ContentType = "text/xml"
   
     'Create an XML document to return.
     Dim oXML
     Set oXML = Server.CreateObject("MSXML.DOMDocument")
    
     'Create the XML header that all XML documents must have.
     dim myPI1
     set myPI1 = oXML.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8""")
     oXML.insertBefore myPI1, oXML.childNodes.item(0)
    
     'Create the mso-infopathSolution processing instruction that binds the XML from this page to the 
     'TwoField.xsn InfoPath form template.
     dim myPI2
     set myPI2 = oXML.createProcessingInstruction("mso-infoPathSolution", "solutionVersion=""1.0.0.1"" productVersion=""11.0.5531"" PIVersion=""1.0.0.0"" href=""" + serverPath + "TwoField.xsn""")
     oXML.insertBefore myPI2, oXML.childNodes.item(1)
    
     'Create the mso-application processing instruction that marks the XML from this page as an InfoPath form.
     dim myPI3
     set myPI3 = oXML.createProcessingInstruction("mso-application", "progid=""InfoPath.Document""")
     oXML.insertBefore myPI3, oXML.childNodes.item(2)
    
     'Generate the XML for the form.
     dim myFields
     set myFields = oXML.createNode( 1, "myFields", strNamespace )
     oXML.appendChild myFields
    
     dim field1
     set field1 = oXML.createNode( 1, "field1", strNamespace )
    
     dim field2
     set field2 = oXML.createNode( 1, "field2", strNamespace )
    
     dim requestedData
     requestedData = Request("dataRequest")
     Select Case requestedData
        Case "1"
           field1.text = "test field 1"
           field2.text = "test field 2"
        Case "2"
           field1.text = "test field 3"
           field2.text = "test field 4"
        Case "3"
           field1.text = "test field 5"
           field2.text = "test field 6"
        Case Else
           field1.text = "test field 7"
           field2.text = "test field 8"
     end Select
    
     myFields.appendChild field1
     myFields.appendChild field2
    
     'Return the XML to the client.
     Response.Write oXML.XML
   %>
   

6. V nabídce soubor klepnìte na tlaèítko Uložit jako, zadejte do pole název souboruGetData.asp a klepnìte na tlaèítko Uložit.
7. Spustit druhou instanci programu Poznámkový blok.
8. V nabídce soubor klepnìte na tlaèítko Otevøít, klepnìte na tlaèítko Form1.xml a potom klepnìte na tlaèítko Otevøít.
9. Vyhledejte xmlns: Moje oboru názvù deklarace Form1.xml a potom zkopírujte jeho hodnotu.
   
   Poznámka: Hodnota podobná následující:
   http://schemas.microsoft.com/Office/InfoPath/2003/myXSD/2003-04-21T15:25:26
10. V GetData.asp soubor vyhledejte následující øádek:
    strNamespace = "http://schemas.microsoft.com/office/infopath/2003/myXSD/2003-04-21T15:25:26"
11. Nahraïte hodnotu promìnné strNamespace hodnotu zkopírovali v kroku 9.
12. Klepnìte na tlaèítko Uložit a ukonèete Poznámkový blok.
13. Zkopírujte soubor GetData.asp stejný virtuální adresáø, kde je umístìn Twofield.xsn šablony formuláøe.

Pøidat kód formuláø automaticky naèíst data ze stránky ASP

1. Spustit aplikaci InfoPath.
2. V aplikaci InfoPath 2007 klepnìte Navrhnout formuláø šablony v levém podoknì. V aplikaci InfoPath 2003 v levém podoknì klepnìte na tlaèítko Navrhnout formuláø.
3. V aplikaci InfoPath 2007 klepnìte v èásti Otevøít šablonu formuláøeV tomto poèítaèi. V aplikaci InfoPath 2003 klepnìte v èásti Otevøít formuláø v návrhovém režimuV tomto poèítaèi v podokno úloh Navrhnout formuláø.
4. Zadejte URL šablonu formuláøe jste publikovali.
   
   Poznámka: ADRESU podobná následující:
   http://myServer/myVirtualDirectory/twofield.xsn
5. V nabídce Nástroje klepnìte na položku programování a potom klepnìte na pøíkaz Událost OnLoad.
6. Výchozí kód události OnLoad nahraïte následující kód. Funkce

   function XDocument::OnLoad(eventObj)
   {
      //Only load data if the fields are empty.
      if (XDocument.DOM.selectSingleNode("/my:myFields/my:field1").text == "" )
      {
         //Work out the location of the data file based on the current install directory.
       searchExpression = new RegExp( "TwoField.xsn", "ig" );
       searchResults = XDocument.Solution.URI.match( searchExpression );
       if (searchResults.length == 0)
        return;
        
       //Clear the "TwoField.xsn" part of the string.
       var targetDirectory = XDocument.Solution.URI.slice(0, searchResults.index );
    
         //Load the example data into and XML document.
         var objExternalData = new ActiveXObject("MSXML2.DomDocument.5.0");
         objExternalData.async = false;
         objExternalData.validateOnParse = false;
         objExternalData.load( targetDirectory + "getData.asp?dataRequest=3" );
    
         //Set the SelectionNamespaces property so that we can search the example data.
         var strSelectionNamespaces = XDocument.DOM.getProperty("SelectionNamespaces");
         objExternalData.setProperty("SelectionNamespaces", strSelectionNamespaces );
    
         //Find the root node in the example data and import it into the InfoPath document.
         var objExternalXML = objExternalData.selectSingleNode("my:myFields");
         var objReplacementXML = XDocument.DOM.importNode( objExternalXML, true );
         
         //Find the original data in the form and replace it with the example data.
         var objOriginalXML = XDocument.DOM.selectSingleNode("my:myFields"); 
       XDocument.DOM.replaceChild( objReplacementXML, objOriginalXML );
    }
   }
   

7. V nabídce soubor klepnìte na tlaèítko Uložit a zavøít formuláø.

Testovat formuláø

Naètení dat pomocí události OnLoad

Událost OnLoad TwoField.xsn formuláøe naète data z stránka GetData.asp, pokud nejsou žádná data ve formuláøi. Naètení dat, postupujte takto:

1. Klepnìte na tlaèítko Start, klepnìte na pøíkaz Spustit, zadejte cestu ve formuláøi a klepnìte na tlaèítko OK. Cestu zadejte podobná následující:
   http:// myServer / IPDynamicData /TwoField.xsn
2. Pokud budete vyzváni, klepnìte na tlaèítko Otevøít.

Všimnìte si, že spustí aplikace InfoPath a TwoField.xsn formuláø otevøe. Obsahuje pole 5 "test" pole1 a pole2 obsahuje "pole 6 test". Jsou to hodnoty GetData.asp vrátí pøi jeho dataRequest parametr nastaven na hodnotu "3".

Naèíst výchozí formuláø pomocí ExternalApplication.New

Vytvoøí stránku default.ASP skriptu na stranì klienta k automatizaci ExternalApplication objektu, který chcete spustit aplikaci InfoPath a potom vytvoøit nový formuláø. Nový formuláø je založen na data XML, která je vrácena GetData.asp. Vytvoøit nový formuláø, klepnìte na tlaèítko Start, klepnìte na pøíkaz Spustit, zadejte cestu stránku default.ASP a potom klepnìte na tlaèítko OK. Cestu zadejte podobná následující: Poznámka: Chcete-li použít tuto metodu, musíte klepnout výzva nebo Povolitinicializovat a skriptovat ovládací prvky ActiveX nejsou oznaèeny jako bezpeèné nastavení v aplikaci Internet Explorer.

Všimnìte si, že spustí aplikace InfoPath a TwoField.xsn formuláø otevøe. Obsahuje pole1, "test pole 3" a obsahuje pole2"test pole 4". Jsou to hodnoty GetData.asp vrátí pøi jeho dataRequest parametr nastaven na "2".

Naèíst existující formuláø ze stránky ASP

Stránka GetData.asp vrátí XML ve správném formátu pro InfoPath otevøít jako soubor formuláøe. Chcete-li to provést, klepnìte na tlaèítko Start, klepnìte na pøíkaz Spustit, zadejte cestu stránka GetData.asp a klepnìte na tlaèítko OK. Cestu zadejte podobná následující: Všimnìte si, že spustí aplikace InfoPath a GetData.asp formuláø otevøe. Obsahuje "pole 1 test" pole1 a pole2 obsahuje "pole 2 test". Jsou to hodnoty GetData.asp vrátí pøi jeho dataRequest parametr nastaven na "1".

Spoleènost Microsoft poskytuje ukázky programování pouze pro ilustraci, bez žádné záruky výslovnì uvedené nebo odvozené,. vèetnì, bez omezení, odvozených záruk vztahujících se k obchodovatelnosti nebo vhodnosti pro urèitý úèel. Tento èlánek pøedpokládá, že uživatel je obeznámen s programovacím jazykem, který je pøedmìtem ukázky, a s nástroji použitými pro vytvoøení a ladìní skriptu. Pracovníci technické podpory spoleènosti Microsoft mohou vysvìtlit funkce urèitého postupu, nemohou však následující pøíklady rozšíøit o další funkce nebo konstrukce podle konkrétních požadavkù uživatele.