food.cls

一个小型管理系统.~!!不同的用户拥有不同的权限

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Food"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 FoodNo int 4 食品编号
'2 FoodClass varchar 50 食品类型
'3 FoodName varchar 100  食品名称
'4 Price float 8 标准价格

Public FoodNo As String
Public FoodClass As String
Public FoodName As String
Public Price As String

Public Sub Init()
FoodNo = ""
FoodClass = ""
FoodName = ""
Price = ""
End Sub

'删除Food数据
Public Sub Delete(ByVal FoodNo As String)
SqlStmt = "delete from Food where FoodNo='" + Trim(FoodNo) + "'"
SQLExt (SqlStmt)

End Sub

Public Sub Insert()
SqlStmt = "INSERT INTO Food Values('" + Trim(FoodNo) + "','" _
     + Trim(FoodClass) + "','" + Trim(FoodName) + "'," + Trim(Price) + ")"
SQLExt (SqlStmt)

End Sub

Public Sub Update(ByVal OriFoodNo As String)
  '设置UPDATE语句
  SqlStmt = "Update Food Set FoodNo='" + Trim(FoodNo) _
            + "', FoodClass='" + Trim(FoodClass) _
            + "', FoodName='" + Trim(FoodName) _
            + "', Price='" + Trim(Price) _
            + "' WHERE FoodNo='" + Trim(FoodNo) + "'"
  
  '执行SQL语句
  SQLExt (SqlStmt)
End Sub

Public Function GetNum() As Long
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT Count(FoodNo) FROM Food"
  Set rs = QueryExt(SqlStmt)
  If rs.EOF = True Then
    GetNum = 0
  Else
    GetNum = rs.Fields(0)
  End If
End Function

Public Function In_DB(ByVal TmpId As String) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT FoodNo FROM Food WHERE FoodNo='" + Trim(TmpId) + "'"
  Set rs = QueryExt(SqlStmt)
  If rs.EOF = True Then
    In_DB = False
  Else
    In_DB = True
  End If
End Function

Public Function GetInfo(ByVal TmpId As String) As Boolean
  Dim rs As New ADODB.Recordset
  '设置SELECT语句，读取编号为TmpId的记录
  SqlStmt = "SELECT * FROM Food WHERE FoodNo='" + Trim(TmpId) + "'"
  '将结果集读取到rs中
  Set rs = QueryExt(SqlStmt)

  If rs.EOF = True Then
    '如果结果集为空，则初始化
    Init
    GetInfo = False
  Else
    If IsNull(rs.Fields(0)) Then
      FoodNo = ""
    Else
      FoodNo = rs.Fields(0)
      End If
    If IsNull(rs.Fields(1)) Then
      FoodClass = ""
    Else
      FoodClass = rs.Fields(1)
      End If
    If IsNull(rs.Fields(2)) Then
      FoodName = ""
    Else
      FoodName = rs.Fields(2)
      End If
    If IsNull(rs.Fields(3)) Then
      Price = ""
    Else
      Price = rs.Fields(3)

    End If
    
    GetInfo = True
  End If
End Function


Public Sub Loadtype()
  Dim i As Integer
  Dim rs As New ADODB.Recordset
  Erase Arr_FoodClass
  ReDim Arr_FoodClass(0)
  SqlStmt = "SELECT DISTINCT FoodClass FROM Food ORDER BY FoodClass"
  Set rs = QueryExt(SqlStmt)
  i = 0
  Do Until rs.EOF = True
    ReDim Preserve Arr_FoodClass(i + 1)
    Arr_FoodClass(i) = Trim(rs.Fields(0))
    rs.MoveNext
    i = i + 1
  Loop
End Sub