dbhy.vb

用VB开发了一个超市管理系统

Public Class DBhy
    Inherits DBOperation
    Private _txtTotal As Single
    Private _hyh As String


    Sub New(ByVal txtTotal As Single, ByVal textbox1 As String)
        _txtTotal = txtTotal
        _hyh = textbox1
    End Sub
    Function edithy()
        Dim sqlstring As String
        sqlstring = " update huiyuan set jifen = jifen + " & _txtTotal & " where huiyuanno ='" & _hyh + "'"
        DBOperation.DBOperate(sqlstring)
        Return True
    End Function
End Class