acidman Posted March 16, 2012 Posted March 16, 2012 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? expandcollapse popupOpt("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\Inifile1.rar [u]My dream is to have a dream...[/u]
BrewManNH Posted March 16, 2012 Posted March 16, 2012 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 GudeHow 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
acidman Posted March 16, 2012 Author Posted March 16, 2012 so what file type should I use Then? [u]My dream is to have a dream...[/u]
acidman Posted March 16, 2012 Author Posted March 16, 2012 Any examples if you can pleeeeeeeeeeeeeeeeeeeeeeeeeeeease? [u]My dream is to have a dream...[/u]
Moderators Melba23 Posted March 16, 2012 Moderators Posted March 16, 2012 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. 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: expandcollapse popup#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. M23  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 columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Â
acidman Posted March 16, 2012 Author Posted March 16, 2012 Thanks Melba:d, I appreciate it a lot I tested it and it works and I'm not acting like a child I'm Just asking politely. [u]My dream is to have a dream...[/u]
Moderators Melba23 Posted March 16, 2012 Moderators Posted March 16, 2012 ac1dm4nner,I'm not acting like a child I'm Just asking politelyThat 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. 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. M23  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 columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Â
acidman Posted March 16, 2012 Author Posted March 16, 2012 i KNOW "I HAVE ALREADY HAD THE SPEECH A FEW TIMES." LOL [u]My dream is to have a dream...[/u]
acidman Posted March 16, 2012 Author Posted March 16, 2012 "ag fok jy weet ek skiet sommer myself", melba the date format in the file is correct now but its still not doing anything... I'm totally hopeless now... [u]My dream is to have a dream...[/u]
Moderators Melba23 Posted March 16, 2012 Moderators Posted March 16, 2012 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: expandcollapse popup#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 WEndAll clear? M23  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 columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Â
BrewManNH Posted March 16, 2012 Posted March 16, 2012 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 GudeHow 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
acidman Posted March 16, 2012 Author Posted March 16, 2012 yea its better thanks Melba23 & BrewManNH [u]My dream is to have a dream...[/u]
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now