frmmain.frm

学生管理信息系统

            TextSave        =   "INS"
         EndProperty
      EndProperty
   End
   Begin VB.Menu menu1 
      Caption         =   "系统设置(&F)"
      Begin VB.Menu menu11 
         Caption         =   "用户管理"
      End
      Begin VB.Menu menu12 
         Caption         =   "重新登陆(&R)"
      End
      Begin VB.Menu menu13 
         Caption         =   "系统日志(&L)"
      End
      Begin VB.Menu line1 
         Caption         =   "-"
      End
      Begin VB.Menu menu14 
         Caption         =   "退出系统(&X)"
      End
   End
   Begin VB.Menu menu2 
      Caption         =   "学籍管理(&E)"
      Begin VB.Menu menu21 
         Caption         =   "添加学生学籍(&A)"
      End
      Begin VB.Menu menu22 
         Caption         =   "查询修改学生信息(&F)"
      End
      Begin VB.Menu menu23 
         Caption         =   "注销学生学籍(&D)"
      End
      Begin VB.Menu line2 
         Caption         =   "-"
      End
      Begin VB.Menu menu24 
         Caption         =   "打印学生信息(&P)"
      End
      Begin VB.Menu line3 
         Caption         =   "-"
      End
      Begin VB.Menu menu25 
         Caption         =   "管理日志(&L)"
      End
   End
   Begin VB.Menu menu3 
      Caption         =   "班级管理(&C)"
      Begin VB.Menu menu31 
         Caption         =   "添加班级"
      End
      Begin VB.Menu menu32 
         Caption         =   "查询修改班级信息(&F)"
      End
      Begin VB.Menu line10 
         Caption         =   "-"
      End
      Begin VB.Menu menu33 
         Caption         =   "注销班级"
      End
   End
   Begin VB.Menu menu4 
      Caption         =   "专业设置(&I)"
      Begin VB.Menu menu41 
         Caption         =   "设置专业(&O)"
      End
      Begin VB.Menu menu42 
         Caption         =   "设置课程"
      End
      Begin VB.Menu line4 
         Caption         =   "-"
      End
      Begin VB.Menu menu43 
         Caption         =   "查询与修改"
      End
   End
   Begin VB.Menu menu5 
      Caption         =   "成绩管理(&S)"
      Begin VB.Menu menu51 
         Caption         =   "添加成绩"
      End
      Begin VB.Menu menu52 
         Caption         =   "成绩查询与修改"
      End
      Begin VB.Menu line5 
         Caption         =   "-"
      End
      Begin VB.Menu menu53 
         Caption         =   "打印学生成绩(&P)"
      End
   End
   Begin VB.Menu menu6 
      Caption         =   "帮 助(&H)"
      Begin VB.Menu menu61 
         Caption         =   "帮 助"
         Shortcut        =   {F1}
      End
      Begin VB.Menu menu62 
         Caption         =   "关 于"
         Shortcut        =   ^A
      End
      Begin VB.Menu line6 
         Caption         =   "-"
      End
      Begin VB.Menu menu63 
         Caption         =   "系统信息"
         Shortcut        =   {F12}
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Activate()
Me.StatusBar.Panels(2).Text = "日期：" + Format(Date, "yyyy年mm月dd日")
Me.StatusBar.Panels(3).Text = "时间：" + Format(Time, "hh:mm:ss AM/PM")
Me.StatusBar.Panels(4).Text = "用户名：" + frmUser.UserName
Me.StatusBar.Panels(5).Text = "学生总数：" & rs.RecordCount & " 个"
'XjADO.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source='App.Path & " \ xs.mdb ';Mode=Share Deny None"
On Error Resume Next
rs.MoveFirst
conn.Refresh
End Sub

Private Sub Form_Load()
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\xs.mdb"
conn.Open
rs.CursorLocation = adUseClient
rs.Open "xsxj", conn, adOpenStatic, adLockReadOnly
Set XJtable.DataSource = rs
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Unload Me
End
End Sub

Private Sub Form_Resize()
 On Error Resume Next
 picBack.Width = Me.Width
 picTable.Height = Me.Height - Me.Toolbar.Height - Me.StatusBar.Height - picBack.Height - 820
 picTable.Width = Me.Width
 pic1.Left = (picBack.Width - pic1.Width) \ 2
End Sub

Private Sub menu11_Click()
frmUserOpt.Show (1)
End Sub

Private Sub menu12_Click()
Me.Hide
Load frmUser
frmUser.Show
End Sub

Private Sub menu13_Click()
frmTemp.Show (1)
End Sub

Private Sub menu14_Click()
 Unload Me: End
End Sub

Private Sub menu21_Click()
  frmStudent.SSTab1.Tab = 0
  frmStudent.Show (1)
End Sub

Private Sub menu22_Click()
  frmStudent.SSTab1.Tab = 1
  frmStudent.Show (1)
End Sub

Private Sub menu23_Click()
  frmStudent.SSTab1.Tab = 2
  frmStudent.Show (1)
End Sub

Private Sub menu24_Click()
  frmStudent.SSTab1.Tab = 3
  frmStudent.Show (1)
End Sub

Private Sub menu25_Click()
  frmStudent.SSTab1.Tab = 4
  frmStudent.Show (1)
End Sub

Private Sub menu31_Click()
 frmClass.SSTab1.Tab = 0
 frmClass.Show (1)
End Sub

Private Sub menu32_Click()
 frmClass.SSTab1.Tab = 1
 frmClass.Show (1)
End Sub

Private Sub menu33_Click()
 frmClass.SSTab1.Tab = 2
 frmClass.Show (1)
End Sub

Private Sub menu411_Click()
 
End Sub

Private Sub menu41_Click()
frmZhuanye.SSTab1.Tab = 0
frmZhuanye.Show (1)

End Sub

Private Sub menu42_Click()
frmZhuanye.SSTab1.Tab = 1
frmZhuanye.Show (1)

End Sub

Private Sub menu43_Click()
frmZhuanye.SSTab1.Tab = 2
frmZhuanye.Show (1)
End Sub

Private Sub menu51_Click()
frmScore.SSTab1.Tab = 0
frmScore.Show (1)

End Sub

Private Sub menu52_Click()
frmScore.SSTab1.Tab = 1
frmScore.Show (1)

End Sub

Private Sub menu53_Click()
frmScore.SSTab1.Tab = 2
frmScore.Show (1)

End Sub

Private Sub picTable_Resize()
XJtable.Height = picTable.Height - 50
XJtable.Width = picTable.Width
End Sub

Private Sub Toolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
 Case "m1"
  frmUserOpt.Show (1)
 Case "m2"
  frmStudent.Show (1)
 Case "m3"
  frmClass.Show (1)
 Case "m4"
  frmZhuanye.Show (1)
 Case "m5"
  frmScore.Show (1)
 Case "m6"
  frmPrint.Show (1)
 Case "m7"
  frmTemp.Show (1)
End Select
End Sub