frmlentbookid.frm

VB编制的图书管理系统,希望可给朋友们带来帮助.

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmLentBookID 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "借书证管理"
   ClientHeight    =   7245
   ClientLeft      =   510
   ClientTop       =   870
   ClientWidth     =   10365
   Icon            =   "frmLentBookID.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7245
   ScaleWidth      =   10365
   StartUpPosition =   2  '屏幕中心
   Begin MSComctlLib.ListView lvLBID 
      Height          =   6015
      Left            =   120
      TabIndex        =   2
      Top             =   1080
      Width           =   10095
      _ExtentX        =   17806
      _ExtentY        =   10610
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   15724527
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   0
   End
   Begin VB.PictureBox Picture1 
      BorderStyle     =   0  'None
      Height          =   900
      Left            =   240
      ScaleHeight     =   900
      ScaleWidth      =   6930
      TabIndex        =   0
      Top             =   120
      Width           =   6930
      Begin MSComctlLib.ImageList ImageList1 
         Left            =   4200
         Top             =   720
         _ExtentX        =   1005
         _ExtentY        =   1005
         BackColor       =   -2147483633
         ImageWidth      =   34
         ImageHeight     =   33
         MaskColor       =   12632256
         _Version        =   393216
         BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
            NumListImages   =   5
            BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmLentBookID.frx":0442
               Key             =   ""
            EndProperty
            BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmLentBookID.frx":083A
               Key             =   ""
            EndProperty
            BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmLentBookID.frx":1114
               Key             =   ""
            EndProperty
            BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmLentBookID.frx":FB55
               Key             =   ""
            EndProperty
            BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmLentBookID.frx":FFA7
               Key             =   ""
            EndProperty
         EndProperty
      End
      Begin MSComctlLib.Toolbar Toolbar1 
         Height          =   675
         Left            =   120
         TabIndex        =   1
         Top             =   120
         Width           =   6615
         _ExtentX        =   11668
         _ExtentY        =   1191
         ButtonWidth     =   2090
         ButtonHeight    =   1032
         Appearance      =   1
         TextAlignment   =   1
         ImageList       =   "ImageList1"
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   10
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "添加"
               ImageIndex      =   1
            EndProperty
            BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "修改"
               ImageIndex      =   2
            EndProperty
            BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "删除"
               ImageIndex      =   3
            EndProperty
            BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "查找"
               ImageIndex      =   4
            EndProperty
            BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   4
            EndProperty
            BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   4
            EndProperty
            BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   4
            EndProperty
            BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   4
            EndProperty
            BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   4
            EndProperty
            BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "关闭"
               ImageIndex      =   5
            EndProperty
         EndProperty
         BorderStyle     =   1
      End
   End
End
Attribute VB_Name = "frmLentBookID"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
  
Private Sub Form_Load()
    Dim ADOrs As New Recordset
    
    ADOrs.ActiveConnection = ADOcn
    
    lvLBID.View = lvwReport
    lvLBID.GridLines = True

    lvLBID.ColumnHeaders.Add , , "借书证号"
    lvLBID.ColumnHeaders.Add , , "姓名"
    lvLBID.ColumnHeaders.Add , , "性别"
    lvLBID.ColumnHeaders.Add , , "读者类别"
    lvLBID.ColumnHeaders.Add , , "工作单位"
    lvLBID.ColumnHeaders.Add , , "家庭住址"
    lvLBID.ColumnHeaders.Add , , "电话号码"
    lvLBID.ColumnHeaders.Add , , "登记日期"
    lvLBID.ColumnHeaders.Add , , "已借书数量"
    
    ADOrs.Open "Select * From 读者信息 Order By 借书证号"
    If ADOrs.RecordCount <> 0 Then
        ADOrs.Close
        DispId
    End If
    
End Sub
Sub DispId()
    Dim ADOrs As New Recordset
    Dim i As Integer
    
    lvLBID.ListItems.Clear
    ADOrs.ActiveConnection = ADOcn
    ADOrs.CursorLocation = adUseClient
    ADOrs.CursorType = adOpenDynamic
    'ADOrs.CursorType = adOpenStatic
    ADOrs.LockType = adLockOptimistic
    ADOrs.Open "Select * From 读者信息 Order By 借书证号"
    ADOrs.MoveLast
    Rec = ADOrs.RecordCount
    ADOrs.MoveFirst
    For i = 1 To Rec
        lvLBID.ListItems.Add i, , ADOrs.Fields("借书证号")
        With lvLBID.ListItems(i)
            .SubItems(1) = ADOrs.Fields("读者姓名") & vbNullString
            .SubItems(2) = ADOrs.Fields("性别") & vbNullString
            .SubItems(3) = ADOrs.Fields("读者类别") & vbNullString
            .SubItems(4) = ADOrs.Fields("工作单位") & vbNullString
            .SubItems(5) = ADOrs.Fields("家庭住址") & vbNullString
            .SubItems(6) = ADOrs.Fields("电话号码") & vbNullString
            .SubItems(7) = ADOrs.Fields("登记日期") & vbNullString
            .SubItems(8) = ADOrs.Fields("已借书数量") & vbNullString
        End With
        ADOrs.MoveNext
        If ADOrs.EOF Then Exit For
    Next
    ADOrs.Close
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Caption
    Case "添加"
        
        frmEditLentBookID.Show 1
    Case "修改"
        
        frmEditLentBookID.Caption = "修改借书人员信息"
        frmEditLentBookID.Show 1
    Case "删除"
        If MsgBox("是否真要删除?", vbQuestion + vbYesNo) = vbYes Then
            strSQL = "Delete From 读者信息 "
            strSQL = strSQL + "Where 借书证号='" + lvLBID.SelectedItem.Text + "'"
            ADOcn.Execute strSQL
            MsgBox "删除成功", vbQuestion + vbOKOnly
            Call Form_Load
        End If
    Case "查找"
        frmSearchNUM.Caption = "借书证查找"
        frmSearchNUM.Label1.Caption = "请输入要查找的借书证号"
        frmSearchNUM.Show 1

        
    Case "关闭"
        Unload Me
    End Select
End Sub