frmmain.frm

用VB实现的一个学生管理系统

VERSION 5.00
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "flash8b.ocx"
Begin VB.Form frmmain 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4680
   Icon            =   "frmmain.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.PictureBox Picture2 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   375
      Left            =   4080
      Picture         =   "frmmain.frx":08CA
      ScaleHeight     =   375
      ScaleWidth      =   375
      TabIndex        =   2
      Top             =   120
      Width           =   375
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   375
      Left            =   3480
      Picture         =   "frmmain.frx":0EE4
      ScaleHeight     =   375
      ScaleWidth      =   375
      TabIndex        =   1
      Top             =   120
      Width           =   375
   End
   Begin ShockwaveFlashObjectsCtl.ShockwaveFlash ShockwaveFlash1 
      Height          =   1095
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   1335
      _cx             =   2355
      _cy             =   1931
      FlashVars       =   ""
      Movie           =   ""
      Src             =   ""
      WMode           =   "Window"
      Play            =   -1  'True
      Loop            =   -1  'True
      Quality         =   "High"
      SAlign          =   ""
      Menu            =   -1  'True
      Base            =   ""
      AllowScriptAccess=   ""
      Scale           =   "ShowAll"
      DeviceFont      =   0   'False
      EmbedMovie      =   0   'False
      BGColor         =   ""
      SWRemote        =   ""
      MovieData       =   ""
      SeamlessTabbing =   -1  'True
      Profile         =   0   'False
      ProfileAddress  =   ""
      ProfilePort     =   0
   End
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   960
      Top             =   480
   End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim exit1 As Integer
Private Sub Form_Load()
ShockwaveFlash1.Movie = App.Path & "\flash\back.swf"
ShockwaveFlash1.Width = Screen.Width
ShockwaveFlash1.Height = Screen.Height
Picture1.Left = Screen.Width - 750
Picture2.Left = Screen.Width - 350
exit1 = 0
End Sub

Private Sub Picture2_Click()
Call exitsys
End Sub
Private Sub picture1_click()
Me.Hide
End Sub

Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String)
If command = "studentin" Then
If userqx <> "学生处" And Trim(userqx) <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else
frmStudentInput.Show
End If

ElseIf command = "exit" Then
exit1 = 1
ElseIf command = "relation" Then
If userqx <> "学校办公室" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else
frmrelationbox.Show
End If

ElseIf command = "studentmodify" Then
If userqx <> "学生处" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else
 Shell "cmd.exe /k del " & App.Path & "\test1.jpg ", vbHide

frmUpdateID.Show
End If
ElseIf command = "studentdel" Then
If userqx <> "学校办公室" And userqx <> "学生处" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else

frmdelstudent.Show
End If
ElseIf command = "studentfind" Then
If userqx <> "学校办公室" And userqx <> "学生处" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else

frmStudentSelect.Show
End If
ElseIf command = "studentprint" Then
If userqx <> "学校办公室" And userqx <> "学生处" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else

export = "student"
frmexport.Show
End If


ElseIf command = "lessonin" Then
If userqx <> "教务处" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else
frmlessonin.Show
End If
ElseIf command = "lessonmodify" Then
If userqx <> "教务处" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else

frmupdatelesson.Show
End If
ElseIf command = "lessondel" Then
If userqx <> "教务处" And userqx <> "学校办公室" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else

frmdellesson.Show
End If
ElseIf command = "lessonfind" Then
If userqx <> "教务处" And userqx <> "学校办公室" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else
lessonout.Show
End If
ElseIf command = "lessonprint" Then
If userqx <> "教务处" And userqx <> "学校办公室" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else
export = "lesson"
frmexport.Show
End If
ElseIf command = "scorein" Then
If userqx <> "教务处" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else
frmscore.Show
End If
ElseIf command = "scoremodify" Then
If userqx <> "教务处" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else
frmupdatescore.Show
End If
ElseIf command = "scoredel" Then
If userqx <> "教务处" And userqx <> "学校办公室" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else
frmdel2.Show
End If
ElseIf command = "scorefind" Then
If userqx <> "教务处" And userqx <> "学校办公室" And userqx <> "学生处" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else
frmscoreselect.Show
End If
ElseIf command = "scoreprint" Then
If userqx <> "教务处" And userqx <> "学校办公室" And userqx <> "学生处" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else
export = "mark"
frmexport.Show
End If
ElseIf command = "basic" Then
If userqx <> "学校办公室" And userqx <> " 人事处" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else
frmBase.Show
End If
ElseIf command = "livein" Then
If userqx <> "学生处" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else
frmsushe1.Show
End If
ElseIf command = "livemodify" Then
If userqx <> "学生处" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else
frmliveupdate.Show
End If
ElseIf command = "livedel" Then
If userqx <> "学生处" And userqx <> "学校办公室" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else
frmdellive.Show
 End If
ElseIf command = "liveprint" Then
If userqx <> "学生处" And userqx <> "学校办公室" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else
export = "sushe"
frmexport.Show
End If
ElseIf command = "livefind" Then
If userqx <> "学生处" And userqx <> "学校办公室" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else
frmsusheselect.Show
End If
ElseIf command = "user" Then
If userqx <> "学校办公室" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else
FrmUser.Show
End If
ElseIf command = "tongji" Then
If userqx <> "学校办公室" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else
frmcase.Show
End If
ElseIf command = "costin" Then
If userqx <> "财务处" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else
frmmoneyadd.Show
End If
ElseIf command = "costmodify" Then
If userqx <> "财务处" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else
frmmoneymodify.Show
End If
ElseIf command = "costdel" Then
If userqx <> "财务处" And userqx <> "学校办公室" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else
frmmoneydel.Show
End If
ElseIf command = "costprint" Then
If userqx <> "财务处" And userqx <> "学校办公室" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else
export = "cost"
frmexport.Show
End If
ElseIf command = "costfind" Then
If userqx <> "财务处" And userqx <> "学校办公室" And userqx <> "管理员" Then
MsgBox "您没有使用该功能的权限！", vbOKOnly + vbInformation, "系统提示"
Exit Sub
Else
frmmoneyfind.Show
End If
End If
End Sub

Private Sub Timer1_Timer()
If exit1 = 1 Then
Call exitsys
End If
End Sub

Sub exitsys()
Unload Me
Unload frmmoneyfind
Unload frmmoneydel
Unload frmmoneymodify
Unload frmmoneyadd
Unload frmcase
Unload FrmUser
Unload frmsusheselect
Unload frmdellive
Unload frmliveupdate
Unload frmliveupdate2
Unload frmsushe1
Unload frmsushe2
Unload frmBase
Unload frmscoreselect
Unload frmdel2
Unload frmscore1
Unload frmupdatescore
Unload frmscore
Unload lessonout
Unload frmdellesson
Unload frmupdatelesson
Unload frmLogin
Unload frmStudentInput
Unload frmrelationbox
Unload frmrelationcosp
Unload frmrelation
Unload frmrelationlesson
Unload frmUpdateID
Unload FrmStudentUpdate
Unload frmdelstudent
Unload frmStudentSelect
Unload frmexport
Unload frmlessonin
End Sub