clssqlcoder.cls

来自「一个由VB开发的。NET实体生成器` 提高.net代码质量及开发效率」· CLS 代码 · 共 42 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsSQLCoder"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public Event InitCompleted(ByVal MaxValue As Long)
Public Event ExportStep(ByVal Value As Long)
Public Event ExportCompleted()
Private XMLSource As String

Public Sub Init(ByVal SrcXmlPath As String)
    Dim tmpText As String
    XMLSource = ""
    Open SrcXmlPath For Input As #1
        While Not EOF(1)
            tmpText = ""
            Input #1, tmpText
            XMLSource = XMLSource & tmpText & vbCrLf
        Wend
    Close #1
End Sub

Public Sub ExportCode(ByVal Path As String)
    Dim Doc As New DOMDocument
    Doc.loadXML XMLSource
    
End Sub

Private Sub SaveFile(ByVal FilePath As String, ByVal Contents As String)
    Open FilePath For Output As #1
        Print #1, Contents
    Close #1
End Sub