form3.frm

教师科研系统 教师科研系统 教师科研系统

VERSION 5.00
Begin VB.Form Form3 
   Caption         =   "科研论文管理系统"
   ClientHeight    =   4740
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   7185
   LinkTopic       =   "Form3"
   Picture         =   "Form3.frx":0000
   ScaleHeight     =   4740
   ScaleWidth      =   7185
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu 录入 
      Caption         =   "录入"
      Begin VB.Menu 科研人员简历表 
         Caption         =   "科研人员简历表"
      End
      Begin VB.Menu 期刊论文表 
         Caption         =   "期刊论文表"
      End
      Begin VB.Menu 著作登记表 
         Caption         =   "著作登记表"
      End
   End
   Begin VB.Menu 编辑 
      Caption         =   "编辑"
      Begin VB.Menu 科研人员简历表1 
         Caption         =   "科研人员简历表1"
      End
      Begin VB.Menu 期刊论文表1 
         Caption         =   "期刊论文表1"
      End
      Begin VB.Menu 著作登记表1 
         Caption         =   "著作登记表1"
      End
   End
   Begin VB.Menu 查询 
      Caption         =   "查询"
      Begin VB.Menu 教师基本信息 
         Caption         =   "教师基本信息"
      End
      Begin VB.Menu 论文信息 
         Caption         =   "论文信息"
      End
      Begin VB.Menu 著作信息 
         Caption         =   "著作信息"
      End
   End
   Begin VB.Menu 退出 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub 教师基本信息_Click()
Form5.Show
End Sub

Private Sub 科研人员简历表_Click()
frm科研人员简历表1.Show
End Sub

Private Sub 教师信息表1_Click()
frm教师表1.Show
End Sub

Private Sub 科研论文信息表_Click()
frm论文表.Show
End Sub

Private Sub 科研论文信息表1_Click()
frm论文表1.Show
End Sub

Private Sub 科研人员简历表1_Click()
frm科研人员简历表1.Show
End Sub

Private Sub 论文信息_Click()
Form6.Show
End Sub

Private Sub 期刊论文表_Click()
frm期刊论文登记表.Show
End Sub

Private Sub 期刊论文表1_Click()
frm期刊论文登记表.Show
End Sub

Private Sub 退出_Click()
Form4.Show
End Sub

Private Sub 著作登记表_Click()
frm著作登记表.Show
End Sub

Private Sub 著作登记表1_Click()
frm著作登记表.Show
End Sub

Private Sub 著作信息_Click()
Form7.Show
End Sub