frm_subjectposition.frm

This project is developed for school management system in vb and sql server 2000. All source code in

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frm_SubjectPosition 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Subject wise Class Position Form"
   ClientHeight    =   5010
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   9855
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   5010
   ScaleWidth      =   9855
   Begin VB.PictureBox p 
      Appearance      =   0  'Flat
      BackColor       =   &H80000004&
      ForeColor       =   &H80000008&
      Height          =   2805
      Left            =   120
      ScaleHeight     =   2775
      ScaleWidth      =   8985
      TabIndex        =   2
      Top             =   1800
      Width           =   9015
      Begin VB.CommandButton Command1 
         Caption         =   "Preview Class Position"
         Height          =   495
         Left            =   3600
         TabIndex        =   15
         Top             =   2040
         Width           =   2175
      End
      Begin VB.ComboBox T1 
         Height          =   315
         Left            =   6240
         Sorted          =   -1  'True
         Style           =   2  'Dropdown List
         TabIndex        =   13
         Top             =   1440
         Width           =   1215
      End
      Begin VB.ComboBox cmbSubjects 
         Height          =   315
         Left            =   1530
         Style           =   2  'Dropdown List
         TabIndex        =   7
         Top             =   1410
         Width           =   2175
      End
      Begin VB.ComboBox cmbSemester 
         Height          =   315
         ItemData        =   "frm_SubjectPosition.frx":0000
         Left            =   1530
         List            =   "frm_SubjectPosition.frx":0002
         Style           =   2  'Dropdown List
         TabIndex        =   6
         Top             =   900
         Width           =   2175
      End
      Begin VB.ComboBox cmbCourse 
         Height          =   315
         Left            =   1530
         Style           =   2  'Dropdown List
         TabIndex        =   5
         Top             =   390
         Width           =   2175
      End
      Begin VB.ComboBox cmbExams 
         Height          =   315
         Left            =   6270
         Style           =   2  'Dropdown List
         TabIndex        =   4
         Top             =   900
         Width           =   2115
      End
      Begin MSComCtl2.DTPicker DT 
         BeginProperty DataFormat 
            Type            =   1
            Format          =   "dd-mmm-yy"
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   1033
            SubFormatType   =   3
         EndProperty
         Height          =   315
         Left            =   6270
         TabIndex        =   3
         Top             =   390
         Width           =   2115
         _ExtentX        =   3731
         _ExtentY        =   556
         _Version        =   393216
         Format          =   48693249
         CurrentDate     =   36027
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Student Roll No:"
         Height          =   255
         Index           =   5
         Left            =   4440
         TabIndex        =   14
         Top             =   1500
         Width           =   1545
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Class:"
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   0
         Left            =   360
         TabIndex        =   12
         Top             =   420
         Width           =   1125
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Term:"
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   1
         Left            =   360
         TabIndex        =   11
         Top             =   930
         Width           =   1125
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Subject:"
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   2
         Left            =   360
         TabIndex        =   10
         Top             =   1440
         Width           =   1125
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Examination Date:"
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   3
         Left            =   4590
         TabIndex        =   9
         Top             =   420
         Width           =   1605
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Examination:"
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   4
         Left            =   4680
         TabIndex        =   8
         Top             =   930
         Width           =   1125
      End
   End
   Begin VB.PictureBox Picture3 
      Height          =   1575
      Left            =   -120
      Picture         =   "frm_SubjectPosition.frx":0004
      ScaleHeight     =   1515
      ScaleWidth      =   11955
      TabIndex        =   0
      Top             =   0
      Width           =   12015
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   " Subject Wise Class Position Form"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   24
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000006&
         Height          =   570
         Left            =   480
         TabIndex        =   1
         Top             =   240
         Width           =   9150
      End
   End
End
Attribute VB_Name = "frm_SubjectPosition"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim JK As Boolean
 Dim Ch As Boolean
 Dim Gh As Integer
 Dim FIR As Double, SU As Double
 Dim pREP As Boolean
 Dim a1 As Variant, a2 As Variant, a3 As Variant, a4 As Variant, a5 As Variant

Private Sub cmbCourse_Click()
 Call ShowSemester(cmbSemester, cmbCourse.ItemData(cmbCourse.ListIndex))
        FillStudent
End Sub
Public Sub ShowCourses()
  Dim RsCourse As New ADODB.Recordset
cmbCourse.Clear
 With RsCourse
   If .State = 1 Then .Close
  .CursorLocation = adUseClient
  .Open "Select Course_id,course_Name from course", frmMain.Cn, adOpenDynamic, adLockOptimistic
While Not .EOF
  cmbCourse.AddItem .Fields(1)
  cmbCourse.ItemData(cmbCourse.NewIndex) = .Fields(0)
  .MoveNext
Wend
End With
End Sub



