frmmain.frm

学生成绩管理

VERSION 5.00
Begin VB.Form frmmain 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "学生成绩管理系统"
   ClientHeight    =   10200
   ClientLeft      =   45
   ClientTop       =   750
   ClientWidth     =   15240
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frmmain.frx":0000
   ScaleHeight     =   10200
   ScaleWidth      =   15240
   StartUpPosition =   2  '屏幕中心
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000E&
      Height          =   615
      Left            =   5160
      TabIndex        =   1
      Top             =   4080
      Width           =   7095
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000009&
      X1              =   -3360
      X2              =   15240
      Y1              =   3960
      Y2              =   3960
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "欢迎进入学生成绩管理系统"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   42
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000E&
      Height          =   1215
      Left            =   3120
      TabIndex        =   0
      Top             =   2760
      Width           =   10575
   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         =   "用户管理"
      Begin VB.Menu 用户添加 
         Caption         =   "用户添加"
      End
      Begin VB.Menu 用户删除 
         Caption         =   "用户删除"
      End
      Begin VB.Menu 密码修改 
         Caption         =   "密码修改"
      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         =   "帮助"
      Begin VB.Menu 关于 
         Caption         =   "关于"
      End
      Begin VB.Menu 索引 
         Caption         =   "索引"
      End
   End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Myinfo As String
Dim success As Long

Private Sub Form_Load()
Me.Left = 0
Me.Top = 0
Me.Height = Screen.Height
Me.Width = Screen.Width
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub 成绩信息查询_Click()
usecourse.Show vbModal
End Sub

Private Sub 成绩信息修改_Click()
from3.Show vbModal
End Sub

Private Sub 关于_Click()
frmAbout.Show vbModal
End Sub
Private Sub 课程信息查询_Click()
usekc.Show vbModal
End Sub

Private Sub 课程信息修改_Click()
from2.Show vbModal
End Sub

Private Sub 密码修改_Click()
usemmchange.Show vbModal
End Sub
Private Sub 索引_Click()
  MsgBox "MSDN集合不存在。请重新安装MSDN。", vbOKOnly + vbCritical, "帮助系统"
End Sub

Private Sub 退出系统_Click()
If MsgBox("要退出系统吗？", vbYesNo + vbInformation, "退出") = vbYes Then
   Unload frmmain
   End
End If
End Sub

Private Sub 学生信息查询_Click()
usestu.Show vbModal
End Sub

Private Sub 学生信息修改_Click()
 from1.Show vbModal
End Sub

Private Sub 用户登陆_Click()
login.Show vbModal
End Sub

Private Sub 用户删除_Click()
usedel.Show vbModal
End Sub
Private Sub 用户添加_Click()
useadd.Show vbModal
End Sub

Private Sub 注销_Click()
If MsgBox("要注销系统吗？", vbYesNo + vbInformation, "注销") = vbYes Then
   login.Show
End If
End Sub