VERSION 5.00
Begin VB.MDIForm mainboot 
   Appearance      =   0  'Flat
   BackColor       =   &H8000000C&
   Caption         =   " "
   ClientHeight    =   2850
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   11460
   Icon            =   "mainboot.frx":0000
   LinkTopic       =   "MDIForm1"
   ScrollBars      =   0   'False
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.PictureBox Picture1 
      Align           =   1  'Align Top
      Height          =   375
      Left            =   0
      ScaleHeight     =   315
      ScaleWidth      =   11400
      TabIndex        =   0
      Top             =   0
      Width           =   11460
   End
   Begin VB.Menu menu11 
      Caption         =   "圖書借閱（&E）"
   End
   Begin VB.Menu menu12 
      Caption         =   "圖書入庫"
   End
   Begin VB.Menu menu3 
      Caption         =   "基礎資料設置（&S）"
   End
   Begin VB.Menu menu2 
      Caption         =   "綜合查詢（&P）"
      Visible         =   0   'False
      Begin VB.Menu menu21 
         Caption         =   "庫存查詢"
      End
      Begin VB.Menu menu22 
         Caption         =   "圖書信息查詢"
      End
      Begin VB.Menu menu23 
         Caption         =   "借書人查詢"
         Visible         =   0   'False
      End
   End
   Begin VB.Menu menu4 
      Caption         =   "系統維護（&X）"
      Begin VB.Menu menu41 
         Caption         =   "權限管理"
      End
      Begin VB.Menu line 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu menu42 
         Caption         =   "數據備份"
         Visible         =   0   'False
      End
      Begin VB.Menu menu43 
         Caption         =   "數據恢復"
         Visible         =   0   'False
      End
      Begin VB.Menu menu44 
         Caption         =   "數據清空"
         Visible         =   0   'False
      End
   End
   Begin VB.Menu menu6 
      Caption         =   "操作員管理"
      Begin VB.Menu menu72 
         Caption         =   "更改密碼"
      End
      Begin VB.Menu menu62 
         Caption         =   "操作員注銷"
      End
   End
   Begin VB.Menu menu5 
      Caption         =   "幫助（&Q）"
      Begin VB.Menu menu45 
         Caption         =   "幫助主題"
      End
      Begin VB.Menu menu52 
         Caption         =   "關于……"
      End
      Begin VB.Menu menu53 
         Caption         =   "退出系統"
      End
   End
End
Attribute VB_Name = "mainboot"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public menunum As String
Dim quityesno As String * 1

Private Sub MDIForm_Load()
 On Error Resume Next
Me.Height = 3870
Me.Width = 5835
Set data1 = OpenDatabase(App.Path + "\jck.mdb", True)
data1.NewPassword "", "beautiFul"
Set data1 = OpenDatabase(App.Path + "\jck.mdb", 0, 0, ";pwd=beautiFul")
Set data2 = OpenDatabase(App.Path + "\datak.mdb")
Set myname = data1.OpenRecordset("table1")
Me.Caption = myname("mainame") + "圖書管理系統"
   Set tabc = data1.OpenRecordset("qxk")
ss = tabc("cjyqx")
 Dim d(20) As Boolean
For i = 2 To 5
    If Val(Mid(ss, i, 1)) = 1 Then d(i) = True Else d(i) = False
Next i
menu11.Enabled = d(2) '電子收購
 menu12.Enabled = d(3) '磅單修改
 menu3.Enabled = d(4) '手工錄入
 menu41.Enabled = d(5) '磅單查詢
 
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'當QUIT值為1時,不能退出系統,指當操作收購時
Exit Sub
If quit = 1 Then
   Cancel = 1
   Exit Sub
End If
a = MsgBox("真的要退出系統嗎？", vbYesNo + vbQuestion, "圖書管理系統")
If a = vbYes Then
   End
Else
   Cancel = 1
End If
End Sub

Private Sub MDIForm_Resize()
If Me.WindowState = 1 Then Me.WindowState = 0
If Me.WindowState Then Me.WindowState = 0
Me.Height = 8700 - 200
Me.Width = 12100 - 200
Picture1.Picture = LoadPicture(App.Path + "\back.JPG")
Picture1.Height = Me.Height
Me.Picture1.Top = Me.Top
Me.Top = 10
Me.Left = 10
End Sub

