duzhe.frm

图书馆管理系统

      Width           =   1335
   End
   Begin VB.Label Label4 
      BackColor       =   &H00C0FFC0&
      Caption         =   "已借书："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   4800
      TabIndex        =   3
      Top             =   1200
      Width           =   1335
   End
   Begin VB.Label Label3 
      BackColor       =   &H00C0FFC0&
      Caption         =   "联系方式："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   360
      TabIndex        =   2
      Top             =   2400
      Width           =   1575
   End
   Begin VB.Label Label2 
      BackColor       =   &H00C0FFC0&
      Caption         =   "姓名："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   360
      TabIndex        =   1
      Top             =   1800
      Width           =   1575
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0FFC0&
      Caption         =   "证号："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   360
      TabIndex        =   0
      Top             =   1200
      Width           =   1575
   End
End
Attribute VB_Name = "duzhe"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim isAdding As Boolean             '定义操作状态标志
Dim objAdmin As Recordset           '用于保存管理员数据表记录
Dim objCn As Connection             '用于建立数据库联接
Private Sub cmdadd_Click()
txtnews = "添加新记录"
    Text1 = ""
    Text2 = ""
    Text3 = ""
    Text4 = ""
    Text5 = ""
    Text6 = ""
    isAdding = True
End Sub

Private Sub cmddelete_Click()
'根据是否处于添加记录状态执行不同的操作
    If isAdding Then
        '退出添加记录状态，显示当前记录
        isAdding = False
        If objAdmin.BOF And objAdmin.EOF Then
            txtnews = "记录：无"    '显示无记录提示
        Else
            '显示当前记录数据
            Text1 = objAdmin.Fields("证号")
            Text2 = objAdmin.Fields("姓名")
            Text3 = objAdmin.Fields("联系方式")
            Text4 = objAdmin.Fields("已借书数目")
            Text5 = objAdmin.Fields("读者类别")
            Text6 = objAdmin.Fields("能否借书")
            '显示当前记录编号和记录总数
            txtnews = "记录：" & objAdmin.AbsolutePosition & "/" & objAdmin.RecordCount
        End If
    Else
        If objAdmin.RecordCount > 0 Then
            If MsgBox("是否删除当前记录？", vbYesNo + vbQuestion, "读者信息管理") = vbYes Then
                objAdmin.Delete '执行删除当前记录操作
                cmdmove(2).Value = True '显示下一记录数据
            Else
                '显示当前记录数据
                Text1 = objAdmin.Fields("证号")
            Text2 = objAdmin.Fields("姓名")
            Text3 = objAdmin.Fields("联系方式")
            Text4 = objAdmin.Fields("已借书数目")
            Text5 = objAdmin.Fields("读者类别")
            Text6 = objAdmin.Fields("能否借书")
                '显示当前记录编号和记录总数
                txtnews = "记录：" & objAdmin.AbsolutePosition & "/" & objAdmin.RecordCount
            End If
        End If
    End If
End Sub

Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub cmdmove_Click(Index As Integer)
With objAdmin
        Select Case Index           '切换当前记录
            Case 0                  '使第一个记录成为当前记录
                If .RecordCount > 0 And Not .BOF Then .MoveFirst
            Case 1                  '使上一个记录成为当前记录
                If .RecordCount > 0 And Not .BOF Then
                    .MovePrevious
                    If .BOF Then .MoveFirst
                End If
            Case 2                  '使下一个记录成为当前记录
                If .RecordCount > 0 And Not .EOF Then
                    .MoveNext
                    If .EOF Then .MoveLast
                End If
            Case 3                  '使最后一个记录成为当前记录
                If .RecordCount > 0 And Not .EOF Then .MoveLast
        End Select
        If .RecordCount < 1 Then
            txtnews = "记录：无"    '显示无记录提示
            Text1 = ""
    Text2 = ""
    Text3 = ""
    Text4 = ""
    Text5 = ""
    Text6 = ""
        Else
            '显示当前记录数据
           Text1 = objAdmin.Fields("证号")
            Text2 = .Fields("姓名")
            Text3 = .Fields("联系方式")
            Text4 = .Fields("已借书数目")
            Text5 = .Fields("读者类别")
            Text6 = .Fields("能否借书")
            '显示当前记录编号和记录总数
            txtnews = "记录：" & .AbsolutePosition & "/" & .RecordCount
        End If
    End With
    If isAdding Then isAdding = False   '改变当前记录则退出当前添加记录状态
