mainboot.frm

大学毕业的课题,可能比较简单一点,入门的人可以

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