Class Cls_IniSixt

Imports System.IO
Imports System
Imports System.Collections
Imports System.Xml

Public Class Cls_IniSixt

    Private Info As ccyt.com.Information.CfgType

    Public Function CreateNewXml(ByVal FileName As String) As String

        If File.Exists(FileName) Then
        Else
            Dim sr As StreamWriter
            sr = New StreamWriter(FileName, False)
            sr.WriteLine("<?xml version='1.0' encoding='utf-8' ?>")
            sr.WriteLine("<" & Info.NOR_AuditSoftWareInfo & ">")
            sr.WriteLine("</" & Info.NOR_AuditSoftWareInfo & ">")
            sr.Close()
        End If

        Dim xmldoc As New XmlDocument
        xmldoc.Load(FileName)
        Dim root As XmlNode = xmldoc.SelectSingleNode(Info.NOR_AuditSoftWareInfo)
        root.RemoveAll()
        '添加一级
        Dim xe1 As XmlElement = xmldoc.CreateElement(Info.NOR_ConfigInfo)
        xe1.SetAttribute("databaselx", "1")

        root.AppendChild(xe1)

        xmldoc.Save(FileName)

    End Function

    Public Function WriteXml(ByVal FileName As String)

        Dim myXmlTextWriter As New System.Xml.XmlTextWriter(FileName, Nothing)

        myXmlTextWriter.Formatting = System.Xml.Formatting.Indented
        myXmlTextWriter.WriteStartDocument(False)
        myXmlTextWriter.WriteComment("2005-9-15 ccyt config.xml") '''注释
        myXmlTextWriter.WriteComment(Info.NOR_AuditSoftWareInfo)  '''注释

        myXmlTextWriter.WriteStartElement(Info.NOR_ConfigInfo)   '''表名

        myXmlTextWriter.WriteStartElement("appConfig", Nothing)

        myXmlTextWriter.WriteAttributeString("mc", "pub_odbcSys")
        myXmlTextWriter.WriteAttributeString("bz", "system")
        myXmlTextWriter.WriteAttributeString("sm", "system")
        myXmlTextWriter.WriteAttributeString("xz", "system")
        myXmlTextWriter.WriteAttributeString("jm", "system")
        myXmlTextWriter.WriteAttributeString("xm", "system")
        myXmlTextWriter.WriteAttributeString("yh", "system")

        myXmlTextWriter.WriteEndElement()

        myXmlTextWriter.WriteStartElement("appConfig", Nothing)
        myXmlTextWriter.WriteAttributeString("mc", "pub_odbcdw")
        myXmlTextWriter.WriteAttributeString("bz", "uid=sa;pwd=;driver={SQL Server};server=CCYT01;database=CCYT_AUDIT;")
        myXmlTextWriter.WriteAttributeString("sm", "system")
        myXmlTextWriter.WriteAttributeString("xz", "system")
        myXmlTextWriter.WriteAttributeString("jm", "system")
        myXmlTextWriter.WriteAttributeString("xm", "system")
        myXmlTextWriter.WriteAttributeString("yh", "system")
        myXmlTextWriter.WriteEndElement()

        myXmlTextWriter.Flush()
        myXmlTextWriter.Close()
    End Function

    Public Function DatatableToXml(ByVal FileName As String) As Boolean
        Dim Ds As DataSet
        Ds = New DataSet(Info.NOR_AuditSoftWareInfo)
        Dim Dt As New DataTable(Info.NOR_ConfigInfo)
        Ds.Tables.Add(Dt)
        Dim Dc_mc As New DataColumn("mc")
        Dim Dc_bz As New DataColumn("bz")
        Dim Dc_sm As New DataColumn("sm")
        Dim Dc_xz As New DataColumn("xz")
        Dim Dc_jm As New DataColumn("jm")
        Dim Dc_xm As New DataColumn("xm")
        Dim Dc_yh As New DataColumn("yh")

        Dt.Columns.Add(Dc_mc)
        Dt.Columns.Add(Dc_bz)
        Dt.Columns.Add(Dc_sm)
        Dt.Columns.Add(Dc_xz)
        Dt.Columns.Add(Dc_jm)
        Dt.Columns.Add(Dc_xm)
        Dt.Columns.Add(Dc_yh)

        Dc_mc.MaxLength = 200
        Dc_bz.MaxLength = 200
        Dc_sm.MaxLength = 200
        Dc_xz.MaxLength = 200
        Dc_jm.MaxLength = 200
        Dc_xm.MaxLength = 200
        Dc_yh.MaxLength = 200

        Dim Dr As DataRow = Dt.NewRow
        Dr.Item(0) = Info.NOR_DbType
        Dr.Item(1) = "1"
        Dr.Item(2) = "111"
        Dr.Item(3) = "111"
        Dr.Item(4) = "111"
        Dr.Item(5) = "111"
        Dr.Item(6) = "111"
        Dt.Rows.Add(Dr)

        Dr = Dt.NewRow
        Dr.Item(0) = Info.NOR_SysSource
        Dr.Item(1) = "system"
        Dr.Item(2) = "222"
        Dr.Item(3) = "222"
        Dr.Item(4) = "222"
        Dr.Item(5) = "222"
        Dr.Item(6) = "222"
        Dt.Rows.Add(Dr)

        Dr = Dt.NewRow
        Dr.Item(0) = Info.NOR_UnitSource
        Dr.Item(1) = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=CCYT_AUDIT;Data Source=ccyt01;"
        Dr.Item(2) = "333"
        Dr.Item(3) = "333"
        Dr.Item(4) = "333"
        Dr.Item(5) = "333"
        Dr.Item(6) = "333"
        Dt.Rows.Add(Dr)

        Dr = Dt.NewRow
        Dr.Item(0) = Info.NOR_ConnectMode
        Dr.Item(1) = "1"
        Dr.Item(2) = "444"
        Dr.Item(3) = "444"
        Dr.Item(4) = "444"
        Dr.Item(5) = "444"
        Dr.Item(6) = "444"
        Dt.Rows.Add(Dr)

        Dr = Dt.NewRow
        Dr.Item(0) = Info.NOR_VersionInfo
        Dr.Item(1) = "1.0.0.1"
        Dr.Item(2) = "555"
        Dr.Item(3) = "555"
        Dr.Item(4) = "555"
        Dr.Item(5) = "555"
        Dr.Item(6) = "555"
        Dt.Rows.Add(Dr)

        Dr = Dt.NewRow
        Dr.Item(0) = "OleConnString"
        Dr.Item(1) = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=CCYT_AUDIT;Data Source=ccyt01;"
        Dr.Item(2) = "555"
        Dr.Item(3) = "555"
        Dr.Item(4) = "555"
        Dr.Item(5) = "555"
        Dr.Item(6) = "555"
        Dt.Rows.Add(Dr)

        Ds.WriteXml(FileName)
        Ds.Dispose()
        'Dt.Select(mc = "")

    End Function

    Public Function ReadDataFromXml(ByVal filename As String) As Str_Sjxtini

        Dim R_ini As Str_Sjxtini
        If File.Exists(filename) Then
            Dim Ds As New DataSet(Info.NOR_AuditSoftWareInfo)
            Ds.ReadXml(filename)
            Dim Dr As DataRow()

            Dr = Ds.Tables(0).Select("mc='" & Info.NOR_DbType & "'")
            Dim str_bz As String
            str_bz = CType(Dr(0).Item(1), String)

            Dr = Ds.Tables(0).Select("mc='" & Info.NOR_SysSource & "'")
            Dim str_bz1 As String
            str_bz1 = CType(Dr(0).Item(1), String)

            Dr = Ds.Tables(0).Select("mc='" & Info.NOR_UnitSource & "'")
            Dim str_bz2 As String
            str_bz2 = CType(Dr(0).Item(1), String)

            Dr = Ds.Tables(0).Select("mc='" & Info.NOR_ConnectMode & "'")
            Dim str_bz3 As String
            str_bz3 = CType(Dr(0).Item(1), String)

            Dr = Ds.Tables(0).Select("mc='" & Info.NOR_VersionInfo & "'")
            Dim str_bz4 As String
            str_bz4 = CType(Dr(0).Item(1), String)

            Dr = Ds.Tables(0).Select("mc='OleConnString'")
            Dim str_bz5 As String
            str_bz5 = CType(Dr(0).Item(1), String)

            R_ini.Dblx = str_bz
            R_ini.OdbcSys = str_bz1
            R_ini.OdbcDw = str_bz2
            R_ini.Fs = str_bz3
            R_ini.Bbxx = str_bz4
            R_ini.OleConn = str_bz5

            ReadDataFromXml = R_ini
            Ds.Dispose()
        Else
            DatatableToXml(filename)
            ReadDataFromXml(filename)
        End If

    End Function

End Class

Public Structure Str_Sjxtini
    Public Dblx As String
    Public OdbcDw As String
    Public OdbcSys As String
    Public Fs As String
    Public Bbxx As String
    Public OleConn As String
End Structure