menu.frm

图书馆管理系统

VERSION 5.00
Begin VB.Form Menu 
   BackColor       =   &H8000000D&
   Caption         =   "图书管理系统"
   ClientHeight    =   5235
   ClientLeft      =   195
   ClientTop       =   480
   ClientWidth     =   3990
   LinkTopic       =   "Form1"
   ScaleHeight     =   5235
   ScaleWidth      =   3990
   Begin VB.CommandButton Command1 
      Caption         =   "历史数据表"
      Height          =   495
      Left            =   2160
      TabIndex        =   8
      Top             =   3600
      Width           =   1455
   End
   Begin VB.CommandButton bk_search 
      Caption         =   "书目查询"
      Height          =   495
      Left            =   2160
      TabIndex        =   7
      Top             =   2640
      Width           =   1455
   End
   Begin VB.CommandButton exit 
      Caption         =   "退出"
      Height          =   615
      Left            =   2880
      TabIndex        =   6
      Top             =   4440
      Width           =   735
   End
   Begin VB.CommandButton rd_mng 
      Caption         =   "读者管理"
      Height          =   495
      Left            =   360
      TabIndex        =   5
      Top             =   3600
      Width           =   1455
   End
   Begin VB.CommandButton punish_mng 
      Caption         =   "罚款处理"
      Height          =   495
      Left            =   360
      TabIndex        =   4
      Top             =   2640
      Width           =   1455
   End
   Begin VB.CommandButton ret_bk 
      Caption         =   "读者还书"
      Height          =   495
      Left            =   2160
      TabIndex        =   3
      Top             =   1680
      Width           =   1455
   End
   Begin VB.CommandButton bor_bk 
      Caption         =   "读者借书"
      Height          =   495
      Left            =   360
      TabIndex        =   2
      Top             =   1680
      Width           =   1455
   End
   Begin VB.CommandButton drop_obk 
      Caption         =   "旧书出库"
      Height          =   495
      Left            =   2160
      TabIndex        =   1
      Top             =   720
      Width           =   1455
   End
   Begin VB.CommandButton load_nbk 
      Caption         =   "新书入库"
      Height          =   495
      Left            =   360
      TabIndex        =   0
      Top             =   720
      Width           =   1455
   End
End
Attribute VB_Name = "Menu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As Recordset
Dim str As String

Private Sub bk_search_Click()
search_bk.Show vbModal
End Sub

Private Sub bor_bk_Click()
borrow.Show vbModal
End Sub

Private Sub Command1_Click()
history.Show vbModal
End Sub

Private Sub drop_obk_Click()
bkout.Show vbModal
End Sub

Private Sub exit_Click()
    
    Unload Me
    
End Sub

Private Sub load_nbk_Click()

load_nbkf.Show vbModal

End Sub

Private Sub punish_mng_Click()
stri = "delete 罚款记录表"
exesql (stri)
stri = "insert 罚款记录表 select  读者编号,图书编号,罚款日期=借书日期+30,罚款数目=datediff(dd,借书日期,getdate())-30 From 图书借阅表 Where DateDiff(dd, 借书日期, getdate()) - 30 > 0 "
exesql (stri)
punish.Show vbModal
End Sub

Private Sub rd_mng_Click()
reader.Show vbModal
End Sub

Private Sub ret_bk_Click()
retbk.Show vbModal
End Sub