frmfees.frm

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

'   T(0).SetFocus
'   Exit Sub
'  End If
  If T(2).Text = "" Or Not IsNumeric(Val(T(2).Text)) Then
   MsgBox "Sections FIELD CAN'T BE EMPTIED OR CAN'T BE NON-NUMERIC", vbInformation, App.Comments
   T(2).SetFocus
   Exit Sub
  End If
   Rs.UpdateBatch adAffectCurrent
   DisableButtons
   SetGridData
   Rs.Requery

  Exit Sub
1:
  MsgBox "Your Record is Saved", vbInformation, App.Comments
  Rs.Requery
  Grid.Refresh
End Sub

Private Sub combonamesearch_Change()
If combonamesearch.Text = "" Then
  Ce.Value = True
Else
 Ce.Value = False
End If
  SS = "select fees.Stud_Id as [Student Roll No],student.name as [Student Name],fees.feedate as [Fee Date],fees.Sections as [Sections No],student.T_FEE as [Totol Fee],fees.feeamount as [Fee padid],fees.feeamount-student.T_FEE as [Balance]from fees LEFT JOIN student ON FEES.STUD_ID=student.STUD_ID where Student.name like '" & combonamesearch.Text & "%'"
  SetGridData (SS)
End Sub

Private Sub combonamesearch_Click()
combonamesearch_Change
End Sub

Private Sub comborollno_Change()

If comborollno.Text = "" Then
  Ce.Value = True
Else
 Ce.Value = False
End If
  SS = "select fees.Stud_Id as [Student Roll No],student.name as [Student Name],fees.feedate as [Fee Date],fees.Sections as [Sections No],student.T_FEE as [Totol Fee],fees.feeamount as [Fee padid],fees.feeamount-student.T_FEE as [Balance] from fees LEFT JOIN student ON FEES.STUD_ID=student.STUD_ID where fees.stud_id=" & comborollno.Text

  SetGridData (SS)
  
  


End Sub

Private Sub Form_Load()
Dither Me
  Set Rs = New ADODB.Recordset
  If Rs.State = 1 Then Rs.Close
  Rs.CursorLocation = adUseClient
  Rs.Open "Fees", frmMain.Cn, adOpenKeyset, adLockOptimistic
  
 SetDataSources
 SS = "select VoucherNo as [Voucher No],fees.Stud_Id as [Student Roll No],student.name as [Student Name],fees.feedate as [Fee Date],fees.Sections as [Sections No],status as [Paid STatus],fees.Concession as [fees Concession],student.T_FEE as [Totol Fee],fees.feeamount as [Fee padid],fees.feeamount- student.T_FEE as [Balance] from fees LEFT JOIN student ON FEES.STUD_ID=student.STUD_ID"
 SetGridData (SS)

 For i = 0 To Rs.Fields.Count - 1
   Grid.ColWidth(i) = GetSetting(App.EXEName, "Grid3", "grid3" & i, 1200)
 Next
 LoadInCombo
 Loadincombo2
End Sub

Private Sub cmdDelete_Click()
If Rs.RecordCount = 1 Then MsgBox "CAN'T BE DELETED,BECAUSE IT IS ONLY RECORD IN DATABASE", vbInformation, App.Comments: Exit Sub

N = MsgBox("Are You sure you want to delete the record", vbYesNo + vbInformation, App.Comments)

If N = vbYes Then
  Rs.Delete adAffectCurrent
 Rs.Requery
End If
Dim SS As String
SS = "select fees.Stud_Id as [Student Roll No],student.name as [Student Name],fees.feedate as [Fee Date],fees.Sections as [Sections No],student.T_FEE as [Totol Fee],fees.feeamount as [Fee padid],fees.feeamount-student.T_FEE as [Balance]from fees LEFT JOIN student ON FEES.STUD_ID=student.STUD_ID where Student.name like '" & combonamesearch.Text & "%'"
 SetGridData SS

End Sub

Private Sub cmdEdit_Click()
 EnableButtons
  lblStatus.Caption = "Editing Record....."
'T(0).SetFocus
End Sub

Private Sub cmdFind_Click()
'Rs.Requery

U = InputBox("Enter the ID which you want to search")
Rs.Find "Stud_id=" & Val(U), 0, adSearchForward, 1

If Rs.EOF Or Rs.BOF Then
 Rs.Requery
 MsgBox "No match Found...", vbInformation, App.Comments
End If
 
End Sub
Private Sub cmdAddNew_Click()
 If Not Rs.EOF Or Not Rs.BOF Then
 Mv = Rs.Bookmark
 End If
 EnableButtons
