classproducing.vb

来自「这是一个订单管理系统」· VB 代码 · 共 30 行

Imports System.Text
Imports System.Data

Public Class ClassProducing
    Public Function Update(ByVal id As String, ByVal pro_date As String, ByVal number As String) As Boolean
        Dim strSql As New StringBuilder
        strSql.AppendLine("INSERT INTO")
        strSql.AppendLine("Produce")
        strSql.AppendLine("VALUES")
        strSql.AppendLine("(")
        strSql.AppendLine("" & id & ",")
        strSql.AppendLine("TO_DATE('" & pro_date & "','YYYY-MM-DD'),")
        strSql.AppendLine("" & number & ")")

        Return ClassCommon.RunSql(strSql.ToString)
    End Function
    Public Function ViewByID(ByRef ds As DataSet, ByVal pid As String) As Boolean
        Dim strSql As New StringBuilder()
        strSql.AppendLine("SELECT")
        strSql.AppendLine("ProduceDate,")
        strSql.AppendLine("ProduceNumber")
        strSql.AppendLine("FROM")
        strSql.AppendLine("Produce")
        strSql.AppendLine("WHERE")
        strSql.AppendLine("ProductId = " & pid)
        Return ClassCommon.RunSql(ds, strSql.ToString)
    End Function

End Class