#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <excel.au3>
#include <array.au3>
#include <File.au3>

Global $Laptop_Info[1][12],$i
global  $sDataFilePath = @UserProfileDir&"\desktop\database test.csv"
Global  $Locate, $found

$Form1 = GUICreate("Laptop Inventory", 623, 375, 192, 114)
$Tab1 = GUICtrlCreateTab(8, 8, 601, 375)
$Add_Tab = GUICtrlCreateTabItem("Add Laptop")
$Rank = GUICtrlCreateInput("Rank", 32, 56, 121, 21)
$Last = GUICtrlCreateInput("last", 168, 56, 121, 21)
$First = GUICtrlCreateInput("First", 304, 56, 121, 21)
$Middle = GUICtrlCreateInput("M.I", 440, 56, 121, 21)
$Serial = GUICtrlCreateInput("Serial", 32, 104, 121, 21)
$ECN = GUICtrlCreateInput("ECN", 168, 104, 121, 21)
$MAC = GUICtrlCreateInput("MAC", 304, 104, 121, 21)
$Clinical = GUICtrlCreateInput("Clinical", 440, 104, 121, 21)
$Make = GUICtrlCreateInput("Make", 32, 144, 121, 21)
$Model = GUICtrlCreateInput("Model", 168, 144, 121, 21)
$Dept = GUICtrlCreateInput("Department", 304, 144, 121, 21)
$Submit = GUICtrlCreateButton("Submit", 32, 184, 75, 25)


$Find_Tab = GUICtrlCreateTabItem("Find/Remove")
GUICtrlSetState(-1,$GUI_SHOW)
$MAC_F = GUICtrlCreateInput("MAC/ECN/Serial", 32, 56, 121, 21)
$Find_Lap = GUICtrlCreateButton("Find", 32, 176, 75, 25)
$Remove_lap = GUICtrlCreateButton("Remove", 32, 224, 75, 25)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $Submit
			$Laptop_Info[0][0] = @MON &"/"& @MDAY & "/" & @YEAR
			$Laptop_Info[0][1] = GUICtrlRead($Rank)
			$Laptop_Info[0][2] = GUICtrlRead($Last)
			$Laptop_Info[0][3] = GUICtrlRead($First)
			$Laptop_Info[0][4] = GUICtrlRead($Middle)
			$Laptop_Info[0][5] = GUICtrlRead($Serial)
			$Laptop_Info[0][6] = GUICtrlRead($ECN)
			$Laptop_Info[0][7] = GUICtrlRead($MAC)
			$Laptop_Info[0][8] = GUICtrlRead($Clinical)
			$Laptop_Info[0][9] = GUICtrlRead($Make)
			$Laptop_Info[0][10] = GUICtrlRead($Model)
			$Laptop_Info[0][11] = GUICtrlRead($Dept)

			Submit($Laptop_Info)
		Case $Find_Lap
			$Locate = GUICtrlRead($MAC_F)
			Find_lap($Locate)
		Case $Remove_lap
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd

Func Submit($array)
  If Not FileExists($sDataFilePath) Then
        FileWriteLine($sDataFilePath, "Date,Rank,Last,First,Middle,Serial,ECN,MAC,Clinical,Make,Model,Department")
    EndIf

    For $i = 0 To 11
		switch $i
			case 0
			FileWrite($sDataFilePath, "" & @Mon & "/" &@MDAY &",")

			case 1 to 11

			FileWrite($sDataFilePath, $array[0][$i] & ",")
		EndSwitch
	Next
    FileWriteLine($sDataFilePath, "")

EndFunc

Func Find_lap($finder)
local $results
local $row, $column, $error
	switch $finder
		Case $finder<>""
			$error = _FileReadToArray($sDataFilePath,$results,1,",")
			MsgBox(0,"",$error)
			_ArrayDisplay($results)
	EndFunc