fbookcheck.frm

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

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Fbookcheck 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "书籍管理"
   ClientHeight    =   5445
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8025
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   5445
   ScaleWidth      =   8025
   Begin VB.CommandButton cmdadd 
      Caption         =   "增加"
      Height          =   495
      Left            =   480
      TabIndex        =   4
      Top             =   4560
      Width           =   1215
   End
   Begin MSComctlLib.ListView lvw1 
      Height          =   4095
      Left            =   240
      TabIndex        =   3
      Top             =   120
      Width           =   7455
      _ExtentX        =   13150
      _ExtentY        =   7223
      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
   Begin VB.CommandButton cmdremove 
      Caption         =   "删除"
      Height          =   495
      Left            =   4440
      TabIndex        =   2
      Top             =   4560
      Width           =   1095
   End
   Begin VB.CommandButton cmdmodify 
      Caption         =   "修改"
      Height          =   495
      Left            =   2400
      TabIndex        =   1
      Top             =   4560
      Width           =   1215
   End
   Begin VB.CommandButton cmdexit 
      Caption         =   "退出"
      Height          =   495
      Left            =   6240
      TabIndex        =   0
      Top             =   4560
      Width           =   1215
   End
End
Attribute VB_Name = "Fbookcheck"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Function getallinformation() As Boolean
Dim intindex As Long
'If runsql("select * from books") = False Then
   ' MsgBox "不能取得书名信息"
  '  Exit Function
'Else
'    lvw1.ListItems.Clear
'End If
runsql ("select * from books")
If rct.EOF And rct.BOF Then
    Exit Function

Else
rct.MoveFirst
Dim lstitem As ListItem
Do While Not rct.EOF
    Set lstitem = lvw1.ListItems.add(, "k_" & rct.Fields("bookid").Value, rct.Fields("bookid").Value)
    lstitem.SubItems(1) = rct.Fields("bookname").Value
    lstitem.SubItems(2) = rct.Fields("bookauthor").Value
    lstitem.SubItems(3) = rct.Fields("sum").Value
    lstitem.SubItems(4) = rct.Fields("remain").Value
    lstitem.Tag = CStr(rct.Fields("bookid").Value)
    rct.MoveNext
Loop
End If

End Function


Private Sub Command2_Click()
    Fbookaddmodify.Show
End Sub

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

Private Sub cmdexit_Click()
    Unload Me
End Sub

Private Sub cmdmodify_Click()
If lvw1.SelectedItem Is Nothing Then
    Exit Sub
End If

 Dim modify As New Fbookaddmodify
 modify.isadd = False
 modify.Tbookid.Text = lvw1.SelectedItem.Text
 modify.Tbookname.Text = lvw1.SelectedItem.SubItems(1)
 modify.Tauthorname.Text = lvw1.SelectedItem.SubItems(2)
 modify.Tnumber.Text = lvw1.SelectedItem.SubItems(3)
 modify.Texist.Text = lvw1.SelectedItem.SubItems(4)
 
 modify.Show vbModal, Me
 
End Sub

Private Sub cmdremove_Click()
    
    If lvw1.SelectedItem Is Nothing Then
        Exit Sub
    End If
    
    If MsgBox("确认要删除" & lvw1.SelectedItem.SubItems(1) & "吗？", vbYesNo + vbQuestion, "删除客户") = vbNo Then
        Exit Sub
    End If
    
    If runsql("delete from books where bookid='" & lvw1.SelectedItem.Tag & "'") = True Then
        lvw1.ListItems.Remove (lvw1.SelectedItem.Key)
    End If

End Sub

Private Sub Form_Load()
    
    lvw1.ColumnHeaders.add , , "书号", 1500
    lvw1.ColumnHeaders.add , , "书名", 1500
    lvw1.ColumnHeaders.add , , "作者", 1500
    lvw1.ColumnHeaders.add , , "总数", 1500
    lvw1.ColumnHeaders.add , , "剩余数", 1500

    Call connecttoserver
    Call getallinformation
    
    If grade = 2 Then

            cmdadd.Enabled = False
            cmdmodify.Enabled = False
            cmdremove.Enabled = False
End If
    
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Call closeconnect
End Sub