Vs2003下B/S应用程序安装打包开发小结

.Net 下安装打包主要有三个要点,

1,目标web 应用的发布设定

2,嵌入SQL 脚本进行数据库的创建,赋予初始化参数

3,对于Web 应用程序的web.config配置文件写入Sa或其它用户名及密码

 

补充一点就是,整合打包,对目标服务器安装环境的检测, 打包时,把.Net Framework也打包进去，生成安装文件。安装PluginInstaller.msi可以在你打包时，把框架打包进去，然后在安装软件时，提醒你是否要安装.Net Framework.。安装PluginInstaller.msi后,再打包编译，在你编译生成的Setup.exe同一文件夹中会出现dotnetfx.exe,langpack.exe等文件，说明框架已经打包进去了”,PluginInstaller.msi的下载地址：http://www.microsoft.com/downloads/details.aspx?FamilyID=627921a0-d9e7-43d6-a293-72f9c370bd19&DisplayLang=zh-cn

.

难点一，嵌入SQL 脚本进行数据库的创建,赋予初始化参数。

A，读取用用户输入的sa及密码，等数据库服务器，在此以sql server为例,

1，要读取，当然需要有输入框，这个在安装项目上右键—视图—用户界面—显示出了安装的界面的操作树，在启动根上右键—添加对话框，选择合适的文本框后（如文本框A）—文件框A右键—属性—属性窗口则出现了文本框总将出现的输入框属性，以及标题，需要注意的edit1Property，对应着输入框的存放文本框名，

B, 自定义安装模块方法DBCustomAction

   1、项目添加一个新项目->选择类库模板->命名为DBCustomAction

2、单击项目右键->添加新项->选择安装程序类(命名为DBCustomAction.cs)这个类是继承自System.Configuration.Install.Installer的类。

主要的VB代码如下

 

   Dim strPass As String

    Dim tdir As String

    Public docName As String = [String].Empty

    Private node As XmlNode = Nothing

    Private _configType As Integer

 

    Public Overrides Sub Install()Sub Install(ByVal stateSaver As _

      System.Collections.IDictionary)

 

        MyBase.Install(stateSaver)

        '        AddDBTable(Me.Context.Parameters.Item("dbname"))

        strPass = Me.Context.Parameters("strPass")   '取得传来的sa密码

 

        tdir = Me.Context.Parameters("targetdir")   '取得传来的安装路径

 

        If strPass <> "" Then

           AddDBTable("ZWT2007SQLDB") 

        Else

 

        End If

        updateConfig()   ‘修改config文件方法

 

    End Sub

 

    Private Function GetSql()Function GetSql(ByVal Name As String) As String

        Try

 

            ' Gets the current assembly.

            Dim Asm As [Assembly] = [Assembly].GetExecutingAssembly()

 

            ' Resources are named using a fully qualified name.

            Dim strm As Stream = Asm.GetManifestResourceStream( _

              Asm.GetName().Name + "." + Name)

 

            ' Reads the contents of the embedded file.

            Dim reader As StreamReader = New StreamReader(strm)

            Return reader.ReadToEnd()

 

        Catch ex As Exception

            MsgBox("In GetSQL: " & ex.Message)

            Throw ex

        End Try

    End Function

 

    Private Sub ExecuteSql()Sub ExecuteSql(ByVal DatabaseName As String, ByVal Sql As String)

        Dim sqlConnection1 As New SqlClient.SqlConnection

 

        sqlConnection1.ConnectionString = ("user id=sa;password=" + strPass + ";database=master;server=(local)")

 

 

        Dim Command As New SqlClient.SqlCommand(Sql, sqlConnection1)

 

        Command.Connection.Open()

        Command.Connection.ChangeDatabase(DatabaseName)

        Try

            Command.ExecuteNonQuery()

        Finally

            ' Finally, blocks are a great way to ensure that the connection 

            ' is always closed.

            Command.Connection.Close()

        End Try

    End Sub

 

   Protected Sub AddDBTable()Sub AddDBTable(ByVal strDBName As String)

        Try

            ' Creates the database.

            ExecuteSql("master", "CREATE DATABASE " + strDBName)

 

            ' Creates the tables.

            ExecuteSql(strDBName, GetSql("sql.txt")) ‘注意哦，这个是附加到程序中的个txt文件，内容为sql 脚本，项目属性为内嵌资源，不然打包时可能会漏了

        Catch ex As Exception

            ' Reports any errors and abort.

            MsgBox("In exception handler: " & ex.Message)

            Throw ex

        End Try

    End Sub

 

由上可以看到，需要得到sa的密码，必须从安装项目中传来

3,在安装项目中,右键—视图—用户自定义操作—在自定义操作树的，安装根上右键—添加自定义操作—项目—添加输出，来自项目DBCustomAction主输出，并右键此增加项—属性—CoustomActionData中的值设定传送参数值（如, /strPass=[EDITA1] /targetdir="[TARGETDIR]\" , [EDITA1]是1操作中SA输入密码，默认名[TARGETDIR]则为intall模板中安装文件将存放的位置）

 

