book.frm

这是用VB做的一个很完善的图书管理系统

            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   300
         TabIndex        =   4
         Top             =   2560
         Width           =   1050
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "书    名："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   300
         TabIndex        =   3
         Top             =   1845
         Width           =   1050
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "条 形 码："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   300
         TabIndex        =   2
         Top             =   1130
         Width           =   1050
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "图书编号："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   300
         TabIndex        =   1
         Top             =   390
         Width           =   1050
      End
      Begin VB.Line Line1 
         X1              =   6840
         X2              =   6840
         Y1              =   240
         Y2              =   5280
      End
   End
End
Attribute VB_Name = "book"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim bookcn As New ADODB.Connection
Dim bookrsuser As New ADODB.Recordset
Dim booksql As String

Private Sub Command1_Click()
If bookrsuser.BOF Then
   bookrsuser.MoveLast
End If
   bookrsuser.MovePrevious
End Sub

Private Sub Command2_Click()
bookrsuser.MoveFirst
End Sub

Private Sub Command3_Click()
If bookrsuser.EOF Then
   bookrsuser.MoveFirst
End If
   bookrsuser.MoveNext
End Sub

Private Sub Command4_Click()
bookrsuser.MoveLast
End Sub

Private Sub Command5_Click()
bookrsuser.UpdateBatch
End Sub

Private Sub Command6_Click()
If bookrsuser.BOF Or bookrsuser.EOF Then
   nul = MsgBox("文件头和文件尾不能删除！", vbOKOnly, "提示")
Else
   If MsgBox("您真的要删除该记录吗？", vbOKCancel + vbQuestion, "提示") = vbOK Then
       bookrsuser.Delete
       bookrsuser.UpdateBatch
   End If
End If
End Sub

Private Sub Command7_Click()
    Set bookrsuser = New Recordset
    bookrsuser.CursorLocation = adUseClient
    bookrsuser.Open "Select * from book", bookcn, adOpenDynamic, adLockOptimistic
    Set Text1.DataSource = bookrsuser
        Text1.DataField = "图书编号"
    Set Text2.DataSource = bookrsuser
        Text2.DataField = "条形码"
    Set Text3.DataSource = bookrsuser
        Text3.DataField = "书名"
    Set Text4.DataSource = bookrsuser
        Text4.DataField = "作者"
    Set Text5.DataSource = bookrsuser
        Text5.DataField = "出版社"
    Set Text6.DataSource = bookrsuser
        Text6.DataField = "类别"
    Set Text7.DataSource = bookrsuser
        Text7.DataField = "页数"
    Set Text8.DataSource = bookrsuser
        Text8.DataField = "出版时间"
    Set Text9.DataSource = bookrsuser
        Text9.DataField = "图书总数"
    Set Text10.DataSource = bookrsuser
        Text10.DataField = "现存数量"
    Set Text11.DataSource = bookrsuser
        Text11.DataField = "入馆时间"
    Set Text12.DataSource = bookrsuser
        Text12.DataField = "图书价格"
    Set Text13.DataSource = bookrsuser
        Text13.DataField = "借出次数"
    Set Text14.DataSource = bookrsuser
        Text14.DataField = "存放位置"

End Sub

Private Sub Command8_Click()
Unload Me
End Sub

Private Sub Command9_Click()
bookrsuser.AddNew
End Sub

Private Sub Form_Load()
Set bookcn = New Connection
    bookcn.ConnectionString = "provider=Microsoft.Jet.OLEDB.3.51;data source=book.mdb;"
    bookcn.CursorLocation = adUseClient
    bookcn.Open
    Set bookrsuser = New Recordset
    bookrsuser.CursorLocation = adUseClient
    bookrsuser.Open "Select * from book", bookcn, adOpenDynamic, adLockOptimistic
    Set Text1.DataSource = bookrsuser
        Text1.DataField = "图书编号"
    Set Text2.DataSource = bookrsuser
        Text2.DataField = "条形码"
    Set Text3.DataSource = bookrsuser
        Text3.DataField = "书名"
    Set Text4.DataSource = bookrsuser
        Text4.DataField = "作者"
    Set Text5.DataSource = bookrsuser
        Text5.DataField = "出版社"
    Set Text6.DataSource = bookrsuser
        Text6.DataField = "类别"
    Set Text7.DataSource = bookrsuser
        Text7.DataField = "页数"
    Set Text8.DataSource = bookrsuser
        Text8.DataField = "出版时间"
    Set Text9.DataSource = bookrsuser
        Text9.DataField = "图书总数"
    Set Text10.DataSource = bookrsuser
        Text10.DataField = "现存数量"
    Set Text11.DataSource = bookrsuser
        Text11.DataField = "入馆时间"
    Set Text12.DataSource = bookrsuser
        Text12.DataField = "图书价格"
    Set Text13.DataSource = bookrsuser
        Text13.DataField = "借出次数"
    Set Text14.DataSource = bookrsuser
        Text14.DataField = "存放位置"
       

