module1.vb

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

Imports System.Data
Imports System.DBNull
Imports System.Data.SqlClient


Module Module1
    Public user_id_yj As String
    Public UserName As String
    Public pepdom As Integer
    Public pub_str As String '得到：工程编号
    Public pub_str_yijian As String '得到上级处理意见

    Public qg_pub_str As String '请购公共字符参数
    Public qg_pub_dataset As New DataSet '请购公共dataset

    Public qg_pub_biaoming As String  '公共表名
    Public qg_pub_zidun As String     '公共字段名
    Public qg_pub_gongyingshang As String '供应商

    Public fk_pub_str As String '付款公共字符串

    Public baobiao_str As String '报表公共字符串
    Public baobiao_str1 As String '报表公共字符串
    Public baobiao_str2 As String '报表公共字符串
    Public baobiao_str3 As String '报表公共字符串

    Public pub_zhiwei As String '用户的职位


    '预算分析公共字符串
    Public pub_ys_str As String '预算总数
    Public pub_ys_str1 As String '100
    Public pub_ys_str2 As String '200
    Public pub_ys_str3 As String '300
    Public pub_ys_str4 As String '400
    Public pub_ys_str5 As String '500


    Public mod1 As Boolean

    Public mod2 As Boolean
    Public mod3 As Boolean
    Public mod4 As Boolean
    '定义四个模块

    Public objDataSet As DataSet
    '定义一个数据集对象
    Public objDataView As DataView
    '定义一个数据视图对象
    Public objDataAdpter As SqlDataAdapter
    '定义一个数据适配器对象
    Public objSqlConnection As SqlConnection = New _
    SqlConnection(SqlConnectionxinxi)
    '定义一个数据连接对象，并初始化
    Public objCurrencyMannager As CurrencyManager
    '定义一个当前的绑定管理对象
    Public UserSqlstr As String = "SELECT * FROM UserInfo"

    '定义了查询语句

    Public Function GetDataFromDB(ByVal sqlstr As String) As DataSet
        objDataSet = New DataSet
        objDataSet.Clear()
        '实例化一个数据集对象
        Try

            If objSqlConnection.State = ConnectionState.Closed Then objSqlConnection.Open()
            '打开数据库连接
            objDataAdpter = New SqlDataAdapter(sqlstr, objSqlConnection)
            '将数据库的数据映射到数据适配器
            objDataAdpter.Fill(objDataSet)
            '填充数据集的数据
            If objSqlConnection.State = ConnectionState.Open Then objSqlConnection.Close()
            '关闭数据连接，这一点很重要
        Catch
            MsgBox("错误号：" & Err.Number & "错误描述：" & Err.Description)
        End Try
        Return objDataSet
        objDataSet = Nothing
        objDataSet.Dispose() 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
    End Function


    Public Function UpdateData(ByVal sqlstr As String) As Boolean
        Dim objCommand As SqlCommand = New SqlCommand
        Try
            If objSqlConnection.State = ConnectionState.Closed Then objSqlConnection.Open()
            objCommand.Connection = objSqlConnection
            objCommand.CommandText = sqlstr
            objCommand.CommandType = CommandType.Text
            objCommand.ExecuteNonQuery()
            If objSqlConnection.State = ConnectionState.Open Then objSqlConnection.Close()
        Catch
            MsgBox("错误号：" & Err.Number & "错误描述：" & Err.Description)
            Return False
        End Try
        Return True
    End Function

    '判断所查的表中是否存在字符串-----a，如过存在返回true，不存在返回false

    Public Function panduan(ByVal a As String) As Boolean
        Dim mydataset As New DataSet
        mydataset = GetDataFromDB(a)
        If mydataset.Tables(0).Rows.Count <> 0 Then
            panduan = True
        Else
            panduan = False
        End If
        mydataset.Dispose()
    End Function


End Module