Private Sub cmbSemester_Click()
ShowSubjects
End Sub


Private Sub Command1_Click()
st1 = Val(t1.Text)
cb = cmbCourse.ItemData(cmbCourse.ListIndex)
db = cmbExams.ItemData(cmbExams.ListIndex)
se = cmbSemester.ListIndex + 1

Call UpdateClassPosition


With DE.rsrptTranscript_Grouping
  If .State = 1 Then .Close
   
   Call DE.rptTranscript_Grouping(st1, cb, db, se)
   Gh = DE.rsrptTranscript_Grouping("aver").Value
   
   If .RecordCount = 0 Then
     MsgBox "No record Found", vbInformation, App.Comments
     Exit Sub
  End If
  rptTranscript.Sections("rptTranscript_Grouping_Footer").Controls("L").Caption = Grading(Gh)
 rptTranscript.Show
 End With
  
  Exit Sub
1:
  MsgBox "THERE ARE ERRORS LOADING REPORT " & _
         vbCrLf & "POSSIBLE CAUSES" & vbCrLf & _
         vbCrLf & "1: THERE IS SOME FIELD IS EMPTY PLEASE CHECK THEM THROUGHLY "
  
End Sub
Function Grading(G As Integer) As String
 If G >= 90 Then
   B = "A+"
 ElseIf G >= 85 Then
   B = "A"
 ElseIf G >= 80 Then
   B = "B+"
  ElseIf G >= 70 Then
    B = "B"
  ElseIf G >= 60 Then
    B = "C"
  ElseIf G >= 50 Then
    B = "D"
 Else
  B = "FAIL"
 End If
  Grading = B
End Function
Private Sub UpdateClassPosition()
Dim myrs As New ADODB.Recordset
Dim SQL As String
 T = cmbSubjects.ItemData(cmbSubjects.ListIndex)
db = cmbExams.ItemData(cmbExams.ListIndex)
se = cmbSemester.ListIndex + 1

SQL = "Select sub_id,Score,classPosition from Stud_Subject where sub_ID=" & T & " and Sections=" & Val(se) & " and Exam_ID=" & Val(db)
MsgBox SQL
myrs.Open SQL, frmMain.Cn, adOpenDynamic, adLockOptimistic
Dim count As Integer
count = 0
If Not (myrs.EOF And myrs.BOF) Then

Do While Not myrs.EOF
count = count + 1
myrs.MoveNext




myrs.MoveNext
Loop



End If




End Sub

Private Sub Form_Load()
Ch = True
JK = False
'frmMain.La(1).Visible = True
Call ShowExams(cmbExams)
cmbExams.ListIndex = GetSetting(App.Path, "CmbExam", "Cmb3", 0)

ShowCourses
cmbCourse.ListIndex = GetSetting(App.Path, "Cmbcourse", "Cmb1", 0)

Call ShowSemester(cmbSemester, cmbCourse.ItemData(cmbCourse.ListIndex))
ShowSubjects


cmbSemester.ListIndex = GetSetting(App.Path, "Cmbsemester", "Cmb2", 0)
pREP = False
 frm2 = 1

End Sub
Public Sub ShowSubjects()
 Dim RsSub As New ADODB.Recordset
 v = cmbCourse.ItemData(cmbCourse.ListIndex)
 cmbSubjects.Clear
 SQL = "SELECT SUB_COURSE.SUB_ID, SUB_COURSE.COURSE_ID, SUBJECTS.SUB_NAME" & _
       " FROM SUBJECTS INNER JOIN (COURSE INNER JOIN SUB_COURSE ON COURSE.COURSE_ID = SUB_COURSE.COURSE_ID)" & _
       "ON SUBJECTS.SUB_ID = SUB_COURSE.SUB_ID " & _
       " WHERE (((SUB_COURSE.COURSE_ID)= " & v & ") AND ((SUB_COURSE.SEMESTER)=" & cmbSemester.ListIndex + 1 & "))"
       
     
 With RsSub
   If .State = 1 Then .Close
  .CursorLocation = adUseClient
  .Open SQL, frmMain.Cn, adOpenDynamic, adLockOptimistic
While Not .EOF
  cmbSubjects.AddItem .Fields(2)
  cmbSubjects.ItemData(cmbSubjects.NewIndex) = .Fields("SUB_ID").Value
  .MoveNext
Wend
End With
End Sub
Public Sub FillStudent()
  Dim RS1 As New ADODB.Recordset
 With RS1
 t1.Clear
   hj = cmbCourse.ItemData(cmbCourse.ListIndex)

   .CursorLocation = adUseClient
   .Open "Select Stud_id from student where  course_id= " & hj, frmMain.Cn, adOpenDynamic
While Not .EOF
   t1.AddItem .Fields(0)
   .MoveNext
Wend
End With
End Sub