?? 學生檔案管理.frm

?? 這是一個用 VB + SQL 開發的學生檔案管理系統。
?? FRM
字號:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form 學生檔案管理 
   Caption         =   "學生檔案管理"
   ClientHeight    =   6030
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   8745
   LinkTopic       =   "Form1"
   ScaleHeight     =   6030
   ScaleWidth      =   8745
   Begin VB.PictureBox Picture1 
      Height          =   4815
      Left            =   0
      ScaleHeight     =   4755
      ScaleWidth      =   8595
      TabIndex        =   2
      Top             =   1080
      Width           =   8655
   End
   Begin VB.Frame Frame1 
      Height          =   975
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   8655
      Begin MSComctlLib.Toolbar Toolbar1 
         Height          =   810
         Left            =   120
         TabIndex        =   1
         Top             =   120
         Width           =   6975
         _ExtentX        =   12303
         _ExtentY        =   1429
         ButtonWidth     =   1455
         ButtonHeight    =   1376
         Style           =   1
         ImageList       =   "ImageList1"
         HotImageList    =   "ImageList1"
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   15
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "班級設置"
               Key             =   "班級設置"
               Object.ToolTipText     =   "班級設置"
               ImageIndex      =   5
            EndProperty
            BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "學生注冊"
               Key             =   "學生注冊"
               Object.ToolTipText     =   "學生注冊"
               ImageIndex      =   7
            EndProperty
            BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "基本信息"
               Key             =   "基本信息"
               Object.ToolTipText     =   "基本信息"
               ImageIndex      =   1
            EndProperty
            BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "新增課程"
               Key             =   "新增課程"
               Object.ToolTipText     =   "新增課程"
               ImageIndex      =   2
            EndProperty
            BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "成績錄入"
               Key             =   "成績錄入"
               Object.ToolTipText     =   "成績錄入"
               ImageIndex      =   3
            EndProperty
            BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "用戶管理"
               Key             =   "用戶管理"
               Object.ToolTipText     =   "用戶管理"
               ImageIndex      =   10
            EndProperty
            BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "重新登錄"
               Key             =   "重新登錄"
               Object.ToolTipText     =   "重新登錄"
               ImageIndex      =   6
            EndProperty
            BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
         EndProperty
         BorderStyle     =   1
      End
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   2280
      Top             =   5040
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   11
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "學生檔案管理.frx":0000
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "學生檔案管理.frx":0856
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "學生檔案管理.frx":137C
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "學生檔案管理.frx":1D26
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "學生檔案管理.frx":257C
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "學生檔案管理.frx":2E4A
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "學生檔案管理.frx":3718
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "學生檔案管理.frx":4142
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "學生檔案管理.frx":4AEC
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "學生檔案管理.frx":53CA
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "學生檔案管理.frx":5BE4
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Menu 機構設置 
      Caption         =   "【機構設置】"
      Begin VB.Menu 院設置 
         Caption         =   "院設置"
      End
      Begin VB.Menu 系設置 
         Caption         =   "系設置"
      End
      Begin VB.Menu 班級設置 
         Caption         =   "班級設置(B)"
         Shortcut        =   ^B
      End
   End
   Begin VB.Menu 學籍管理 
      Caption         =   "【學籍管理】"
      Begin VB.Menu 學生注冊 
         Caption         =   "學生注冊(R)"
         Shortcut        =   ^R
      End
      Begin VB.Menu 基本信息 
         Caption         =   "基本信息(J)"
         Shortcut        =   ^J
      End
      Begin VB.Menu 家庭成員信息 
         Caption         =   "家庭成員信息"
      End
      Begin VB.Menu 學籍異動 
         Caption         =   "學籍異動"
      End
      Begin VB.Menu SPACE1 
         Caption         =   "-"
      End
      Begin VB.Menu 學籍報告 
         Caption         =   "學籍報告"
      End
   End
   Begin VB.Menu 課程管理 
      Caption         =   "【課程管理】"
      Begin VB.Menu 新增課程 
         Caption         =   "新增課程(K)"
         Shortcut        =   ^K
      End
      Begin VB.Menu 課程查詢 
         Caption         =   "課程查詢"
      End
      Begin VB.Menu 課程分配 
         Caption         =   "課程分配"
      End
   End
   Begin VB.Menu 成績管理 
      Caption         =   "【成績管理】"
      Begin VB.Menu 成績錄入 
         Caption         =   "成績錄入(C)"
         Shortcut        =   ^C
      End
      Begin VB.Menu 成績評審 
         Caption         =   "成績評審"
      End
      Begin VB.Menu 成績單生成 
         Caption         =   "成績單生成"
      End
   End
   Begin VB.Menu 獎懲管理 
      Caption         =   "【獎懲管理】"
      Begin VB.Menu 獎懲錄入 
         Caption         =   "獎懲錄入"
      End
      Begin VB.Menu 獎懲查詢 
         Caption         =   "獎懲查詢"
      End
      Begin VB.Menu 獎懲單生成 
         Caption         =   "獎懲單生成"
      End
   End
   Begin VB.Menu 系統管理 
      Caption         =   "【系統管理】"
      Begin VB.Menu 用戶管理 
         Caption         =   "用戶管理(U)"
         Shortcut        =   ^U
      End
      Begin VB.Menu 密碼維護 
         Caption         =   "密碼維護"
      End
      Begin VB.Menu 重新登錄 
         Caption         =   "重新登錄"
         Shortcut        =   ^L
      End
   End
