Private Sub Update_Attendance
Activity.RemoveAllViews
Activity.LoadLayout("AttendanceLayout")
Activity.Title="Attendance for: " & selectedGroup
DateTime.DateFormat="dd-MMM-yyyy"
Dim cdate As String
cdate=DateTime.Date(DateTime.Now)
txtClassDate.Text=cdate
get_month
If month="September" Then
txtClassPeriod.Text=1
Else If month="October" Then
txtClassPeriod.Text=2
Else If month="November" Then
txtClassPeriod.Text=3
Else If month="December" Then
txtClassPeriod.Text=4
Else If month="Februrary" Then
txtClassPeriod.Text=5
End If
period=txtClassPeriod.Text
rs=Starter.sql.ExecQuery2("SELECT studentId, studentName FROM students WHERE groupName =?",Array As String(selectedGroup))
Do While rs.NextRow
Dim pa As Panel
pa.Initialize("")
pa.LoadLayout("ListOfStudents")
pa.SetLayoutAnimated(0,0,0,clvAttendance.AsView.Width,60dip)
txtStudents.Text = rs.GetString("studentID")
cbStudents.Text = rs.GetString("studentName")
clvAttendance.Add(pa,"")
Loop
End Sub
Private Sub rbGroup_CheckedChange(Checked As Boolean)
Dim index As Int = clvAttendance.GetItemFromView(Sender)
Dim p As B4XView =clvAttendance.GetPanel(index)
Dim r As RadioButton=Sender
If r.Checked Then
selectedGroup=(p.GetView(0).Text)
End If
Log(selectedGroup)
Update_Attendance
' Attendance_Table
End Sub
Private Sub cbStudents_CheckedChange(Checked As Boolean)
Dim CB As CheckBox = Sender
Dim sID As Int
sID=txtStudents.Text
Log(selectedGroup)
Log (CB.Text & " : " & CB.Checked)
Log(txtStudents.Text)
Starter.sql.ExecNonQuery2("INSERT INTO attendance VALUES (?, ?, ? ,?, ?, ?)", Array As Object(sID, selectedGroup, CB.Text, txtClassDate.Text, txtClassPeriod.Text, "P"))
ToastMessageShow("Entry added", False)
End Sub
Private Sub btnUpdateAttendance_Click
'PUT THE SQLITE INSERT HERE FOR ALL TICKED BOXES IN A GIVEN GROUP
End Sub