ybaidukuai 发表于 2015-6-30 09:42:33

.Net程序打包安装与卸载制作 ——怎样在打包程序中自动安装SQL Server数据库(三)?

怎样在打包程序中自动安装SQL Server数据库?
1、创建安装项目“Setup1”安装项目
在“文件”菜单上指向“添加项目”,然后选择“新建项目”。
在“添加新项目”对话框中,选择“项目类型”窗格中的“安装和部署项目”,然后选择“模板”窗格中的“安装项目”。在“名称”框中键入 “setup1”。
单击“确定”关闭对话框。
项目被添加到解决方案资源管理器中,并且文件系统编辑器打开。
在“属性”窗口中,选择 ProductName 属性,并键入”亿万电器成套报价系统”。

2、在安装项目中创建安装程序类(install.cs)。
添加创建数据库(InstallDatabase.txt)、删除数据库(DropDatabase.txt)、初始化数据基本数据(InitializeData.txt)脚本文件,将属性“生成操作”设为“嵌入的资源”。代码如下:
using System;
using System.Collections;
using System.ComponentModel;
using System.Configuration.Install;
using System.Data;
using System.Data.SqlClient;
using System.IO;
using System.Reflection;
using System.Text.RegularExpressions;
using System.Windows.Forms;
using System.Text;
using Microsoft.Win32;

namespace install
{
   ///
   /// Installer 的摘要说明。
   ///
   
   public class Installer : System.Configuration.Install.Installer
   {
         ///
         /// 必需的设计器变量。
         ///
         string conStr="packet size=4096;integrated security=SSPI;"+
            "data source=\"(local)\";persist security info=False;"+
            "initial catalog=master;connect timeout=300";
         RijndaelCryptography rijndael = new RijndaelCryptography();
         private System.ComponentModel.Container components = null;

         public Installer()
         {
            // 该调用是设计器所必需的。
            InitializeComponent();

            // TODO: 在 InitializeComponent 调用后添加任何初始化
         }

         ///
         /// 清理所有正在使用的资源。
         ///
         protected override void Dispose( bool disposing )
         {
            if( disposing )
            {
                   if(components != null)
                   {
                     components.Dispose();
                   }
            }
            base.Dispose( disposing );
         }

         #region 组件设计器生成的代码
         ///
         /// 设计器支持所需的方法 - 不要使用代码编辑器修改
         /// 此方法的内容。
         ///
         private void InitializeComponent()
         {
            components = new System.ComponentModel.Container();
         }
         #endregion

         #region 重载自定义安装方法
         protected override void OnBeforeInstall(IDictionary savedState)
         {
            base.OnBeforeInstall (savedState);
         }
         public override void Install(IDictionary stateSaver)
         {
            base.Install (stateSaver);
            string databaseServer = Context.Parameters["server"].ToString();
            string userName = Context.Parameters["user"].ToString();
            string userPass = Context.Parameters["pwd"].ToString();
            string targetdir = this.Context.Parameters["targetdir"].ToString();
         
            conStr = GetLogin(databaseServer,userName,userPass,"master");
            SqlConnectionsqlCon = new SqlConnection();

            try
            {
                  
                   sqlCon.ConnectionString = conStr;
                   sqlCon.Open();

                   rijndael.GenKey();
                   rijndael.Encrypt(conStr);

                   stateSaver.Add("key",rijndael.Key);
                   stateSaver.Add("IV",rijndael.IV);
                   stateSaver.Add("conStr",rijndael.Encrypted);
            
                   ExecuteSql(sqlCon,"InstallDatabase.txt");
                   ExecuteSql(sqlCon,"InitializeData.txt");
   
                   if(sqlCon.State!=ConnectionState.Closed)sqlCon.Close();
            }
            catch(SqlException)
            {
                   MessageBox.Show("安装失败!\n数据库配置有误,请正确配置信息!","错误",MessageBoxButtons.OK,MessageBoxIcon.Error);
                   if(sqlCon.State!=ConnectionState.Closed) sqlCon.Close();
                   this.Rollback(stateSaver);
            }

         }
         protected override void OnAfterInstall(IDictionary savedState)
         {
            base.OnAfterInstall(savedState);
         }

