Top             =   360
         Width           =   1575
      End
   End
   Begin MSAdodcLib.Adodc Adodc1 
      Height          =   330
      Left            =   4200
      Top             =   4680
      Visible         =   0   'False
      Width           =   1200
      _ExtentX        =   2117
      _ExtentY        =   582
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   8
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   1
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   ""
      OLEDBString     =   ""
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   ""
      Caption         =   "Adodc1"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋體"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
End
Attribute VB_Name = "FrmBook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim FuLeiBianHao As String
Dim bianHao As String

Public Function checkGYSID(UID As String) As Boolean
On Error GoTo errEnd
   
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "select * from [Book] where [圖書編號]=""" & UID & """"
    Adodc1.Refresh
    
    If Adodc1.Recordset.RecordCount > 0 Then
        checkGYSID = True
    Else
        checkGYSID = False
    End If

Exit Function
errEnd:
    MsgBox "檢驗品種失敗！", vbOKOnly + vbExclamation, "數(shù)據(jù)庫出錯"
End Function

Private Sub CmdClose_Click()
Unload Me
End Sub

Private Sub CmdLei_Click()
Unload Me
Load FrmNewLei
FrmNewLei.Show vbModal
End Sub

Private Sub CmdNewGYS_Click()
Unload Me
Load FrmNewBook
FrmNewBook.Show vbModal
End Sub

Private Sub CmdSelect_Click()
If ComboPinZhong.Text <> "" And ComboPinZhong.Text <> "請選擇品種" Then
    If checkGYSID(ComboPinZhong.Text) Then
        '新書登記
        TuShuBianHao = ComboPinZhong.Text
        Unload Me
        Load FrmBookDengJi
        FrmBookDengJi.Show vbModal
    Else
        MsgBox "該供應商不存在，請先選擇或登記！", vbOKOnly + vbExclamation, "選擇供應商"
        ComboDanWei.SetFocus
    End If
Else
    MsgBox "請選擇圖書品種！", vbOKOnly + vbExclamation, "選擇品種"
    ComboPinZhong.SetFocus
End If

End Sub

Private Sub CmdUpdate_Click()
Load FrmBookMemo
FrmBookMemo.Show vbModal
End Sub

Private Sub ComboFuLei_Click()
On Error GoTo errEnd

If ComboFuLei.Text = "" Or ComboFuLei.Text = "請選擇圖書分類" Then
    MsgBox "請選擇圖書分類！", vbOKOnly + vbExclamation, "圖書登記"
    ComboFuLei.SetFocus
    Exit Sub
End If

Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select [圖書分類號] from [圖書分類] where [圖書分類]=""" & ComboFuLei.Text & """"
Adodc1.Refresh

If Adodc1.Recordset.RecordCount > 0 Then
    Adodc1.Recordset.MoveFirst
    FuLeiBianHao = Adodc1.Recordset!圖書分類號
Else
    MsgBox "該類別不存在!", vbOKOnly + vbExclamation, "選擇父類"
    Exit Sub
End If

Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select [圖書分類] from [圖書分類] where [所屬父類編號]=""" & FuLeiBianHao & """"
Adodc1.Refresh

ComboZiLei.Clear
ComboZiLei.Text = "請選擇子類"
If Adodc1.Recordset.RecordCount > 0 Then
    Adodc1.Recordset.MoveFirst
    While Not Adodc1.Recordset.EOF
        ComboZiLei.AddItem Adodc1.Recordset!圖書分類
        Adodc1.Recordset.MoveNext
    Wend
End If

Exit Sub
errEnd:
    MsgBox "檢索數(shù)據(jù)庫失敗！", vbOKOnly + vbExclamation, "數(shù)據(jù)庫出錯"
End Sub

Private Sub ComboPinZhong_Click()
On Error GoTo errEnd

If ComboPinZhong.Text <> "" And ComboPinZhong.Text <> "請選擇品種" Then
    
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "select * from [Book] where [圖書編號]=""" & ComboPinZhong.Text & """"
    Adodc1.Refresh
    
    If Adodc1.Recordset.RecordCount > 0 Then
        Adodc1.Recordset.MoveFirst
        bianHao = Adodc1.Recordset!圖書編號 & ""
        TxtBook.Text = Adodc1.Recordset!書名 & ""
        ShuMing = Adodc1.Recordset!書名 & ""
        TxtChuBanShe.Text = Adodc1.Recordset!出版社 & ""
        TxtZuoZhe.Text = Adodc1.Recordset!作者 & ""
        TxtChuBanRQ.Text = Adodc1.Recordset!出版日期 & ""
        TxtDingJia.Text = Adodc1.Recordset!定價 & ""
        TxtBanCi.Text = Adodc1.Recordset!版次 & ""
        TxtISBN.Text = Adodc1.Recordset!ISBN & ""
        TxtCongShu.Text = Adodc1.Recordset!叢書 & ""
        TxtGuanJianCi.Text = Adodc1.Recordset!關鍵詞 & ""
        TxtJianJie.Text = Adodc1.Recordset!內(nèi)容簡介 & ""
    Else
        MsgBox "該圖書編號不存在!", vbOKOnly + vbExclamation, "檢索品種"
        ComboPinZhong.SetFocus
        Exit Sub
    End If
    
End If

Exit Sub
errEnd:
    MsgBox "檢索數(shù)據(jù)庫失敗！", vbOKOnly + vbExclamation, "數(shù)據(jù)庫出錯"
End Sub

Private Sub ComboZiLei_Click()
On Error GoTo errEnd
Dim bookBH As String

If ComboZiLei.Text = "" Or ComboZiLei.Text = "請選擇子類" Then
    MsgBox "請選擇圖書詳細分類！", vbOKOnly + vbExclamation, "圖書登記"
    ComboZiLei.SetFocus
    Exit Sub
End If

Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select [圖書分類號] from [圖書分類] where [圖書分類]=""" & ComboZiLei.Text & """"
Adodc1.Refresh

If Adodc1.Recordset.RecordCount > 0 Then
    Adodc1.Recordset.MoveFirst
    bookBH = Adodc1.Recordset!圖書分類號
Else
    MsgBox "找不到該類別!", vbOKOnly + vbExclamation, "檢索分類"
    Exit Sub
End If

Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select [圖書編號] from [Book] where [圖書分類號]=""" & bookBH & """"
Adodc1.Refresh

ComboPinZhong.Clear
ComboPinZhong.Text = "請選擇品種"
If Adodc1.Recordset.RecordCount > 0 Then
    Adodc1.Recordset.MoveFirst
    While Not Adodc1.Recordset.EOF
        ComboPinZhong.AddItem Adodc1.Recordset!圖書編號
        Adodc1.Recordset.MoveNext
    Wend
Else
    MsgBox "目前該類別沒有圖書資料，請先進行登記!或選擇該類別的子類。", vbOKOnly + vbExclamation, "選擇子類"
End If

Exit Sub
errEnd:
    MsgBox "檢索數(shù)據(jù)庫失敗！", vbOKOnly + vbExclamation, "數(shù)據(jù)庫出錯"
End Sub

Private Sub Form_Activate()
On Error GoTo errEnd

Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select [圖書分類] from [圖書分類] where [圖書分類號]=[所屬父類編號]"
Adodc1.Refresh

ComboFuLei.Clear
ComboFuLei.Text = "請選擇圖書分類"
If Adodc1.Recordset.RecordCount > 0 Then
    Adodc1.Recordset.MoveFirst
    While Not Adodc1.Recordset.EOF
        ComboFuLei.AddItem Adodc1.Recordset!圖書分類
        Adodc1.Recordset.MoveNext
    Wend
End If

Exit Sub
errEnd:
    MsgBox "檢索數(shù)據(jù)庫失敗！", vbOKOnly + vbExclamation, "數(shù)據(jù)庫出錯"
End Sub

Private Sub Form_Load()
Dim dbName As String
Dim connSTR As String

On Error GoTo errEnd

ChDir App.Path
dbName = App.Path
If Right(dbName, 1) <> "\" Then dbName = dbName + "\"
dbName = dbName + "DataBase\WFSSDataBase.mdb"

connSTR = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbName & ";Persist Security Info=False"
Adodc1.ConnectionString = connSTR

Exit Sub

errEnd:
    MsgBox "連接數(shù)據(jù)庫失敗!", vbOKOnly + vbExclamation, "打開數(shù)據(jù)庫出錯"
    End

End Sub