<?xml version="1.0" encoding="utf-8" ?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
<xsl:output method="xml" indent="yes" />
<xsl:template match="/">
<html>
<head></head>
<body>
<xsl:for-each select="*/table">
<br />-------------- 文件名 <xsl:value-of select="@tablename" />.cls -----------------------------
<pre style=" background-color:gainsboro">
'******************************************************************************
'**
'** 数据表 <xsl:value-of select="@cname" />[ <xsl:value-of select="@tablename" /> ]操作的对象
'**
'** 编制：代码生成器
'** 时间：
'**
'******************************************************************************
'** 定义和数据库字段对应的变量 ****************************************
private const c_TableName As String = "<xsl:value-of select="@tablename" />" '** 数据表名称
<xsl:for-each select="*">
<xsl:variable name="vbtype">
<xsl:choose>
<xsl:when test="@isstring='1'">String </xsl:when>
<xsl:when test="boolean('true')" >Integer </xsl:when>
</xsl:choose>
</xsl:variable>
<xsl:variable name="lowfieldname">
<xsl:value-of select="translate(@fieldname,'ABCDEFGHIJKLMNOPQRSTUVWXYZ','abcdefghijklmnopqrstuvwxyz')" />
</xsl:variable>
private m_<xsl:value-of select="@fixname" /> As <xsl:value-of select="$vbtype" /> '** 字段 <xsl:value-of select="@cname" />
</xsl:for-each>
'** 定义数据库字段属性接口 ***************************************************************
Public Property Get TableName() As String
TableName = c_TableName
End Property
<xsl:for-each select="*">
<xsl:variable name="vbtype">
<xsl:choose>
<xsl:when test="@isstring='1'">String </xsl:when>
<xsl:when test="boolean('true')" >Integer </xsl:when>
</xsl:choose>
</xsl:variable>
'** 数据库字段 <xsl:value-of select="@cname" />
Public Property Get m<xsl:value-of select="@fieldname" />() As <xsl:value-of select="$vbtype" />
m<xsl:value-of select="@fieldname" /> = m_<xsl:value-of select="@fieldname" />
End Property
Public Property Let m<xsl:value-of select="@fieldname" />(Byval Value As <xsl:value-of select="$vbtype" />)
m_<xsl:value-of select="@fieldname" /> = m<xsl:value-of select="@fieldname" />
End Property
</xsl:for-each>
'** 获得查询所有数据使用的SQL语句 **
public Function GetBaseSQL() As String
GetBaseSQL ="Select <xsl:for-each select="*">
<xsl:value-of select="@fieldname" />
<xsl:if test="position() != last()">,</xsl:if>
</xsl:for-each> From " <xsl:text disable-output-escaping="yes">&</xsl:text> c_TableName
End Function
'** 定义从数据库记录集获得数据的方法 **
Public Function SelectRS(ByVal rs As ADODB.Recordset) As Boolean
On Error GoTo SelectErr
SelectRS = False
<xsl:for-each select="*">
m_<xsl:value-of select="@fixname" /> = rs.Fields(<xsl:value-of select="position()-1" />).Value '** 字段 <xsl:value-of select="@cname" />
</xsl:for-each>
SelectRS = True
Exit Function
SelectErr:
SelectRS = False
End Function
</pre>
</xsl:for-each>
</body>
</html>
</xsl:template>
</xsl:stylesheet>
####################### temp_表说明文档.xml ##################################
<?xml version="1.0" encoding="utf-8" ?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
<xsl:template match="/">
<html>
<head></head>
<body>
<xsl:for-each select="*/table">
-------------表 <xsl:value-of select="@tablename" /> 的说明文档 <xsl:value-of select="count(*)" />个字段
<br /><pre style="word-wrap:break-word;background-color:gainsboro">
<xsl:for-each select="*"><xsl:value-of select="@fixname" /><xsl:text disable-output-escaping="yes"> </xsl:text><xsl:value-of select="@fieldtype" />
<xsl:if test="@isstring='1'">(<xsl:value-of select="@fieldwidth" />)</xsl:if> .
<xsl:text disable-output-escaping="yes"></xsl:text>
</xsl:for-each>
</pre>
</xsl:for-each>
</body>
</html>
</xsl:template>
</xsl:stylesheet>
####################### temp_创建表的SQL语句.xml ##################################
<?xml version="1.0" encoding="utf-8" ?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
<xsl:template match="/">
<html>
<head></head>
<body>
<xsl:for-each select="*/table">
-------------创建表 <xsl:value-of select="@tablename" /> 的SQL语句 <xsl:value-of select="count(*)" />个字段
<br /><pre style="word-wrap:break-word;background-color:gainsboro">
CREATE TABLE <xsl:value-of select="@tablename" />(
<xsl:for-each select="*">
<xsl:text disable-output-escaping="yes"></xsl:text>
<xsl:value-of select="@fixname" />
<xsl:value-of select="@fieldtype" />
<xsl:if test="@isstring='1'">(<xsl:value-of select="@fieldwidth" />)</xsl:if>
<xsl:if test="position() != last()"> ,
</xsl:if>
</xsl:for-each>
)
</pre>
</xsl:for-each>
</body>
</html>
</xsl:template>
</xsl:stylesheet>
####################### temp_选择表使用的SQL语句.xml ##################################
<?xml version="1.0" encoding="utf-8" ?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
<xsl:template match="/">
<html>
<head></head>
<body>
<xsl:for-each select="*/table">
-------------选择表 <xsl:value-of select="@tablename" /> 的SQL语句 <xsl:value-of select="count(*)" />个字段
<br /><pre style="word-wrap:break-word;background-color:gainsboro">
Select <xsl:for-each select="*">
<xsl:text disable-output-escaping="yes"></xsl:text>
<xsl:value-of select="normalize-space(@fieldname)" />
<xsl:if test="position() != last()"> , </xsl:if>
</xsl:for-each>
From <xsl:value-of select="@tablename" /></pre>
</xsl:for-each>
</body>
</html>
</xsl:template>
</xsl:stylesheet>
上一页 [1] [2] [3] [4]
【责编:Peng】
相关文章
相关产品和培训
文章评论
您现在的位置： 
佚名
2007-5-8