End Sub

Private Sub cmdsave_Click()
Dim objCopy As New Recordset
    If Trim(Text1) = "" Then
        MsgBox "证号不能为空！", vbCritical, "读者信息管理"
        Text1.SetFocus
        Text1 = ""
    Else
        Set objCopy = objAdmin.Clone
        With objCopy
            If .RecordCount > 0 Then
                '检查用户名是否被使用
                .MoveFirst
                .Find "证号='" & Trim(Text1) & "'"
                If (isAdding And Not .EOF) Or (Not isAdding And Not .EOF And _
                     .AbsolutePosition <> objAdmin.AbsolutePosition) Then
                    MsgBox "证号：" & Trim(Text1) & "已被使用，请使用其他证号！", _
                    vbCritical, "读者信息管理"
                   Text1.SetFocus
                   Text1.SelStart = 0
                   Text1.SelLength = Len(Text1)
                    Exit Sub
                End If
            End If
        End With
        '保存或添加记录
        If isAdding Then objAdmin.AddNew
        objAdmin.Fields("证号") = Trim(Text1)
        objAdmin.Fields("姓名") = Trim(Text2)
        objAdmin.Fields("联系方式") = Trim(Text3)
        objAdmin.Fields("已借书数目") = Trim(Text4)
        objAdmin.Fields("读者类别") = Trim(Text5)
        objAdmin.Fields("能否借书") = Trim(Text6)
        objAdmin.Update
        MsgBox "数据保存成功！", vbInformation, "读者信息管理"
        isAdding = False
        '显示当前记录编号和记录总数
        txtnews = "记录：" & objAdmin.AbsolutePosition & "/" & objAdmin.RecordCount
    End If
End Sub

Private Sub cmdseek_Click()
Dim strKey$
    strKey = InputBox("请输入要查询的证号！", "查询读者信息")
    If strKey = "" Then
        MsgBox "输入无效！", vbInformation, "读者信息管理"
    Else
        With objAdmin
            If .RecordCount > 0 Then
                .MoveFirst
                .Find "证号 like '*" & strKey & "*'"
                If .EOF Then
                    MsgBox "无证号为 " & strKey & " 的读者记录！", vbInformation, "读者信息管理"
                Else
                    '显示当前记录数据
                    Text1 = objAdmin.Fields("证号")
            Text2 = objAdmin.Fields("姓名")
            Text3 = .Fields("联系方式")
            Text4 = .Fields("已借书数目")
            Text5 = .Fields("读者类别")
            Text6 = .Fields("能否借书")
                    '显示当前记录编号和记录总数
                    txtnews = "记录：" & .AbsolutePosition & "/" & .RecordCount
                End If
            Else
                MsgBox "读者记录！", vbInformation, "读者信息管理"
            End If
        End With
    End If
End Sub

Private Sub Form_Load()
'建立数据库联接
    Set objCn = New Connection                 '实例化联接对象
    With objCn                                 '建立数据库联接
        .Provider = "SQLOLEDB"
        .ConnectionString = "User ID=sa;PWD=;Data Source=(local);" & _
                            "Initial Catalog=datatushu"
        .Open
    End With
    '获取管理员记录
    Set objAdmin = New Recordset                 '实例化objAdmin对象
    With objAdmin
        Set .ActiveConnection = objCn
        .CursorLocation = adUseClient           '指定使用客户端游标
        .CursorType = adOpenStatic              '指定使用静态游标
        .LockType = adLockOptimistic
        .Open "SELECT * FROM 读者信息"        '获取借阅信息
    End With
    '触发按钮单击事件，显示第一个记录
    cmdmove(0).Value = True
End Sub