VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BookInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public BookNo As String
Public BookName As String
Public Author As String
Public Publisher As String
Public Location As String
Public Price As Single
Public Total As Integer
Public TypeId As Integer
Public Description As String

Public Sub Init()
  BookNo = ""
  BookName = ""
  Author = ""
  Publisher = ""
  Location = ""
  Price = 0
  Total = 0
  TypeId = 0
  Description = ""
End Sub

'刪除BookInfo數(shù)據(jù)
Public Sub Delete(ByVal TmpBookNo As String)
  SqlStmt = "Delete FROM BookInfo WHERE BookNo='" + Trim(TmpBookNo) + "'"
  SQLExt (SqlStmt)
End Sub
'取得圖書名稱
Public Function GetName(ByVal TmpBookNo As String) As String
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT BookName FROM BookInfo WHERE BookNo='" + Trim(TmpBookNo) + "'"
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    GetName = ""
    Exit Function
  Else
    GetName = TrimStr(rs.Fields(1))
  End If
  rs.Close
End Function

'取得圖書分類編號(hào)
Public Function GetTypeId(ByVal TmpBookNo As String) As Integer
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT TypeId FROM BookInfo WHERE BookNo='" + Trim(TmpBookNo) + "'"
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    GetTypeId = 0
    Exit Function
  Else
    GetTypeId = Val(rs.Fields(0))
  End If
End Function

'判斷圖書編號(hào)是否重復(fù)
Public Function HaveNo(ByVal TmpNo As String) As Boolean
  Dim rs As New ADODB.Recordset
  SqlStmt = "SELECT BookNo FROM BookInfo WHERE BookNo='" + Trim(TmpNo) + "'"
  Set rs = QueryExt(SqlStmt)
  
  If Not rs.EOF Then
    HaveNo = True  '有重復(fù)編號(hào)
  Else
    HaveNo = False
  End If
End Function
'得到當(dāng)前庫存數(shù)量
Public Function GetTotalNum(ByVal TmpBookNo As String) As String
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT Total FROM BookInfo WHERE BookNo='" + Trim(TmpBookNo) + "'"
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    GetTotalNum = Val(rs.Fields(7))
  Else
    GetTotalNum = 0
  End If
End Function


Public Function GetInfo(ByVal TmpBookNo As String) As Boolean
  If TmpBookNo = "" Then
    Init
    GetInfo = False
    Exit Function
  End If
  
  BookNo = TmpBookNo
  
  Dim rs As New ADODB.Recordset
  SqlStmt = "SELECT * FROM BookInfo WHERE BookNo='" + Trim(TmpBookNo) + "'"
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    GetInfo = False
    Exit Function
  Else
    BookName = TrimStr(rs.Fields(1))
    Author = TrimStr(rs.Fields(2))
    Publisher = TrimStr(rs.Fields(3))
    Location = TrimStr(rs.Fields(4))
    Price = Val(rs.Fields(5))
    TypeId = Val(rs.Fields(6))
    Total = Val(rs.Fields(7))
    Description = TrimStr(rs.Fields(8))
  End If
  GetInfo = True
End Function

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

Public Sub Insert()
  '設(shè)置INSERT語句
  SqlStmt = "INSERT INTO BookInfo (BookNo, BookName, Publisher," _
     + "Author, Location, Price,TypeId,Total,Description) Values('" + Trim(BookNo) + "','" _
     + Trim(BookName) + "','" + Trim(Publisher) + "','" + Trim(Author) _
     + "','" + Trim(Location) + "'," + Trim(Price) + "," + Trim(TypeId) _
     + "," + Trim(Total) + ",'" + Trim(Description) + "')"
  '執(zhí)行SQL語句
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal BookNo As String)
  '設(shè)置UPDATE語句
  SqlStmt = "Update BookInfo Set BookName='" + Trim(BookName) + "',Publisher='" _
          + Trim(Publisher) + "',Author='" + Trim(Author) _
          + "',Location='" + Trim(Location) + "',Price=" + Trim(Price) + ", Total=" _
          + Trim(Total) + ",Description='" + Trim(Description) + "' WHERE BookNo='" + Trim(BookNo) + "'"
  '執(zhí)行SQL語句
  SQLExt (SqlStmt)
End Sub

'更改當(dāng)前圖書庫存數(shù)量
Public Sub UpdateTotal(ByVal TmpBookNo As String, ByVal CountNum As Long)
  '設(shè)置UPDATE語句
  SqlStmt = "Update BookInfo Set Total=" + Trim(CountNum) _
          + " WHERE BookNo='" + Trim(TmpBookNo) + "'"
  '執(zhí)行SQL語句
  SQLExt (SqlStmt)
End Sub

'入庫審核和借閱確認(rèn)后更新圖書資料表中的庫存數(shù)量，借閱確認(rèn)的數(shù)量需要轉(zhuǎn)為負(fù)數(shù)
Public Sub UpdateStore(ByVal TmpBookNo As String, ByVal TmpStoreCount As Long)
  '設(shè)置UPDATE語句
  SqlStmt = "Update BookInfo Set Total=Total+" + Trim(TmpStoreCount) _
          + " WHERE BookNo='" + Trim(TmpBookNo) + "'"
  '執(zhí)行SQL語句
  SQLExt (SqlStmt)
End Sub