zhucht.frm

本系统以记录学生信息

VERSION 5.00
Begin VB.Form zhucht 
   BackColor       =   &H00800000&
   Caption         =   "学生档案管理系统"
   ClientHeight    =   6150
   ClientLeft      =   2850
   ClientTop       =   2175
   ClientWidth     =   8745
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   6150
   ScaleWidth      =   8745
   StartUpPosition =   2  '屏幕中心
   Begin VB.Label Label3 
      BackColor       =   &H00800000&
      Caption         =   "作者  燕山大学 高岩"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFC0C0&
      Height          =   255
      Left            =   5520
      TabIndex        =   2
      Top             =   5160
      Width           =   2415
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackColor       =   &H00800000&
      Caption         =   "综合管理信息系统"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   26.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFC0C0&
      Height          =   525
      Left            =   2160
      TabIndex        =   1
      Top             =   2400
      Width           =   4320
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackColor       =   &H00800000&
      Caption         =   "学生档案"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   26.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFC0C0&
      Height          =   525
      Left            =   3120
      TabIndex        =   0
      Top             =   1320
      Width           =   2160
   End
   Begin VB.Menu wenjian 
      Caption         =   "文件(&F)"
      Begin VB.Menu danganguanli 
         Caption         =   "档案管理(&D)"
      End
      Begin VB.Menu chengjiguanli 
         Caption         =   "成绩管理(&T)"
      End
      Begin VB.Menu mimaxiougai 
         Caption         =   "密码设置(&C)"
      End
      Begin VB.Menu jian 
         Caption         =   "-"
      End
      Begin VB.Menu tuichu 
         Caption         =   "退出(&X)"
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu bianji 
      Caption         =   "编辑(&C)"
      Begin VB.Menu shujubeifen 
         Caption         =   "数据备份(&B)"
      End
      Begin VB.Menu shujuhuifu 
         Caption         =   "数据恢复(&R)"
      End
      Begin VB.Menu jianh 
         Caption         =   "-"
      End
      Begin VB.Menu chaxun 
         Caption         =   "查询(&F)"
         Shortcut        =   ^F
      End
   End
   Begin VB.Menu banbenxinxi 
      Caption         =   "关于(&A)"
   End
End
Attribute VB_Name = "zhucht"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub banbenxinxi_Click()
frmAbout.Show
End Sub

Private Sub chaxun_Click()
chzhcht.Show
End Sub

Private Sub chengjiguanli_Click()
chjchx.Show
End Sub

Private Sub danganguanli_Click()
danb.Show
End Sub

Private Sub mimashezhi_Click()
mmshzh.Show
End Sub

Private Sub Form_Load()
Label1.Left = zhucht.Width / 2 - Label1.Width / 2
Label2.Left = zhucht.Width / 2 - Label2.Width / 2
End Sub

Private Sub mimaxiougai_Click()
mmshzh.Show
End Sub

Private Sub shujubeifen_Click()
    YesNo = MsgBox("软盘插好了吗？", vbYesNo + vbQuestion)
    If YesNo = vbNo Then
          Exit Sub
    End If
    
    On Error GoTo ErrPrompt
    Me.MousePointer = 11
    FileCopy "d:\vb\学生档案管理系统.MDB", "A:\学生档案管理系统.MDB"
    Me.MousePointer = 0
    MsgBox "  数据已备份完毕。 "
    Exit Sub
          
ErrPrompt:
     
     Me.MousePointer = 0
     Select Case Err.Number
      Case 57
          MsgBox "磁盘已坏！", vbCritical
      Case 70
          MsgBox "磁盘写保护！", vbCritical
      Case Else
         MsgBox Err.Description, vbCritical
     End Select
End Sub

Private Sub shujuhuifu_Click()
    YesNo = MsgBox("软盘插好了吗？", vbYesNo + vbQuestion)
    If YesNo = vbNo Then
          Exit Sub
    End If
    
    On Error GoTo ErrPrompt
    Me.MousePointer = 11
    FileCopy "A:\学生档案管理系统.MDB", "d:\vb\学生档案管理系统.MDB"
    Me.MousePointer = 0
    MsgBox "  数据已恢复完毕。 "
    Exit Sub
          
ErrPrompt:
     
     Me.MousePointer = 0
     Select Case Err.Number
      Case 57
          MsgBox "磁盘已坏！", vbCritical
      Case 70
          MsgBox "某些数据表还在使用中。", vbCritical
      Case Else
         MsgBox Err.Description, vbCritical
     End Select
     
End Sub

Private Sub tuichu_Click()
End
End Sub