End Sub

Private Sub Form_Unload(Cancel As Integer)
bookcn.Close
main.Show
main.Enabled = True
End Sub

Private Sub Text1_GotFocus()
Text1.BackColor = &HFFC0C0
End Sub

Private Sub Text1_LostFocus()
Text1.BackColor = &H80000014
End Sub

Private Sub Text15_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
   Set bookrsuser = New Recordset
   booksql = "Select * from book where 条形码 = " + Chr$(34) + Text15.Text + Chr$(34)
   bookrsuser.Open booksql, bookcn, adOpenDynamic, adLockOptimistic
    Set Text1.DataSource = bookrsuser
        Text1.DataField = "图书编号"
    Set Text2.DataSource = bookrsuser
        Text2.DataField = "条形码"
    Set Text3.DataSource = bookrsuser
        Text3.DataField = "书名"
    Set Text4.DataSource = bookrsuser
        Text4.DataField = "作者"
    Set Text5.DataSource = bookrsuser
        Text5.DataField = "出版社"
    Set Text6.DataSource = bookrsuser
        Text6.DataField = "类别"
    Set Text7.DataSource = bookrsuser
        Text7.DataField = "页数"
    Set Text8.DataSource = bookrsuser
        Text8.DataField = "出版时间"
    Set Text9.DataSource = bookrsuser
        Text9.DataField = "图书总数"
    Set Text10.DataSource = bookrsuser
        Text10.DataField = "现存数量"
    Set Text11.DataSource = bookrsuser
        Text11.DataField = "入馆时间"
    Set Text12.DataSource = bookrsuser
        Text12.DataField = "图书价格"
    Set Text13.DataSource = bookrsuser
        Text13.DataField = "借出次数"
    Set Text14.DataSource = bookrsuser
        Text14.DataField = "存放位置"
    Text15.Text = ""

End If
End Sub

Private Sub Text16_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
   Set bookrsuser = New Recordset
   booksql = "Select * from book where 图书编号 = " + Chr$(34) + Text16.Text + Chr$(34)
   bookrsuser.Open booksql, bookcn, adOpenDynamic, adLockOptimistic
    Set Text1.DataSource = bookrsuser
        Text1.DataField = "图书编号"
    Set Text2.DataSource = bookrsuser
        Text2.DataField = "条形码"
    Set Text3.DataSource = bookrsuser
        Text3.DataField = "书名"
    Set Text4.DataSource = bookrsuser
        Text4.DataField = "作者"
    Set Text5.DataSource = bookrsuser
        Text5.DataField = "出版社"
    Set Text6.DataSource = bookrsuser
        Text6.DataField = "类别"
    Set Text7.DataSource = bookrsuser
        Text7.DataField = "页数"
    Set Text8.DataSource = bookrsuser
        Text8.DataField = "出版时间"
    Set Text9.DataSource = bookrsuser
        Text9.DataField = "图书总数"
    Set Text10.DataSource = bookrsuser
        Text10.DataField = "现存数量"
    Set Text11.DataSource = bookrsuser
        Text11.DataField = "入馆时间"
    Set Text12.DataSource = bookrsuser
        Text12.DataField = "图书价格"
    Set Text13.DataSource = bookrsuser
        Text13.DataField = "借出次数"
    Set Text14.DataSource = bookrsuser
        Text14.DataField = "存放位置"
    Text16.Text = ""
End If
End Sub

