开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 医药行业 > 查看源码
frmregedit.vb
资源名称：SALEOUTSYSTEM.rar　[点击查看]
上传用户：wj57717022
上传日期：2014-12-16
资源大小：4093k
文件大小：19k
源码类别：

医药行业

开发平台：

Visual Basic

frmregedit.vb：源码内容
  1. Imports System.Security.Cryptography
  2. Imports Microsoft.Win32
  3. Imports System.Threading
  4. Imports System.Data.SqlClient
  5. Imports System.Configuration
  7. Public Class frmregedit
  8.     Inherits System.Windows.Forms.Form
  10. #Region " Windows 窗体设计器生成的代码 "
  12.     Public Sub New()
  13.         MyBase.New()
  15.         '该调用是 Windows 窗体设计器所必需的。
  16.         InitializeComponent()
  17.         
  18.         '在 InitializeComponent() 调用之后添加任何初始化
  19.        
  21.     End Sub
  23.     '窗体重写 dispose 以清理组件列表。
  24.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  25.         If disposing Then
  26.             If Not (components Is Nothing) Then
  27.                 components.Dispose()
  28.             End If
  29.         End If
  30.         MyBase.Dispose(disposing)
  31.     End Sub
  33.     'Windows 窗体设计器所必需的
  34.     Private components As System.ComponentModel.IContainer
  36.     '注意: 以下过程是 Windows 窗体设计器所必需的
  37.     '可以使用 Windows 窗体设计器修改此过程。
  38.     '不要使用代码编辑器修改它。
  39.     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  40.     Friend WithEvents Label1 As System.Windows.Forms.Label
  41.     Friend WithEvents Label2 As System.Windows.Forms.Label
  42.     Friend WithEvents txtCompany As System.Windows.Forms.TextBox
  43.     Friend WithEvents Label3 As System.Windows.Forms.Label
  44.     Friend WithEvents txtAddress As System.Windows.Forms.TextBox
  45.     Friend WithEvents Label4 As System.Windows.Forms.Label
  46.     Friend WithEvents txttel As System.Windows.Forms.TextBox
  47.     Friend WithEvents Label5 As System.Windows.Forms.Label
  48.     Friend WithEvents txtmachine As System.Windows.Forms.TextBox
  49.     Friend WithEvents Label6 As System.Windows.Forms.Label
  50.     Friend WithEvents txtregedit As System.Windows.Forms.TextBox
  51.     Friend WithEvents Label7 As System.Windows.Forms.Label
  52.     Friend WithEvents txtDb As System.Windows.Forms.TextBox
  53.     Friend WithEvents btnOk As System.Windows.Forms.Button
  54.     Friend WithEvents btnCancel As System.Windows.Forms.Button
  55.     Friend WithEvents Label8 As System.Windows.Forms.Label
  56.     Friend WithEvents Label9 As System.Windows.Forms.Label
  57.     Friend WithEvents MsdnTextboxValidator1 As MSDNTextboxValidator.MSDNTextboxValidator
  58.     Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider
  59.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  60.         Me.components = New System.ComponentModel.Container
  61.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  62.         Me.btnCancel = New System.Windows.Forms.Button
  63.         Me.btnOk = New System.Windows.Forms.Button
  64.         Me.txtDb = New System.Windows.Forms.TextBox
  65.         Me.Label7 = New System.Windows.Forms.Label
  66.         Me.txtregedit = New System.Windows.Forms.TextBox
  67.         Me.Label6 = New System.Windows.Forms.Label
  68.         Me.txtmachine = New System.Windows.Forms.TextBox
  69.         Me.Label5 = New System.Windows.Forms.Label
  70.         Me.txttel = New System.Windows.Forms.TextBox
  71.         Me.Label4 = New System.Windows.Forms.Label
  72.         Me.txtAddress = New System.Windows.Forms.TextBox
  73.         Me.Label3 = New System.Windows.Forms.Label
  74.         Me.txtCompany = New System.Windows.Forms.TextBox
  75.         Me.Label2 = New System.Windows.Forms.Label
  76.         Me.Label1 = New System.Windows.Forms.Label
  77.         Me.Label8 = New System.Windows.Forms.Label
  78.         Me.Label9 = New System.Windows.Forms.Label
  79.         Me.MsdnTextboxValidator1 = New MSDNTextboxValidator.MSDNTextboxValidator(Me.components)
  80.         Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider
  81.         Me.GroupBox1.SuspendLayout()
  82.         Me.SuspendLayout()
  83.         '
  84.         'GroupBox1
  85.         '
  86.         Me.GroupBox1.Controls.Add(Me.btnCancel)
  87.         Me.GroupBox1.Controls.Add(Me.btnOk)
  88.         Me.GroupBox1.Controls.Add(Me.txtDb)
  89.         Me.GroupBox1.Controls.Add(Me.Label7)
  90.         Me.GroupBox1.Controls.Add(Me.txtregedit)
  91.         Me.GroupBox1.Controls.Add(Me.Label6)
  92.         Me.GroupBox1.Controls.Add(Me.txtmachine)
  93.         Me.GroupBox1.Controls.Add(Me.Label5)
  94.         Me.GroupBox1.Controls.Add(Me.txttel)
  95.         Me.GroupBox1.Controls.Add(Me.Label4)
  96.         Me.GroupBox1.Controls.Add(Me.txtAddress)
  97.         Me.GroupBox1.Controls.Add(Me.Label3)
  98.         Me.GroupBox1.Controls.Add(Me.txtCompany)
  99.         Me.GroupBox1.Controls.Add(Me.Label2)
  100.         Me.GroupBox1.ForeColor = System.Drawing.SystemColors.ControlDarkDark
  101.         Me.GroupBox1.Location = New System.Drawing.Point(160, 64)
  102.         Me.GroupBox1.Name = "GroupBox1"
  103.         Me.GroupBox1.Size = New System.Drawing.Size(304, 272)
  104.         Me.GroupBox1.TabIndex = 0
  105.         Me.GroupBox1.TabStop = False
  106.         Me.GroupBox1.Text = "注册信息"
  107.         '
  108.         'btnCancel
  109.         '
  110.         Me.btnCancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
  111.         Me.btnCancel.Location = New System.Drawing.Point(168, 224)
  112.         Me.btnCancel.Name = "btnCancel"
  113.         Me.btnCancel.Size = New System.Drawing.Size(75, 32)
  114.         Me.btnCancel.TabIndex = 13
  115.         Me.btnCancel.Text = "退出"
  116.         Me.btnCancel.TextAlign = System.Drawing.ContentAlignment.BottomCenter
  117.         '
  118.         'btnOk
  119.         '
  120.         Me.btnOk.FlatStyle = System.Windows.Forms.FlatStyle.Flat
  121.         Me.btnOk.Location = New System.Drawing.Point(96, 224)
  122.         Me.btnOk.Name = "btnOk"
  123.         Me.btnOk.Size = New System.Drawing.Size(75, 32)
  124.         Me.btnOk.TabIndex = 12
  125.         Me.btnOk.Text = "确定"
  126.         Me.btnOk.TextAlign = System.Drawing.ContentAlignment.BottomCenter
  127.         '
  128.         'txtDb
  129.         '
  130.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtDb, True)
  131.         Me.MsdnTextboxValidator1.SetDataType(Me.txtDb, MSDNTextboxValidator.DataTypeConstants.StringType)
  132.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtDb, "")
  133.         Me.txtDb.Location = New System.Drawing.Point(96, 184)
  134.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtDb, "")
  135.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtDb, "")
  136.         Me.txtDb.Name = "txtDb"
  137.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtDb, "")
  138.         Me.MsdnTextboxValidator1.SetRequired(Me.txtDb, False)
  139.         Me.txtDb.Size = New System.Drawing.Size(192, 25)
  140.         Me.txtDb.TabIndex = 11
  141.         Me.txtDb.Text = ""
  142.         '
  143.         'Label7
  144.         '
  145.         Me.Label7.AutoSize = True
  146.         Me.Label7.Location = New System.Drawing.Point(8, 192)
  147.         Me.Label7.Name = "Label7"
  148.         Me.Label7.Size = New System.Drawing.Size(98, 21)
  149.         Me.Label7.TabIndex = 10
  150.         Me.Label7.Text = "数据库名称："
  151.         '
  152.         'txtregedit
  153.         '
  154.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtregedit, True)
  155.         Me.MsdnTextboxValidator1.SetDataType(Me.txtregedit, MSDNTextboxValidator.DataTypeConstants.StringType)
  156.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtregedit, "")
  157.         Me.txtregedit.Location = New System.Drawing.Point(96, 152)
  158.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtregedit, "")
  159.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtregedit, "")
  160.         Me.txtregedit.Name = "txtregedit"
  161.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtregedit, "")
  162.         Me.MsdnTextboxValidator1.SetRequired(Me.txtregedit, False)
  163.         Me.txtregedit.Size = New System.Drawing.Size(192, 25)
  164.         Me.txtregedit.TabIndex = 9
  165.         Me.txtregedit.Text = ""
  166.         '
  167.         'Label6
  168.         '
  169.         Me.Label6.AutoSize = True
  170.         Me.Label6.Location = New System.Drawing.Point(8, 160)
  171.         Me.Label6.Name = "Label6"
  172.         Me.Label6.Size = New System.Drawing.Size(98, 21)
  173.         Me.Label6.TabIndex = 8
  174.         Me.Label6.Text = "软件注册码："
  175.         '
  176.         'txtmachine
  177.         '
  178.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtmachine, True)
  179.         Me.MsdnTextboxValidator1.SetDataType(Me.txtmachine, MSDNTextboxValidator.DataTypeConstants.StringType)
  180.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtmachine, "")
  181.         Me.txtmachine.Location = New System.Drawing.Point(96, 120)
  182.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtmachine, "")
  183.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtmachine, "")
  184.         Me.txtmachine.Name = "txtmachine"
  185.         Me.txtmachine.ReadOnly = True
  186.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtmachine, "")
  187.         Me.MsdnTextboxValidator1.SetRequired(Me.txtmachine, False)
  188.         Me.txtmachine.Size = New System.Drawing.Size(192, 25)
  189.         Me.txtmachine.TabIndex = 7
  190.         Me.txtmachine.Text = ""
  191.         '
  192.         'Label5
  193.         '
  194.         Me.Label5.AutoSize = True
  195.         Me.Label5.Location = New System.Drawing.Point(8, 128)
  196.         Me.Label5.Name = "Label5"
  197.         Me.Label5.Size = New System.Drawing.Size(98, 21)
  198.         Me.Label5.TabIndex = 6
  199.         Me.Label5.Text = "软件机器码："
  200.         '
  201.         'txttel
  202.         '
  203.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txttel, True)
  204.         Me.MsdnTextboxValidator1.SetDataType(Me.txttel, MSDNTextboxValidator.DataTypeConstants.StringType)
  205.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txttel, "")
  206.         Me.txttel.Location = New System.Drawing.Point(96, 88)
  207.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txttel, "")
  208.         Me.MsdnTextboxValidator1.SetMinValue(Me.txttel, "")
  209.         Me.txttel.Name = "txttel"
  210.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txttel, "")
  211.         Me.MsdnTextboxValidator1.SetRequired(Me.txttel, False)
  212.         Me.txttel.Size = New System.Drawing.Size(192, 25)
  213.         Me.txttel.TabIndex = 5
  214.         Me.txttel.Text = ""
  215.         '
  216.         'Label4
  217.         '
  218.         Me.Label4.AutoSize = True
  219.         Me.Label4.Location = New System.Drawing.Point(24, 96)
  220.         Me.Label4.Name = "Label4"
  221.         Me.Label4.Size = New System.Drawing.Size(83, 21)
  222.         Me.Label4.TabIndex = 4
  223.         Me.Label4.Text = "联系电话："
  224.         '
  225.         'txtAddress
  226.         '
  227.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtAddress, True)
  228.         Me.MsdnTextboxValidator1.SetDataType(Me.txtAddress, MSDNTextboxValidator.DataTypeConstants.StringType)
  229.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtAddress, "")
  230.         Me.txtAddress.Location = New System.Drawing.Point(96, 56)
  231.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtAddress, "")
  232.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtAddress, "")
  233.         Me.txtAddress.Name = "txtAddress"
  234.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtAddress, "")
  235.         Me.MsdnTextboxValidator1.SetRequired(Me.txtAddress, False)
  236.         Me.txtAddress.Size = New System.Drawing.Size(192, 25)
  237.         Me.txtAddress.TabIndex = 3
  238.         Me.txtAddress.Text = ""
  239.         '
  240.         'Label3
  241.         '
  242.         Me.Label3.AutoSize = True
  243.         Me.Label3.Location = New System.Drawing.Point(48, 64)
  244.         Me.Label3.Name = "Label3"
  245.         Me.Label3.Size = New System.Drawing.Size(44, 21)
  246.         Me.Label3.TabIndex = 2
  247.         Me.Label3.Text = "地址:"
  248.         '
  249.         'txtCompany
  250.         '
  251.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtCompany, True)
  252.         Me.MsdnTextboxValidator1.SetDataType(Me.txtCompany, MSDNTextboxValidator.DataTypeConstants.StringType)
  253.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtCompany, "")
  254.         Me.txtCompany.Location = New System.Drawing.Point(96, 24)
  255.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtCompany, "")
  256.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtCompany, "")
  257.         Me.txtCompany.Name = "txtCompany"
  258.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtCompany, "")
  259.         Me.MsdnTextboxValidator1.SetRequired(Me.txtCompany, False)
  260.         Me.txtCompany.Size = New System.Drawing.Size(192, 25)
  261.         Me.txtCompany.TabIndex = 1
  262.         Me.txtCompany.Text = ""
  263.         '
  264.         'Label2
  265.         '
  266.         Me.Label2.AutoSize = True
  267.         Me.Label2.Location = New System.Drawing.Point(24, 32)
  268.         Me.Label2.Name = "Label2"
  269.         Me.Label2.Size = New System.Drawing.Size(83, 21)
  270.         Me.Label2.TabIndex = 0
  271.         Me.Label2.Text = "单位名称："
  272.         '
  273.         'Label1
  274.         '
  275.         Me.Label1.BackColor = System.Drawing.Color.LightSteelBlue
  276.         Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
  277.         Me.Label1.FlatStyle = System.Windows.Forms.FlatStyle.System
  278.         Me.Label1.Font = New System.Drawing.Font("华文中宋", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
  279.         Me.Label1.ForeColor = System.Drawing.Color.LightCyan
  280.         Me.Label1.Location = New System.Drawing.Point(160, 16)
  281.         Me.Label1.Name = "Label1"
  282.         Me.Label1.Size = New System.Drawing.Size(304, 40)
  283.         Me.Label1.TabIndex = 1
  284.         Me.Label1.Text = "请您添写本软件注册信息"
  285.         Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  286.         '
  287.         'Label8
  288.         '
  289.         Me.Label8.ForeColor = System.Drawing.SystemColors.ActiveBorder
  290.         Me.Label8.Location = New System.Drawing.Point(40, 248)
  291.         Me.Label8.Name = "Label8"
  292.         Me.Label8.TabIndex = 2
  293.         Me.Label8.Text = "aBcfvdgv"
  294.         '
  295.         'Label9
  296.         '
  297.         Me.Label9.Location = New System.Drawing.Point(176, 344)
  298.         Me.Label9.Name = "Label9"
  299.         Me.Label9.Size = New System.Drawing.Size(296, 48)
  300.         Me.Label9.TabIndex = 3
  301.         Me.Label9.Text = "请注意当您完成本软件注册后，软件会自动关闭，需要您重新启动本软件，谢谢您的使用！"
  302.         '
  303.         'MsdnTextboxValidator1
  304.         '
  305.         Me.MsdnTextboxValidator1.DisplayControl = Nothing
  306.         Me.MsdnTextboxValidator1.ErrorProvider = Nothing
  307.         Me.MsdnTextboxValidator1.InvalidBackColor = System.Drawing.Color.Empty
  308.         Me.MsdnTextboxValidator1.TooltipProvider = Nothing
  309.         '
  310.         'ErrorProvider1
  311.         '
  312.         Me.ErrorProvider1.ContainerControl = Me
  313.         '
  314.         'frmregedit
  315.         '
  316.         Me.AutoScaleBaseSize = New System.Drawing.Size(8, 18)
  317.         Me.ClientSize = New System.Drawing.Size(598, 406)
  318.         Me.ControlBox = False
  319.         Me.Controls.Add(Me.Label9)
  320.         Me.Controls.Add(Me.Label8)
  321.         Me.Controls.Add(Me.Label1)
  322.         Me.Controls.Add(Me.GroupBox1)
  323.         Me.ForeColor = System.Drawing.Color.CornflowerBlue
  324.         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
  325.         Me.Name = "frmregedit"
  326.         Me.Text = "软件注册"
  327.         Me.GroupBox1.ResumeLayout(False)
  328.         Me.ResumeLayout(False)
  330.     End Sub
  332. #End Region
  333.     Public secity As New Encryption
  334.     Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" _
  335. (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, ByRef lpVolumeSerialNumber As Long, ByVal lpMaximumComponentLength As Integer, ByVal lpFileSystemFlags As Integer, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Integer) As Integer
  336.     Private Sub frmregedit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  337.         txtmachine.Text = serial().ToString
  339.     End Sub
  340.     'Private Sub setregedit()
  341.        
  342.     ' End Sub
  345.     Private Function serial() As Long
  346.         Dim SerialNumber As Long
  347.         Dim TempStr1 As New String(Chr(0), 255)
  348.         Dim TempStr2 As New String(Chr(0), 255)
  349.         Dim TempInt1, TempInt2 As Integer
  350.         GetVolumeInformation("C:", TempStr1, 256, SerialNumber, TempInt1, TempInt2, TempStr2, 256)
  351.         Return SerialNumber
  352.     End Function
  354.     
  355.     Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
  356.         If secity.Encrypt(txtmachine.Text.Trim, Label8.Text.Trim) = txtregedit.Text.Trim Then
  357.             SetUpSQL()
  358.             Dim SetUp As RegistryKey
  359.             SetUp = Registry.LocalMachine.CreateSubKey("SOFTWAREJxcDFT StudioRegister")
  360.             SetUp = Registry.LocalMachine.OpenSubKey("SOFTWAREJxcDFT StudioRegister", True)
  361.             SetUp.SetValue("State", "Yes")
  362.             SetUp.Close()
  363.             If secity.readregedit() = True Then
  366.                 Try
  367.                     Dim Connection As New SqlConnection(ConfigurationSettings.AppSettings.Get("MsStr"))
  368.                     Dim Cmd As New SqlCommand("sp_attach_db", Connection)
  369.                     Cmd.CommandType = CommandType.StoredProcedure
  370.                     Dim dbname As SqlParameter = New SqlParameter("@dbname", SqlDbType.NVarChar, 20)
  371.                     dbname.Value = "webjxc"
  372.                     Cmd.Parameters.Add(dbname)
  373.                     Dim dataname As SqlParameter = New SqlParameter("@filename1", SqlDbType.NVarChar, 50)
  374.                     dataname.Value = Application.StartupPath() & "webjxc_Data.MDF"
  375.                     Cmd.Parameters.Add(dataname)
  376.                     Dim logname As SqlParameter = New SqlParameter("@filename2", SqlDbType.NVarChar, 50)
  377.                     logname.Value = Application.StartupPath() & "webjxc_Log.LDF"
  378.                     Cmd.Parameters.Add(logname)
  379.                     Connection.Open()
  380.                     Cmd.ExecuteNonQuery()
  381.                     Connection.Close()
  382.                     save()
  383.                 Catch ex As System.Data.SqlClient.SqlException
  384.                     MessageBox.Show(ex.Message)
  386.                 End Try
  388.                 Dim frmmainer As New FrmMainStart
  389.                 frmmainer.Show()
  390.                 Me.Close()
  394.             Else
  395.                 Me.Show()
  397.             End If
  398.         Else
  401.             MessageBox.Show("您输入的注册码是错误的！请输入正确的注册码，或与软件供应商联系！", "提示", MessageBoxButtons.RetryCancel)
  402.             Me.Show()
  403.         End If
  404.     End Sub
  406.     Private Sub save()
  407.         Dim lsweb As New jxcmanage
  408.         Dim dslocals As New DataSet
  409.         dslocals = lsweb.returndataset("select * from wz_regedit", "wz_regedit")
  410.         Dim dr As DataRow = dslocals.Tables(0).NewRow()
  411.         dr("单位名称") = txtCompany.Text.Trim
  412.         dr("地址") = txtAddress.Text.Trim
  413.         dr("联系电话") = txttel.Text.Trim
  414.         dr("软件机器码") = txtmachine.Text.Trim
  415.         dr("数据库名称") = txtDb.Text.Trim
  416.         
  417.         dslocals.Tables(0).Rows.Add(dr)
  418.         If lsweb.updatedataset("select * from wz_regedit", "wz_regedit", dslocals, DataRowState.Added) = True Then
  419.             MessageBox.Show("注册信息成功保存！", "提示", MessageBoxButtons.OK)
  420.         Else
  421.             MessageBox.Show("注册信息保存失败！", "提示", MessageBoxButtons.AbortRetryIgnore)
  422.         End If
  425.     End Sub
  426.     Sub SetUpSQL()
  427.         Dim SetUp As RegistryKey
  428.         SetUp = Registry.LocalMachine.CreateSubKey("SystemControlset001ServicesSQLSERVERAGENT")
  429.         SetUp = Registry.LocalMachine.OpenSubKey("SystemControlset001ServicesSQLSERVERAGENT", True)
  430.         SetUp.SetValue("Start", "2")
  431.         SetUp.Close()
  432.     End Sub
  436.     Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
  437.         Me.Close()
  439.     End Sub
  440. End Class