教育系统应用

开发平台：
Visual Basic

MDIForm1.frm：源码内容
							VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H80000003&
   Caption         =   "学生信息管理系统"
   ClientHeight    =   7440
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   9930
   Icon            =   "MDIForm1.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "MDIForm1.frx":0442
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   300
      Left            =   0
      TabIndex        =   0
      Top             =   7140
      Width           =   9930
      _ExtentX        =   17515
      _ExtentY        =   529
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   4
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   7056
            MinWidth        =   7056
            Text            =   "学 生 信 息 管 理 系 统 ..cxqing"
            TextSave        =   "学 生 信 息 管 理 系 统 ..cxqing"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   4304
            MinWidth        =   4304
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   5292
            MinWidth        =   5292
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   5293
            MinWidth        =   5293
         EndProperty
      EndProperty
      OLEDropMode     =   1
   End
   Begin VB.Menu xitong 
      Caption         =   "系统管理 &(O)"
      NegotiatePosition=   3  'Right
      Begin VB.Menu useradd 
         Caption         =   "添加用户"
         Shortcut        =   ^A
      End
      Begin VB.Menu usermodi 
         Caption         =   "修改密码"
         Shortcut        =   ^B
      End
      Begin VB.Menu denglu2 
         Caption         =   "重新登陆"
         Shortcut        =   ^{F1}
      End
   End
   Begin VB.Menu class 
      Caption         =   "班级管理&(P)"
      NegotiatePosition=   2  'Middle
      Begin VB.Menu classbrowse 
         Caption         =   "班级浏览"
         Shortcut        =   ^C
      End
      Begin VB.Menu classapp 
         Caption         =   "添加班级"
         Shortcut        =   ^D
      End
      Begin VB.Menu classfind 
         Caption         =   "班级查询"
         Shortcut        =   ^E
      End
   End
   Begin VB.Menu dangan 
      Caption         =   "学生档案管理&(T)"
      Begin VB.Menu add 
         Caption         =   "档案添加"
         Shortcut        =   ^F
      End
      Begin VB.Menu liulan 
         Caption         =   "档案浏览"
         Shortcut        =   ^G
      End
      Begin VB.Menu claasfind 
         Caption         =   "档案查询"
         Shortcut        =   ^H
      End
   End
   Begin VB.Menu jiaofei 
      Caption         =   "学生交费管理&(M)"
      Begin VB.Menu xuefei 
         Caption         =   "基本学费设置"
         Begin VB.Menu xuefeibrowse 
            Caption         =   "学费设置浏览"
            Shortcut        =   ^J
         End
         Begin VB.Menu xuefeiadd 
            Caption         =   "学费设置添加"
            Shortcut        =   ^K
         End
         Begin VB.Menu xuefeifind 
            Caption         =   "学费设置查询 "
            Shortcut        =   ^L
         End
      End
      Begin VB.Menu ee 
         Caption         =   "-"
      End
      Begin VB.Menu jiaofeibrowse 
         Caption         =   "学生交费浏览"
         Shortcut        =   ^M
      End
      Begin VB.Menu jiaofeiadd 
         Caption         =   "学生交费添加"
         Shortcut        =   ^N
      End
      Begin VB.Menu jiaofeifind 
         Caption         =   "学生交费查询"
         Shortcut        =   ^O
      End
   End
   Begin VB.Menu kechengguanli 
      Caption         =   "课程管理&(R)"
      Begin VB.Menu jibenkecheng 
         Caption         =   "基本课程设置"
         Shortcut        =   ^P
      End
      Begin VB.Menu qw 
         Caption         =   "-"
      End
      Begin VB.Menu classkecheng 
         Caption         =   "班级课程设置"
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu cjguanli 
      Caption         =   "成绩管理&(F)"
      Begin VB.Menu leixing 
         Caption         =   "考试类型设置"
         Shortcut        =   ^R
      End
      Begin VB.Menu cjadd 
         Caption         =   "成绩添加"
         Shortcut        =   ^S
      End
      Begin VB.Menu cjbrowse 
         Caption         =   "成绩浏览"
         Shortcut        =   ^T
      End
      Begin VB.Menu cjfind 
         Caption         =   "成绩查询"
         Shortcut        =   ^U
      End
   End
   Begin VB.Menu baobiao 
      Caption         =   "打印报表&(H)"
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Dim find1 As Integer
Dim liulan1 As Integer
Private Sub add_Click()
qxstr = Executeqx(2)
If qxstr = "false" Or qxstr = "readonly" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
  Form1.Show
  modi = False
  
  Form1.ZOrder (0)
