studentmanger.frm

用java编写的学生信息管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm StudentManger 
   BackColor       =   &H00808000&
   Caption         =   "学生信息管理系统 v.1.0"
   ClientHeight    =   8160
   ClientLeft      =   2055
   ClientTop       =   1755
   ClientWidth     =   10155
   Icon            =   "StudentManger.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "StudentManger.frx":0442
   WindowState     =   2  'Maximized
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   435
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   10155
      _ExtentX        =   17912
      _ExtentY        =   767
      ButtonWidth     =   609
      ButtonHeight    =   714
      Appearance      =   1
      Style           =   1
      _Version        =   393216
      Begin VB.CommandButton Command6 
         Height          =   495
         Left            =   2400
         Picture         =   "StudentManger.frx":24939
         Style           =   1  'Graphical
         TabIndex        =   7
         ToolTipText     =   "帮助"
         Top             =   0
         Width           =   495
      End
      Begin VB.CommandButton Command5 
         Height          =   495
         Left            =   1920
         Picture         =   "StudentManger.frx":24F6B
         Style           =   1  'Graphical
         TabIndex        =   6
         ToolTipText     =   "退出"
         Top             =   0
         Width           =   495
      End
      Begin VB.CommandButton Command4 
         Height          =   495
         Left            =   1440
         Picture         =   "StudentManger.frx":34FAF
         Style           =   1  'Graphical
         TabIndex        =   5
         ToolTipText     =   "缴费查询"
         Top             =   0
         Width           =   495
      End
      Begin VB.CommandButton Command3 
         Height          =   495
         Left            =   960
         Picture         =   "StudentManger.frx":355E1
         Style           =   1  'Graphical
         TabIndex        =   4
         ToolTipText     =   "成绩查询"
         Top             =   0
         Width           =   495
      End
      Begin VB.CommandButton Command2 
         Height          =   495
         Left            =   480
         Picture         =   "StudentManger.frx":35D07
         Style           =   1  'Graphical
         TabIndex        =   3
         ToolTipText     =   "密码修改"
         Top             =   0
         Width           =   495
      End
      Begin VB.CommandButton Command1 
         Height          =   495
         Left            =   0
         Picture         =   "StudentManger.frx":45D4B
         Style           =   1  'Graphical
         TabIndex        =   2
         ToolTipText     =   "注销"
         Top             =   0
         Width           =   495
      End
   End
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   600
      Top             =   6000
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   255
      Left            =   0
      TabIndex        =   0
      Top             =   7905
      Width           =   10155
      _ExtentX        =   17912
      _ExtentY        =   450
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   1
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
      EndProperty
   End
   Begin VB.Menu System 
      Caption         =   "系统"
      Begin VB.Menu Login 
         Caption         =   "登录"
      End
      Begin VB.Menu LoginOut 
         Caption         =   "注销"
      End
      Begin VB.Menu PasswordChange 
         Caption         =   "密码修改"
      End
      Begin VB.Menu DataBaseConn 
         Caption         =   "数据库连接"
      End
      Begin VB.Menu DataSystemFirst 
         Caption         =   "创建数据库"
      End
      Begin VB.Menu Exit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu DataBaseManger 
      Caption         =   "数据库管理"
      Begin VB.Menu SetDataBaseNull 
         Caption         =   "清空数据库"
      End
      Begin VB.Menu BackUp 
         Caption         =   "备份数据库"
      End
      Begin VB.Menu RestoreDataBase 
         Caption         =   "还原数据库"
      End
   End
   Begin VB.Menu InfoManger 
      Caption         =   "信息管理"
      Begin VB.Menu 用户管理 
         Caption         =   "用户管理"
      End
      Begin VB.Menu null3 
         Caption         =   "-"
      End
      Begin VB.Menu ClassManger 
         Caption         =   "班级管理"
      End
      Begin VB.Menu PayManger 
         Caption         =   "缴费管理"
      End
      Begin VB.Menu StuManger 
         Caption         =   "学生管理"
      End
      Begin VB.Menu ResultManger 
         Caption         =   "成绩管理"
      End
      Begin VB.Menu null 
         Caption         =   "-"
      End
      Begin VB.Menu CourseSet 
         Caption         =   "课程设置"
      End
   End
   Begin VB.Menu InfoSelect 
      Caption         =   "信息查询"
      Begin VB.Menu RusultSelect 
         Caption         =   "成绩查询"
      End
      Begin VB.Menu StudentInfo 
         Caption         =   "学生信息"
      End
      Begin VB.Menu PaySelect 
         Caption         =   "缴费查询"
      End
      Begin VB.Menu null2 
         Caption         =   "-"
      End
      Begin VB.Menu TermSelect 
         Caption         =   "条件查询"
      End
      Begin VB.Menu ViewSelect 
         Caption         =   "一般查询"
      End
   End
   Begin VB.Menu 窗口 
      Caption         =   "窗口"
      Begin VB.Menu 平铺 
         Caption         =   "平铺"
      End
      Begin VB.Menu 层叠 
         Caption         =   "层叠"
      End
      Begin VB.Menu 纵铺 
         Caption         =   "纵铺"
      End
      Begin VB.Menu 窗口列表 
         Caption         =   "窗口列表"
         WindowList      =   -1  'True
      End
   End
   Begin VB.Menu 帮助 
      Caption         =   "帮助"
      Begin VB.Menu 使用帮助 
         Caption         =   "使用帮助"
      End
      Begin VB.Menu 关于我们 
         Caption         =   "关于我们"
      End
   End
   Begin VB.Menu m_Main 
      Caption         =   "菜单"
      Visible         =   0   'False
      Begin VB.Menu m_Menu 
         Caption         =   "显示窗口"
         Index           =   0
      End
      Begin VB.Menu m_Menu 
         Caption         =   "退出"
         Index           =   1
      End
   End
End
Attribute VB_Name = "StudentManger"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub BackUp_Click()
If Not conn <> True Then
 Dim iDb  As ADODB.Connection
          Dim iConc  As String
    
          iConc = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=."
            
          Set iDb = New ADODB.Connection
          iDb.Open iConc
    iDb.Execute "backup   database   student   to   disk='" & App.Path & "\a.bak'   with   init"
    iDb.Close
    MsgBox "SQL数据库已经备份在同目录下a.bak中", , "数据库"

End If
If Not conn <> False Then
Dim fso As New FileSystemObject
On Error GoTo A
fso.CreateFolder (App.Path & "\DB")
A:
FileCopy App.Path & "\Student.mdb", App.Path & "\DB\备份.mdb"
MsgBox "ACCESS数据库已经备份在DB文件夹中", , "数据库"

End If
End Sub

Private Sub ClassManger_Click()
ClassManage.Show
End Sub

Private Sub Command1_Click()
 sysusername = ""
sysuserPWD = ""
Unload Me
StudentLogin.Show
End Sub

Private Sub Command2_Click()
UserPWDChange.Show
End Sub

Private Sub Command3_Click()
ResultSelect.Show
End Sub

Private Sub Command4_Click()
PaySelect2.Show
End Sub

Private Sub Command5_Click()
If Not MsgBox("你确实要离开本系统吗？", vbOKCancel + vbExclamation, "学生信息管理系统 v.1.0") <> vbOK Then
Unload Me
End If
End Sub