         public override void Rollback(IDictionary savedState)
         {
            base.Rollback (savedState);
         }
         public override void Uninstall(IDictionary savedState)
         {
            base.Uninstall (savedState);
            if(savedState.Contains("conStr"))
            {
                   string targetdir = this.Context.Parameters["targetdir"].ToString();
                   RijndaelCryptography rijndael = new RijndaelCryptography();
                   rijndael.Key = (byte[])savedState["key"];
                   rijndael.IV = (byte[])savedState["IV"];
                   conStr = rijndael.Decrypt((byte[])savedState["conStr"]);   
                   SqlConnection sqlCon = new SqlConnection(conStr);
                   ExecuteDrop(sqlCon);
            }
         }
         #endregion

         #region 数据操作方法
         //从资源文件获取中数据执行脚本
private static string GetScript(string name)
         {
            Assembly asm = Assembly.GetExecutingAssembly();
            Stream str = asm.GetManifestResourceStream(asm.GetName().Name+ "." + name);
            StreamReader reader = new StreamReader(str,System.Text.Encoding.Default);
            System.Text.StringBuilder output = new System.Text.StringBuilder();
            string line = "";
            while((line = reader.ReadLine())!=null)
            {
                   output.Append(line + "\n");
            }
            return output.ToString();

         }
         //获取数据库登录连接字符串
         private static string GetLogin(string databaseServer,string userName,string userPass,string database)
         {
            return "server=" + databaseServer + ";database="+database+";User ID=" + userName + ";Password=" + userPass +";connect timeout=300;";
         }
         //执行数据库脚本方法
         private static void ExecuteSql(SqlConnection sqlCon,string sqlfile)
         {
            string[] SqlLine;
            Regex regex = new Regex("^GO",RegexOptions.IgnoreCase | RegexOptions.Multiline);
            
            string txtSQL = GetScript(sqlfile);
            SqlLine = regex.Split(txtSQL);

            if(sqlCon.State!=ConnectionState.Closed)sqlCon.Close();
            sqlCon.Open();

            SqlCommand cmd = sqlCon.CreateCommand();
            cmd.Connection = sqlCon;

            foreach(string line in SqlLine)
            {
                   if(line.Length>0)
                   {
                     cmd.CommandText = line;
                     cmd.CommandType = CommandType.Text;
                     try
                     {
                            cmd.ExecuteNonQuery();
                     }
                     catch(SqlException ex)
                     {
                            //rollback
                            string ss = ex.Message;
                            ExecuteDrop(sqlCon);
                            break;
                     }
                   }
            }
         }
         //删除数据库
         private static void ExecuteDrop(SqlConnection sqlCon)
         {   
            if(sqlCon.State!=ConnectionState.Closed)sqlCon.Close();
            sqlCon.Open();
            SqlCommand cmd = sqlCon.CreateCommand();
            cmd.Connection = sqlCon;
            cmd.CommandText = GetScript("DropDatabase.txt");
            cmd.CommandType = CommandType.Text;
            cmd.ExecuteNonQuery();
            sqlCon.Close();
         }
         #endregion
}
   单击“生成”菜单下“生成解决方案”,生成install.dll安装类文件。
3、将“主程序”项目的输出添加到部署项目中
   在“文件系统编辑器”中,选择“应用程序文件夹”,单击右键指向“添加”,添加“项目输出”。
   在“添加项目输出组”对话框中,选择“项目”下拉表框中选择你的主安装程序类,如上面的“install”。
   从列表框中选择“主输出”组,然后单击“确定”关闭。
4、创建自定义安装对话框
在解决方案资源管理器中选择安装项目“Setup1”项目,在“视图”菜单上指向“编辑器”,然后选择“用户界面”。
在用户界面编辑器具中,选择“安装”下的“启动”节点。在“操作”菜单上,选择“添加对话框”。
在“添加对话框”中选择“文本框(A)”对话框,然后单击“确定”关闭对话框。
在“操作”菜单上,选择“上移”,重复此步骤,移到“安装文件夹”上。
   在“文本框(A)”上单击“属性窗口”,设置如下图所示:
   
5、建自定义操作
在解决方案资源管理器中选择安装项目“Setup1”项目,在“视图”菜单上指向“编辑器”,然后选择“自定义操作”。
在“自定义操作编辑器”中选择“安装”节点。单击右键“添加自定义操作”,在选择项目中的项中选择“应用程序文件夹”,选择“主输出来自install(活动)”。
在“属性窗口”中选择“CustomActionData”属性并键入“/server= /user= /pwd=/targetdir="\"”。

附:/targetdir="\"是安装后的目标路径,为了在install类中获得安装后的路径,我们设置此参数。
单击“生成”菜单下的“生成解决方案”,编译安装项目。
页: [1]
查看完整版本: .Net程序打包安装与卸载制作 ——怎样在打包程序中自动安装SQL Server数据库(三)?