manager.vb

来自「项目是为日本瑞萨工作所做的BAKE炉温控系统 整个文件夹包括设计文档」· VB 代码 · 共 59 行

Imports System.Data.OleDb

Module Manager
    '**************************************************************************
    '功能:判断输入的作业员的条形码是否允许进行操作，并返回对应的姓名
    '入口:查询的字段s1，表名s2，条件s3
    '出口:对应姓名name
    '**************************************************************************
    Public Function JudgeUser(ByVal s1 As String, ByVal s2 As String, ByVal s3 As String) As String
        '建立连接
        Dim objConn As OleDbConnection = GetConn()
        If objConn.State = ConnectionState.Closed Then
            objConn.Open()
        End If
        Dim objCmd As New OleDbCommand
        Dim objDS As New DataSet
        Dim objTB As DataTable
        Dim objDA As OleDbDataAdapter
        Dim num As Integer, name As String
        objCmd.Connection = objConn
        '查找空位并将其绑定到DataGrid中
        objCmd.CommandText = "select distinct " & s1 & " from " & s2 & " where " & s3 & ""
        objDA = New OleDbDataAdapter(objCmd)
        objDA.Fill(objDS, "TBshed")
        objTB = objDS.Tables("TBshed")
        num = objTB.Rows.Count
        If num <= 0 Then name = "" : GoTo JudgeUser_1
        name = objTB.Rows(0).Item(0)  '姓名
JudgeUser_1:
        objConn.Close()
        Return name
    End Function

    Public Sub CreateUser(ByVal s1 As String, ByVal s2 As String, ByVal s3 As String)
        REM 连接数据库
        Dim ObjConn As OleDbConnection = GetConn()
        If ObjConn.State = ConnectionState.Closed Then
            ObjConn.Open()
        End If
        Dim ObjCmd As New OleDbCommand
        ObjCmd.Connection = ObjConn
        ObjCmd.CommandText = "Insert into Manager(Name,Bar,userKey)values(@Name,@Bar,@userKey)"

        REM 插入新数据
        ObjCmd.Parameters.Add("@Name", OleDbType.LongVarChar)
        ObjCmd.Parameters("@Name").Value = s1   '插入当前温度
        ObjCmd.Parameters.Add("@Bar", OleDbType.LongVarChar)
        ObjCmd.Parameters("@Bar").Value = s2   '插入当前温度
        ObjCmd.Parameters.Add("@userKey", OleDbType.LongVarChar)
        ObjCmd.Parameters("@userKey").Value = s3   '插入当前温度

        REM 更新数据库
        ObjCmd.ExecuteNonQuery()
        ObjConn.Close()


    End Sub
End Module