End Sub
Private Sub cjadd_Click()
qxstr = Executeqx(4)
If qxstr = "false" Or qxstr = "readonly" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
frmcj2.Show
frmcj2.ZOrder 0
End Sub
Private Sub cjbrowse_Click()
qxstr = Executeqx(4)
If qxstr = "false" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
frmcj1.Show
frmcj1.ZOrder 0
End Sub
Private Sub cjfind_Click()
qxstr = Executeqx(4)
If qxstr = "false" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
End Sub
Private Sub claasfind_Click()
qxstr = Executeqx(2)
If qxstr = "false" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
 Form4.Show
  Form4.ZOrder (0)
  i = SetWindowPos(Form4.hwnd, -1, 0, 0, 0, 0, 3)
End Sub
Private Sub classapp_Click()
qxstr = Executeqx(2)
If qxstr = "false" Or qxstr = "readonly" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
Formclass1.Show
  classmodi = False
  Formclass1.classload
  Formclass1.ZOrder (0)
End Sub
Public Sub clabrowse()
txtsql = "select * from class"
Formclass2.ZOrder (0)
Formclass2.Caption = "浏览班级设置"
Formclass2.classshowtitle
Formclass2.classshowdata
End Sub
Private Sub classbrowse_Click()
qxstr = Executeqx(2)
If qxstr = "false" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
Formclass2.Show
End Sub
Private Sub classfind_Click()
qxstr = Executeqx(2)
If qxstr = "false" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
 Formclass3.Show
 Formclass3.ZOrder (0)
End Sub
Private Sub find_Click()
 
End Sub
Private Sub classkecheng_Click()
qxstr = Executeqx(4)
If qxstr = "false" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
Frmclasskecheng1.Show
Frmclasskecheng1.ZOrder
End Sub
Private Sub denglu2_Click()
Frmdenlu.Show
Unload Me
End Sub
Private Sub jiaofeiadd_Click()
qxstr = Executeqx(3)
If qxstr = "false" Or qxstr = "readonly" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
Frmjf1.Show
Frmjf1.ZOrder 0
End Sub
Private Sub jiaofeibrowse_Click()
qxstr = Executeqx(3)
If qxstr = "false" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
frmjf2.Show
frmjf2.ZOrder 0
End Sub
Private Sub jiaofeifind_Click()
qxstr = Executeqx(3)
If qxstr = "false" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
End Sub
Private Sub jibenkecheng_Click()
qxstr = Executeqx(4)
If qxstr = "false" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
frmjiben.Show
frmjiben.ZOrder 0
End Sub
Private Sub leixing_Click()
qxstr = Executeqx(4)
If qxstr = "false" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
Frmleixing.Show
Frmleixing.ZOrder 0
End Sub
Private Sub liulan_Click()
qxstr = Executeqx(2)
If qxstr = "false" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
  find = False
  Form3.Show
End Sub
Private Sub MDIForm_Load()
'username = "0001"
DataEnv1.Connection1.ConnectionString = connstring
StatusBar1.Panels(2).Text = Now
StatusBar1.Panels(3).Text = "当前操作员：    " & username
Dim aa As String
Select Case Executeqx(1)
Case "admin"
  aa = "超级管理员"
Case "readonly"
  aa = "只读管理员"
Case Else
  aa = "普通管理员"
End Select
StatusBar1.Panels(4).Text = "状态：   " & aa
End Sub
Private Sub useradd_Click()
qxstr = Executeqx(1)
If qxstr = "false" Or qxstr = "readonly" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
frmuser1.Show
frmuser1.ZOrder 0
End Sub
Private Sub usermodi_Click()
qxstr = Executeqx(1)
If qxstr = "false" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
End Sub
Private Sub xuefeiadd_Click()
qxstr = Executeqx(3)
If qxstr = "false" Or qxstr = "readonly" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
 xuefeimodi = False
 Dim i As Integer
  For i = 0 To 3
 frmxuefei1.Combo1(i).Enabled = True
  Next i
  Me.Caption = "添加班级设置"
 For i = 0 To 3
  frmxuefei1.Combo1(i).Text = ""
  Next i
    frmxuefei1.Text1.Text = ""
  frmxuefei1.Show
  frmxuefei1.ZOrder 0
End Sub
Public Sub xfbrowse()
txtsql = "select * from xuefei order by 学期 desc, 年级 desc,专业 desc"
Frmxuefei2.ZOrder (0)
Frmxuefei2.Caption = "浏览学费设置"
Frmxuefei2.xuefeishowtitle
Frmxuefei2.xuefeishowdata
End Sub
Private Sub xuefeibrowse_Click()
qxstr = Executeqx(3)
If qxstr = "false" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
  Frmxuefei2.Show
End Sub
Private Sub xuefeifind_Click()
qxstr = Executeqx(3)
If qxstr = "false" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
 Frmxuefei3.Show
   Frmxuefei3.ZOrder (0)
    i = SetWindowPos(Frmxuefei3.hwnd, -1, 0, 0, 0, 0, 3)
End Sub

						