frmmain.frm

采用VB编写的使用图书销售管理系统,界面简洁,功能强大

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "图书馆管理信息系统"
   ClientHeight    =   5004
   ClientLeft      =   132
   ClientTop       =   732
   ClientWidth     =   8232
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   Begin MSComctlLib.StatusBar sbStatusBar 
      Align           =   2  'Align Bottom
      Height          =   264
      Left            =   0
      TabIndex        =   0
      Top             =   4740
      Width           =   8232
      _ExtentX        =   14520
      _ExtentY        =   466
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   8911
            Text            =   "Status"
            TextSave        =   "Status"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            AutoSize        =   2
            TextSave        =   "2001-11-15"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            AutoSize        =   2
            TextSave        =   "17:43"
         EndProperty
      EndProperty
   End
   Begin VB.Menu menuSystem 
      Caption         =   "系统"
      Begin VB.Menu menuModifypwd 
         Caption         =   "修改密码"
      End
      Begin VB.Menu menuAdduser 
         Caption         =   "添加用户"
      End
      Begin VB.Menu menuExit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu menuReader 
      Caption         =   "读者管理"
      Begin VB.Menu menuReadertype 
         Caption         =   "读者种类管理"
         Begin VB.Menu menuAddreadertype 
            Caption         =   "添加读者种类"
         End
         Begin VB.Menu menuModifyreadertype 
            Caption         =   "修改读者种类"
         End
         Begin VB.Menu menuDeletereadertype 
            Caption         =   "删除读者种类"
         End
      End
      Begin VB.Menu menuReaders 
         Caption         =   "读者信息管理"
         Begin VB.Menu menuAddreader 
            Caption         =   "添加读者信息"
         End
         Begin VB.Menu menuModifyreader 
            Caption         =   "修改读者信息"
         End
         Begin VB.Menu menuDeletereader 
            Caption         =   "删除读者信息"
         End
         Begin VB.Menu menuInquirereader 
            Caption         =   "查询读者信息"
         End
      End
   End
   Begin VB.Menu menuBook 
      Caption         =   "书籍管理"
      Begin VB.Menu menuBooktype 
         Caption         =   "书籍类别管理"
         Begin VB.Menu menuAddbooktype 
            Caption         =   "添加书籍类别"
         End
         Begin VB.Menu menuModifybooktype 
            Caption         =   "修改书籍类别"
         End
         Begin VB.Menu menuDeletebooktype 
            Caption         =   "删除书籍类别"
         End
      End
      Begin VB.Menu menuBooks 
         Caption         =   "书籍信息管理"
         Begin VB.Menu menuAddbook 
            Caption         =   "添加书籍信息"
         End
         Begin VB.Menu menuModifybook 
            Caption         =   "修改书籍信息"
         End
         Begin VB.Menu menuDeletebook 
            Caption         =   "删除书籍信息"
         End
         Begin VB.Menu menuInquirebook 
            Caption         =   "查询书籍信息"
         End
      End
   End
   Begin VB.Menu menuBorrows 
      Caption         =   "借阅信息管理"
      Begin VB.Menu menuBorrow 
         Caption         =   "借书信息管理"
         Begin VB.Menu menuAddborrow 
            Caption         =   "添加借书信息"
         End
         Begin VB.Menu menuModityborrow 
            Caption         =   "修改借书信息"
         End
         Begin VB.Menu menuDeleteborrow 
            Caption         =   "删除借书信息"
         End
         Begin VB.Menu menuInquireborrow 
            Caption         =   "查询借书信息"
         End
      End
      Begin VB.Menu menuReturn 
         Caption         =   "还书信息管理"
         Begin VB.Menu menuAddreturn 
            Caption         =   "添加还书信息"
         End
         Begin VB.Menu menuModifyreturn 
            Caption         =   "修改还书信息"
         End
         Begin VB.Menu menuInquirereturn 
            Caption         =   "查询还书信息"
         End
      End
   End
   Begin VB.Menu menuHelp 
      Caption         =   "帮助"
      Begin VB.Menu menuAbout 
         Caption         =   "About"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub MDIForm_Load()
    Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
    Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
    Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
    Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
    
