frmstudent.frm

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

Private Sub MSHFlexGrid1_Click()

End Sub

Private Sub Form_Resize()
Me.WindowState = vbMaximized

 ST.Left = (Me.Width - ST.Width) \ 2
 ST.Top = (Me.Height - ST.Height) \ 2

End Sub

Private Sub Form_Unload(Cancel As Integer)
'frmMain.La(0).Visible = False
 For i = 0 To 4
   SaveSetting App.EXEName, "Grid", "grid" & i, Grid.ColWidth(i)
 Next
If cmdSave.Enabled = False Then
SecondGridData
End If
 cmdCancel_Click
 Cancel = False
 Unload frmOptions
End Sub


Public Sub ShowCourses()
  Dim RsCourse As New ADODB.Recordset
cmbCour.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
  cmbCour.AddItem .Fields(1)
  cmbCour.ItemData(cmbCour.NewIndex) = .Fields(0)
  .MoveNext
Wend
End With
End Sub

Private Sub Frame2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblBtn1.BackColor = vbWhite
 lblBtn2.BackColor = vbWhite
'  lblBtn3.BackColor = vbWhite
   lblBtn4.BackColor = vbWhite
End Sub

Private Sub G_ButtonClick(ByVal ColIndex As Integer)

End Sub

Private Sub G_Click()



End Sub

Private Sub Grid_DblClick()
Rs.Requery
ST.Tab = 0
 H = Grid.TextMatrix(Grid.Row, 0)
  Rs.Find "stud_id = '" & H & "'", 1, adSearchForward, 1
 If Rs.EOF Then
  Rs.Requery
 End If
 SecondGridData

End Sub

Private Sub Grid_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
   Grid_DblClick
 End If
End Sub

Private Sub Label3_Click()
Unload frmStudent
End Sub

Private Sub lblBtn1_Click()
 Shape1.Left = lblBtn1.Left - 10
 Shape1.Top = lblBtn1.Top - 10
 picStud.Visible = True
 Picture2.Visible = False
' Picture3.Visible = False
 Picture4.Visible = False
End Sub

Private Sub lblBtn1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
' lblBtn1.BackColor = &HC0FFC0
 lblBtn2.BackColor = vbWhite
'  lblBtn3.BackColor = vbWhite
 '  lblBtn4.BackColor = vbWhite
End Sub

Private Sub lblBtn2_Click()
 Shape1.Left = lblBtn2.Left - 10
 Shape1.Top = lblBtn2.Top - 10
 picStud.Visible = False
 Picture2.Visible = True

 Picture4.Visible = False
End Sub

Private Sub lblBtn2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'lblBtn2.BackColor = &HC0FFC0
 lblBtn1.BackColor = vbWhite
'  lblBtn3.BackColor = vbWhite
   lblBtn4.BackColor = vbWhite
End Sub

Private Sub lblBtn3_Click()
'Shape1.Left = lblBtn3.Left - 10
' Shape1.Top = lblBtn3.Top - 10
 picStud.Visible = False
 Picture2.Visible = False

 Picture4.Visible = False
End Sub

Private Sub lblBtn3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'lblBtn3.BackColor = &HC0FFC0
 lblBtn2.BackColor = vbWhite
  lblBtn1.BackColor = vbWhite
   lblBtn4.BackColor = vbWhite
End Sub

Private Sub lblBtn4_Click()
Shape1.Left = lblBtn4.Left - 10
 Shape1.Top = lblBtn4.Top - 10
picStud.Visible = False
 Picture2.Visible = False
' Picture3.Visible = False
 Picture4.Visible = True
End Sub

Private Sub lblBtn4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'lblBtn4.BackColor = &HC0FFC0
 lblBtn2.BackColor = vbWhite
'  lblBtn3.BackColor = vbWhite
   lblBtn1.BackColor = vbWhite
End Sub




Private Sub MT_KeyPress(KeyAscii As Integer)
If KeyCode = vbKeyUp Then
    T(17).SetFocus
End If
End Sub

Private Sub Quali_Click()
On Error Resume Next

Po = T(18).Text 'Quali.TextMatrix(Quali.Row, 5)
Hq = Quali.TextMatrix(Quali.Row, 0)
End Sub

Private Sub Quali_DblClick()
C = False
With Quali
Combo1.Text = .TextMatrix(.Row, 0)
Combo2.Text = .TextMatrix(.Row, 1)
Combo3.Text = .TextMatrix(.Row, 2)
Combo4.Text = .TextMatrix(.Row, 3)
Combo5.Text = .TextMatrix(.Row, 4)
W = Combo1.Text
s_no = T(18).Text
End With
End Sub

Private Sub Quali_GotFocus()
'cmdDel.Enabled = True
End Sub

Private Sub Quali_LostFocus()
'cmdDel.Enabled = False
End Sub

Private Sub RS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
On Error GoTo 1
 
If Rs.EOF Or Rs.BOF Then Exit Sub
If Rs.EditMode = adEditAdd Then
  lblStatus.Caption = "Add New Record...."

Else
 lblStatus.Caption = "RECORD " & CStr(Rs.AbsolutePosition) & " / " & Rs.RecordCount
End If

Exit Sub
1:
 
  Exit Sub
End Sub


Public Sub SetDataSources()
  Dim j As Control
For Each j In frmStudent
  If TypeOf j Is TextBox Then
    Set j.DataSource = Rs
  ElseIf TypeOf j Is DTPicker Then
   Set j.DataSource = Rs
  End If