Private Sub menu11_Click()
Picture1.Visible = False
winmenu11.Show
End Sub

Private Sub menu12_Click()
Picture1.Visible = False
winmenu12.Show
End Sub
Private Sub menu14_Click()
If menunum = "nothing" Then menunum = "menu13" Else Exit Sub
Picture1.Visible = False
winmenu13.Show
End Sub

Private Sub menu13_Click()
If menunum = "nothing" Then menunum = "menu14" Else Exit Sub
Dim data1 As Database
Dim tab1 As Recordset
Set data1 = OpenDatabase(App.Path + "bdk.mdb", 0, 0, ";pwd=beautiFularq")
Set tab1 = data1.OpenRecordset("select * from gcd order by val(lsh)")
If tab1.EOF Then
    MsgBox "庫中無記錄，請錄入之后再進行查詢！", vbExclamation + vbOKOnly, "圖書管理系統"
    menunum = "nothing"
    Exit Sub
End If
Picture1.Visible = False
winmenu14.Show
End Sub

Private Sub menu15_Click()
If menunum = "nothing" Then menunum = "menu21" Else Exit Sub
Picture1.Visible = False
winmenu15.Show

End Sub

Private Sub menu21_Click()
If menunum = "nothing" Then menunum = "menu21" Else Exit Sub
Picture1.Visible = False
winmenu21.Show
End Sub

Private Sub menu22_Click()
If menunum = "nothing" Then menunum = "menu22" Else Exit Sub
Picture1.Visible = False
winmenu22.Show
End Sub

Private Sub menu23_Click()
If menunum = "nothing" Then menunum = "menu21" Else Exit Sub
Picture1.Visible = False
winmenu23.Show
End Sub

Private Sub menu24_Click()
If menunum = "nothing" Then menunum = "menu22" Else Exit Sub
Picture1.Visible = False
winmenu24.Show

End Sub

Private Sub menu31_Click()
If menunum = "nothing" Then menunum = "menu22" Else Exit Sub
Picture1.Visible = False
winmenu3.Show

End Sub

Private Sub menu32_Click()
If menunum = "nothing" Then menunum = "menu41" Else Exit Sub
Picture1.Visible = False
winmenu25.Show

End Sub

Private Sub menu3_Click()
Picture1.Visible = False
winmenu3.Show

End Sub

Private Sub menu41_Click()
Picture1.Visible = False
winmenu41.Show
End Sub

Private Sub menu42_Click()
If menunum = "nothing" Then menunum = "menu42" Else Exit Sub
Picture1.Visible = False
winmenu42.Show
End Sub

Private Sub menu43_Click()
If menunum = "nothing" Then menunum = "menu43" Else Exit Sub
Picture1.Visible = False
winmenu43.Show
End Sub

Private Sub menu44_Click()
If menunum = "nothing" Then menunum = "menu51" Else Exit Sub
Picture1.Visible = False
winmenu44.Show
End Sub

Private Sub menu4x_Click()
If menunum = "nothing" Then menunum = "menu49" Else Exit Sub
Picture1.Visible = False
winmenu15.Show

End Sub

Private Sub menu51_Click()
If menunum = "nothing" Then menunum = "menu51" Else Exit Sub
Picture1.Visible = False
End Sub

Private Sub menu45_Click()
Picture1.Visible = False
winmenu45.Show

End Sub

Private Sub menu52_Click()
Picture1.Visible = False
winmenu52.Show
End Sub

Private Sub menu53_Click()
Unload Me
End Sub

Private Sub menu61_Click()
If menunum = "nothing" Then menunum = "menu52" Else Exit Sub
Picture1.Visible = False
winmenu71.Show
End Sub

Private Sub menu62_Click()
 Picture1.Visible = False
winmenu7.Show
End Sub

Private Sub menu72_Click()
 Picture1.Visible = False
winmenu72.Show

End Sub

Private Sub menu8_Click()
If menunum = "nothing" Then menunum = "menu52" Else Exit Sub
Picture1.Visible = False
winmenu6.Show

End Sub

Private Sub menubd_Click()
If menunum = "nothing" Then menunum = "menu52" Else Exit Sub
Picture1.Visible = False
winmenubd.Show

End Sub