frmbook.frm

一个很全的书店的图书管理系统 做的很好希望和大家分享~！ 是用VB+ACCE

         TabIndex        =   15
         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, "数据库出错"
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 "检索数据库失败！", vbOKOnly + vbExclamation, "数据库出错"
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!内容简介 & ""
    Else
        MsgBox "该图书编号不存在!", vbOKOnly + vbExclamation, "检索品种"
        ComboPinZhong.SetFocus
        Exit Sub
    End If
    
End If

Exit Sub
errEnd:
    MsgBox "检索数据库失败！", vbOKOnly + vbExclamation, "数据库出错"
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 "检索数据库失败！", vbOKOnly + vbExclamation, "数据库出错"
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 "检索数据库失败！", vbOKOnly + vbExclamation, "数据库出错"
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 "连接数据库失败!", vbOKOnly + vbExclamation, "打开数据库出错"
    End

End Sub