End Sub





Private Sub MDIForm_Unload(Cancel As Integer)
    If Me.WindowState <> vbMinimized Then
        SaveSetting App.Title, "Settings", "MainLeft", Me.Left
        SaveSetting App.Title, "Settings", "MainTop", Me.Top
        SaveSetting App.Title, "Settings", "MainWidth", Me.Width
        SaveSetting App.Title, "Settings", "MainHeight", Me.Height
    End If
End Sub

Private Sub menuAddbook_Click()
    gintBmode = 1
    frmBook1.Show
    frmBook1.ZOrder 0
End Sub

Private Sub menuAddbooktype_Click()
    gintBTmode = 1
    frmBooktype1.Show
    frmBooktype1.ZOrder 0
End Sub

Private Sub menuAddborrow_Click()
    gintBOmode = 1
    frmBorrow1.Show
    frmBorrow1.ZOrder 0
End Sub

Private Sub menuAddreader_Click()
    gintRmode = 1
    frmReader1.Show
    frmReader1.ZOrder 0
    
End Sub

Private Sub menuAddreadertype_Click()
    gintRTmode = 1
    frmReadertype1.Show
    frmReadertype1.ZOrder 0
End Sub

Private Sub menuAddreturn_Click()
    gintBBmode = 1
    frmReturn1.Show
End Sub

