sysmian.frm

学生信息管理系统.一个简单的学生信息管理系统,可以做些日常学生信息的管理.

VERSION 5.00
Begin VB.Form SysMain 
   AutoRedraw      =   -1  'True
   BackColor       =   &H80000005&
   Caption         =   "学生管理系统"
   ClientHeight    =   3645
   ClientLeft      =   1215
   ClientTop       =   825
   ClientWidth     =   5775
   LinkTopic       =   "MDIForm1"
   ScaleHeight     =   243
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   385
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Left            =   5040
      Top             =   3120
   End
   Begin VB.Frame Frame2 
      BackColor       =   &H00FFFFFF&
      Caption         =   "您可执行的操作有:"
      Height          =   1335
      Left            =   240
      TabIndex        =   1
      Top             =   1680
      Width           =   5295
      Begin VB.Label Label2 
         BackColor       =   &H00FFFFFF&
         ForeColor       =   &H000000FF&
         Height          =   615
         Left            =   360
         TabIndex        =   3
         Top             =   480
         Width           =   4335
      End
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFFFFF&
      Caption         =   "您的身份是:"
      Height          =   1215
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   5295
      Begin VB.Label Label9 
         BackColor       =   &H00FFFFFF&
         ForeColor       =   &H8000000D&
         Height          =   255
         Left            =   3720
         TabIndex        =   10
         Top             =   840
         Width           =   1455
      End
      Begin VB.Label Label8 
         BackColor       =   &H00FFFFFF&
         ForeColor       =   &H00C00000&
         Height          =   255
         Left            =   2280
         TabIndex        =   9
         Top             =   840
         Width           =   1335
      End
      Begin VB.Label Label7 
         BackColor       =   &H00FFFFFF&
         Caption         =   "您上次登陆的时间为:"
         Height          =   255
         Left            =   480
         TabIndex        =   8
         Top             =   840
         Width           =   1815
      End
      Begin VB.Image Image2 
         Height          =   255
         Left            =   3840
         Picture         =   "SysMian.frx":0000
         Top             =   480
         Visible         =   0   'False
         Width           =   900
      End
      Begin VB.Image Image1 
         Height          =   255
         Left            =   3840
         Picture         =   "SysMian.frx":52AB
         Top             =   480
         Width           =   900
      End
      Begin VB.Label Label5 
         BackColor       =   &H00FFFFFF&
         Caption         =   "次"
         Height          =   255
         Left            =   2400
         TabIndex        =   6
         Top             =   480
         Width           =   375
      End
      Begin VB.Label Label4 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFFF&
         ForeColor       =   &H000000FF&
         Height          =   255
         Left            =   2040
         TabIndex        =   5
         Top             =   480
         Width           =   375
      End
      Begin VB.Label Label3 
         BackColor       =   &H00FFFFFF&
         Caption         =   "您已登陆:"
         Height          =   255
         Left            =   1200
         TabIndex        =   4
         Top             =   480
         Width           =   855
      End
      Begin VB.Label Label1 
         BackColor       =   &H00FFFFFF&
         ForeColor       =   &H000000FF&
         Height          =   255
         Left            =   480
         TabIndex        =   2
         Top             =   480
         Width           =   855
      End
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      Caption         =   "欢迎您使用本管理系统"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   375
      Left            =   240
      TabIndex        =   7
      Top             =   3240
      Width           =   5295
   End
   Begin VB.Menu searchIfo 
      Caption         =   "学生信息查询"
      NegotiatePosition=   2  'Middle
      Begin VB.Menu InfoSearch 
         Caption         =   "基本信息查询"
      End
      Begin VB.Menu ChengJi 
         Caption         =   "学生成绩查询"
      End
   End
   Begin VB.Menu EditInfo 
      Caption         =   "学生信息编辑"
      Begin VB.Menu JibenInfo 
         Caption         =   "基本信息编辑"
      End
      Begin VB.Menu ChengJiEdit 
         Caption         =   "学生成绩编辑"
      End
   End
   Begin VB.Menu System 
      Caption         =   "用户信息编辑"
      Begin VB.Menu Editpassword 
         Caption         =   "修改口令"
      End
      Begin VB.Menu Adduser 
         Caption         =   "用户管理"
      End
   End
   Begin VB.Menu Sys 
      Caption         =   "系统"
      Begin VB.Menu BackToLogon 
         Caption         =   "返回到登陆框"
      End
      Begin VB.Menu CloseSys 
         Caption         =   "退出管理系统"
      End
   End
   Begin VB.Menu About 
      Caption         =   "关于本系统"
   End
End
Attribute VB_Name = "SysMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Flag As Integer

Private Sub About_Click()
frmAbout.Show
End Sub


Private Sub Adduser_Click()
SysUser.Show
End Sub
Private Sub BackToLogon_Click()
Flag = 1
Unload Me
End Sub

Private Sub ChengJi_Click()
frmCjSearch.Show
End Sub

Private Sub ChengJiEdit_Click()
CjEdit.Show
End Sub

Private Sub CloseSys_Click()
Unload Me
End Sub


Private Sub Editpassword_Click()
Password.Show
End Sub

Private Sub Form_Load()
Flag = 0
Timer1.Interval = 150
Label1.Caption = CurrentUserStatus
If CurrentUserStatus <> "管理员" Then
EditInfo.Visible = False
Adduser.Visible = False
Label2.Caption = "查询学生信息学生成绩和修改自己的密码"
Image2.Visible = True
Else
Label2.Caption = "查询，修改和删除学生信息及学生成绩，添加，修改和删除用户登陆信息"
Image1.Visible = True
End If
Label4.Caption = CurrentUserLogonTime
Label8.Caption = LastUserLogonDate
Label9.Caption = LastUserLogonTime
End Sub
 

Private Sub Form_Unload(Cancel As Integer)
If Flag = 0 Then
    If MsgBox("你选择了退出学生信息管理系统，是否退出？", _
               vbYesNo, "学生信息管理系统") = vbNo Then
        Cancel = 1          '撤消关闭窗体操作
    End If
Else
    If MsgBox("你选择了返回到登陆框，确定？", _
               vbYesNo, "学生信息管理系统") = vbNo Then
        Flag = 0
        Cancel = 1          '撤消关闭窗体操作
    Else
        intLogTimes = 0
        Close_Database
        SysLogon.Show
    End If
End If
End Sub

Private Sub Image_Click()

End Sub

Private Sub InfoSearch_Click()
Search.Show
End Sub

Private Sub JibenInfo_Click()
frmEdit.Show
End Sub

Private Sub Timer1_Timer()
    Static LR As Boolean, iColor As Integer
    iColor = iColor + 1
    Label6.ForeColor = GetIColor(iColor)
    If iColor = MAXP Then iColor = 1
End Sub