Private Sub Text17_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
   Set bookrsuser = New Recordset
   booksql = "Select * from book where 书名 = " + Chr$(34) + Text17.Text + Chr$(34)
   bookrsuser.Open booksql, bookcn, adOpenDynamic, adLockOptimistic
    Set Text1.DataSource = bookrsuser
        Text1.DataField = "图书编号"
    Set Text2.DataSource = bookrsuser
        Text2.DataField = "条形码"
    Set Text3.DataSource = bookrsuser
        Text3.DataField = "书名"
    Set Text4.DataSource = bookrsuser
        Text4.DataField = "作者"
    Set Text5.DataSource = bookrsuser
        Text5.DataField = "出版社"
    Set Text6.DataSource = bookrsuser
        Text6.DataField = "类别"
    Set Text7.DataSource = bookrsuser
        Text7.DataField = "页数"
    Set Text8.DataSource = bookrsuser
        Text8.DataField = "出版时间"
    Set Text9.DataSource = bookrsuser
        Text9.DataField = "图书总数"
    Set Text10.DataSource = bookrsuser
        Text10.DataField = "现存数量"
    Set Text11.DataSource = bookrsuser
        Text11.DataField = "入馆时间"
    Set Text12.DataSource = bookrsuser
        Text12.DataField = "图书价格"
    Set Text13.DataSource = bookrsuser
        Text13.DataField = "借出次数"
    Set Text14.DataSource = bookrsuser
        Text14.DataField = "存放位置"
    Text17.Text = ""
End If
End Sub

Private Sub Text2_GotFocus()
Text2.BackColor = &HFFC0C0
End Sub

Private Sub Text2_LostFocus()
Text2.BackColor = &H80000014
End Sub

Private Sub Text3_GotFocus()
Text3.BackColor = &HFFC0C0
End Sub

Private Sub Text3_LostFocus()
Text3.BackColor = &H80000014
End Sub


Private Sub Text4_GotFocus()
Text4.BackColor = &HFFC0C0
End Sub

Private Sub Text4_LostFocus()
Text4.BackColor = &H80000014
End Sub

Private Sub Text5_GotFocus()
Text5.BackColor = &HFFC0C0
End Sub

Private Sub Text5_LostFocus()
Text5.BackColor = &H80000014
End Sub
Private Sub Text6_GotFocus()
Text6.BackColor = &HFFC0C0
End Sub

Private Sub Text6_LostFocus()
Text6.BackColor = &H80000014
End Sub
Private Sub Text7_GotFocus()
Text7.BackColor = &HFFC0C0
End Sub

Private Sub Text7_LostFocus()
Text7.BackColor = &H80000014
End Sub
Private Sub Text8_GotFocus()
Text8.BackColor = &HFFC0C0
End Sub

Private Sub Text8_LostFocus()
Text8.BackColor = &H80000014
End Sub
Private Sub Text9_GotFocus()
Text9.BackColor = &HFFC0C0
End Sub

Private Sub Text9_LostFocus()
Text9.BackColor = &H80000014
End Sub
Private Sub Text10_GotFocus()
Text10.BackColor = &HFFC0C0
End Sub

Private Sub Text10_LostFocus()
Text10.BackColor = &H80000014
End Sub
Private Sub Text11_GotFocus()
Text11.BackColor = &HFFC0C0
End Sub

Private Sub Text11_LostFocus()
Text11.BackColor = &H80000014
End Sub
Private Sub Text12_GotFocus()
Text12.BackColor = &HFFC0C0
End Sub

Private Sub Text12_LostFocus()
Text12.BackColor = &H80000014
End Sub
Private Sub Text13_GotFocus()
Text13.BackColor = &HFFC0C0
End Sub

Private Sub Text13_LostFocus()
Text13.BackColor = &H80000014
End Sub

Private Sub Text14_GotFocus()
Text14.BackColor = &HFFC0C0
End Sub

Private Sub Text14_LostFocus()
Text14.BackColor = &H80000014
End Sub
Private Sub Text15_GotFocus()
Text15.BackColor = &H80FFFF
End Sub

Private Sub Text15_LostFocus()
Text15.BackColor = &H80000014
End Sub
Private Sub Text16_GotFocus()
Text16.BackColor = &H80FFFF
End Sub

Private Sub Text16_LostFocus()
Text16.BackColor = &H80000014
End Sub

Private Sub Text17_GotFocus()
Text17.BackColor = &H80FFFF
End Sub

Private Sub Text17_LostFocus()
Text17.BackColor = &H80000014
End Sub