Private Sub menuDeletebook_Click()
    Dim txtSQL As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    Dim MsgText As String
    
    
    If flagBedit Then
        If frmBook.msgList.Rows > 1 Then
            If MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = frmBook.msgList.Row
                txtSQL = "delete from books where bookid='" & Trim(frmBook.msgList.TextMatrix(intCount, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                
                Unload frmBook
                frmBook.txtSQL = "select * from books"
                frmBook.Show
            End If
        End If
    End If
End Sub

Private Sub menuDeletebooktype_Click()
    Dim txtSQL As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    Dim MsgText As String
    
    
    If flagBTedit Then
        If frmBooktype.msgList.Rows > 1 Then
            If MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = frmBooktype.msgList.Row
                txtSQL = "delete from booktype where booktypeno='" & Trim(frmBooktype.msgList.TextMatrix(intCount, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                
                Unload frmBooktype
                frmBooktype.txtSQL = "select * from booktype"
                frmBooktype.Show
            End If
        End If
    End If
End Sub

Private Sub menuDeleteborrow_Click()
    Dim txtSQL As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    Dim MsgText As String
    
    
    If flagBOedit Then
        If frmBorrow.msgList.Rows > 1 Then
            If MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = frmBorrow.msgList.Row
                txtSQL = "delete from borrowinfo where borrowno='" & Trim(frmBorrow.msgList.TextMatrix(intCount, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                
                txtSQL = "select * from books where bookid = '" & Trim(frmBorrow.msgList.TextMatrix(intCount, 4)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                If Not mrc.EOF Then
                    mrc.Fields(9) = " "
                    mrc.Update
                End If
                mrc.Close
                
                Unload frmBorrow
                frmBorrow.txtSQL = "select borrowno,readerid,readername,bookid,bookname,borrowdate,memo from borrowinfo"
                frmBorrow.Show
            End If
        End If
    End If
End Sub

Private Sub menuDeletereader_Click()
    Dim txtSQL As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    Dim MsgText As String
    
    
    If flagRedit Then
        If frmReader.msgList.Rows > 1 Then
            If MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = frmReader.msgList.Row
                txtSQL = "delete from readers where readerno='" & Trim(frmReader.msgList.TextMatrix(intCount, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                
                Unload frmReader
                frmReader.txtSQL = "select * from readers"
                frmReader.Show
            End If
        End If
    End If
End Sub

Private Sub menuDeletereadertype_Click()
    Dim txtSQL As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    Dim MsgText As String
    
    
    If flagRTedit Then
        If frmReadertype.msgList.Rows > 1 Then
            If MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = frmReadertype.msgList.Row
                txtSQL = "delete from readertype where typeno='" & Trim(frmReadertype.msgList.TextMatrix(intCount, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                
                Unload frmReadertype
                frmReadertype.txtSQL = "select * from readertype"
                frmReadertype.Show
            End If
        End If
    End If
End Sub

Private Sub menuInquirebook_Click()
    frmBook2.Show
End Sub

Private Sub menuInquireborrow_Click()
    frmBorrow2.Show
End Sub

Private Sub menuInquirereader_Click()
    frmReader2.Show
End Sub

Private Sub menuInquirereturn_Click()
    frmReturn2.Show
End Sub

Private Sub menuModifybook_Click()
    Dim intCount As Integer
    If flagBedit Then
        If frmBook.msgList.Rows > 1 Then
            gintBmode = 2
            intCount = frmBook.msgList.Row
            frmBook1.txtSQL = "select * from books where bookid ='" & Trim(frmBook.msgList.TextMatrix(intCount, 1)) & "'"
            frmBook1.Show
        Else
            Call menuAddbook_Click
        End If
    Else
        frmBook.txtSQL = "select * from books"
        frmBook.Show
    End If
End Sub

Private Sub menuModifybooktype_Click()
    Dim intCount As Integer
    If flagBTedit Then
        If frmBooktype.msgList.Rows > 1 Then
            gintBTmode = 2
            intCount = frmBooktype.msgList.Row
            frmBooktype1.txtSQL = "select * from booktype where booktypeno='" & Trim(frmBooktype.msgList.TextMatrix(intCount, 1)) & "'"
            frmBooktype1.Show
        Else
            Call menuAddbooktype_Click
        End If
    Else
        frmBooktype.txtSQL = "select * from booktype"
        frmBooktype.Show
    End If
End Sub

Private Sub menuModifyreader_Click()
    Dim intCount As Integer
    If flagRedit Then
        If frmReader.msgList.Rows > 1 Then
            gintRmode = 2
            intCount = frmReader.msgList.Row
            frmReader1.txtSQL = "select * from readers where readerno='" & Trim(frmReader.msgList.TextMatrix(intCount, 1)) & "'"
            frmReader1.Show
        Else
            Call menuAddreader_Click
        End If
    Else
        frmReader.txtSQL = "select * from readers"
        frmReader.Show
    End If
End Sub

Private Sub menuModifyreadertype_Click()
    Dim intCount As Integer
    If flagRTedit Then
        If frmReadertype.msgList.Rows > 1 Then
            gintRTmode = 2
            intCount = frmReadertype.msgList.Row
            frmReadertype1.txtSQL = "select * from readertype where typeno='" & Trim(frmReadertype.msgList.TextMatrix(intCount, 1)) & "'"
            frmReadertype1.Show
        Else
            Call menuAddreadertype_Click
        End If
    Else
        frmReadertype.txtSQL = "select * from readertype"
        frmReadertype.Show
    End If
End Sub

Private Sub menuModifyreturn_Click()
    Dim intCount As Integer
    If flagBBedit Then
        If frmReturn.msgList.Rows > 1 Then
            gintBBmode = 2
            intCount = frmReturn.msgList.Row
            frmReturn1.txtSQL = "select * from borrowinfo where borrowno='" & Trim(frmReturn.msgList.TextMatrix(intCount, 1)) & "' "
            frmReturn1.Show
        Else
            Call menuAddreturn_Click
        End If
    Else
        frmReturn.txtSQL = "select * from borrowinfo where returndate is not null"
        frmReturn.Show
    End If
End Sub

Private Sub menuModityborrow_Click()
    Dim intCount As Integer
    If flagBOedit Then
        If frmBorrow.msgList.Rows > 1 Then
            gintBOmode = 2
            intCount = frmBorrow.msgList.Row
            frmBorrow1.txtSQL = "select borrowno,readerid,readername,bookid,bookname,borrowdate,memo from borrowinfo where borrowno='" & Trim(frmBorrow.msgList.TextMatrix(intCount, 1)) & "'"
            frmBorrow1.Show
        Else
            Call menuAddborrow_Click
        End If
    Else
        frmBorrow.txtSQL = "select borrowno,readerid,readername,bookid,bookname,borrowdate,memo from borrowinfo where returndate is null"
        frmBorrow.Show
    End If
End Sub