mainfrm.frm

其中包含比较详细的软件工程的概要设计说明书、详细设计说明书、系统需求规格说明书、项目开发计划书、软件工程课程设计报告、项目可行性研究报告

VERSION 5.00
Begin VB.Form 主界面 
   Caption         =   "图书管理系统"
   ClientHeight    =   3120
   ClientLeft      =   4830
   ClientTop       =   2445
   ClientWidth     =   5550
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   ScaleHeight     =   3120
   ScaleWidth      =   5550
   Begin VB.CommandButton Exit 
      Caption         =   "退出"
      Height          =   375
      Left            =   4440
      TabIndex        =   5
      Top             =   2640
      Width           =   975
   End
   Begin VB.CommandButton Command4 
      Caption         =   "帮助"
      Height          =   375
      Left            =   3360
      TabIndex        =   4
      Top             =   2640
      Width           =   975
   End
   Begin VB.CommandButton SysOp 
      Caption         =   "系统操作"
      Height          =   375
      Left            =   2280
      TabIndex        =   3
      Top             =   2640
      Width           =   975
   End
   Begin VB.CommandButton Exchange 
      Caption         =   "图书流通"
      Height          =   375
      Left            =   1200
      TabIndex        =   2
      Top             =   2640
      Width           =   975
   End
   Begin VB.CommandButton search 
      Caption         =   "图书查询"
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   2640
      Width           =   975
   End
   Begin VB.Line Line1 
      X1              =   0
      X2              =   5520
      Y1              =   2520
      Y2              =   2520
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "图书管理系统"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   21.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   435
      Left            =   1455
      TabIndex        =   0
      Top             =   960
      Width           =   2625
   End
End
Attribute VB_Name = "主界面"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command4_Click()
    MsgBox "按图书查询按钮可进行图书查询和读者查询" + vbCrLf + "按图书流通按钮可进行借书和还书" + vbCrLf + "按系统设置可进行系统的维护工作" + vbCrLf + "按了帮助，可相应的得到帮助信息"
End Sub

Private Sub Exchange_Click()
    Me.Hide
    图书流通.Show
End Sub

Private Sub Exit_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    If liancn = True Then               '调用数据库连接程序，并判断连接是否成功
        If de.Libarary.State = 0 Then de.Libarary.Open
        If de.rsBook.State = 0 Then de.Book
        If de.rsBookbrowse.State = 0 Then de.Bookbrowse
        If de.rsBookInfo.State = 0 Then de.BookInfo
        If de.rsbrowseinfo.State = 0 Then de.BrowseInfo
        If de.rsReader.State = 0 Then de.reader
        If de.rsReaderInfo.State = 0 Then de.ReaderInfo
        If de.rsSysRecord.State = 0 Then de.SysRecord
        If de.rsOperator.State = 0 Then de.Operator
    End If
End Sub


Private Sub Form_Unload(Cancel As Integer)  '断开数据库连接
    If liancn = True Then
        If de.rsOperator.State Then de.rsOperator.Close
        If de.rsBook.State Then de.rsBook.Close
        If de.rsBookbrowse.State Then de.rsBookbrowse.Close
        If de.rsBookInfo.State Then de.rsBookInfo.Close
        If de.rsbrowseinfo.State Then de.rsbrowseinfo.Close
        If de.rsReader.State Then de.rsReader.Close
        If de.rsReaderInfo.State Then de.rsReaderInfo.Close
        If de.rsSysRecord.State Then de.rsSysRecord.Close
        If de.Libarary.State Then de.Libarary.Close
    End If
End Sub

Private Sub search_Click()
    Me.Hide
    图书查询.Show
End Sub

'数据库连接程序
Private Function liancn()
    Dim cn As New ADODB.Connection
    On Error GoTo liancn_Error
      
    '连接odbc中的data数据源
    cn.ConnectionString = "data source=libarary"
    cn.Open
    '返回连接成功
    liancn = True
    cn.Close
    Exit Function
liancn_Error:
        '返回连接失败
        liancn = False
        MsgBox "请在ODBC中创建一个libarary数据源后重试！" + vbCrLf + "具体操作请见README文件", vbExclamation + vbOKOnly, "数据库连接错误"
        End
End Function

Private Sub SysOp_Click()
    Me.Hide
    管理员验证.Show
End Sub