fborrow.frm

本程序是vb+access做的图书管管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form fborrowcheck 
   Caption         =   "借书管理"
   ClientHeight    =   5475
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7905
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   5475
   ScaleWidth      =   7905
   Begin VB.CommandButton cmdmodify 
      Caption         =   "修改"
      Height          =   495
      Left            =   2440
      TabIndex        =   4
      Top             =   4440
      Width           =   1215
   End
   Begin VB.CommandButton cmddelete 
      Caption         =   "删除"
      Height          =   495
      Left            =   4280
      TabIndex        =   3
      Top             =   4440
      Width           =   1215
   End
   Begin VB.CommandButton cmdexit 
      Caption         =   "退出"
      Height          =   495
      Left            =   6120
      TabIndex        =   2
      Top             =   4440
      Width           =   1215
   End
   Begin VB.CommandButton cmdadd 
      Caption         =   "增加"
      Height          =   495
      Left            =   600
      TabIndex        =   1
      Top             =   4440
      Width           =   1215
   End
   Begin MSComctlLib.ListView lvw3 
      Height          =   3975
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   7575
      _ExtentX        =   13361
      _ExtentY        =   7011
      View            =   3
      LabelEdit       =   1
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      GridLines       =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   0
   End
End
Attribute VB_Name = "fborrowcheck"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Function getallinformation() As Boolean
    Dim intindex As Long
    If runsql("select * from borrow") = False Then
        MsgBox "不能取得书名信息"
        Exit Function
    Else
        lvw3.ListItems.Clear
    End If
    
    If rct.EOF And rct.BOF Then
        Exit Function
    End If
    
    rct.MoveFirst
    Dim lstitem As ListItem
    Do While Not rct.EOF
        Set lstitem = lvw3.ListItems.add(, "k_" & rct.Fields("borrowid").Value, rct.Fields("borrowid").Value)
        lstitem.SubItems(1) = rct.Fields("borrowtime").Value
        lstitem.SubItems(2) = rct.Fields("bookid").Value
        lstitem.SubItems(3) = rct.Fields("readerid").Value
        lstitem.SubItems(4) = rct.Fields("returntime").Value
        lstitem.Tag = CStr(rct.Fields("borrowid").Value)
        rct.MoveNext
    Loop
    
End Function

Public Sub cmdadd_Click()
    Dim add As New fborrowmodify
    add.isadd = True
    add.Show
End Sub

Private Sub cmddelete_Click()
If lvw3.SelectedItem Is Nothing Then
    Exit Sub
End If

If MsgBox("确认要删除" & lvw3.SelectedItem.SubItems(1) & "吗？", vbYesNo + vbQuestion, "删除客户") = vbNo Then
    Exit Sub
End If

If runsql("delete from borrow where borrowid='" & lvw3.SelectedItem.Tag & "'") = True Then
    lvw3.ListItems.Remove (lvw3.SelectedItem.Key)
End If
End Sub

Private Sub cmdexit_Click()
    Unload Me
End Sub

Private Sub cmdmodify_Click()
If lvw3.SelectedItem Is Nothing Then
    Exit Sub
End If
 
 Dim modify As New fborrowmodify
 modify.isadd = False
 modify.Tborrowid.Text = lvw3.SelectedItem.Text
 modify.Tborrowtime.Text = lvw3.SelectedItem.SubItems(1)
 modify.Tbookid.Text = lvw3.SelectedItem.SubItems(2)
 modify.Treaderid.Text = lvw3.SelectedItem.SubItems(3)
 modify.Treturntime.Text = lvw3.SelectedItem.SubItems(4)
 
' modify.Show vbModal, Me
End Sub

Private Sub Form_Load()
lvw3.ColumnHeaders.add , , "借书编号", 1500
lvw3.ColumnHeaders.add , , "借书时间", 1500
lvw3.ColumnHeaders.add , , "书目编号", 1500
lvw3.ColumnHeaders.add , , "读者编号", 1500
lvw3.ColumnHeaders.add , , "还书时间", 1500

Call connecttoserver
Call getallinformation
If grade = 2 Then
 
 fborrowcheck.cmdadd.Enabled = False
 fborrowcheck.cmddelete.Enabled = False
 fborrowcheck.cmdmodify.Enabled = False
End If
 
End Sub