cprintsets.vb

来自「代码：是由本人自主开发完成的」· VB 代码 · 共 106 行

Public Class CPrintSets
    Public PrintID As Integer
    Public PLeft As Single
    Public PNameTop As Single
    Public PSexTop As Single
    Public PDepTop As Single
    Public PMarTop As Single
    Public PGradTop As Single
    Public PBianHTop As Single
    Public BianHao As String
    Public PRNameLeft As Single
    Public PRNameTop As Single
    Public PRTestYearLeft As Single
    Public PRTestMonLeft As Single
    Public PRTestMonTop As Single
    Public PRVerYearTop As Single
    Public PRVerYearLeft As Single
    Public PRVerMonLeft As Single
    Public PRVerDateLeft As Single
    Public Sub initials()
        PrintID = 1
        PLeft = 0
        PNameTop = 0
        PSexTop = 0
        PDepTop = 0
        PMarTop = 0
        PGradTop = 0
        PBianHTop = 0
        BianHao = ""
        PRNameLeft = 0
        PRNameTop = 0
        PRTestYearLeft = 0
        PRTestMonLeft = 0
        PRTestMonTop = 0
        PRVerYearTop = 0
        PRVerYearLeft = 0
        PRVerMonLeft = 0
        PRVerDateLeft = 0
    End Sub
    Public Function GetInfo()
        Dim sqlstr As String
        sqlstr = "select * from PrintSets where PrintID=1"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            PLeft = dbset.Tables(0).Rows(0).Item("PLeft")
            PNameTop = dbset.Tables(0).Rows(0).Item("PNameTop")
            PSexTop = dbset.Tables(0).Rows(0).Item("PSexTop")
            PDepTop = dbset.Tables(0).Rows(0).Item("PDepTop")
            PMarTop = dbset.Tables(0).Rows(0).Item("PMarTop")
            PGradTop = dbset.Tables(0).Rows(0).Item("PGradTop")
            PBianHTop = dbset.Tables(0).Rows(0).Item("PBianHTop")
            BianHao = dbset.Tables(0).Rows(0).Item("BianHao")
            PRNameLeft = dbset.Tables(0).Rows(0).Item("PRNameLeft")
            PRNameTop = dbset.Tables(0).Rows(0).Item("PRNameTop")
            PRTestYearLeft = dbset.Tables(0).Rows(0).Item("PRTestYearLeft")
            PRTestMonLeft = dbset.Tables(0).Rows(0).Item("PRTestMonLeft")
            PRTestMonTop = dbset.Tables(0).Rows(0).Item("PRTestMonTop")
            PRVerYearTop = dbset.Tables(0).Rows(0).Item("PRVerYearTop")
            PRVerYearLeft = dbset.Tables(0).Rows(0).Item("PRVerYearLeft")
            PRVerMonLeft = dbset.Tables(0).Rows(0).Item("PRVerMonLeft")
            PRVerDateLeft = dbset.Tables(0).Rows(0).Item("PRVerDateLeft")
        Else
            initials()
        End If
    End Function
    Public Function Modify() As Boolean
        Dim sqlstr As String
        sqlstr = "Update PrintSets Set PLeft=" & PLeft.ToString & _
                ",PNameTop=" & PNameTop.ToString & ",PSexTop=" & PSexTop.ToString & _
                ",PDepTop=" & PDepTop.ToString & ",PMarTop=" & PMarTop.ToString & _
                ",PGradTop=" & PGradTop.ToString & ",PBianHTop=" & PBianHTop.ToString & _
                ",BianHao='" & MakeStr(BianHao) & "',PRNameLeft=" & PRNameLeft.ToString & _
                ",PRNameTop=" & PRNameTop.ToString & ",PRTestYearLeft=" & PRTestYearLeft.ToString & _
                ",PRTestMonLeft=" & PRTestMonLeft.ToString & ",PRTestMonTop=" & PRTestMonTop.ToString & _
                ",PRVerYearTop=" & PRVerYearTop.ToString & ",PRVerYearLeft=" & PRVerYearLeft.ToString & _
                ",PRVerMonLeft=" & PRVerMonLeft.ToString & ",PRVerDateLeft=" & PRVerDateLeft.ToString & _
                " where PrintID=1"
        If UpdateDataBase(sqlstr) Then
            Return True
        Else
            Return False
        End If
    End Function
    Function GetBianHao() As String
        Dim sqlstr As String
        sqlstr = " select BianHao from PrintSets where PrintID=1"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset.Tables(0).Rows(0).Item("BianHao")
        Else
            Return Nothing
        End If
    End Function
    Public Function ModifyBianhao(ByVal tmpnum As String)
        Dim sqlstr As String
        sqlstr = "Update PrintSets Set BianHao='" & MakeStr(tmpnum) & "' where PrintID=1"
        If UpdateDataBase(sqlstr) Then
            Return True
        Else
            Return False
        End If
    End Function
End Class