supermarketone.vb

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

Public Class supermarketone
    Inherits DBOperation
    Shared Function loadhuiyuan(ByVal Field As String, ByVal Value As String, ByVal DBOperator As String) As DataTable
        Dim SQLString As String
        Dim Column As String = ""
        Column += "huiyuanno as 会员号,huiyuanname as 姓名,gender as 性别,birthdate as 出生年月,tel as 联系电话,address as 联系地址,jifen as 积分"
        If Field = "" Then
            SQLString = "SELECT " & Column & " FROM huiyuan order by huiyuanno"
        ElseIf DBOperator = "" Then
            SQLString = "SELECT " & Column & " FROM huiyuan WHERE " & Field & "='" & Value & "' order by huiyuanno"
        ElseIf DBOperator = "LIKE" Then
            SQLString = "SELECT " & Column & " FROM huiyuan WHERE " & Field & "" & DBOperator & "'" & "%" & Value & "%" & "' order by huiyuanno"
        Else
            SQLString = "SELECT " & Column & " FROM huiyuan WHERE " & Field & "" & DBOperator & Val(Value) & " order by huiyuanno"
        End If
        Return DBOperation.DBOperate(SQLString)
    End Function
    Shared Function loadhuiyuan() As DataTable
        Dim SQLString As String
        SQLString = "SELECT * FROM huiyuan order by huiyuanno"
        Return DBOperation.DBOperate(SQLString)
    End Function
    Shared Sub delhuiyuan(ByVal huiyuanno As String)
        Dim SQLString As String
        SQLString = "DELETE FROM huiyuan WHERE huiyuanno='" & huiyuanno & "'"
        DBOperation.DBOperate(SQLString)
    End Sub
    Private _huiyuanno As String
    Private _huiyuanname As String
    Private _gender As String
    Private _birthdate As Date
    Private _tel As String
    Private _address As String
    Private _jifen As Double

    Sub New(ByVal huiyuanno As String, ByVal huiyuanname As String, ByVal gender As String, ByVal birthdate As Date, ByVal tel As String, ByVal address As String, ByVal jifen As Double)
        _huiyuanno = huiyuanno
        _huiyuanname = huiyuanname
        _gender = gender
        _birthdate = birthdate
        _tel = tel
        _address = address
        _jifen = jifen
    End Sub
    Function Addhuiyuan()
        Dim SQLString As String
        SQLString = "SELECT * FROM huiyuan WHERE huiyuanno='" & _huiyuanno & "'"
        Dim UserTable As DataTable = DBOperation.DBOperate(SQLString)
        If UserTable.Rows.Count >= 1 Then
            MsgBox("该会员号已存在，请重试", MsgBoxStyle.Exclamation, "信息框")
            Return False
        Else
            SQLString = "INSERT INTO huiyuan VALUES('" & _huiyuanno & "','"
            SQLString += _huiyuanname & "','" & _gender & "','"
            SQLString += _birthdate & "','" & _tel & "','" & _address & "','" & _jifen & "')"
            DBOperation.DBOperate(SQLString)
            Return True
        End If
    End Function
    Sub Updatehuiyuan()
        Dim SQLString As String
        SQLString = "UPDATE huiyuan SET huiyuanname='" & _huiyuanname & "',gender='" & _gender & "',birthdate='" & _birthdate & "',tel='" & _tel & "',address='" & _address & "',jifen='" & _jifen & "'Where huiyuanno='" & _huiyuanno & "'"
        DBOperation.DBOperate(SQLString)
    End Sub
End Class