duzhe.frm

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

         Left            =   160
         TabIndex        =   2
         Top             =   1280
         Width           =   900
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "编    号："
         Height          =   180
         Left            =   160
         TabIndex        =   1
         Top             =   530
         Width           =   900
      End
   End
   Begin VB.Line Line2 
      X1              =   5205
      X2              =   5205
      Y1              =   4440
      Y2              =   5760
   End
End
Attribute VB_Name = "duzhe"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim duzhecn As New ADODB.Connection
Dim duzhersuser As New ADODB.Recordset
Dim duzhesql As String

Private Sub Command1_Click()
duzhersuser.MoveFirst
End Sub

Private Sub Command2_Click()
If duzhersuser.BOF Then
   duzhersuser.MoveLast
End If
   duzhersuser.MovePrevious
End Sub

Private Sub Command3_Click()
duzhersuser.MoveLast
End Sub

Private Sub Command4_Click()
If duzhersuser.EOF Then
   duzhersuser.MoveFirst
End If
   duzhersuser.MoveNext
End Sub

Private Sub Command5_Click()
    Set duzhersuser = New Recordset
    duzhersuser.CursorLocation = adUseClient
    duzhersuser.Open "Select * from duzhe", duzhecn, adOpenDynamic, adLockOptimistic
    Set Text1.DataSource = duzhersuser
        Text1.DataField = "编号"
    Set Text2.DataSource = duzhersuser
        Text2.DataField = "姓名"
    Set Text3.DataSource = duzhersuser
        Text3.DataField = "性别"
    Set Text4.DataSource = duzhersuser
        Text4.DataField = "类别"
    Set Text5.DataSource = duzhersuser
        Text5.DataField = "登记日期"
    Set Text6.DataSource = duzhersuser
        Text6.DataField = "住址"
    Set Text7.DataSource = duzhersuser
        Text7.DataField = "单位部门"
    Set Text8.DataSource = duzhersuser
        Text8.DataField = "备注"
    Set Text9.DataSource = duzhersuser
        Text9.DataField = "借书次数"
    Set Text10.DataSource = duzhersuser
        Text10.DataField = "联系电话"
End Sub

Private Sub Command6_Click()
duzhersuser.UpdateBatch
End Sub

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

Private Sub Command8_Click()
Unload Me
End Sub

Private Sub Form_Load()
Set duzhecn = New Connection
    duzhecn.ConnectionString = "provider=Microsoft.Jet.OLEDB.3.51;data source=book.mdb;"
    duzhecn.CursorLocation = adUseClient
    duzhecn.Open
    Set duzhersuser = New Recordset
    duzhersuser.CursorLocation = adUseClient
    duzhersuser.Open "Select * from duzhe", duzhecn, adOpenDynamic, adLockOptimistic
    Set Text1.DataSource = duzhersuser
        Text1.DataField = "编号"
    Set Text2.DataSource = duzhersuser
        Text2.DataField = "姓名"
    Set Text3.DataSource = duzhersuser
        Text3.DataField = "性别"
    Set Text4.DataSource = duzhersuser
        Text4.DataField = "类别"
    Set Text5.DataSource = duzhersuser
        Text5.DataField = "登记日期"
    Set Text6.DataSource = duzhersuser
        Text6.DataField = "住址"
    Set Text7.DataSource = duzhersuser
        Text7.DataField = "单位部门"
    Set Text8.DataSource = duzhersuser
        Text8.DataField = "备注"
    Set Text9.DataSource = duzhersuser
        Text9.DataField = "借书次数"
    Set Text10.DataSource = duzhersuser
        Text10.DataField = "联系电话"

End Sub

Private Sub Form_Unload(Cancel As Integer)
duzhecn.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 Text11_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
   Set duzhersuser = New Recordset
   duzhesql = "Select * from duzhe where 编号 = " + Chr$(34) + Text11.Text + Chr$(34)
   duzhersuser.Open duzhesql, duzhecn, adOpenDynamic, adLockOptimistic
    Set Text1.DataSource = duzhersuser
        Text1.DataField = "编号"
    Set Text2.DataSource = duzhersuser
        Text2.DataField = "姓名"
    Set Text3.DataSource = duzhersuser
        Text3.DataField = "性别"
    Set Text4.DataSource = duzhersuser
        Text4.DataField = "类别"
    Set Text5.DataSource = duzhersuser
        Text5.DataField = "登记日期"
    Set Text6.DataSource = duzhersuser
        Text6.DataField = "住址"
    Set Text7.DataSource = duzhersuser
        Text7.DataField = "单位部门"
    Set Text8.DataSource = duzhersuser
        Text8.DataField = "备注"
    Set Text9.DataSource = duzhersuser
        Text9.DataField = "借书次数"
    Set Text10.DataSource = duzhersuser
        Text10.DataField = "联系电话"
    Text11.Text = ""
End If
End Sub

Private Sub Text12_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
   Set duzhersuser = New Recordset
   duzhesql = "Select * from duzhe where 姓名 = " + Chr$(34) + Text12.Text + Chr$(34)
   duzhersuser.Open duzhesql, duzhecn, adOpenDynamic, adLockOptimistic
    Set Text1.DataSource = duzhersuser
        Text1.DataField = "编号"
    Set Text2.DataSource = duzhersuser
        Text2.DataField = "姓名"
    Set Text3.DataSource = duzhersuser
        Text3.DataField = "性别"
    Set Text4.DataSource = duzhersuser
        Text4.DataField = "类别"
    Set Text5.DataSource = duzhersuser
        Text5.DataField = "登记日期"
    Set Text6.DataSource = duzhersuser
        Text6.DataField = "住址"
    Set Text7.DataSource = duzhersuser
        Text7.DataField = "单位部门"
    Set Text8.DataSource = duzhersuser
        Text8.DataField = "备注"
    Set Text9.DataSource = duzhersuser
        Text9.DataField = "借书次数"
    Set Text10.DataSource = duzhersuser
        Text10.DataField = "联系电话"
    Text12.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 = &H80FFFF
End Sub

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

Private Sub Text12_GotFocus()
Text12.BackColor = &H80FFFF
End Sub

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