form3.frm

来自「用VB+Access做的图书管理系统! 通过简单的算法可以做出图书的录入和录出」· FRM 代码 · 共 90 行

VERSION 5.00
Begin VB.Form Form3 
   BackColor       =   &H00808080&
   Caption         =   "科技档案信息管理系统"
   ClientHeight    =   6210
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   7455
   FillColor       =   &H00808080&
   Icon            =   "Form3.frx":0000
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   ScaleHeight     =   6210
   ScaleWidth      =   7455
   StartUpPosition =   1  '所有者中心
   Begin VB.Image Image1 
      Height          =   9000
      Left            =   0
      Picture         =   "Form3.frx":0442
      Top             =   0
      Width           =   12000
   End
   Begin VB.Menu lunwen 
      Caption         =   "&L论文信息管理"
      Begin VB.Menu srlwxx 
         Caption         =   "输入论文信息"
         Shortcut        =   ^I
      End
      Begin VB.Menu xglwxx 
         Caption         =   "修改论文信息"
         Shortcut        =   ^M
      End
      Begin VB.Menu cxlwxx 
         Caption         =   "查询论文信息"
         Shortcut        =   ^S
      End
   End
   Begin VB.Menu zhuzuo 
      Caption         =   "&Z著作信息管理"
      Begin VB.Menu srzzxx 
         Caption         =   "输入著作信息"
      End
      Begin VB.Menu xgzzxx 
         Caption         =   "修改著作信息"
      End
      Begin VB.Menu cxzzxx 
         Caption         =   "查询著作信息"
      End
   End
   Begin VB.Menu help 
      Caption         =   "&H帮助"
   End
   Begin VB.Menu quit 
      Caption         =   "&Q退出系统"
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cxlwxx_Click()
Unload Form3
Load Form5
Form5.Show
End Sub

Private Sub help_Click()
MsgBox "此程序由林志雄所写，版权由个人所有", , "版权"

End Sub

Private Sub quit_Click()

End
Unload Form3
End Sub

Private Sub srlwxx_Click()
Unload Form3
Load Form4
Form4.Show
End Sub

Private Sub xglwxx_Click()
Unload Form3
Load Form6
Form6.Show
End Sub