jieyue.frm

图书馆管理系统

      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        =   9
      Top             =   2040
      Width           =   1575
   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        =   8
      Top             =   840
      Width           =   1335
   End
   Begin VB.Label Label5 
      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        =   7
      Top             =   1440
      Width           =   1335
   End
   Begin VB.Label Label6 
      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        =   6
      Top             =   2040
      Width           =   1335
   End
End
Attribute VB_Name = "jieyue"
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 = objAdmin.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) = "" Or Trim(Text2) = "" Then
        MsgBox "证号，书号不能为空！", vbCritical, "借阅信息管理"
        Text1.SetFocus
        Text2.SetFocus
        Text1 = ""
        Text2 = ""
    Else
        Set objCopy = objAdmin.Clone
        With objCopy
            If .RecordCount > 0 Then
                '检查用户名是否被使用
                .MoveFirst
                .Find "证号='" & Trim(Text1) & "'"
                .Find "书号='" & Trim(Text2) & "'"
                If (isAdding And Not .EOF) Or (Not isAdding And Not .EOF And _
                     .AbsolutePosition <> objAdmin.AbsolutePosition) Then
                    MsgBox "证号：" & Trim(Text1) & "已被使用，请使用其他证号！", _
                    vbCritical, "借阅信息管理"
                   Text1.SetFocus
                   Text2.SetFocus
                   Text1.SelStart = 0
                   Text2.SelStart = 0
                   Text1.SelLength = Len(Text1)
                   Text2.SelLength = Len(Text2)
                    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