frmmain.frm

学生管理系统,毕业设计+论文 vb+sql数据库

VERSION 5.00
Begin VB.Form FrmMain 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00FFC0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "学生成绩管理系统"
   ClientHeight    =   10215
   ClientLeft      =   45
   ClientTop       =   735
   ClientWidth     =   13905
   FillColor       =   &H00808000&
   Icon            =   "FrmMain.frx":0000
   LinkTopic       =   "Form1"
   Picture         =   "FrmMain.frx":0902
   ScaleHeight     =   954.673
   ScaleMode       =   0  'User
   ScaleWidth      =   1305.259
   WindowState     =   2  'Maximized
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "学号：0503020335"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFC0&
      Height          =   375
      Left            =   9840
      TabIndex        =   1
      Top             =   9120
      Width           =   2415
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "姓名：李想"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFC0&
      Height          =   375
      Left            =   9840
      TabIndex        =   0
      Top             =   8520
      Width           =   1935
   End
   Begin VB.Menu menu1 
      Caption         =   "系统管理"
      NegotiatePosition=   3  'Right
      Begin VB.Menu menua 
         Caption         =   "修改密码"
      End
      Begin VB.Menu menub 
         Caption         =   "添加用户"
      End
      Begin VB.Menu menuc 
         Caption         =   "重新登陆"
      End
   End
   Begin VB.Menu menu2 
      Caption         =   "查看和修改"
      NegotiatePosition=   3  'Right
   End
   Begin VB.Menu menu3 
      Caption         =   "信息录入"
      NegotiatePosition=   3  'Right
      Begin VB.Menu menuaddG 
         Caption         =   "添加成绩"
      End
      Begin VB.Menu menuaddC 
         Caption         =   "添加课程"
      End
      Begin VB.Menu menuInput 
         Caption         =   "基本信息录入"
      End
   End
   Begin VB.Menu menu4 
      Caption         =   "查询"
      NegotiatePosition=   3  'Right
      Begin VB.Menu menug 
         Caption         =   "基本信息查询"
      End
      Begin VB.Menu menu4a 
         Caption         =   "成绩查询"
      End
   End
   Begin VB.Menu menu5 
      Caption         =   "打印报表"
      NegotiatePosition=   3  'Right
      Visible         =   0   'False
      Begin VB.Menu menum 
         Caption         =   "学生各科成绩"
      End
      Begin VB.Menu menu34 
         Caption         =   "学生自然状况"
         Visible         =   0   'False
      End
      Begin VB.Menu menud 
         Caption         =   "补考学生"
         Visible         =   0   'False
      End
   End
   Begin VB.Menu dy 
      Caption         =   "打印"
      Begin VB.Menu baobiao 
         Caption         =   "预览与打印报表"
      End
   End
   Begin VB.Menu menu6 
      Caption         =   "关于"
      NegotiatePosition=   3  'Right
   End
   Begin VB.Menu menu7 
      Caption         =   "退出"
      NegotiatePosition=   3  'Right
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
    FrmView.Show '显示浏览和修改窗口
    
End Sub



Private Sub Command3_Click()
    DlgReport.Show '显示打印报表窗口
End Sub



Private Sub Command5_Click()
    Unload Me
End Sub

Private Sub Command6_Click()
    frmAbout.Show (1) '显示关于
End Sub

Private Sub Command7_Click()
    FrmInput.Show (1) '显示数据录入窗口
End Sub



Private Sub Command9_Click()
Load frmSearch
frmSearch.Show
End Sub
Private Sub baobiao_Click()
DlgReport.Show
End Sub

Private Sub Form_Load()
    MakeCenter FrmMain
    If UserType = True Then
        Me.Caption = Me.Caption + "[超级用户]"
    Else
        Me.Caption = Me.Caption + "[一般用户]"
        menu3.Enabled = False
       ' Command4.Enabled = False
        menu1.Enabled = False
        menu5.Enabled = False
        ' Label5.ForeColor = &H8000000C
       ' Label4.ForeColor = &H8000000C
        'Label8.ForeColor = &H8000000C
    End If
    Me.Show
   
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    cn.Close '关闭ADO连接
    Set cn = Nothing
    Dim frm As Form
    For Each frm In Forms '销毁所有窗口
        Unload frm
    Next frm
End Sub

Private Sub Label3_Click()

End Sub

Private Sub Label5_Click()

End Sub

Private Sub Label6_Click()
End Sub

Private Sub Label4_Click()
End Sub

Private Sub Image1_Click()

End Sub

Private Sub menu2_Click()
FrmView.Show
End Sub


Private Sub menu34_Click()
On Error GoTo errh
    DataReport1.Show
    Exit Sub
errh:
    MsgBox Err.Description
End Sub

Private Sub menu4a_Click()
frmSearch.Show

End Sub

Private Sub menu6_Click()
frmAbout.Show
End Sub

Private Sub menu7_Click()
If MsgBox("真的要离开吗？", vbOKCancel, "警告") = vbOK Then
Unload Me
End If
End Sub

Private Sub menua_Click()
frmPass.Show
End Sub

Private Sub menuaddC_Click()
DlgCourse.Show
End Sub

Private Sub menuaddG_Click()
frmAddGrade.Show
End Sub

Private Sub menub_Click()
DlgPass.Show
End Sub

Private Sub menuc_Click()
DlgLogin.Show
Unload Me
End Sub

Private Sub menud_Click()
 Reportreject.Show
End Sub

Private Sub menug_Click()
frmsearchInfo.Show
End Sub

Private Sub menuInput_Click()
FrmInput.Show
End Sub

Private Sub menum_Click()
 ReportAch.Show
End Sub