Next
'Set MT.DataSource = Rs
'DT(0).DataField = "admit_date"
T(0).DataField = "NAME"
'T(1).DataField = "NIC_NO"
'DT(1).DataField = "BIRTH_DATE"
T(2).DataField = "ADDRESS"
T(3).DataField = "PHONE"
T(4).DataField = "OFFICE_PHONE"
T(5).DataField = "E_MAIL"
T(6).DataField = "PreviousSchoolName"
T(7).DataField = "father_name"
T(8).DataField = "f_profession"
T(9).DataField = "designation"
T(10).DataField = "f_income"
T(11).DataField = "f_bus_address"
T(12).DataField = "f_phone"
T(13).DataField = "f_mail_address"
T(14).DataField = "interviewby"
T(15).DataField = "session"
DT(2).DataField = "dateofreg"
T(16).DataField = "reg_fee"
T(17).DataField = "remarks"
T(18).DataField = "stud_id"
T(19).DataField = "reg_no"
T(20).DataField = "T_Fee"
T(21).DataField = "CertificateNo"
End Sub


Public Sub EnableButtons()
 cmdAddNew.Enabled = False
 cmdEdit.Enabled = False
 cmdDelete.Enabled = False
 cmdFind.Enabled = False
 cmdPrint.Enabled = False
 cmdCancel.Enabled = True
 cmdSave.Enabled = True
 cmdNext.Enabled = False
 cmdFirst.Enabled = False
 cmdLast.Enabled = False
 cmdPrevious.Enabled = False
' this will enable all text boxes
  Dim K As Control
   For Each K In frmStudent
     If TypeOf K Is TextBox Then
      K.Enabled = True
     ElseIf TypeOf K Is DataCombo Then
       K.Enabled = True
       ElseIf TypeOf K Is DTPicker Then
       K.Enabled = True
       'ElseIf TypeOf k Is ComboBox Then
        'k.Enabled = True
     End If
     Next
T(19).Enabled = True
 ' Quali.Enabled = True
End Sub
Public Sub DisableButtons()
 cmdAddNew.Enabled = True
 cmdEdit.Enabled = True
 cmdDelete.Enabled = True
 cmdFind.Enabled = True
 cmdPrint.Enabled = True
 cmdCancel.Enabled = False
 cmdSave.Enabled = False
 
 cmdNext.Enabled = True
 cmdFirst.Enabled = True
 cmdLast.Enabled = True
 cmdPrevious.Enabled = True
  
  Dim K As Control
   For Each K In frmStudent
     If TypeOf K Is TextBox Then
      K.Enabled = False
     ElseIf TypeOf K Is DataCombo Then
       K.Enabled = False
     ElseIf TypeOf K Is DTPicker Then
       K.Enabled = False
     'ElseIf TypeOf k Is ComboBox Then
     ' k.Enabled = False
     End If
  Next
  T(19).Enabled = False
'Quali.Enabled = False
End Sub


Public Sub LoadInCombo()
  With RsCombo
  If .State = 1 Then .Close
     .CursorLocation = adUseClient

  .Open "COURSE", frmMain.Cn, adOpenDynamic, adLockOptimistic
  End With

  With cmbCourse
     Set .DataSource = Rs
     Set .RowSource = RsCombo
         .ListField = RsCombo(1).Name
         .BoundColumn = RsCombo(0).Name
         .DataField = Rs("Course_ID").Name
End With

End Sub

Public Sub SetGridData(sq As String)
If rsgrid.State = 1 Then rsgrid.Close
  rsgrid.CursorLocation = adUseClient
  rsgrid.Open sq, frmMain.Cn, adOpenDynamic, adLockOptimistic



  Set Grid.DataSource = rsgrid
  Grid.Refresh
  Grid.TextMatrix(0, 0) = "Student ID"
  
  If rsgrid.EOF = True Then
MsgBox "No Record Found For this Text", vbCritical
End If
End Sub

Private Sub T_GotFocus(Index As Integer)
 T(Index).BackColor = vbBlack
 T(Index).ForeColor = vbWhite
' T(Index).FontBold = True
 If Index = 0 Then Exit Sub
' T(Index - 1).BackColor = vbWhite
' T(Index - 1).ForeColor = vbBlack
 If (Index = 20) Then
 T(20).BackColor = vbBlack
 T(20).ForeColor = vbWhite
 End If
 
End Sub

Private Sub T_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
 If KeyCode = vbKeyDown Or KeyCode = 13 Then
  SendKeys "{TAB}"
 End If
 If KeyCode = vbKeyUp Then
   If Index = 1 Then Exit Sub
 Index = Index - 1
 T(Index).SetFocus
 End If
 
 
 
If KeyCode = 32 And T(Index).Text = "" Then
MsgBox "Starting Space Are Not Allow Please Enter Correct Data "
T(Index).SelStart = 0
T(Index).Text = Trim(T(Index).Text)

End If


End Sub

Private Sub T_KeyPress(Index As Integer, KeyAscii As Integer)
 
 If Index = 1 Or Index = 3 Or Index = 10 Or Index = 12 Or Index = 20 Or Index = 16 And KeyAscii <> 13 Then
    ChkNumericDigit KeyAscii
  
 End If
 If Index = 0 Or Index = 6 Or Index = 7 Or Index = 8 Or Index = 9 Or Index = 11 Or Index = 14 Or Index = 17 Then
 If KeyAscii <> 8 And KeyAscii <> 32 And KeyAscii <> 46 And KeyAscii <> 45 Then
  If KeyAscii < 65 Or (KeyAscii > 90 And KeyAscii < 97) Then KeyAscii = 0
  If KeyAscii > 122 Then KeyAscii = 0
 End If
 If KeyAscii = 13 Or keypascii = vbKeyTab Then
   
  If Index = 6 Then
    lblBtn2_Click
    T(Index + 1).SetFocus
  ElseIf Index = 13 Then
    lblB