难点二, 对于Web 应用程序的web.config配置文件写入Sa或其它用户名及密码

1， 同上操作1,3可以得到TARGETDIR即目标文件发布安装位置后，可以在DBCustomAction方法中增加updateConfig方法即可

2， VB代码如下:

 

Protected Sub updateConfig()Sub updateConfig()

        Dim t1 As String = ("server=localhost;database=DBname;uid=sa;pwd=" + Me.strPass)

        Dim t2 As String = ("Driver={SQL Server};database=DBname;server=localhost;uid=sa;pwd=" + Me.strPass)

        Dim tttdir As String = Me.tdir + "Administrator\Web.config"

        SetValue(tttdir, "sqlserver", t1)

        SetValue(tttdir, "Adosqlserver", t2)

        tttdir = Me.tdir + "Web.config"

        SetValue(tttdir, "sqlserver", t1)

        SetValue(tttdir, "Adosqlserver", t2)

    End Sub

 

 

SetValue#Region "SetValue"

    Public Function SetValue()Function SetValue(ByVal dir As String, ByVal key As String, ByVal value As String) As Boolean

        Dim cfgDoc As New XmlDocument

        loadConfigDoc(cfgDoc, dir)

        ' retrieve the appSettings node   

        node = cfgDoc.SelectSingleNode("//appSettings")

        If node Is Nothing Then

            Throw New InvalidOperationException("appSettings section not found")

        End If

        Try

            ' XPath select setting "add" element that contains this key       

            Dim addElem As XmlElement = DirectCast(node.SelectSingleNode("//add[@key='" + key + "']"), XmlElement)

            If addElem Is Nothing Then

                ' not found, so we need to add the element, key and value   

                Dim entry As XmlElement = cfgDoc.CreateElement("add")

                entry.SetAttribute("key", key)

                entry.SetAttribute("value", value)

                node.AppendChild(entry)

 

            Else

                addElem.SetAttribute("value", value)

            End If

            'save it   

            saveConfigDoc(cfgDoc, docName)

            Return True

        Catch

            Return False

        End Try

    End Function

 

#End Region '实现对appSettings值的修改

 

saveConfigDoc#Region "saveConfigDoc"

    Private Sub saveConfigDoc()Sub saveConfigDoc(ByVal cfgDoc As XmlDocument, ByVal cfgDocPath As String)

        Try

            Dim writer As New XmlTextWriter(cfgDocPath, Nothing)

            writer.Formatting = Formatting.Indented

            cfgDoc.WriteTo(writer)

            writer.Flush()

            writer.Close()

            Return

        Catch

            Throw

        End Try

    End Sub

 

#End Region '写入操作 

 

removeElement#Region "removeElement"

    Public Function removeElement()Function removeElement(ByVal elementKey As String) As Boolean

        Try

            Dim cfgDoc As New XmlDocument

            loadConfigDoc(cfgDoc, "")

            ' retrieve the appSettings node 

            node = cfgDoc.SelectSingleNode("//appSettings")

            If node Is Nothing Then

                Throw New InvalidOperationException("appSettings section not found")

            End If

            ' XPath select setting "add" element that contains this key to remove      

            node.RemoveChild(node.SelectSingleNode("//add[@key='" + elementKey + "']"))

            saveConfigDoc(cfgDoc, docName)

            Return True

        Catch

            Return False

        End Try

    End Function

#End Region   '删除appSettings的操作

 

modifyElement#Region " modifyElement"

    Public Function modifyElement()Function modifyElement(ByVal elementKey As String) As Boolean

        Try

            Dim cfgDoc As New XmlDocument

            loadConfigDoc(cfgDoc, "Administrator")

            ' retrieve the appSettings node 

            node = cfgDoc.SelectSingleNode("//appSettings")

            If node Is Nothing Then

                Throw New InvalidOperationException("appSettings section not found")

            End If

            ' XPath select setting "add" element that contains this key to remove      

            node.RemoveChild(node.SelectSingleNode("//add[@key='" + elementKey + "']"))

            saveConfigDoc(cfgDoc, docName)

            Return True

        Catch

            Return False

        End Try

    End Function

#End Region '修改 appSettings

 

loadConfigDoc#Region "loadConfigDoc"

    Private Function loadConfigDoc()Function loadConfigDoc(ByVal cfgDoc As XmlDocument, ByVal strdir As String) As XmlDocument 

 

    If Convert.ToInt32(ConfigType) = Convert.ToInt32(ConfigFileType.AppConfig) Then

            docName += ".exe.config"

        Else

            docName = strdir

        End If

        cfgDoc.Load(docName)

        Return cfgDoc

    End Function

#End Region '载入appSettings信息