VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H80000003&
   Caption         =   "學(xué)生信息管理系統(tǒng)"
   ClientHeight    =   7440
   ClientLeft      =   165
   ClientTop       =   855
   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            =   "學(xué) 生 信 息 管 理 系 統(tǒng) ..cxqing"
            TextSave        =   "學(xué) 生 信 息 管 理 系 統(tǒng) ..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         =   "系統(tǒng)管理 &(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 classapp 
         Caption         =   "添加班級"
         Shortcut        =   ^D
      End
   End
   Begin VB.Menu dangan 
      Caption         =   "學(xué)生檔案管理&(T)"
      Begin VB.Menu add 
         Caption         =   "檔案添加"
         Shortcut        =   ^F
      End
      Begin VB.Menu claasfind 
         Caption         =   "檔案查詢"
         Shortcut        =   ^H
      End
   End
   Begin VB.Menu kechengguanli 
      Caption         =   "課程管理&(R)"
      Begin VB.Menu jibenkecheng 
         Caption         =   "基本課程設(shè)置"
         Shortcut        =   ^P
      End
      Begin VB.Menu qw 
         Caption         =   "-"
      End
      Begin VB.Menu classkecheng 
         Caption         =   "班級課程設(shè)置"
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu cjguanli 
      Caption         =   "成績管理&(F)"
      Begin VB.Menu leixing 
         Caption         =   "考試類型設(shè)置"
         Shortcut        =   ^R
      End
      Begin VB.Menu cjadd 
         Caption         =   "成績添加"
         Shortcut        =   ^S
      End
      Begin VB.Menu cjfind 
         Caption         =   "成績查詢"
         Shortcut        =   ^U
      End
   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)

  Form1.Show
  modi = False
  
  Form1.ZOrder (0)
End Sub



Private Sub cjadd_Click()
qxstr = Executeqx(4)

frmcj2.Show
frmcj2.ZOrder 0
End Sub





Private Sub cjfind_Click()
qxstr = Executeqx(4)

End Sub

Private Sub claasfind_Click()
qxstr = Executeqx(2)

 Form4.Show
  Form4.ZOrder (0)
  i = SetWindowPos(Form4.hwnd, -1, 0, 0, 0, 0, 3)
End Sub

Private Sub classapp_Click()
qxstr = Executeqx(2)

Formclass1.Show
  classmodi = False
  Formclass1.classload
  Formclass1.ZOrder (0)
End Sub

Public Sub clabrowse()
txtsql = "select * from class"
Formclass2.ZOrder (0)
Formclass2.Caption = "瀏覽班級設(shè)置"
Formclass2.classshowtitle
Formclass2.classshowdata


End Sub





Private Sub find_Click()
 
End Sub



Private Sub classkecheng_Click()
qxstr = Executeqx(4)

Frmclasskecheng1.Show
Frmclasskecheng1.ZOrder
End Sub




Private Sub denglu2_Click()
Frmdenlu.Show
Unload Me
End Sub







Private Sub jibenkecheng_Click()
qxstr = Executeqx(4)

frmjiben.Show
frmjiben.ZOrder 0
End Sub



Private Sub leixing_Click()
qxstr = Executeqx(4)

Frmleixing.Show
Frmleixing.ZOrder 0
End Sub



Private Sub liulan_Click()

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 = "狀態(tài)：   " & aa
End Sub

Private Sub useradd_Click()
qxstr = Executeqx(1)

frmuser1.Show
frmuser1.ZOrder 0
End Sub

Private Sub usermodi_Click()
qxstr = Executeqx(1)

End Sub



Public Sub xfbrowse()
txtsql = "select * from xuefei order by 學(xué)期 desc, 年級 desc,專業(yè) desc"
Frmxuefei2.ZOrder (0)

Frmxuefei2.xuefeishowtitle
Frmxuefei2.xuefeishowdata
End Sub