Class csStudent Inherit Class(absDefault)
	Constructor csStudent(String : IDNumber, String : MemberType) Inherit Class(absDefault)
		Declare objConnect AS NEW DatabaseConnection
		SET objConnect Connection_String = conString

		Declare ds AS NEW Dataset
		Declare dRow AS NEW DataRow

		SET objConnect SQL = "SELECT * FROM tbl<_memberType> WHERE [<_memberType>ID]=<IDNumber>;" 'Where _memberType has been inherited
		SET ds = objConnect READConnection
		SET dRow = ds TABLE(0) ROW(0)

		'Fill attribute values
		SET _forename = dRow Column(1)
		SET _surname = dRow Column(2)
		SET _username = dRow Column(3)
		SET _password = dRow Column(4)
		SET _gender = dRow Column(5)
		SET _dateofbirth = dRow Column(6)
		SET _credit = dRow Column(7)
		SET _teacherID = dRow Column(8)
		SET _class = findClass(_teacherID)
	EndConstructor

	'Attributes used by students additionally
	Declare _credit AS Integer
	Declare _teacherID AS Integer
	Declare _class AS String

	Property String Credit
		READ (Return _credit)
		WRITE _credit = Value
	EndProperty

	Property Integer TeacherID
		READ (Return _teacherID)
		WRITE _teacherID = Value
	EndProperty

	Property String Class
		READ (Return _class)
		WRITE _class = Value
	EndProperty

	Procedure String findClass(Integer : TeacherID)
		Declare objConnect AS NEW DatabaseConnection
		SET objConnect Connection_String = conString

		Declare ds AS NEW Dataset
		Declare dRow AS NEW DataRow

		SET objConnect SQL = "SELECT * FROM tblTeacher WHERE [TeacherID]=<TeacherID>"
		SET ds = objConnect READConnection
		SET dRow = ds TABLE(0) ROW(0)
		Return dRow Column(7) 'Where Column(7) is Class name
	EndProcedure

	Procedure fillProfile(TextBox : Name, TextBox : Username, TextBox : Class, TextBox : Credit)
		SET Name Text = wholeName(_forename, _surname)
		SET Username Text = _username
		SET Class Text = _class
		SET Credit Text = _credit
EndClass