module2.vb

本软件设计为在"采购部""工程部""财务部""总经理"等部门之间的采购审核流转等事宜

Imports System.Windows
Imports System.Drawing
Imports Microsoft.Win32
Imports System.ComponentModel
Module Module2
    Public SqlConnectionxinxi As String
    Public objkey As Microsoft.Win32.RegistryKey '定义了一个注册表对象
    Public Sub openBasekey(ByVal basekey As Microsoft.Win32.RegistryHive)
        objkey = Microsoft.Win32.RegistryKey.OpenRemoteBaseKey(basekey, SystemInformation.ComputerName)
        '打开一个注册表根目录
        '获取最上层的key根目录
    End Sub
    Public Function nextsubkey(ByVal keyname As String, ByVal writenable As Boolean) As Boolean

        objkey = objkey.OpenSubKey(keyname, writenable)

        '打开一个指定的子对象


    End Function
    Public Function newsubkey(ByVal keyname As String) As Boolean

        objkey.CreateSubKey(keyname) '未将对象引用设置到对象的实例。
        '如果没有，则新创一个子项
    End Function
    Private Sub writeval(ByVal valname As String, ByVal valdata As Object)
        objkey.SetValue(valname, valdata) '写入数据

    End Sub
    Public Function getval(ByVal valname As String) As Object
        Return objkey.GetValue(valname) '读取保存的数据
    End Function
    Public Sub delkey(ByVal keyname As String)
        objkey.DeleteSubKey(keyname) '删除一个注册表项
    End Sub
    Public Sub delval(ByVal valname As String)
        objkey.DeleteValue(valname) '删除一个数值
        objkey.Close() '关闭注册表
    End Sub
    '得到数据库信息
    Public Sub xinxi()
        openBasekey(Microsoft.Win32.RegistryHive.CurrentUser)
        Dim a As String = "lirong"
        nextsubkey(a, True)
        Dim astr As String = "数据库名称"
        Dim bstr As String = "数据库用户名"
        Dim ccstr As String = "主机名称或者IP地址"
        Dim dstr As String = "数据库密码"
        astr = getval(astr)
        bstr = getval(bstr)
        ccstr = getval(ccstr)
        dstr = getval(dstr)
        SqlConnectionxinxi = "data source = " + ccstr + ";initial catalog = " + astr + ";user id = " + bstr + ";password = " + dstr
        ' data source=liji;initial catalog=stocks;user id=sa;password=5211314
    End Sub


End Module