SS = "select fees.Stud_Id as [Student Roll No],student.name as [Student Name],fees.feedate as [Fee Date],fees.Sections as [Sections No],student.T_FEE as [Totol Fee],fees.feeamount as [Fee padid],student.T_FEE-fees.feeamount as [Balance],Staus as [Paid Status] from fees LEFT JOIN student ON FEES.STUD_ID=student.STUD_ID"
 Rs.AddNew
'' SetGridData (SS)
' lblSub_ID = AutoNumber + 1
   
' T(0).SetFocus
dtfeedate.Value = Now()
cmbCourseType.SetFocus
End Sub


Private Sub cmdCancel_Click()
On Error Resume Next
 Rs.CancelUpdate

 If Mv > 0 Then
   Rs.Bookmark = Mv
 Else
   Rs.Requery
 End If
 DisableButtons
  
  
End Sub

Public Sub SetGridData(Optional 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
  
  Set Grid.DataSource = rsgrid
  Grid.Refresh
If rsgrid.EOF = True Then
MsgBox "No Record Found", vbCritical
 End If
  'Grid.TextMatrix(0, 0) = "Student ID"
End Sub
Public Sub SetDataSources()
  Dim j As Control
For Each j In frmfees
  If TypeOf j Is TextBox Then
    Set j.DataSource = Rs
  ElseIf TypeOf j Is DTPicker Then
   Set j.DataSource = Rs
  ElseIf TypeOf j Is CheckBox Then
   Set j.DataSource = Rs
    End If
Next
 
 Set dtfeedate.DataSource = Rs
 
T(0).DataField = "VoucherNo"
T(1).DataField = "Feeamount"
T(2).DataField = "sections"
T(3).DataField = "MisExpense"
T(4).DataField = "TotalFees"
T(5).DataField = "Concession"
dtfeedate.DataField = "Feedate"
Check1.DataField = "status"
End Sub


Public Sub EnableButtons()
 cmdAddNew.Enabled = False
 cmdEdit.Enabled = False
 cmdDelete.Enabled = False
 cmdFind.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 frmfees
     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
       cmbCourseType.Enabled = True

End Sub
Public Sub DisableButtons()
 cmdAddNew.Enabled = True
 cmdEdit.Enabled = True
 cmdDelete.Enabled = True
 cmdFind.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 frmfees
     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
  cmbCourseType.Enabled = False
End Sub


'Private Sub Form_Resize()
'frmfees.Left = (frmMain.Width - frmfees.Width) / 3
'frmfees.Top = (frmMain.Height - frmfees.Height) / 3
'End Sub

Private Sub Form_Unload(Cancel As Integer)
For i = 0 To 3
   SaveSetting App.EXEName, "Grid4", "grid4" & i, Grid.ColWidth(i)
 Next
 If frm2 = 1 Then
   frmResult.ShowCourses
 End If
 If frm1 = 1 Then
   frmSubject.ShowCourses
 End If
End Sub

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


End Sub

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

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

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

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

End Sub

Public Sub Loadincombo2()

With rscombo2
  If .State = 1 Then .Close
     .CursorLocation = adUseClient

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


  With cmbstudentrollno
     Set .DataSource = Rs
    Set .RowSource = rscombo2
         .ListField = Rs("Stud_ID").Name
         .BoundColumn = Rs("Stud_ID").Name
         .DataField = Rs("STUD_ID").Name
End With


'With comborollno
'     Set .DataSource = Rs
'    Set .RowSource = rscombo2
'         .ListField = Rs("Stud_ID").Name
'         .BoundColumn = Rs("Stud_ID").Name
'         .DataField = Rs("STUD_ID").Name
'End With
End Sub


Private Sub Loadcombo3()
With rscombo3
  If .State = 1 Then .Close
     .CursorLocation = adUseClient

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

With comborollno
     Set .DataSource = Rs
    Set .RowSource = rscombo3
         .ListField = Rs("Stud_ID").Name
         .BoundColumn = Rs("Stud_ID").Name
         .DataField = Rs("STUD_ID").Name
End With
End Sub

Private Sub Label2_Click()
Unload frmfees
End Sub

Private Sub T_GotFocus(Index As Integer)
If (Index = 4) Then
T(4).Text = (Val(T(1).Text) + Val(T(3).Text)) * Val(T(5).Text) / 100
T(4).Text = (Val(T(1).Text) + Val(T(3).Text)) - Val(T(4).Text)

End If
End Sub

Private Sub T_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
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)
Else
If Index < 1 And KeyCode = 13 Then
T(Index + 1).SetFocus
End If
End If
End Sub

Private Sub T_KeyPress(Index As Integer, KeyAscii As Integer)
 If KeyAscii = 13 Then
  SendKeys "{TAB}"
   End If
   If Index = 1 Or Index = 2 And KeyAscii <> 13 Then
    ChkNumericDigit KeyAscii
  
 End If
End Sub

Private Sub Text1_Change()

End Sub