mdiform1.frm

一个用VB写的通信录程序是一个课程设计很实用

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "图书管理系统"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   Icon            =   "MDIForm1.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu menufile 
      Caption         =   "文件"
      Begin VB.Menu menuusermsg 
         Caption         =   "用户信息"
      End
      Begin VB.Menu menuadminmsg 
         Caption         =   "管理员信息"
      End
      Begin VB.Menu menu12 
         Caption         =   "-"
      End
      Begin VB.Menu menuexit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu menuedit 
      Caption         =   "编辑"
      Begin VB.Menu menufindbook 
         Caption         =   "查找图书"
      End
      Begin VB.Menu menuborrow 
         Caption         =   "借书"
      End
      Begin VB.Menu menuback 
         Caption         =   "还书"
      End
      Begin VB.Menu menu1 
         Caption         =   "-"
      End
      Begin VB.Menu menuset 
         Caption         =   "设置"
      End
   End
   Begin VB.Menu menuhelp 
      Caption         =   "帮助"
      Begin VB.Menu menuabout 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub MDIForm_Activate()
If Trim(level) = "1" Then
        menuusermsg.Enabled = False
        menuadminmsg.Enabled = True
        menuset.Enabled = True
        menu1.Enabled = True
    Else
        menuadminmsg.Enabled = False
        menuset.Enabled = False
    
    End If
End Sub

Private Sub MDIForm_Load()
If Trim(level) = "1" Then
        menuusermsg.Enabled = False
        menuadminmsg.Enabled = True
        menuset.Enabled = True
        menu1.Enabled = True
    Else
        menuadminmsg.Enabled = False
        menuset.Enabled = False
       
    End If
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
End
End Sub

Private Sub menuabout_Click()
frmAbout.Show
End Sub

Private Sub menuadminmsg_Click()
    MsgBox "您是管理员", , "提示"
    adminmsg.Show
End Sub

Private Sub menuback_Click()
backbook.Show
End Sub

Private Sub menuborrow_Click()
lendandback.Show
End Sub

Private Sub menuexit_Click()
    End
End Sub

Private Sub menufindbook_Click()
    findform.Show
End Sub

Private Sub menulogin_Click()
 username = ""
 password = ""
 level = ""
 money = 0
 name1 = ""

 SearchFlag = 0
 editusername = ""
 editname = ""
 editpassword = ""
 editsubject = ""
 editclass = ""
 editmoney = 0
 editlevel = ""
 mSave = 0

 editbookno = ""
 editbooktitle = ""
 editprice = 0
 editsort = ""
 editpress = ""
 'editlenddate = ""
 lendbookno = ""
 
 Load Form1
 Form1.Show (1)
End Sub

Private Sub menuset_Click()
setf.Show (1)
End Sub

Private Sub menuusermsg_Click()
    usermsg.Show
End Sub