End
Attribute VB_Name = "學生檔案管理"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    Dim rst As ADODB.Recordset
    Dim rights As String
    Dim sTokens() As String
    Dim msg As String
    '查找權限
    SQL = " select 權限 from 用戶信息表 where 用戶ID='" & UserID & "'"
    Set rst = SelectSQL(SQL, msg)
    If rst.RecordCount > 0 Then
        rights = Trim(rst.Fields(0))
        rst.Close
    Else
        MsgBox ("沒有用戶信息！")
        Exit Sub
    End If
    '設置權限
   機構設置.Enabled = InStr(rights, "機構設置")
   學籍管理.Enabled = InStr(rights, "學籍管理")
   課程管理.Enabled = InStr(rights, "課程管理")
   成績管理.Enabled = InStr(rights, "成績管理")
   獎懲管理.Enabled = InStr(rights, "獎懲管理")
   系統管理.Enabled = InStr(rights, "系統管理")
End Sub
Private Sub 院設置_Click()
    A院設置.Show
    學生檔案管理.Enabled = False
End Sub
Private Sub 系設置_Click()
    A系設置.Show
    學生檔案管理.Enabled = False
End Sub
Private Sub 班級設置_Click()
    A班級設置.Show
    學生檔案管理.Enabled = False
End Sub
Private Sub 學生注冊_Click()
    MenuIndex = 0
    B學生查詢.Show
    學生檔案管理.Enabled = False
End Sub
Private Sub 基本信息_Click()
    MenuIndex = 2
    B學生查詢.Show
    學生檔案管理.Enabled = False
End Sub
Private Sub 家庭成員信息_Click()
    MenuIndex = 3
    B學生查詢.Show
    學生檔案管理.Enabled = False
End Sub
Private Sub 學籍異動_Click()
    MenuIndex = 4
    B學生查詢.Show
    學生檔案管理.Enabled = False
End Sub
Private Sub 學籍報告_Click()
    MenuIndex = 5
    B學生查詢.Show
    學生檔案管理.Enabled = False
End Sub
Private Sub 課程查詢_Click()
    C課程查詢.Show
    學生檔案管理.Enabled = False
End Sub
Private Sub 課程分配_Click()
    C課程分配.Show
    學生檔案管理.Enabled = False
End Sub
Private Sub 新增課程_Click()
    C新增課程.Show
    學生檔案管理.Enabled = False
End Sub
Private Sub 成績錄入_Click()
    D成績錄入.Show
    學生檔案管理.Enabled = False
End Sub
Private Sub 成績評審_Click()
    D成績評審.Show
    學生檔案管理.Enabled = False
End Sub
Private Sub 成績單生成_Click()
    D成績單生成.Show
    學生檔案管理.Enabled = False
End Sub
Private Sub 獎懲錄入_Click()
    MenuIndex = 1
    E獎懲查詢.Show
    學生檔案管理.Enabled = False
End Sub
Private Sub 獎懲查詢_Click()
    MenuIndex = 0
    E獎懲查詢.Show
    學生檔案管理.Enabled = False
End Sub
Private Sub 獎懲單生成_Click()
    MenuIndex = 2
    E獎懲查詢.Show
    學生檔案管理.Enabled = False
End Sub
Private Sub 用戶管理_Click()
    G用戶管理.Show
    學生檔案管理.Enabled = False
End Sub
Private Sub 密碼維護_Click()
    G密碼維護.Show
    學生檔案管理.Enabled = False
End Sub
Private Sub 重新登錄_Click()
    Unload Me
    G登錄.Show
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Index
    Case 2:
        Call 班級設置_Click          '調入班級設置
    Case 4:
        Call 學生注冊_Click          '調入學生注冊
    Case 6:
        Call 基本信息_Click          '調入基本信息
    Case 8:
        Call 新增課程_Click          '調入新增課程
    Case 10:
        Call 成績錄入_Click          '調入成績錄入
    Case 12:
        Call 用戶管理_Click          '調入用戶管理
    Case 14:
        Call 重新登錄_Click          '調入重新登錄
    End Select
End Sub
?? 文件大小 222 K
?? 上傳用戶 szjunhui899
?? 所屬分類教育系統應用
??? 相關標簽

#SQL #VB #管理系統
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? 學生檔案管理.frm

?? 快捷鍵說明
