Jump to content

Setting the date from .ini file into datecontrol in Gui


Recommended Posts

Hello There Can someone please help?

I can't figure out how to set the date read from An .ini File

Can someone Please tell me what im doing wrong?

Opt("GUIOnEventMode", 1)
Opt("GUIDataSeparatorChar", "|")
RegWrite("HKEY_CURRENT_USER\Software\Database developers - SD - Mogolo Academy", "Software Installed", "REG_SZ", "83956895779565")
#include <ButtonConstants.au3>
#include <GuiEdit.au3>
#include <ComboConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GuiComboBox.au3>
#include <Excel.au3>
#include <File.au3>
#include <ExcelCom_UDF.au3> ; Just search on the forum then you'll find it...
Opt("GUIResizeMode", $GUI_DOCKAUTO)
DirCreate(@ProgramFilesDir & "\Student Database\Student Info\Inifile")
DirCreate(@ProgramFilesDir & "\Student Database\Student Info\Student Pic")
DirCreate(@ProgramFilesDir & "\Student Database\Student Info\Student Docs")
DirCreate(@ProgramFilesDir & "\Student Database\Default Pics")
DirCreate(@ProgramFilesDir & "\Student Database\Data")
#region ### START Koda GUI section ### Form=c:\users\ryno\desktop\new folder\project mogolo\forms\new design.kxf
$Form1 = GUICreate("Student Database - Mogolo Academy", 490, 558, 200, 130, BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOx))
GUISetOnEvent($GUI_EVENT_CLOSE, "_1Close")
$MenuItem1 = GUICtrlCreateMenu("&File ")
$MenuItem4 = GUICtrlCreateMenuItem("Open Student  File     " & @TAB & "F2", $MenuItem1)
GUICtrlSetOnEvent(-1, "OpenFile")
$MenuItem5 = GUICtrlCreateMenuItem("Close Student  File     " & @TAB & "F3", $MenuItem1)
$MenuItem6 = GUICtrlCreateMenuItem("Save Student   File     " & @TAB & "F4", $MenuItem1)
GUICtrlSetOnEvent(-1, "SaveFile")
$MenuItem7 = GUICtrlCreateMenuItem("Delete Student File     " & @TAB & "F5", $MenuItem1)
$MenuItem9 = GUICtrlCreateMenuItem("", $MenuItem1)
$MenuItem8 = GUICtrlCreateMenuItem("Exit                         " & @TAB & "Ctrl+X", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenu("&Tools")
$MenuItem10 = GUICtrlCreateMenu("Import", $MenuItem2)
$MenuItem11 = GUICtrlCreateMenu("Scanned Certificates", $MenuItem10)
$MenuItem12 = GUICtrlCreateMenuItem("Primary", $MenuItem11)
$MenuItem13 = GUICtrlCreateMenuItem("Secondary", $MenuItem11)
$MenuItem14 = GUICtrlCreateMenu("Print", $MenuItem2)
$MenuItem15 = GUICtrlCreateMenuItem("Student File Information", $MenuItem14)
GUICtrlSetOnEvent(-1, "PrintStudentFile")
$MenuItem16 = GUICtrlCreateMenu("Certificates", $MenuItem14)
$MenuItem17 = GUICtrlCreateMenuItem("Primary", $MenuItem16)
$MenuItem18 = GUICtrlCreateMenuItem("Secondary", $MenuItem16)
$MenuItem3 = GUICtrlCreateMenu("&Help")
$MenuItem19 = GUICtrlCreateMenuItem("About...", $MenuItem3)
$MenuItem20 = GUICtrlCreateMenuItem("Help File", $MenuItem3)
$MenuItem21 = GUICtrlCreateMenuItem("Report A Bug", $MenuItem3)
GUISetBkColor(0xFFFFFF)
$Tab1 = GUICtrlCreateTab(0, 120, 457, 417, $TCS_HOTTRACK)
$TabSheet1 = GUICtrlCreateTabItem("Student Information")
$Group1 = GUICtrlCreateGroup("Student Information", 8, 152, 433, 361)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Student Number:", 16, 184, 99, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Label2 = GUICtrlCreateLabel("First Name:", 16, 216, 57, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Label3 = GUICtrlCreateLabel("Middle Name:", 16, 248, 69, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Label4 = GUICtrlCreateLabel("Surname:", 16, 280, 49, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Label5 = GUICtrlCreateLabel("ID Number:", 16, 312, 58, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Label6 = GUICtrlCreateLabel("Age:", 16, 344, 26, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Label7 = GUICtrlCreateLabel("Gender:", 16, 376, 42, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Label8 = GUICtrlCreateLabel("Course Attending:", 16, 408, 88, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Label9 = GUICtrlCreateLabel("Year:", 16, 440, 29, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Label10 = GUICtrlCreateLabel("Block:", 16, 472, 34, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input1 = GUICtrlCreateInput("Input1", 144, 184, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlSetTip(-1, "Data Entry <Enter Student Number here.>")
GUICtrlSetColor(-1, 0x0000FF)
$Input2 = GUICtrlCreateInput("Input2", 144, 216, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlSetTip(-1, "Data Entry <Enter Student Name here.>")
$Input3 = GUICtrlCreateInput("Input3", 144, 248, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlSetTip(-1, "Data Entry <Enter Middle Name here.>")
$Input4 = GUICtrlCreateInput("Input4", 144, 280, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlSetTip(-1, "Data Entry <Enter SurName here.>")
$Input5 = GUICtrlCreateInput("Input5", 144, 312, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlSetTip(-1, "Data Entry <Enter Student ID Number here.>")
$Input6 = GUICtrlCreateInput("Input6", 144, 344, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlSetTip(-1, "Data Entry <Enter Student Age here  here.>")
$Group2 = GUICtrlCreateGroup("Picture", 272, 176, 161, 321)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Pic2 = GUICtrlCreatePic(@ProgramFilesDir & "\Student Database\Default Pics\face.jpg", 288, 200, 140, 244, BitOR($GUI_SS_DEFAULT_PIC, $SS_SUNKEN), BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Button1 = GUICtrlCreateButton("Browse For Picture", 288, 456, 139, 25)
GUICtrlSetTip(-1, "Control <Click to search and set the Student's Picture.>")
GUICtrlSetOnEvent(-1, "ButtonBrowse")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Combo1 = GUICtrlCreateCombo("", 144, 376, 121, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetTip(-1, "Selective Entry <Select Student Genre here.>")
GUICtrlSetData(-1, "Male|Female")
$Input7 = GUICtrlCreateInput("Input7", 144, 408, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlSetTip(-1, "Data Entry <Enter the Name of course here.>")
$Input8 = GUICtrlCreateInput("Input8", 144, 440, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlSetTip(-1, "Data Entry <Enter the Year here.>")
$Input9 = GUICtrlCreateInput("Input9", 144, 472, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlSetTip(-1, "Data Entry <Enter Student Block Attendance here.>")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet2 = GUICtrlCreateTabItem("Course Information")
$Group3 = GUICtrlCreateGroup("Course Information", 16, 152, 425, 377)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Label11 = GUICtrlCreateLabel("Date of First Register:", 32, 184, 106, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Date1 = GUICtrlCreateDate("2012/02/25", 32, 208, 186, 21, BitOR ($DTS_LongDATEFORMAT, $GUI_SS_DEFAULT_DATE))
$Label12 = GUICtrlCreateLabel("Duration:", 32, 320, 47, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input10 = GUICtrlCreateInput("Input10", 96, 320, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label13 = GUICtrlCreateLabel("Cost:", 32, 344, 28, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input11 = GUICtrlCreateInput("Input11", 96, 344, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label14 = GUICtrlCreateLabel("Block:", 32, 368, 34, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input12 = GUICtrlCreateInput("Input12", 96, 368, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label15 = GUICtrlCreateLabel("First Timer:", 32, 440, 55, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input13 = GUICtrlCreateInput("Input13", 96, 440, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label16 = GUICtrlCreateLabel("Repeater:", 32, 464, 51, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input14 = GUICtrlCreateInput("Input14", 96, 464, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label17 = GUICtrlCreateLabel("Attendance Per Block:", 32, 488, 111, 17)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetColor(-1, 0x0000FF)
$Input15 = GUICtrlCreateInput("Input15", 144, 488, 73, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("", 232, 168, 201, 353)
$Label18 = GUICtrlCreateLabel("# Times In Level:", 240, 184, 86, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input16 = GUICtrlCreateInput("Input16", 328, 184, 97, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label19 = GUICtrlCreateLabel("1)Level:", 240, 208, 40, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input17 = GUICtrlCreateInput("Input17", 304, 208, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label20 = GUICtrlCreateLabel("1)Subject:", 240, 232, 50, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input18 = GUICtrlCreateInput("Input18", 304, 232, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label21 = GUICtrlCreateLabel("1)Facilitator:", 240, 256, 60, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input19 = GUICtrlCreateInput("Input19", 304, 256, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label22 = GUICtrlCreateLabel("2)Level:", 240, 320, 40, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input20 = GUICtrlCreateInput("Input20", 304, 320, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label23 = GUICtrlCreateLabel("2)Subject:", 240, 344, 50, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input21 = GUICtrlCreateInput("Input21", 304, 344, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label24 = GUICtrlCreateLabel("2)Facilitator:", 240, 368, 60, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input22 = GUICtrlCreateInput("Input22", 304, 368, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label25 = GUICtrlCreateLabel("3)Level:", 240, 440, 40, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input23 = GUICtrlCreateInput("Input23", 304, 440, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label26 = GUICtrlCreateLabel("3)Subject:", 240, 464, 50, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input24 = GUICtrlCreateInput("Input24", 304, 464, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label27 = GUICtrlCreateLabel("3)Facilitator:", 240, 488, 60, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input25 = GUICtrlCreateInput("Input25", 304, 488, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet3 = GUICtrlCreateTabItem("Personal Details")
$Group6 = GUICtrlCreateGroup("Personal Details", 8, 152, 441, 377)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Group7 = GUICtrlCreateGroup("", 16, 168, 193, 353)
$Label28 = GUICtrlCreateLabel("Initials:", 24, 184, 45, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input26 = GUICtrlCreateInput("Input26", 24, 208, 169, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label29 = GUICtrlCreateLabel("Title:", 24, 232, 33, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input27 = GUICtrlCreateInput("Input27", 24, 256, 169, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label30 = GUICtrlCreateLabel("Equity:", 24, 280, 43, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input28 = GUICtrlCreateInput("Input28", 24, 304, 169, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label31 = GUICtrlCreateLabel("Gender:", 24, 352, 49, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Combo2 = GUICtrlCreateCombo("", 24, 376, 169, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL), BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlSetData(-1, "Male|Female")
$Label32 = GUICtrlCreateLabel("Nationality:", 24, 408, 68, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input29 = GUICtrlCreateInput("Input29", 24, 432, 169, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label33 = GUICtrlCreateLabel("Citizen Status:", 24, 464, 86, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input30 = GUICtrlCreateInput("Input30", 24, 488, 169, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group8 = GUICtrlCreateGroup("", 216, 168, 209, 353)
$Label34 = GUICtrlCreateLabel("Date of Birth:", 224, 184, 80, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Date2 = GUICtrlCreateDate("@year&@mon&@Mday", 224, 208, 186, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlSetCursor(-1, 0)
$Label35 = GUICtrlCreateLabel("Disability Description:", 224, 240, 127, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Edit1 = GUICtrlCreateEdit("", 224, 264, 185, 73, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlSetData(-1, "Edit1")
$Label36 = GUICtrlCreateLabel("Home Language:", 224, 352, 100, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input31 = GUICtrlCreateInput("Input31", 224, 376, 185, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label37 = GUICtrlCreateLabel("Alternative ID Type:", 224, 408, 118, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input32 = GUICtrlCreateInput("Input32", 224, 432, 185, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label38 = GUICtrlCreateLabel("ID no:", 224, 464, 39, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input33 = GUICtrlCreateInput("Input33", 224, 488, 185, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet4 = GUICtrlCreateTabItem("Contact Details")
$Group9 = GUICtrlCreateGroup("Contact Details", 8, 152, 441, 377)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Group10 = GUICtrlCreateGroup("", 16, 168, 185, 321)
$Label39 = GUICtrlCreateLabel("Phone Number:", 24, 184, 78, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input34 = GUICtrlCreateInput("Input34", 24, 208, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label40 = GUICtrlCreateLabel("Cell Number:", 24, 248, 64, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input35 = GUICtrlCreateInput("Input35", 24, 272, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label41 = GUICtrlCreateLabel("Fax Number:", 24, 304, 64, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input36 = GUICtrlCreateInput("Input36", 24, 328, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label42 = GUICtrlCreateLabel("Home Address:", 24, 360, 76, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input37 = GUICtrlCreateInput("Input37", 24, 384, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label43 = GUICtrlCreateLabel("E-mail Address:", 24, 416, 76, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input38 = GUICtrlCreateInput("Input38", 24, 448, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group11 = GUICtrlCreateGroup("", 224, 184, 201, 305)
$Label44 = GUICtrlCreateLabel("Postal Address:", 288, 208, 77, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Edit2 = GUICtrlCreateEdit("", 232, 240, 185, 193, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlSetData(-1, "Edit2")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet6 = GUICtrlCreateTabItem("Employement Details")
$Group12 = GUICtrlCreateGroup("Employement Details:", 8, 152, 441, 377)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Group13 = GUICtrlCreateGroup("", 16, 168, 177, 353)
$lableN = GUICtrlCreateLabel("Employement Status:", 24, 184, 113, 17)
GUICtrlSetColor(-1, 0x0000FF)

$Combo3 = GUICtrlCreateCombo("", 24, 208, 113, 17)
GUICtrlSetData(-1, "Employed|Unemployed")
$Label45 = GUICtrlCreateLabel("Employer:", 32, 240, 50, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input39 = GUICtrlCreateInput("Input39", 32, 264, 145, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label46 = GUICtrlCreateLabel("Manager:", 32, 304, 49, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input40 = GUICtrlCreateInput("Input40", 32, 328, 145, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label47 = GUICtrlCreateLabel("Job Title:", 32, 360, 47, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input41 = GUICtrlCreateInput("Input41", 32, 384, 145, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label48 = GUICtrlCreateLabel("Department:", 32, 416, 62, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input42 = GUICtrlCreateInput("Input42", 32, 440, 145, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label49 = GUICtrlCreateLabel("Province:", 32, 464, 49, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Combo4 = GUICtrlCreateCombo("Combo4", 32, 488, 145, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "North-west|Northen-Province|Limpopo|Mpumalanga|Free-State|Kwazulu-Natal|Western-Cape|Northen-Cape|Gauteng")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet7 = GUICtrlCreateTabItem("Emergency Contact Details")
$Group14 = GUICtrlCreateGroup("Emergency Contact Details:", 8, 152, 441, 377)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Group15 = GUICtrlCreateGroup("Next of Kin:", 16, 168, 177, 353)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label50 = GUICtrlCreateLabel("Name:", 32, 192, 40, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input43 = GUICtrlCreateInput("Input43", 32, 216, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label51 = GUICtrlCreateLabel("Relationship:", 32, 256, 78, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input44 = GUICtrlCreateInput("Input44", 32, 280, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label52 = GUICtrlCreateLabel("Residential Address:", 32, 320, 120, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input45 = GUICtrlCreateInput("Input45", 32, 344, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label53 = GUICtrlCreateLabel("Cell #:", 32, 384, 41, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input46 = GUICtrlCreateInput("Input46", 32, 408, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label54 = GUICtrlCreateLabel("Home #:", 32, 448, 52, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input47 = GUICtrlCreateInput("Input47", 32, 472, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group18 = GUICtrlCreateGroup("Medical Aid:", 208, 168, 153, 73)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Combo5 = GUICtrlCreateCombo("", 216, 184, 130, 17)
GUICtrlSetData(-1, "Yes|No")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet8 = GUICtrlCreateTabItem("Guardian Contact Details")
$Group16 = GUICtrlCreateGroup("Guardian Conact Details:", 8, 152, 441, 377)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Group17 = GUICtrlCreateGroup("", 16, 168, 169, 353)
$Label56 = GUICtrlCreateLabel("Name:", 24, 192, 35, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input48 = GUICtrlCreateInput("Input48", 24, 216, 137, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label57 = GUICtrlCreateLabel("ID #:", 24, 248, 28, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input49 = GUICtrlCreateInput("Input49", 24, 272, 137, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label58 = GUICtrlCreateLabel("Home Address::", 24, 304, 79, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input50 = GUICtrlCreateInput("Input50", 24, 328, 137, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label59 = GUICtrlCreateLabel("Home #:", 24, 360, 45, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input51 = GUICtrlCreateInput("Input51", 24, 384, 137, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label60 = GUICtrlCreateLabel("Cell #:", 24, 416, 34, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input52 = GUICtrlCreateInput("Input52", 24, 440, 137, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group19 = GUICtrlCreateGroup("", 200, 176, 201, 337)
$Label55 = GUICtrlCreateLabel("Postal Address:", 248, 192, 77, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Edit3 = GUICtrlCreateEdit("", 208, 224, 185, 217, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlSetData(-1, "Edit3")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet9 = GUICtrlCreateTabItem("Educational History")
$Group20 = GUICtrlCreateGroup("Educational History:", 8, 152, 441, 377)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Group21 = GUICtrlCreateGroup("Primary", 16, 168, 145, 353)
$Label61 = GUICtrlCreateLabel("Highest Level Passed:", 24, 192, 110, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input53 = GUICtrlCreateInput("Input53", 24, 216, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label62 = GUICtrlCreateLabel("Institution/School:", 24, 240, 90, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input54 = GUICtrlCreateInput("Input54", 24, 264, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label63 = GUICtrlCreateLabel("Year Obtained:", 24, 288, 75, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input55 = GUICtrlCreateInput("Input55", 24, 312, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label64 = GUICtrlCreateLabel("Subjects:", 24, 344, 48, 17)
GUICtrlSetColor(-1, 0x0000FF)
$MyButton1 = GUICtrlCreateButton("View/Add", 24, 368, 124, 30, BitOR($BS_NOTIFY, $BS_FLAT))
GUICtrlSetOnEvent(-1, "FormPsView")
$Label65 = GUICtrlCreateLabel("Certificates:", 24, 448, 59, 17)
GUICtrlSetColor(-1, 0x0000FF)
$MyButton2 = GUICtrlCreateButton("View/Add", 24, 472, 124, 30, BitOR($BS_NOTIFY, $BS_FLAT))
GUICtrlSetOnEvent(-1, "FormCview")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group22 = GUICtrlCreateGroup("Secondary", 168, 168, 145, 353)
$Label66 = GUICtrlCreateLabel("Highest Level Passed:", 176, 192, 110, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input56 = GUICtrlCreateInput("Input56", 176, 216, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label67 = GUICtrlCreateLabel("Institution/School:", 176, 240, 90, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input57 = GUICtrlCreateInput("Input57", 176, 264, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label68 = GUICtrlCreateLabel("Year Obtained:", 176, 288, 75, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input58 = GUICtrlCreateInput("Input58", 176, 312, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label69 = GUICtrlCreateLabel("Subjects:", 176, 344, 48, 17)
GUICtrlSetColor(-1, 0x0000FF)
$MyButton3 = GUICtrlCreateButton("View/Add", 176, 368, 124, 30, BitOR($BS_NOTIFY, $BS_FLAT))
GUICtrlSetOnEvent(-1, "FormC1")
$Label70 = GUICtrlCreateLabel("Certificates:", 176, 448, 59, 17)
GUICtrlSetColor(-1, 0x0000FF)
$MyButton4 = GUICtrlCreateButton("View/Add", 176, 472, 124, 30, BitOR($BS_NOTIFY, $BS_FLAT))
GUICtrlSetOnEvent(-1, "FormSS1")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group23 = GUICtrlCreateGroup("Abet", 320, 168, 121, 177)
$Label71 = GUICtrlCreateLabel("Previous Abet Level:", 328, 192, 102, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input59 = GUICtrlCreateInput("Input59", 328, 216, 105, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label72 = GUICtrlCreateLabel("Year Attended:", 328, 240, 75, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input60 = GUICtrlCreateInput("Input60", 328, 264, 105, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label73 = GUICtrlCreateLabel("Block Attended:", 328, 288, 80, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input61 = GUICtrlCreateInput("Input61", 328, 312, 105, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group24 = GUICtrlCreateGroup("N Levels", 320, 344, 121, 177)
$Label74 = GUICtrlCreateLabel("Subjects:", 328, 360, 48, 17)
GUICtrlSetColor(-1, 0x0000FF)
$MyButton5 = GUICtrlCreateButton("View/Add", 328, 376, 108, 22, BitOR($BS_NOTIFY, $BS_FLAT))
GUICtrlSetOnEvent(-1, "FormNview")
$Label75 = GUICtrlCreateLabel("Level Attended:", 328, 400, 79, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input62 = GUICtrlCreateInput("Input62", 328, 424, 105, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label76 = GUICtrlCreateLabel("Year Attended:", 328, 448, 75, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input63 = GUICtrlCreateInput("Input63", 328, 472, 105, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet10 = GUICtrlCreateTabItem("Screening History")
$Group25 = GUICtrlCreateGroup("Screening History", 8, 152, 441, 377)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Group26 = GUICtrlCreateGroup("RESULTS IF APPLICABLE", 16, 168, 425, 353)
$Group27 = GUICtrlCreateGroup("", 24, 184, 129, 321)
$Label77 = GUICtrlCreateLabel("Subjects:", 32, 200, 48, 17)
GUICtrlSetColor(-1, 0x0000FF)
$MyButton6 = GUICtrlCreateButton("View/add", 32, 224, 116, 30, BitOR($BS_NOTIFY, $BS_FLAT))
$Label78 = GUICtrlCreateLabel("Level:", 32, 272, 33, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input64 = GUICtrlCreateInput("Input64", 32, 296, 113, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label79 = GUICtrlCreateLabel("Date:", 32, 320, 30, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Date3 = GUICtrlCreateDate(@YEAR & @MON & @MDAY, 32, 344, 114, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group28 = GUICtrlCreateGroup("", 160, 184, 129, 193)
$Label80 = GUICtrlCreateLabel("Subjects:", 168, 200, 48, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Label81 = GUICtrlCreateLabel("Level:", 168, 272, 33, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Label82 = GUICtrlCreateLabel("Date:", 168, 320, 30, 17)
GUICtrlSetColor(-1, 0x0000FF)
$MyButton7 = GUICtrlCreateButton("View/Add", 168, 224, 108, 30, BitOR($BS_NOTIFY, $BS_FLAT))
$Input65 = GUICtrlCreateInput("Input65", 168, 296, 113, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Date4 = GUICtrlCreateDate(@YEAR & @MON & @MDAY, 168, 344, 114, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group29 = GUICtrlCreateGroup("", 296, 184, 137, 321)
$Label84 = GUICtrlCreateLabel("Subjects:", 304, 200, 48, 17)
GUICtrlSetColor(-1, 0x0000FF)
$MyButton8 = GUICtrlCreateButton("View/Add", 304, 224, 116, 30, BitOR($BS_NOTIFY, $BS_FLAT))
$Label85 = GUICtrlCreateLabel("Level:", 304, 272, 33, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input66 = GUICtrlCreateInput("Input66", 304, 296, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label86 = GUICtrlCreateLabel("Date:", 304, 320, 30, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Date5 = GUICtrlCreateDate(@YEAR & @MON & @MDAY, 304, 344, 122, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group30 = GUICtrlCreateGroup("Recommended Starting", 160, 376, 129, 129)
$Label83 = GUICtrlCreateLabel("Level:", 168, 400, 33, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Combo6 = GUICtrlCreateCombo("Combo4", 168, 432, 113, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet11 = GUICtrlCreateTabItem("Payment History")
$Group31 = GUICtrlCreateGroup("Payment History", 8, 152, 441, 377)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Group32 = GUICtrlCreateGroup("", 16, 168, 417, 345, -1)
$Label87 = GUICtrlCreateLabel("Course:", 24, 184, 40, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input67 = GUICtrlCreateInput("Input67", 72, 184, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label88 = GUICtrlCreateLabel("Level:", 24, 208, 33, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input68 = GUICtrlCreateInput("Input68", 72, 208, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label89 = GUICtrlCreateLabel("Block:", 24, 232, 34, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input69 = GUICtrlCreateInput("Input69", 72, 232, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label90 = GUICtrlCreateLabel("Price:", 24, 256, 31, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input70 = GUICtrlCreateInput("Input70", 72, 256, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label91 = GUICtrlCreateLabel("Payment Type:", 24, 320, 75, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Combo7 = GUICtrlCreateCombo("Combo5", 24, 344, 169, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "EFT|Cash|Cheque")
$Label92 = GUICtrlCreateLabel("Person Responsible for Payment:", 24, 376, 160, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input71 = GUICtrlCreateInput("Input71", 24, 400, 161, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label93 = GUICtrlCreateLabel("Receipt#:", 24, 424, 51, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input72 = GUICtrlCreateInput("Input72", 24, 448, 161, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label94 = GUICtrlCreateLabel("Payment Setup", 208, 184, 76, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Label95 = GUICtrlCreateLabel("Full Amount:", 208, 208, 62, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input73 = GUICtrlCreateInput("Input73", 304, 208, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label96 = GUICtrlCreateLabel("Date:", 208, 232, 30, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Date6 = GUICtrlCreateDate(@YEAR & @MON & @MDAY, 248, 232, 178, 21)
$Label97 = GUICtrlCreateLabel("Deposit Amount:", 208, 256, 82, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input74 = GUICtrlCreateInput("Input74", 304, 256, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label98 = GUICtrlCreateLabel("Date:", 208, 280, 30, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Date7 = GUICtrlCreateDate(@YEAR & @MON & @MDAY, 248, 280, 178, 21)
$Label99 = GUICtrlCreateLabel("Monthly Amount:", 208, 304, 83, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input75 = GUICtrlCreateInput("Input75", 304, 304, 121, 21)
$Label100 = GUICtrlCreateLabel("Date:", 208, 328, 30, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Date8 = GUICtrlCreateDate(@YEAR & @MON & @MDAY, 248, 328, 178, 21)
$Label101 = GUICtrlCreateLabel("PAYMENT RECORD", 208, 352, 105, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Label102 = GUICtrlCreateLabel("Total Owing:", 208, 376, 64, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input76 = GUICtrlCreateInput("Input76", 304, 376, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label103 = GUICtrlCreateLabel("Paid to Date:", 208, 408, 66, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input77 = GUICtrlCreateInput("Input77", 304, 408, 121, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label104 = GUICtrlCreateLabel("Amount outstanding:", 208, 448, 101, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input78 = GUICtrlCreateInput("Input78", 312, 448, 113, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet12 = GUICtrlCreateTabItem("Comments")
$Group33 = GUICtrlCreateGroup("Comments", 8, 152, 441, 377)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Group34 = GUICtrlCreateGroup("", 16, 168, 217, 353)
$Label105 = GUICtrlCreateLabel("Dropped:", 24, 184, 48, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input79 = GUICtrlCreateInput("Input79", 80, 184, 145, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label106 = GUICtrlCreateLabel("Reason:", 24, 208, 44, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input80 = GUICtrlCreateInput("Input80", 80, 208, 145, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label107 = GUICtrlCreateLabel("Year:", 24, 232, 29, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input81 = GUICtrlCreateInput("Input81", 80, 232, 145, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label108 = GUICtrlCreateLabel("Block:", 24, 256, 34, 17)
$Input82 = GUICtrlCreateInput("Input82", 80, 256, 145, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label109 = GUICtrlCreateLabel("Date:", 24, 280, 30, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Date9 = GUICtrlCreateDate(@YEAR & @MON & @MDAY, 80, 280, 146, 21)
$Label110 = GUICtrlCreateLabel("Condoned:", 24, 304, 56, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input83 = GUICtrlCreateInput("Input83", 80, 304, 145, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label111 = GUICtrlCreateLabel("Year:", 24, 328, 29, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input84 = GUICtrlCreateInput("Input84", 80, 328, 145, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label112 = GUICtrlCreateLabel("Block:", 24, 352, 34, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input85 = GUICtrlCreateInput("Input85", 80, 352, 145, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label113 = GUICtrlCreateLabel("Date:", 24, 376, 30, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Date10 = GUICtrlCreateDate(@YEAR & @MON & @MDAY, 80, 376, 146, 21)
$Label114 = GUICtrlCreateLabel("Passed:", 24, 400, 56, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input86 = GUICtrlCreateInput("Input86", 80, 400, 145, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label115 = GUICtrlCreateLabel("Year:", 24, 424, 29, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input87 = GUICtrlCreateInput("Input87", 80, 424, 145, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label116 = GUICtrlCreateLabel("Block:", 24, 448, 34, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input88 = GUICtrlCreateInput("Input88", 80, 448, 145, 21, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Label117 = GUICtrlCreateLabel("Date:", 24, 472, 30, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Date11 = GUICtrlCreateDate(@YEAR & @MON & @MDAY, 80, 472, 146, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group35 = GUICtrlCreateGroup("", 248, 184, 185, 329)
$Label119 = GUICtrlCreateLabel("Allergies/Chronic Illness:", 264, 200, 119, 17)
$Edit4 = GUICtrlCreateEdit("", 264, 224, 145, 273, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlSetData(-1, "Edit4")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet13 = GUICtrlCreateTabItem("History at Mogolo")
$Group36 = GUICtrlCreateGroup("History At Mogolo", 8, 152, 441, 377)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Group37 = GUICtrlCreateGroup("", 16, 168, 425, 353)
$Label120 = GUICtrlCreateLabel("Comment:", 24, 184, 51, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Edit5 = GUICtrlCreateEdit("", 24, 208, 97, 193, BitOR($ES_AUTOVSCROLL, $ES_WANTRETURN, $WS_VSCROLL))
GUICtrlSetData(-1, "Edit5")
$Label121 = GUICtrlCreateLabel("Date:", 24, 408, 30, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Date12 = GUICtrlCreateDate(@YEAR & @MON & @MDAY, 24, 432, 98, 21)
$Label122 = GUICtrlCreateLabel("Facilitator:", 24, 464, 52, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input90 = GUICtrlCreateInput("Input90", 24, 488, 97, 21)
$Label123 = GUICtrlCreateLabel("Comment:", 128, 184, 51, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Edit6 = GUICtrlCreateEdit("", 128, 208, 97, 193)
GUICtrlSetData(-1, "Edit6")
$Label124 = GUICtrlCreateLabel("Date:", 128, 408, 30, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Date13 = GUICtrlCreateDate(@YEAR & @MON & @MDAY, 128, 432, 98, 21)
$Label125 = GUICtrlCreateLabel("Facilitator:", 128, 464, 52, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input91 = GUICtrlCreateInput("Input91", 128, 488, 97, 21)
$Label126 = GUICtrlCreateLabel("Comment:", 232, 184, 51, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Edit7 = GUICtrlCreateEdit("", 232, 208, 97, 193)
GUICtrlSetData(-1, "Edit7")
$Label127 = GUICtrlCreateLabel("Date:", 232, 408, 30, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Date14 = GUICtrlCreateDate(@YEAR & @MON & @MDAY, 232, 432, 98, 21)
$Label128 = GUICtrlCreateLabel("Facilitator:", 232, 464, 52, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input92 = GUICtrlCreateInput("Input92", 232, 488, 97, 21)
$Label129 = GUICtrlCreateLabel("Comment:", 336, 184, 51, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Edit8 = GUICtrlCreateEdit("", 336, 208, 97, 193)
GUICtrlSetData(-1, "Edit8")
$Label130 = GUICtrlCreateLabel("Date:", 336, 408, 30, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Date15 = GUICtrlCreateDate(@YEAR & @MON & @MDAY, 336, 432, 98, 21)
$Label131 = GUICtrlCreateLabel("Facilitator:", 336, 464, 52, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Input93 = GUICtrlCreateInput("Input93", 336, 488, 97, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")
$Pic1 = GUICtrlCreatePic(@ProgramFilesDir & "\Student Database\Default Pics\Mogolo Label.jpg", 0, 0, 452, 116, BitOR($GUI_SS_DEFAULT_PIC, $SS_SUNKEN), BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKHCENTER + $GUI_DOCKWIDTH)
Dim $_AccelTable[5][2] = [["{F2}", $MenuItem4],["{F3}", $MenuItem5],["{F4}", $MenuItem6],["{F5}", $MenuItem7],["^x", $MenuItem8]]
GUISetAccelerators($_AccelTable)
GUISetState(@SW_SHOW)

$FormCert = GUICreate("Primary Certificates", 330, 648, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "FormCert")
$ButtonC = GUICtrlCreateButton("Browse for Certificate", 16, 8, 155, 25)
$ComboC = GUICtrlCreateCombo("", 16, 40, 153, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$PicC = GUICtrlCreatePic("C:\Documents and Settings\Chris\Desktop\New Folder\Pictures\Car pics\93 Toyota Supra Turbo.jpg", 8, 72, 300, 564)
$ButtonC = GUICtrlCreateButton("Save", 232, 40, 75, 25)
ControlDisable("Certificates", "", $ButtonC)
$ButtonC = GUICtrlCreateButton("Open", 232, 8, 75, 25)
GUISwitch($Form1)
$FormCert1 = GUICreate("Secondary Certificates", 330, 648, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "FormCert1")
$ButtonC1 = GUICtrlCreateButton("Browse for Certificate", 16, 8, 155, 25)
$ComboC1 = GUICtrlCreateCombo("", 16, 40, 153, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$PicC1 = GUICtrlCreatePic("C:\Documents and Settings\Chris\Desktop\New Folder\Pictures\Car pics\93 Toyota Supra Turbo.jpg", 8, 72, 300, 564)
$ButtonC2 = GUICtrlCreateButton("Save", 232, 40, 75, 25)
ControlDisable("Certificates", "", $ButtonC2)
$ButtonC3 = GUICtrlCreateButton("Open", 232, 8, 75, 25)
GUISwitch($Form1)
$FormPSubs = GUICreate("Primary Sub's", 188, 347, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "FormPSubs")
$LabelPS1 = GUICtrlCreateLabel("01", 8, 8, 16, 17)
$LabelPS2 = GUICtrlCreateLabel("02", 8, 32, 16, 17)
$LabelPS3 = GUICtrlCreateLabel("03", 8, 56, 16, 17)
$LabelPS4 = GUICtrlCreateLabel("04", 8, 80, 16, 17)
$LabelPS5 = GUICtrlCreateLabel("05", 8, 104, 16, 17)
$LabelPS6 = GUICtrlCreateLabel("06", 8, 128, 16, 17)
$LabelPS7 = GUICtrlCreateLabel("07", 8, 152, 16, 17)
$LabelPS8 = GUICtrlCreateLabel("08", 8, 176, 16, 17)
$LabelPS9 = GUICtrlCreateLabel("09", 8, 200, 16, 17)
$LabelPS10 = GUICtrlCreateLabel("10", 8, 224, 16, 17)
$LabelPS11 = GUICtrlCreateLabel("11", 8, 248, 16, 17)
$LabelPS12 = GUICtrlCreateLabel("12", 8, 272, 16, 17)
$LabelPS13 = GUICtrlCreateLabel("13", 8, 296, 16, 17)
$InputPS1 = GUICtrlCreateInput("", 32, 8, 121, 21)
$InputPS2 = GUICtrlCreateInput("", 32, 32, 121, 21)
$InputPS3 = GUICtrlCreateInput("", 32, 56, 121, 21)
$InputPS4 = GUICtrlCreateInput("", 32, 80, 121, 21)
$InputPS5 = GUICtrlCreateInput("", 32, 104, 121, 21)
$InputPS6 = GUICtrlCreateInput("", 32, 128, 121, 21)
$InputPS7 = GUICtrlCreateInput("", 32, 152, 121, 21)
$InputPS8 = GUICtrlCreateInput("", 32, 176, 121, 21)
$InputPS9 = GUICtrlCreateInput("", 32, 200, 121, 21)
$InputPS10 = GUICtrlCreateInput("", 32, 224, 121, 21)
$InputPS11 = GUICtrlCreateInput("", 32, 248, 121, 21)
$InputPS12 = GUICtrlCreateInput("", 32, 272, 121, 21)
$InputPS13 = GUICtrlCreateInput("", 32, 296, 121, 21)
$ButtonPS1 = GUICtrlCreateButton("Save", 32, 320, 123, 17)
$ButtonPS2 = GUICtrlCreateButton("X", 160, 8, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetTip(-1, "Delete")
$ButtonPS3 = GUICtrlCreateButton("X", 160, 32, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonPS4 = GUICtrlCreateButton("X", 160, 56, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonPS5 = GUICtrlCreateButton("X", 160, 80, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonPS6 = GUICtrlCreateButton("X", 160, 104, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonPS7 = GUICtrlCreateButton("X", 160, 128, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonPS8 = GUICtrlCreateButton("X", 160, 152, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonPS9 = GUICtrlCreateButton("X", 160, 176, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonPS10 = GUICtrlCreateButton("X", 160, 200, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonPS11 = GUICtrlCreateButton("X", 160, 224, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonPS12 = GUICtrlCreateButton("X", 160, 248, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonPS13 = GUICtrlCreateButton("X", 160, 272, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonPS14 = GUICtrlCreateButton("X", 160, 296, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISwitch($Form1)
$FormSSUBS = GUICreate("Primary Sub's", 188, 347, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "FormSSUBS")
$LabelSS1 = GUICtrlCreateLabel("01", 8, 8, 16, 17)
$LabelSS2 = GUICtrlCreateLabel("02", 8, 32, 16, 17)
$LabelSS3 = GUICtrlCreateLabel("03", 8, 56, 16, 17)
$LabelSS4 = GUICtrlCreateLabel("04", 8, 80, 16, 17)
$LabelSS5 = GUICtrlCreateLabel("05", 8, 104, 16, 17)
$LabelSS6 = GUICtrlCreateLabel("06", 8, 128, 16, 17)
$LabelSS7 = GUICtrlCreateLabel("07", 8, 152, 16, 17)
$LabelSS8 = GUICtrlCreateLabel("08", 8, 176, 16, 17)
$LabelSS9 = GUICtrlCreateLabel("09", 8, 200, 16, 17)
$LabelSS10 = GUICtrlCreateLabel("10", 8, 224, 16, 17)
$LabelSS11 = GUICtrlCreateLabel("11", 8, 248, 16, 17)
$LabelSS12 = GUICtrlCreateLabel("12", 8, 272, 16, 17)
$LabelSS13 = GUICtrlCreateLabel("13", 8, 296, 16, 17)
$InputSS1 = GUICtrlCreateInput("", 32, 8, 121, 21)
$InputSS2 = GUICtrlCreateInput("", 32, 32, 121, 21)
$InputSS3 = GUICtrlCreateInput("", 32, 56, 121, 21)
$InputSS4 = GUICtrlCreateInput("", 32, 80, 121, 21)
$InputSS5 = GUICtrlCreateInput("", 32, 104, 121, 21)
$InputSS6 = GUICtrlCreateInput("", 32, 128, 121, 21)
$InputSS7 = GUICtrlCreateInput("", 32, 152, 121, 21)
$InputSS8 = GUICtrlCreateInput("", 32, 176, 121, 21)
$InputSS9 = GUICtrlCreateInput("", 32, 200, 121, 21)
$InputSS10 = GUICtrlCreateInput("", 32, 224, 121, 21)
$InputSS11 = GUICtrlCreateInput("", 32, 248, 121, 21)
$InputSS12 = GUICtrlCreateInput("", 32, 272, 121, 21)
$InputSS13 = GUICtrlCreateInput("", 32, 296, 121, 21)
$ButtonSS1 = GUICtrlCreateButton("Save", 32, 320, 123, 17)
$ButtonSS2 = GUICtrlCreateButton("X", 160, 8, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetTip(-1, "Delete")
$ButtonSS3 = GUICtrlCreateButton("X", 160, 32, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonSS4 = GUICtrlCreateButton("X", 160, 56, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonSS5 = GUICtrlCreateButton("X", 160, 80, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonSS6 = GUICtrlCreateButton("X", 160, 104, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonSS7 = GUICtrlCreateButton("X", 160, 128, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonSS8 = GUICtrlCreateButton("X", 160, 152, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonSS9 = GUICtrlCreateButton("X", 160, 176, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonSS10 = GUICtrlCreateButton("X", 160, 200, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonSS11 = GUICtrlCreateButton("X", 160, 224, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonSS12 = GUICtrlCreateButton("X", 160, 248, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonSS13 = GUICtrlCreateButton("X", 160, 272, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonSS14 = GUICtrlCreateButton("X", 160, 296, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISwitch($Form1)
$FormNSUBS = GUICreate("N level Subs", 188, 347, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "FormNSUBS")
$LabelS1 = GUICtrlCreateLabel("01", 8, 8, 16, 17)
$LabelNS2 = GUICtrlCreateLabel("02", 8, 32, 16, 17)
$LabelNS3 = GUICtrlCreateLabel("03", 8, 56, 16, 17)
$LabelNS4 = GUICtrlCreateLabel("04", 8, 80, 16, 17)
$LabelNS5 = GUICtrlCreateLabel("05", 8, 104, 16, 17)
$LabelNS6 = GUICtrlCreateLabel("06", 8, 128, 16, 17)
$LabelNS7 = GUICtrlCreateLabel("07", 8, 152, 16, 17)
$LabelNS8 = GUICtrlCreateLabel("08", 8, 176, 16, 17)
$LabelNS9 = GUICtrlCreateLabel("09", 8, 200, 16, 17)
$LabelNS10 = GUICtrlCreateLabel("10", 8, 224, 16, 17)
$LabelNS11 = GUICtrlCreateLabel("11", 8, 248, 16, 17)
$LabelNS12 = GUICtrlCreateLabel("12", 8, 272, 16, 17)
$LabelNS13 = GUICtrlCreateLabel("13", 8, 296, 16, 17)
$InputNS1 = GUICtrlCreateInput("", 32, 8, 121, 21)
$InputNS2 = GUICtrlCreateInput("", 32, 32, 121, 21)
$InputNS3 = GUICtrlCreateInput("", 32, 56, 121, 21)
$InputNS4 = GUICtrlCreateInput("", 32, 80, 121, 21)
$InputNS5 = GUICtrlCreateInput("", 32, 104, 121, 21)
$InputNS6 = GUICtrlCreateInput("", 32, 128, 121, 21)
$InputNS7 = GUICtrlCreateInput("", 32, 152, 121, 21)
$InputNS8 = GUICtrlCreateInput("", 32, 176, 121, 21)
$InputNS9 = GUICtrlCreateInput("", 32, 200, 121, 21)
$InputNS10 = GUICtrlCreateInput("", 32, 224, 121, 21)
$InputNS11 = GUICtrlCreateInput("", 32, 248, 121, 21)
$InputNS12 = GUICtrlCreateInput("", 32, 272, 121, 21)
$InputNS13 = GUICtrlCreateInput("", 32, 296, 121, 21)
$ButtonNS1 = GUICtrlCreateButton("Save", 32, 320, 123, 17)
$ButtonNS2 = GUICtrlCreateButton("X", 160, 8, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetTip(-1, "Delete")
$ButtonNS3 = GUICtrlCreateButton("X", 160, 32, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonNS4 = GUICtrlCreateButton("X", 160, 56, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonNS5 = GUICtrlCreateButton("X", 160, 80, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonNS6 = GUICtrlCreateButton("X", 160, 104, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonNS7 = GUICtrlCreateButton("X", 160, 128, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonNS8 = GUICtrlCreateButton("X", 160, 152, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonNS9 = GUICtrlCreateButton("X", 160, 176, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonNS10 = GUICtrlCreateButton("X", 160, 200, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonNS11 = GUICtrlCreateButton("X", 160, 224, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonNS12 = GUICtrlCreateButton("X", 160, 248, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonNS13 = GUICtrlCreateButton("X", 160, 272, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ButtonNS14 = GUICtrlCreateButton("X", 160, 296, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISwitch($Form1)
#endregion ### END Koda GUI section ###
While 1
WEnd
Func MenuItem1Click()
MsgBox(1, "1", "1")
EndFunc   ;==>MenuItem1Click

Func _1Close()
Exit
EndFunc   ;==>_1Close
Func FormCert()
GUISetState(@SW_HIDE, $FormCert)
EndFunc   ;==>FormCert
Func FormCert1()
GUISetState(@SW_HIDE, $FormCert1)
EndFunc   ;==>FormCert1
Func FormC1()
GUISetState(@SW_SHOW, $FormSSUBS)
EndFunc   ;==>FormC1

Func FormCview()
GUISetState(@SW_SHOW, $FormCert1)
EndFunc   ;==>FormCview
Func FormPsView()
GUISetState(@SW_SHOW, $FormPSubs)
EndFunc   ;==>FormPsView
Func FormPSubs()
GUISetState(@SW_HIDE, $FormPSubs)
EndFunc   ;==>FormPSubs

Func FormSSUBS()
GUISetState(@SW_HIDE, $FormSSUBS)
EndFunc   ;==>FormSSUBS
Func FormNSUBS()
GUISetState(@SW_HIDE, $FormNSUBS)
EndFunc   ;==>FormNSUBS
Func FormSS1()
GUISetState(@SW_SHOW, $FormCert1)
EndFunc   ;==>FormSS1
Func FormNview()
GUISetState(@SW_SHOW, $FormNSUBS)
EndFunc   ;==>FormNview
Func ButtonBrowse()
$Open = FileOpenDialog("Choose A picture", @MyDocumentsDir, "Images (*.jpg;*.bmp)")
If $Open = @error = 0 Then
  MsgBox(0, "Error", "No Profile Picture has been Chosen! ""Default Picture will be set ")
Else
  If $Open = @error = 1 Then
   GUICtrlSetImage($Pic2, $Open)
   $Open1 = GUICtrlRead($Input1, 0)
   FileCopy($Open, @ProgramFilesDir & "\Student Database\Student Info\Student Pic\" & $Open1 & ".jpg", 8)
  EndIf
EndIf
EndFunc   ;==>ButtonBrowse
Func OpenFile()
$D1 = FileOpenDialog("Choose A Student File", @ProgramFilesDir & "\Student Database\Student Info\IniFile\", "Inifiles (*.ini)", 1)
$r1 = IniRead($D1, "Student Info", "Student Number:", "")
$r2 = IniRead($D1, "Student Info", "First Name:", "")
$r3 = IniRead($D1, "Student Info", "Middle Name:", "")
$r4 = IniRead($D1, "Student Info", "Surname:", "")
$r5 = IniRead($D1, "Student Info", "ID Number:", "")
$r6 = IniRead($D1, "Student Info", "Age:", "")
$r7 = IniRead($D1, "Student Info", "Gender:", "")
$r8 = IniRead($D1, "Student Info", "Course Attending:", "")
$r9 = IniRead($D1, "Student Info", "Year:", "")
$r10 = IniRead($D1, "Student Info", "Block:", "")
GUICtrlSetData($Input1, $r1)
GUICtrlSetData($Input2, $r2)
GUICtrlSetData($Input3, $r3)
GUICtrlSetData($Input4, $r4)
GUICtrlSetData($Input5, $r5)
GUICtrlSetData($Input6, $r6)
GUICtrlSetData($Combo1, $r7)
GUICtrlSetData($Input7, $r8)
GUICtrlSetData($Input8, $r9)
GUICtrlSetData($Input9, $r10)
$r11 = IniRead($D1, "Course Info", "Date of First Register:", "")
$r12 = IniRead($D1, "Course Info", "Duration:", "")
$r13 = IniRead($D1, "Course Info", "Cost:", "")
$r14 = IniRead($D1, "Course Info", "Block:", "")
$r15 = IniRead($D1, "Course Info", "First Timer:", "")
$r16 = IniRead($D1, "Course Info", "Repeater:", "")
$r17 = IniRead($D1, "Course Info", "Attendance Per Block:", "")
$r18 = IniRead($D1, "Course Info", "# Times In Level:", "")
$r19 = IniRead($D1, "Course Info", "1)Level:", "")
$r20 = IniRead($D1, "Course Info", "1)Subject:", "")
$r21 = IniRead($D1, "Course Info", "1)Facilitator:", "")
$r22 = IniRead($D1, "Course Info", "2)Level:", "")
$r23 = IniRead($D1, "Course Info", "2)Subject:", "")
$r24 = IniRead($D1, "Course Info", "2)Facilitator:", "")
$r25 = IniRead($D1, "Course Info", "3)Level:", "")
$r26 = IniRead($D1, "Course Info", "3)Subject:", "")
$r27 = IniRead($D1, "Course Info", "3)Facilitator:", "")
GUICtrlSetData($Date1, $r11)
GUICtrlSetData($Input10, $r12)
GUICtrlSetData($Input11, $r13)
GUICtrlSetData($Input12, $r14)
GUICtrlSetData($Input13, $r15)
GUICtrlSetData($Input14, $r16)
GUICtrlSetData($input15, $r17)
GUICtrlSetData($Input16, $r18)
GUICtrlSetData($Input17, $r19)
GUICtrlSetData($Input18, $r20)
GUICtrlSetData($Input19, $r21)
GUICtrlSetData($Input20, $r22)
GUICtrlSetData($Input21, $r23)
GUICtrlSetData($Input22, $r24)
GUICtrlSetData($Input23, $r25)
GUICtrlSetData($Input24, $r26)
  GUICtrlSetData($Input25, $r27)

$r28 = IniRead($D1, "Personal Details", "Initials:", "")
$r29 = IniRead($D1, "Personal Details", "Title:", "")
$r30 = IniRead($D1, "Personal Details", "Equity:", "")
$r31 = IniRead($D1, "Personal Details", "Gender:", "")
$r32 = IniRead($D1, "Personal Details", "Nationality:", "")
$r33 = IniRead($D1, "Personal Details", "Citizen Status:", "")
$r34 = IniRead($D1, "Personal Details", "Date of Birth:", 1)
$r35 = FileRead(@ProgramFilesDir & "\Student Database\Student Info\Inifile\" & $D1 & ".TXT", 1000)
_GUICtrlEdit_SetText($Edit1, $r35)
$r36 = IniRead($D1, "Personal Details", "Home Language:", "")
$r37 = IniRead($D1, "Personal Details", "Alternative ID Type:", "")
$r38 = IniRead($D1, "Personal Details", "ID no :", "")
GUICtrlSetData($Input26, $r28)
GUICtrlSetData($Input27, $r29)
GUICtrlSetData($Input28, $r30)
GUICtrlSetData($Combo2, $r31)
GUICtrlSetData($Input29, $r32)
GUICtrlSetData($Input30, $r33)
GUICtrlSetData($Date2, $r34)
GUICtrlSetData($Edit1, $r35)
GUICtrlSetData($Input31, $r36)
GUICtrlSetData($Input32, $r37)
GUICtrlSetData($Input33, $r38)



EndFunc   ;==>OpenFile
Func SaveFile()
$Lab1 = GUICtrlRead($Label1, 0)
$Inp1 = GUICtrlRead($Input1, 0)
IniWrite(@ProgramFilesDir & "\Student Database\Student Info\Inifile\" & $Inp1 & ".ini", "Student Info", $Lab1, $Inp1)
$Lab2 = GUICtrlRead($Label2, 0)
$Inp2 = GUICtrlRead($Input2, 0)
IniWrite(@ProgramFilesDir & "\Student Database\Student Info\Inifile\" & $Inp1 & ".ini", "Student Info", $Lab2, $Inp2)
$Lab3 = GUICtrlRead($Label3, 0)
$Inp3 = GUICtrlRead($Input3, 0)
IniWrite(@ProgramFilesDir & "\Student Database\Student Info\Inifile\" & $Inp1 & ".ini", "Student Info", $Lab3, $Inp3)
$Lab4 = GUICtrlRead($Label4, 0)
$Inp4 = GUICtrlRead($Input4, 0)
IniWrite(@ProgramFilesDir & "\Student Database\Student Info\Inifile\" & $Inp1 & ".ini", "Student Info", $Lab4, $Inp4)
$Lab5 = GUICtrlRead($Label5, 0)
$Inp5 = GUICtrlRead($Input5, 0)
IniWrite(@ProgramFilesDir & "\Student Database\Student Info\Inifile\" & $Inp1 & ".ini", "Student Info", $Lab5, $Inp5)

$Lab6 = GUICtrlRead($Label6, 0)
$Inp6 = GUICtrlRead($Input6, 0)
IniWrite(@ProgramFilesDir & "\Student Database\Student Info\Inifile\" & $Inp1 & ".ini", "Student Info", $Lab6, $Inp6)

$Lab7 = GUICtrlRead($Label7, 0)
$Inp7 = _GUICtrlComboBox_GetEditText($Combo1)
IniWrite(@ProgramFilesDir & "\Student Database\Student Info\IniFile\" & $Inp1 & ".ini", "Student Info", $Lab7, $Inp7)
$Lab8 = GUICtrlRead($Label8, 0)
$Inp8 = GUICtrlRead($Input7, 0)
IniWrite(@ProgramFilesDir & "\Student Database\Student Info\Inifile\" & $Inp1 & ".ini", "Student Info", $Lab8, $Inp8)

$Lab9 = GUICtrlRead($Label9, 0)
$Inp9 = GUICtrlRead($Input8, 0)
IniWrite(@ProgramFilesDir & "\Student Database\Student Info\Inifile\" & $Inp1 & ".ini", "Student Info", $Lab9, $Inp9)
$Lab10 = GUICtrlRead($Label10, 0)
$Inp10 = GUICtrlRead($Input9, 0)
IniWrite(@ProgramFilesDir & "\Student Database\Student Info\Inifile\" & $Inp1 & ".ini", "Student Info", $Lab10, $Inp10)

FileWrite (@ProgramFilesDir & "\Student Database\Data\" &  "Student.dat", $Inp1 & "|")


;~ --------------------------------------------------------------------------------------
$Lab11 = GUICtrlRead($Label11, 0)
$Inp11 = GUICtrlRead($Date1, 0)
IniWrite(@ProgramFilesDir & "\Student Database\Student Info\Inifile\" & $Inp1 & ".ini", "Course Info", $Lab11, $Inp11)
EndFunc
Func PrintStudentFile()
$read = GUICtrlRead($Input1, 0)
_FilePrint(@ProgramFilesDir & "\Student Database\Student Info\Student Docs\" & $read & ".Xls")
EndFunc   ;==>PrintStudentFile
Func Rad2()
EndFunc   ;==>Rad2
Func Rad1()

EndFunc   ;==>Rad1

I've attached an .ini file But if you run the script and Save the info it's automatically created in Program files\ Student Database\Student Info\Inifile

1.rar

[u]My dream is to have a dream...[/u]

Link to comment
Share on other sites

Your date information in the INI file is formatted wrong, you have it showing as the longdate format, while the input to the date control needs to be in "yyyy/mm/dd" format. Plus, you never save the information in the controls to the INI file in the Save function to update it correctly.

If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Link to comment
Share on other sites

  • Moderators

ac1dm4nner

This is the second time today I have felt the need to ask you not to behave like small child - please do not make me do it a third time. :doh:

You can alter the format of the Date control very easily. Here the control is set to the strange date format you like, but is reset to a standard format when we want to read it - then you can save that standard format date in the ini file and use it directly to set the Date control when you create it: :oops:

#include <GUIConstantsEx.au3>
#include <DateTimeConstants.au3>

$DTM_SETFORMAT_ = 0x1032 ; $DTM_SETFORMATW

$hGUI = GUICreate("Test", 500, 500)

; Create with nicely formatted date
$sDate = "2012/02/21"
$cDate = GUICtrlCreateDate($sDate, 10, 10, 200, 20)
; Change control to required format
$sStyle = "dddd, MMMM dd, yyyy"
GUICtrlSendMsg($cDate, $DTM_SETFORMAT_, 0, $sStyle)

GUISetState()

Sleep(1000)

; Change date - format stays
$sDate = "1999/12/31"
GUICtrlSetData($cDate, $sDate)


Sleep(1000)

; And to get the date in nice format
$sStyle = "yyyy/MM/dd"
GUICtrlSendMsg($cDate, $DTM_SETFORMAT_, 0, $sStyle)
$sDate = GUICtrlRead($cDate)
; And change it back
$sStyle = "dddd, MMMM dd, yyyy"
GUICtrlSendMsg($cDate, $DTM_SETFORMAT_, 0, $sStyle)

; And this is what we got
MsgBox(0, "Read", $sDate)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Please ask if you have any questions. :bye:

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to comment
Share on other sites

  • Moderators

ac1dm4nner,

I'm not acting like a child I'm Just asking politely

That is a matter of opinion - and that "pleeeeeeeeeeeeeeeeeeeeeeeeeeeease?" post 3 minutes after the previous one is not the way to convince anyone who might have doubts. :bye:

Remember this is not a 24/7 support forum - those who answer are only here because they like helping others and have some time to spare. You just have to wait until someone who knows something about your particular problem, and is willing to help, comes along - as I did. :oops:

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to comment
Share on other sites

  • Moderators

ac1dm4nner,

This script shows you how to save and read to an ini. The date control is set to today - change the date and press "Save to ini". The date you chose is saved and the date control is reset to today. Press "Read from ini" and the saved date is reset: :bye:

#include <GUIConstantsEx.au3>
#include <DateTimeConstants.au3>

$DTM_SETFORMAT_ = 0x1032 ; $DTM_SETFORMATW

Global $sIni = @ScriptDir & "Date.ini"

$hGUI = GUICreate("Test", 500, 500)

; Create with nicely formatted date
$cDate = GUICtrlCreateDate("", 10, 10, 200, 20)
; Change control to required format
$sStyle = "dddd, MMMM dd, yyyy"
GUICtrlSendMsg($cDate, $DTM_SETFORMAT_, 0, $sStyle)

$cButton_1 = GUICtrlCreateButton("Save to ini", 10, 200, 80, 30)
$cButton_2 = GUICtrlCreateButton("Read from ini", 10, 250, 80, 30)

$cLabel = GUICtrlCreateLabel("Select a date to save", 10, 170, 200, 20)

GUISetState()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $cButton_1
            ; And to get the date in nice format
            $sStyle = "yyyy/MM/dd"
            GUICtrlSendMsg($cDate, $DTM_SETFORMAT_, 0, $sStyle)
            $sDate = GUICtrlRead($cDate)
            ; And change it back
            $sStyle = "dddd, MMMM dd, yyyy"
            GUICtrlSendMsg($cDate, $DTM_SETFORMAT_, 0, $sStyle)
            ; Save the date to an ini file
            IniWrite($sIni, "Data", "Date", $sDate)
            GUICtrlSetData($cDate, @YEAR & "/" & @MON & "/" & @MDAY)
            GUICtrlSetData($cLabel, "Now load the saved date")
        Case $cButton_2
            ; Read the date from the ini
            $sDate = IniRead($sIni, "Data", "Date", "Error")
            If $sDate = "Error" Then
                MsgBox(0,"Error", "Cannot read ini file")
            Else
                GUICtrlSetData($cDate, $sDate)
            EndIf
            GUICtrlSetData($cDate, "Select a date to save")
    EndSwitch
WEnd

All clear? :oops:

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to comment
Share on other sites

I changed this line in your INI file:

Date of Birth:=2012/12/25

Then I used the menu item "Open Student File" and opened the INI file, and the Date of Birth changed to the correct date.

If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...