mdiform1.frm

图书管管理系统 借阅还书续借用户的添加删除修改 用户的权限

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "图书馆管理系统"
   ClientHeight    =   6885
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   9555
   Icon            =   "MDIForm1.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "MDIForm1.frx":2C14A
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.PictureBox picTray 
      Align           =   1  'Align Top
      Height          =   375
      Left            =   0
      ScaleHeight     =   315
      ScaleWidth      =   9495
      TabIndex        =   1
      Top             =   0
      Visible         =   0   'False
      Width           =   9555
   End
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   7680
      Top             =   4200
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   255
      Left            =   0
      TabIndex        =   0
      Top             =   6630
      Width           =   9555
      _ExtentX        =   16854
      _ExtentY        =   450
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   4
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            AutoSize        =   1
            Object.Width           =   2937
            Text            =   "图书馆管理系统 v1.0"
            TextSave        =   "图书馆管理系统 v1.0"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   2937
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   2
            AutoSize        =   1
            Object.Width           =   7453
            MinWidth        =   7056
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   2
            AutoSize        =   1
            Object.Width           =   2937
         EndProperty
      EndProperty
   End
   Begin VB.Menu mfstart 
      Caption         =   "开始(&S)"
      Index           =   1
      Begin VB.Menu mfcheck 
         Caption         =   "登陆(&I)"
         Shortcut        =   ^I
      End
      Begin VB.Menu mfxx 
         Caption         =   "-"
      End
      Begin VB.Menu MDbackUp 
         Caption         =   "数据库备分"
      End
      Begin VB.Menu sssss 
         Caption         =   "-"
      End
      Begin VB.Menu mfclose 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu mfwork 
      Caption         =   "操作(&W)"
      Begin VB.Menu mflent 
         Caption         =   "借阅图书(&T)"
         Shortcut        =   ^T
      End
      Begin VB.Menu mfrennew 
         Caption         =   "续借图书(&R)"
         Shortcut        =   ^S
      End
      Begin VB.Menu mfx 
         Caption         =   "-"
      End
      Begin VB.Menu mfreturn 
         Caption         =   "还书(&B)"
         Shortcut        =   ^B
      End
   End
   Begin VB.Menu mfedit 
      Caption         =   "编辑(&E)"
      Begin VB.Menu mffindbook 
         Caption         =   "查找图书(&F)"
         Shortcut        =   ^F
      End
      Begin VB.Menu mffindreader 
         Caption         =   "查找读者(&D)"
         Shortcut        =   ^D
      End
      Begin VB.Menu MFreaderL 
         Caption         =   "读者借阅查询(&L)"
      End
   End
   Begin VB.Menu mfadd 
      Caption         =   "添加(&A)"
      Begin VB.Menu mfaddbook 
         Caption         =   "添加图书(&K)"
         Shortcut        =   ^K
      End
      Begin VB.Menu mfaddreader 
         Caption         =   "添加读者(&N)"
         Shortcut        =   ^N
      End
   End
   Begin VB.Menu mfsysteminfo 
      Caption         =   "系统设置(&U)"
      Begin VB.Menu mfsetinfo 
         Caption         =   "基本设置(&J)"
         Shortcut        =   ^J
      End
      Begin VB.Menu mfbooktype 
         Caption         =   "图书类别设置(&Y)"
         Shortcut        =   ^Y
      End
      Begin VB.Menu mfxxx 
         Caption         =   "-"
      End
      Begin VB.Menu mfsetadmin 
         Caption         =   "管理员设置(&G)"
      End
   End
   Begin VB.Menu MDTJ 
      Caption         =   "统计(&T)"
      Begin VB.Menu MDTsum 
         Caption         =   "馆内图书统计"
      End
   End
   Begin VB.Menu mfinfo 
      Caption         =   "关于"
      Begin VB.Menu mfabout 
         Caption         =   "软件信息(&M)"
      End
   End
   Begin VB.Menu traymenu 
      Caption         =   "menu"
      Visible         =   0   'False
      Begin VB.Menu mnuMessage 
         Caption         =   "显示窗口"
      End
      Begin VB.Menu mnuSep 
         Caption         =   "-"
      End
      Begin VB.Menu mnudenglu 
         Caption         =   "用户登录"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "退出"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long


Private Sub MDbackUp_Click()
FrmBackUp.Show
End Sub

Private Sub mdiform_unload(cancel As Integer)
If MsgBox("你确定要退出吗？", vbInformation + vbOKCancel, "提示") = vbOK Then
End
Else
cancel = 1
End If


End Sub




Private Sub MDTsum_Click()
frmTsum.Show
End Sub

Private Sub mfabout_Click()
frmAbout.Show
End Sub

Private Sub mfaddbook_Click()
Set g_rs = g_db.OpenRecordset("booktype", dbOpenTable)
If g_rs.RecordCount > 0 Then
addbook.Show
Else
MsgBox "请先设置书籍类别代码！", vbInformation + vbOKOnly, "警告"
setbooktype.Show
End If
Set g_rs = Nothing
End Sub

Private Sub mfaddreader_Click()
Addreader.Show
End Sub

Private Sub mfbooktype_Click()
setbooktype.Show
End Sub

Private Sub MDIForm_Load()

mfwork.Enabled = False
mfadd.Enabled = False
mfedit.Enabled = False
mfsysteminfo.Enabled = False
MDTJ.Enabled = False

AddIcon picTray, "马玉立图书馆系统", MDIForm1

End Sub

Private Sub mfcheck_Click()
frmcheck.Show
End Sub

Private Sub mfclose_Click()
If MsgBox("你确定要退出吗？", vbInformation + vbOKCancel, "提示") = vbOK Then
End
End If
End Sub



Private Sub mffindbook_Click()
findbook.Show
End Sub

Private Sub mffindreader_Click()
findreader.Show
End Sub

Private Sub mflent_Click()
lentbook.Show

End Sub


Private Sub MFreaderL_Click()
frmreaderL.Show
End Sub

Private Sub mfrennew_Click()
rennewbook.Show
End Sub

Private Sub mfreturn_Click()
returnbook.Show
End Sub

Private Sub mfsetadmin_Click()
setadmin.Show
End Sub

Private Sub mfsetinfo_Click()
setinfo.Show
End Sub



Private Sub mnudenglu_Click()
frmcheck.Show
End Sub

Private Sub Timer1_Timer()
StatusBar1.Panels(4) = Now
End Sub



Private Sub Form_Load()
mciSendString "open onestop.mid alias mc", 0, 0, 0
mciSendString "play mc", 0, 0, 0
End Sub
Private Sub mnuExit_Click()
    Unload Me
    DeleteIcon picTray
End Sub
Private Sub mnuMessage_Click()
  
   MDIForm1.Show
End Sub
Private Sub picTray_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
   Select Case x
        Case trayRBUTTONDOWN
            MDIForm1.PopupMenu traymenu, 4 Or 2
        Case trayMOUSEMOVE
        Case Else
    End Select
End Sub