customerstoxml.xtr

来自「Delphi7从入门到精通及附书源码 Delphi7从入门到精通及附书源码」· XTR 代码 · 共 82 行 · 第 1/3 页

<XmlTransformation Version="1.0"><Transform Direction="ToXml"><SelectEach from="DATAPACKET\ROWDATA\ROW" dest="\Document\Customer"><Select from="@CUSTNO" dest="\CustNo"/><Select from="@COMPANY" dest="\Company"/><Select from="@ADDR1" dest="\Addr1"/><Select from="@ADDR2" dest="\Addr2"/><Select from="@CITY" dest="\City"/><Select from="@STATE" dest="\State"/><Select from="@ZIP" dest="\Zip"/><Select from="@COUNTRY" dest="\Country"/><Select from="@PHONE" dest="\Phone"/><Select from="@FAX" dest="\FAX"/><Select from="@TAXRATE" dest="\TaxRate"/><Select from="@CONTACT" dest="\Contact"/><Select from="@LASTINVOICEDATE" dest="\LastInvoiceDate"/></SelectEach></Transform><XmlSchema RootName="Document"><![CDATA[<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema">
  <xs:element name="CustNo" type="CustNoType"/>
  <xs:simpleType name="CustNoType">
    <xs:restriction base="xs:float"/>
  </xs:simpleType>
  <xs:element name="Company" type="CompanyType"/>
  <xs:simpleType name="CompanyType">
    <xs:restriction base="xs:string"/>
  </xs:simpleType>
  <xs:element name="Addr1" type="Addr1Type"/>
  <xs:simpleType name="Addr1Type">
    <xs:restriction base="xs:string"/>
  </xs:simpleType>
  <xs:element name="Addr2" type="Addr2Type"/>
  <xs:simpleType name="Addr2Type">
    <xs:restriction base="xs:string"/>
  </xs:simpleType>
  <xs:element name="City" type="CityType"/>
  <xs:simpleType name="CityType">
    <xs:restriction base="xs:string"/>
  </xs:simpleType>
  <xs:element name="State" type="StateType"/>
  <xs:simpleType name="StateType">
    <xs:restriction base="xs:string"/>
  </xs:simpleType>
  <xs:element name="Zip" type="ZipType"/>
  <xs:simpleType name="ZipType">
    <xs:restriction base="xs:string"/>