Valuater Posted December 16, 2006 Share Posted December 16, 2006 (edited) Title says it allEz-Track Enjoy!!!Code as requestedexpandcollapse popup#include <GuiConstantsEx.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #include <ButtonConstants.au3> #Include <File.au3> #Include <GuiListView.au3> Dim $PEver = "1.0.6" ; May 2008 Autoit Ver[b] 3.2.12.0[/b] Dim $data_Location = @ScriptDir & "\Data\" Dim $File_Location = @ScriptDir & "\Data\Address.ini" Dim $num = 0, $Input[10], $data_[10], $COAInput[10] DirGetSize($data_Location) If @error= 1 Then DirCreate($data_Location) EndIf $Sound_lnk = @TempDir & "\Sound_lnk.wav" FileInstall("C:\XPClean-web\Settings\XPClean-pics\Sounds\Notify.wav", $Sound_lnk) $Logo_jpg = @TempDir & "\Ez-Track.jpg" FileInstall("C:\Temp\Ez-Track.jpg", $Logo_jpg) $Logo_back = @TempDir & "\Ez-Back.jpg" FileInstall("C:\Temp\Ez-back.jpg", $Logo_back) $Logo_icon = @TempDir & "\Ez-Track.ico" FileInstall("C:\Temp\Ez-Track.ico", $Logo_icon) $Sound_clk = @TempDir & "\Sound_clk.wav" FileInstall("C:\XPClean-web\Settings\XPClean-pics\Sounds\Clickerx.wav", $Sound_clk) $Sound_grp = @TempDir & "\Sound_grp.wav" FileInstall("C:\XPClean-web\Settings\XPClean-pics\Sounds\Group_open.wav", $Sound_grp) SplashImageOn("", $Logo_jpg, 335, 240, -1, -1, 1) SoundPlay ($Sound_lnk,1) Sleep(2000) SplashOff() If Not FileExists($File_Location) Then Set_Ini() MsgBox(262208, "Welcome...", "Please Select *View All Customers* to begin... ", 5) EndIf $main = GUICreate(" * Ez-Track * v" & $PEver, 612, 412) GUISetIcon($Logo_icon) GUICtrlCreatePic($Logo_back, 1, 1, 610, 415, $SS_SUNKEN) GUICtrlSetState(-1, $GUI_DISABLE) $Group_1 = GUICtrlCreateGroup("Customer Panel", 10, 10, 250, 390) GUICtrlSetBkColor(-1, 0xCBD7ED) $Group_2 = GUICtrlCreateGroup("Customer Information", 280, 10, 320, 390) GUICtrlSetBkColor(-1, 0xCBD7ED) $Group_3 = GUICtrlCreateGroup("Search", 20, 30, 230, 130) GUICtrlSetBkColor(-1, 0xCBD7ED) $Group_4 = GUICtrlCreateGroup("Controls", 20, 165, 230, 235) GUICtrlSetBkColor(-1, 0xE1E9F6) $Combo_3 = GUICtrlCreateCombo("Search by...", 80, 50, 100, 21) $Input11 = GUICtrlCreateInput("Search Criteria", 45, 85, 180, 20) $Label_10 = GUICtrlCreateLabel("Customer #: " & $num, 450, 28, 120, 22, BitOR($SS_SUNKEN, $SS_CENTER), $WS_EX_TRANSPARENT ) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetFont(-1, 9.5, 550) $Label_12 = GUICtrlCreateLabel("Name", 300, 40, 70, 20, $WS_EX_TRANSPARENT ) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $Input[1] = GUICtrlCreateInput("", 300, 60, 280, 20) $Label_14 = GUICtrlCreateLabel("Address", 300, 90, 90, 20) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $Label_15 = GUICtrlCreateLabel("Street Name", 380, 90, 140, 20) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $Input[2] = GUICtrlCreateInput("", 300, 110, 70, 20) $Input[3] = GUICtrlCreateInput("", 380, 110, 200, 20) $Label_18 = GUICtrlCreateLabel("City", 300, 140, 50, 20) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $Label_19 = GUICtrlCreateLabel("Change Of Address", 440, 140, 120, 20) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $Input[4] = GUICtrlCreateInput("", 300, 160, 110, 20) $Input[5] = GUICtrlCreateInput("", 430, 160, 130, 20) $Label_22 = GUICtrlCreateLabel("State", 300, 190, 70, 20) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $Label_23 = GUICtrlCreateLabel("Zip + 4", 390, 190, 110, 20) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $Input[6] = GUICtrlCreateInput("", 300, 210, 80, 20) $Input[7] = GUICtrlCreateInput("", 390, 210, 190, 20) $Edit_26 = GUICtrlCreateLabel("Notes", 300, 240, 80, 20) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $Edit_26 = GUICtrlCreateInput("", 300, 260, 280, 20) ; controls $Button_5 = GUICtrlCreateButton("", 530, 310, 50, 50, $BS_ICON) GUICtrlSetImage(-1, $Logo_icon ) GUICtrlSetTip( -1, "About QTasc") $Button_6 = GUICtrlCreateButton("Close Ez-Track", 320, 365, 180, 25) $Button_7 = GUICtrlCreateButton("Clear Form", 320, 330, 180, 25) $Button_8 = GUICtrlCreateButton("View COA" , 320, 295, 180, 25) $Button_9 = GUICtrlCreateButton("Start Search", 45, 120, 180, 25) $Button_10 = GUICtrlCreateButton("Add Customer", 45, 260, 180, 25) $Button_11 = GUICtrlCreateButton("Update Customer", 45, 225, 180, 25) $Button_12 = GUICtrlCreateButton("View All Customers", 45, 190, 180, 25) $Button_13 = GUICtrlCreateButton("Remove Customer", 45, 295, 180, 25) $Button_14 = GUICtrlCreateButton("COA On-Line", 45, 330, 180, 25) $Button_15 = GUICtrlCreateButton("View/Print in Excel", 45, 365, 180, 25) GUISetState() GUICtrlSetData($Combo_3, "Customer #|Name|COA|Address|Street|City|Zip+4|Notes") $viewer = GUICreate(" * Ez-Track * ", 700, 500, 5, 5,$WS_BORDER, -1, $main) GUISetIcon($Logo_icon) GUISetBkColor (0xE1E9F6) $Listview = GUICtrlCreateListView("#|Name|COA|Address|Street|City|State|Zip+4|Notes", 10, 10, 680, 400, -1, BitOR($LVS_EX_REGIONAL, $LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES)) $Closer = GUICtrlCreateButton("Close", 460, 425, 180, 30) $Btn_view = GUICtrlCreateButton("View / Edit", 260, 425, 180, 30) $Btn_COA = GUICtrlCreateButton("View COA", 60, 425, 180, 30) GUISetState(@SW_HIDE) $COA = GuiCreate(" * Ez-Track * ", 392, 340, 205, 150,$WS_BORDER, -1, $main) GUISetIcon($Logo_icon) GUISetBkColor (0xE1E9F6) GUICtrlCreateGroup("COA Dates", 15, 5, 365, 95) GUICtrlCreateGroup("New Address", 15, 110, 365, 190) $COALabel_1 = GuiCtrlCreateLabel("Customer #: ", 240, 25, 120, 22, $SS_SUNKEN + $SS_CENTER) GUICtrlSetFont(-1, 9.5, 550) $COAInput[1] = GuiCtrlCreateDate("", 100, 25, 100, 20) $COAInput[2] = GuiCtrlCreateDate("", 100, 60, 100, 20) $COAInput[3] = GUICtrlCreateCombo("", 240, 60, 120, 20) GUICtrlSetData( -1, "Individual|Family|Business", "Individual") $COALabel_4 = GuiCtrlCreateLabel("Address", 30, 135, 70, 20) $COALabel_5 = GuiCtrlCreateLabel("Street Name", 150, 135, 110, 20) $COAInput[4] = GuiCtrlCreateInput("", 30, 155, 70, 20) $COAInput[5] = GuiCtrlCreateInput("", 150, 155, 220, 20) $COALabel_8 = GuiCtrlCreateLabel("City", 30, 190, 80, 20) $COALabel_9 = GuiCtrlCreateLabel("State", 140, 190, 80, 20) $COALabel_10 = GuiCtrlCreateLabel("Zip + 4", 240, 190, 70, 20) $COAInput[6] = GuiCtrlCreateInput("", 30, 210, 90, 20) $COAInput[7] = GuiCtrlCreateInput("", 140, 210, 80, 20) $COAInput[8] = GuiCtrlCreateInput("", 240, 210, 130, 20) $COALabel_15 = GuiCtrlCreateLabel("Start Date", 30, 28, 50, 20) $COALabel_17 = GuiCtrlCreateLabel("End Date", 30, 62, 70, 20) ; Buttons $COAButton_14 = GuiCtrlCreateButton("Save", 30, 255, 100, 30) $COAButton_15 = GuiCtrlCreateButton("Delete", 150, 255, 100, 30) $COAButton_16 = GuiCtrlCreateButton("Close", 270, 255, 100, 30) ; Date set up Global Const $DTM_SETFORMAT = 0x1005 ; Changed this to a global const SmOke_N $COAstyle = "MM/dd/yyyy" GuiCtrlSendMsg($COAInput[1], $DTM_SETFORMAT, 0, $COAstyle) GuiCtrlSendMsg($COAInput[2], $DTM_SETFORMAT, 0, $COAstyle) GuiSetState(@SW_HIDE) Dim $B_DESCENDING ; [_GUICtrlListViewGetSubItemsCount ($listview) ] While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Or $msg = $Button_6 ExitLoop Case $msg = $Button_15 SoundPlay($Sound_clk) Open_Office() Case $msg = $Button_5 Set_QT() Case $msg = $Button_7 SoundPlay($Sound_clk) Clear_Customers() Case $msg = $Button_9 SoundPlay($Sound_clk) Set_Customers() Case $msg = $Button_10 SoundPlay($Sound_clk) Add_Customer() Case $msg = $Button_11 SoundPlay($Sound_clk) Update_Customer() Case $msg = $Button_12 SoundPlay($Sound_clk) GUISetState(@SW_SHOW, $viewer) Get_List() Case $msg = $Button_13 SoundPlay($Sound_clk) Remove_Customer() Case $msg = $Button_14 SoundPlay($Sound_clk) CO_Address() Case $msg = $Input11 GUICtrlSetState($Button_9, $GUI_FOCUS ) ; List View controls Case $msg = $Closer SoundPlay($Sound_clk) Close_List() Case $msg = $Btn_view SoundPlay($Sound_clk) Local $s_indices = _GUICtrlListView_GetSelectedIndices($listview) Get_CNumber($s_indices + 1) GUISetState(@SW_HIDE, $viewer) _GUICtrlListView_DeleteAllItems($listview) Close_COA() GUISetState(@SW_SHOW, $main) GUISetState(@SW_RESTORE, $main) Case $msg = $Btn_COA SoundPlay($Sound_clk) Local $s_indices = _GUICtrlListView_GetSelectedIndices($listview) Get_CNumber($s_indices + 1) Show_COA() Case $msg = $listview SoundPlay($Sound_clk) GUICtrlSetState( $Btn_view, $GUI_DISABLE) GUICtrlSetState( $Btn_COA, $GUI_DISABLE) _GUICtrlListView_SimpleSort($listview, $B_DESCENDING, GUICtrlGetState($listview)) ; COA Controls Case $msg = $Button_8 SoundPlay($Sound_clk) Show_COA() Case $msg = $COAButton_14 SoundPlay($Sound_clk) Save_COA() Case $msg = $COAButton_15 SoundPlay($Sound_clk) Delete_COA() Case $msg = $COAButton_16 SoundPlay($Sound_clk) Close_COA() GUISetState(@SW_SHOW, $main) GUISetState(@SW_RESTORE, $main) EndSelect WEnd SoundPlay ($Sound_lnk,1) Exit ; --------------------------- Functions ----------------- Func Set_Ini() FileWriteLine($File_Location, "[Address]") FileWriteLine($File_Location, "1=David Jones,12345,This way,East Covina,None,CA,95505-4321,BIG DOG!!!") FileWriteLine($File_Location, "2=Danny Smith,678,That way,North Covina,None,CA,95505-4321,Rear House") FileWriteLine($File_Location, "3=Debra Jones,910,Which way,West Covina,None,CA,95505-4321,Cookies and Milk") EndFunc ;==>Set_Ini Func Set_Customers() $num = 0 $temp_info = GUICtrlRead($Combo_3) If $temp_info = "Name" Then $temp_search = 1 ElseIf $temp_info = "Address" Then $temp_search = 2 ElseIf $temp_info = "Street" Then $temp_search = 3 ElseIf $temp_info = "City" Then $temp_search = 4 ElseIf $temp_info = "COA" Then $temp_search = 5 ElseIf $temp_info = "Zip+4" Then $temp_search = 7 ElseIf $temp_info = "Notes" Then $temp_search = 8 ElseIf $temp_info = "Customer #" Then $num = GUICtrlRead($Input11) Get_CNumber($num) Return Else MsgBox(262208, "Sorry...", "Please Select a Search by... ", 1) Return EndIf $temp_find = GUICtrlRead($Input11) $length = _FileCountLines($File_Location) For $x = 1 To $length - 1 $temp_file = IniRead($File_Location, "Address", $x, "Not Found") If $temp_file = "Not Found" Then MsgBox(262208, "Sorry...", "No Files\Folders Found.... ", 1) Return EndIf $temp_split = StringSplit($temp_file, ",") If StringInStr($temp_split[$temp_search], $temp_find) Then For $t = 1 To $temp_split[0] -1 GUICtrlSetData($Input[$t], $temp_split[$t]) $num = $x Next GUICtrlSetData($Edit_26, $temp_split[8]) GUICtrlSetData($Label_10, "Customer #: " & $num) Return EndIf Next EndFunc ;==>Set_Customers Func Get_CNumber($x) $temp_file = IniRead($File_Location, "Address", $x, "Not Found") If $temp_file = "Not Found" Then MsgBox(262208, "Sorry...", "No Customer Found/Selected... ", 1) Return EndIf $temp_split = StringSplit($temp_file, ",") For $t = 1 To $temp_split[0] - 1 GUICtrlSetData($Input[$t], $temp_split[$t]) $num = $x Next GUICtrlSetData($Edit_26, $temp_split[8]) GUICtrlSetData($Label_10, "Customer #: " & $num) Return EndFunc ;==>Get_CNumber Func Get_List() $length = _FileCountLines($File_Location) For $x = 1 To $length - 1 $temp_file = IniRead($File_Location, "Address", $x, "Not Found") If $temp_file = "Not Found" Then Return $temp_split = StringSplit($temp_file, ",") GUICtrlCreateListViewItem( $x & "|" & $temp_split[1] & "|" & $temp_split[5] & "|" & $temp_split[2] & "|" & $temp_split[3] & "|" & $temp_split[4] & "|" & $temp_split[6] & "|" & $temp_split[7] & "|" & $temp_split[8] ,$listview) Next EndFunc Func Close_List() GUICtrlSetState( $Btn_view, $GUI_ENABLE) GUICtrlSetState( $Btn_COA, $GUI_ENABLE) _GUICtrlListView_DeleteAllItems($listview) GUISetState(@SW_HIDE, $viewer) GUISetState(@SW_SHOW, $main) GUISetState(@SW_RESTORE, $main) EndFunc Func Clear_Customers() If GUICtrlRead($Input[1]) = "" then Return for $x = 1 to 7 GUICtrlSetData($Input[$x], "") Next GUICtrlSetData($Edit_26, "") Clear_List() GUICtrlSetData($Label_10, "Customer #: 0") GUISetState( @SW_HIDE, $COA ) Close_List() EndFunc Func Add_Customer() If GUICtrlRead($Input[1]) = "" then MsgBox(262208, "Sorry...", "No Customer Found/Selected... ", 1) Return EndIf $length = _FileCountLines($File_Location) IniWrite($File_Location, "Address", $length, GUICtrlRead($Input[1]) &","& GUICtrlRead($Input[2])&","& GUICtrlRead($Input[3])&","& GUICtrlRead($Input[4])&","& GUICtrlRead($Input[5])&","& GUICtrlRead($Input[6])&","&GUICtrlRead($Input[7])&","& GUICtrlRead($Edit_26)) GUICtrlSetData($Label_10, "Customer #: " & $length) Clear_List() MsgBox(262208, "Great...", "Customer Added... ", 1) EndFunc Func UpDate_Customer() If GUICtrlRead($Input[1]) = "" then MsgBox(262208, "Sorry...", "No Customer Found/Selected... ", 1) Return EndIf $num = StringTrimLeft(GUICtrlRead($Label_10), 12) IniWrite($File_Location, "Address", $num, GUICtrlRead($Input[1]) &","& GUICtrlRead($Input[2])&","& GUICtrlRead($Input[3])&","& GUICtrlRead($Input[4])&","& GUICtrlRead($Input[5])&","& GUICtrlRead($Input[6])&","&GUICtrlRead($Input[7])&","& GUICtrlRead($Edit_26)) Clear_List() MsgBox(262208, "Great...", "Customer Updated... ", 1) EndFunc Func Remove_Customer() If GUICtrlRead($Input[1]) = "" then MsgBox(262208, "Sorry...", "No Customer Found/Selected... ", 1) Return EndIf $num = StringTrimLeft(GUICtrlRead($Label_10), 12) IniWrite($File_Location, "Address", $num, ",,,,,,,") FileDelete($data_Location & "COA_" & $num &".dat") for $x = 1 to 7 GUICtrlSetData($Input[$x], "") Next GUICtrlSetData($Edit_26, "") Clear_List() GUICtrlSetData($Label_10, "Customer #: 0") MsgBox(262208, "Great...", "Customer Removed... ", 1) EndFunc Func Clear_List() FileDelete($data_Location & "Address.bak") FileDelete(@TempDir & "\new.ini") FileCopy($File_Location, $data_Location & "Address.bak", 1) FileWriteLine(@TempDir & "\new.ini", "[Address]") $t = 0 $length = _FileCountLines($File_Location) For $x = 1 To $length - 1 $temp_file = IniRead($File_Location, "Address", $x, "Not Found") If $temp_file = "Not Found" Then Return $temp_split = StringSplit($temp_file, ",") If $temp_split[1] = "" Then ContinueLoop $t = $t + 1 IniWrite(@TempDir & "\new.ini", "Address", $t, $temp_split[1] & "," & $temp_split[2] & "," & $temp_split[3] & "," & $temp_split[4] & "," & $temp_split[5] & "," & $temp_split[6] & "," & $temp_split[7] & "," & $temp_split[8]) Next FileCopy(@TempDir & "\new.ini", $File_Location, 1) EndFunc Func CO_Address() $web_loc = "https://moversguide.usps.com/mgservice/Home" Run(@ComSpec & " /c Start " & $web_loc, "", @SW_HIDE) EndFunc Func Open_Office() FileDelete($data_Location & "Address.bak") FileDelete($data_Location & "Office.csv") FileCopy($File_Location, $data_Location & "Address.bak", 1) $length = _FileCountLines($data_Location & "Address.bak") $Rfile = FileOpen($data_Location & "Address.bak", 0) $Wfile = FileOpen($data_Location & "Office.csv", 2) For $x = 2 To $length ; - 1 $line = FileReadLine($Rfile, $x) If @error = -1 Then ExitLoop $line_pos = StringInStr($line, "=") FileWriteLine($Wfile, StringTrimLeft($line, $line_pos)) Next FileClose($Rfile) FileClose($Wfile) $Off_loc = FileGetShortName($data_Location & "Office.csv") Run(@ComSpec & " /c Start " & $Off_loc, "", @SW_HIDE) EndFunc Func Show_COA() If GUICtrlRead($Input[1]) = "" then MsgBox(262208, "Sorry...", "No Customer Found/Selected... ", 1) Return EndIf $num = StringTrimLeft(GUICtrlRead($Label_10), 12) If $num = 0 Or $num = "" then Return GUICtrlSetData($COALabel_1, "Customer #: " & $num) GUISetState( @SW_SHOW, $COA ) For $x = 1 to 8 if $x = 3 then ContinueLoop GUICtrlSetData( $COAInput[$x], "" ) Next If FileExists($data_Location & "COA_" & $num & ".dat") Then $temp_split = StringSplit(FileReadLine($data_Location & "COA_" & $num & ".dat", 1), ",") For $x = 1 to 8 If $x == 1 Or $x == 2 Then GUICtrlSendMsg($COAInput[$x], $DTM_SETFORMAT, 0, $temp_split[$x]) Else GUICtrlSetData( $COAInput[$x], $temp_split[$x]) EndIf Next EndIf EndFunc Func Save_COA() If GUICtrlRead($COAInput[4]) = "" then MsgBox(262208, "Sorry...", "No Address Found/Selected... ", 1) Return EndIf $num = StringTrimLeft(GUICtrlRead($Label_10), 12) If $num = 0 Or $num = "" then Return $temp_info = "" For $x = 1 to 7 $temp_info = $temp_info & GUICtrlRead($COAInput[$x]) & "," Next $temp_info = $temp_info & GUICtrlRead($COAInput[$x]) FileDelete($data_Location & "COA_" & $num &".dat") FileWriteLine($data_Location & "COA_" & $num &".dat", $temp_info) GUICtrlSetData( $Input[5], GUICtrlRead($COAInput[2])) GUISetState( @SW_HIDE, $COA ) Close_List() UpDate_Customer() EndFunc Func Delete_COA() If GUICtrlRead($COAInput[4]) = "" then MsgBox(262208, "Sorry...", "No Address Found/Selected... ", 1) Return EndIf $num = StringTrimLeft(GUICtrlRead($Label_10), 12) If $num = 0 Or $num = "" then Return FileDelete($data_Location & "COA_" & $num &".dat") For $x = 1 to 8 if $x = 3 then ContinueLoop GUICtrlSetData( $COAInput[$x], "" ) Next GUICtrlSetData( $Input[5], "None" ) GUISetState( @SW_HIDE, $COA ) Close_List() UpDate_Customer() EndFunc Func Close_COA() GUISetState( @SW_HIDE, $COA ) EndFunc Func Set_QT() SoundPlay($Sound_grp) $iMsgBoxAnswer = MsgBox(32, "* Ez-Track * , by QTasc", "WHO IS, QT APPRAISAL SERVICE CO ?" & @CRLF & "" & @CRLF & "We are a Real Estate Appraisal Company based in Riverside, California. " & @CRLF & "" & @CRLF & _ "I hope this program has been helpful." & @CRLF & "" & @CRLF & "Thank You... Valuater" & @CRLF & "" & @CRLF & "", 60) Select Case $iMsgBoxAnswer = -1 ;Timeout EndSelect SoundPlay($Sound_grp) EndFunc ;==>Set_QT... Tested and Updated May 2008 Autoit Ver 3.2.12.0Valuater8) Edited May 25, 2008 by Valuater Link to comment Share on other sites More sharing options...
_Kurt Posted December 16, 2006 Share Posted December 16, 2006 (edited) Wow this is very very very nice (trust me, it deserves all 3 very's). Really cool stuff, mind posting the .au3 script? It's up to you, though. I'd love to look over your script Great Work.Kurt*Edit* Posted too soon Thanks Edited December 16, 2006 by _Kurt Awaiting Diablo III.. Link to comment Share on other sites More sharing options...
Valuater Posted December 16, 2006 Author Share Posted December 16, 2006 Wow this is very very very nice (trust me, it deserves all 3 very's). Really cool stuff, mind posting the .au3 script? It's up to you, though. I'd love to look over your script Great Work.Kurtas requested by PM's and other post..I added it to the original post above... and Thanks!8) Link to comment Share on other sites More sharing options...
logonui Posted December 17, 2006 Share Posted December 17, 2006 as requested by PM's and other post..I added it to the original post above... and Thanks!8)Awsome script. Hopefully i will be able to get my head round it and learn from itCheersLee Link to comment Share on other sites More sharing options...
Valuater Posted December 17, 2006 Author Share Posted December 17, 2006 (edited) Thanks... ....and your Welcome 8) Edited December 12, 2007 by Valuater Link to comment Share on other sites More sharing options...
Zedna Posted December 17, 2006 Share Posted December 17, 2006 Nice Valuater Here is some idea to make background gradient without JPEG image: expandcollapse popup#include <GUIConstants.au3> #include <Color.au3> $color1 = 0x000066 $color2 = 0x0000FF $gui = GUICreate("Gradient Demo") $size = WinGetClientSize($gui) GUICtrlCreateLabel("test label", 100,100) GUICtrlSetColor(-1, 0x00ff00) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlCreateButton("test button",100,150) _GUICtrlCreateGradient($color1, $color2, 0, 0, $size[0], $size[1]) GUISetState() While 1 $msg = GUIGetMsg() If $msg = -3 Then Exit Wend Func _GUICtrlCreateGradient($nStartColor, $nEndColor, $nX, $nY, $nWidth, $nHeight) Local $color1R = _ColorGetRed($nStartColor) Local $color1G = _ColorGetGreen($nStartColor) Local $color1B = _ColorGetBlue($nStartColor) Local $nStepR = (_ColorGetRed($nEndColor) - $color1R) / $nHeight Local $nStepG = (_ColorGetGreen($nEndColor) - $color1G) / $nHeight Local $nStepB = (_ColorGetBlue($nEndColor) - $color1B) / $nHeight GuiCtrlCreateGraphic($nX, $nY, $nWidth, $nHeight) For $i = 0 To $nHeight - $nY $sColor = "0x" & StringFormat("%02X%02X%02X", $color1R+$nStepR*$i, $color1G+$nStepG*$i, $color1B+$nStepB*$i) GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $sColor, 0xffffff) GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0, $i) GUICtrlSetGraphic(-1, $GUI_GR_LINE, $nWidth, $i) Next EndFunc Resources UDF Â ResourcesEx UDF Â AutoIt Forum Search Link to comment Share on other sites More sharing options...
_Kurt Posted December 17, 2006 Share Posted December 17, 2006 Nice ValuaterHere is some idea to make background gradient without JPEG image:(Snipped)Wow, that's really cool! I never knew you could do that without a picture of some sort Awaiting Diablo III.. Link to comment Share on other sites More sharing options...
GaryFrost Posted December 18, 2006 Share Posted December 18, 2006 Wow, that's really cool! I never knew you could do that without a picture of some sorthttp://www.autoitscript.com/forum/index.ph...st&p=221361 SciTE for AutoItDirections for Submitting Standard UDFs  Don't argue with an idiot; people watching may not be able to tell the difference.  Link to comment Share on other sites More sharing options...
Mosquitos Posted July 19, 2007 Share Posted July 19, 2007 Title says it all Ez-Track Enjoy!!! Code as requested expandcollapse popup#include <GuiConstants.au3> #Include <File.au3> #Include <GuiListView.au3> Dim $PEver = "1.0.5" Dim $data_Location = @ScriptDir & "\Data\" Dim $File_Location = @ScriptDir & "\Data\Address.ini" Dim $num = 0, $Input[10], $data_[10], $COAInput[10] DirGetSize($data_Location) If @error= 1 Then DirCreate($data_Location) EndIf $Sound_lnk = @TempDir & "\Sound_lnk.wav" FileInstall("C:\XPClean-web\Settings\XPClean-pics\Sounds\Notify.wav", $Sound_lnk) $Logo_jpg = @TempDir & "\Ez-Track.jpg" FileInstall("C:\Temp\Ez-Track.jpg", $Logo_jpg) $Logo_back = @TempDir & "\Ez-Back.jpg" FileInstall("C:\Temp\Ez-back.jpg", $Logo_back) $Logo_icon = @TempDir & "\Ez-Track.ico" FileInstall("C:\Temp\Ez-Track.ico", $Logo_icon) $Sound_clk = @TempDir & "\Sound_clk.wav" FileInstall("C:\XPClean-web\Settings\XPClean-pics\Sounds\Clickerx.wav", $Sound_clk) $Sound_grp = @TempDir & "\Sound_grp.wav" FileInstall("C:\XPClean-web\Settings\XPClean-pics\Sounds\Group_open.wav", $Sound_grp) SplashImageOn("", $Logo_jpg, 335, 240, -1, -1, 1) SoundPlay ($Sound_lnk,1) Sleep(2000) SplashOff() If Not FileExists($File_Location) Then Set_Ini() MsgBox(262208, "Welcome...", "Please Select *View All Customers* to begin... ", 5) EndIf $main = GUICreate(" * Ez-Track * v" & $PEver, 612, 412) GUISetIcon($Logo_icon) GUICtrlCreatePic($Logo_back, 1, 1, 610, 415, $SS_SUNKEN) GUICtrlSetState(-1, $GUI_DISABLE) $Group_1 = GUICtrlCreateGroup("Customer Panel", 10, 10, 250, 390) GUICtrlSetBkColor(-1, 0xCBD7ED) $Group_2 = GUICtrlCreateGroup("Customer Information", 280, 10, 320, 390) GUICtrlSetBkColor(-1, 0xCBD7ED) $Group_3 = GUICtrlCreateGroup("Search", 20, 30, 230, 130) GUICtrlSetBkColor(-1, 0xCBD7ED) $Group_4 = GUICtrlCreateGroup("Controls", 20, 165, 230, 235) GUICtrlSetBkColor(-1, 0xE1E9F6) $Combo_3 = GUICtrlCreateCombo("Search by...", 80, 50, 100, 21) $Input11 = GUICtrlCreateInput("Search Criteria", 45, 85, 180, 20) $Label_10 = GUICtrlCreateLabel("Customer #: " & $num, 450, 28, 120, 22, BitOR($SS_SUNKEN, $SS_CENTER), $WS_EX_TRANSPARENT ) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetFont(-1, 9.5, 550) $Label_12 = GUICtrlCreateLabel("Name", 300, 40, 70, 20, $WS_EX_TRANSPARENT ) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $Input[1] = GUICtrlCreateInput("", 300, 60, 280, 20) $Label_14 = GUICtrlCreateLabel("Address", 300, 90, 90, 20) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $Label_15 = GUICtrlCreateLabel("Street Name", 380, 90, 140, 20) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $Input[2] = GUICtrlCreateInput("", 300, 110, 70, 20) $Input[3] = GUICtrlCreateInput("", 380, 110, 200, 20) $Label_18 = GUICtrlCreateLabel("City", 300, 140, 50, 20) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $Label_19 = GUICtrlCreateLabel("Change Of Address", 440, 140, 120, 20) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $Input[4] = GUICtrlCreateInput("", 300, 160, 110, 20) $Input[5] = GUICtrlCreateInput("", 430, 160, 130, 20) $Label_22 = GUICtrlCreateLabel("State", 300, 190, 70, 20) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $Label_23 = GUICtrlCreateLabel("Zip + 4", 390, 190, 110, 20) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $Input[6] = GUICtrlCreateInput("", 300, 210, 80, 20) $Input[7] = GUICtrlCreateInput("", 390, 210, 190, 20) $Edit_26 = GUICtrlCreateLabel("Notes", 300, 240, 80, 20) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $Edit_26 = GUICtrlCreateInput("", 300, 260, 280, 20) ; controls $Button_5 = GUICtrlCreateButton("", 530, 310, 50, 50, $BS_ICON) GUICtrlSetImage(-1, $Logo_icon ) GUICtrlSetTip( -1, "About QTasc") $Button_6 = GUICtrlCreateButton("Close Ez-Track", 320, 365, 180, 25) $Button_7 = GUICtrlCreateButton("Clear Form", 320, 330, 180, 25) $Button_8 = GUICtrlCreateButton("View COA" , 320, 295, 180, 25) $Button_9 = GUICtrlCreateButton("Start Search", 45, 120, 180, 25) $Button_10 = GUICtrlCreateButton("Add Customer", 45, 260, 180, 25) $Button_11 = GUICtrlCreateButton("Update Customer", 45, 225, 180, 25) $Button_12 = GUICtrlCreateButton("View All Customers", 45, 190, 180, 25) $Button_13 = GUICtrlCreateButton("Remove Customer", 45, 295, 180, 25) $Button_14 = GUICtrlCreateButton("COA On-Line", 45, 330, 180, 25) $Button_15 = GUICtrlCreateButton("View/Print in Excel", 45, 365, 180, 25) GUISetState() GUICtrlSetData($Combo_3, "Customer #|Name|COA|Address|Street|City|Zip+4|Notes") $viewer = GUICreate(" * Ez-Track * ", 700, 500, 5, 5,$WS_BORDER, -1, $main) GUISetIcon($Logo_icon) GUISetBkColor (0xE1E9F6) $Listview = GUICtrlCreateListView("#|Name|COA|Address|Street|City|State|Zip+4|Notes", 10, 10, 680, 400, -1, BitOR($LVS_EX_REGIONAL, $LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES)) $Closer = GUICtrlCreateButton("Close", 460, 425, 180, 30) $Btn_view = GUICtrlCreateButton("View / Edit", 260, 425, 180, 30) $Btn_COA = GUICtrlCreateButton("View COA", 60, 425, 180, 30) GUISetState(@SW_HIDE) $COA = GuiCreate(" * Ez-Track * ", 392, 340, 205, 150,$WS_BORDER, -1, $main) GUISetIcon($Logo_icon) GUISetBkColor (0xE1E9F6) GUICtrlCreateGroup("COA Dates", 15, 5, 365, 95) GUICtrlCreateGroup("New Address", 15, 110, 365, 190) $COALabel_1 = GuiCtrlCreateLabel("Customer #: ", 240, 25, 120, 22, $SS_SUNKEN + $SS_CENTER) GUICtrlSetFont(-1, 9.5, 550) $COAInput[1] = GuiCtrlCreateDate("", 100, 25, 100, 20) $COAInput[2] = GuiCtrlCreateDate("", 100, 60, 100, 20) $COAInput[3] = GUICtrlCreateCombo("", 240, 60, 120, 20) GUICtrlSetData( -1, "Individual|Family|Business", "Individual") $COALabel_4 = GuiCtrlCreateLabel("Address", 30, 135, 70, 20) $COALabel_5 = GuiCtrlCreateLabel("Street Name", 150, 135, 110, 20) $COAInput[4] = GuiCtrlCreateInput("", 30, 155, 70, 20) $COAInput[5] = GuiCtrlCreateInput("", 150, 155, 220, 20) $COALabel_8 = GuiCtrlCreateLabel("City", 30, 190, 80, 20) $COALabel_9 = GuiCtrlCreateLabel("State", 140, 190, 80, 20) $COALabel_10 = GuiCtrlCreateLabel("Zip + 4", 240, 190, 70, 20) $COAInput[6] = GuiCtrlCreateInput("", 30, 210, 90, 20) $COAInput[7] = GuiCtrlCreateInput("", 140, 210, 80, 20) $COAInput[8] = GuiCtrlCreateInput("", 240, 210, 130, 20) $COALabel_15 = GuiCtrlCreateLabel("Start Date", 30, 28, 50, 20) $COALabel_17 = GuiCtrlCreateLabel("End Date", 30, 62, 70, 20) ; Buttons $COAButton_14 = GuiCtrlCreateButton("Save", 30, 255, 100, 30) $COAButton_15 = GuiCtrlCreateButton("Delete", 150, 255, 100, 30) $COAButton_16 = GuiCtrlCreateButton("Close", 270, 255, 100, 30) ; Date set up Global Const $DTM_SETFORMAT = 0x1005 ; Changed this to a global const SmOke_N $COAstyle = "MM/dd/yyyy" GuiCtrlSendMsg($COAInput[1], $DTM_SETFORMAT, 0, $COAstyle) GuiCtrlSendMsg($COAInput[2], $DTM_SETFORMAT, 0, $COAstyle) GuiSetState(@SW_HIDE) Dim $B_DESCENDING ; [_GUICtrlListViewGetSubItemsCount ($listview) ] While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Or $msg = $Button_6 ExitLoop Case $msg = $Button_15 SoundPlay($Sound_clk) Open_Office() Case $msg = $Button_5 Set_QT() Case $msg = $Button_7 SoundPlay($Sound_clk) Clear_Customers() Case $msg = $Button_9 SoundPlay($Sound_clk) Set_Customers() Case $msg = $Button_10 SoundPlay($Sound_clk) Add_Customer() Case $msg = $Button_11 SoundPlay($Sound_clk) Update_Customer() Case $msg = $Button_12 SoundPlay($Sound_clk) GUISetState(@SW_SHOW, $viewer) Get_List() Case $msg = $Button_13 SoundPlay($Sound_clk) Remove_Customer() Case $msg = $Button_14 SoundPlay($Sound_clk) CO_Address() Case $msg = $Input11 GUICtrlSetState($Button_9, $GUI_FOCUS ) ; List View controls Case $msg = $Closer SoundPlay($Sound_clk) Close_List() Case $msg = $Btn_view SoundPlay($Sound_clk) Local $s_indices = _GUICtrlListViewGetSelectedIndices($listview) Get_CNumber($s_indices + 1) GUISetState(@SW_HIDE, $viewer) _GUICtrlListViewDeleteAllItems($listview) Close_COA() GUISetState(@SW_SHOW, $main) GUISetState(@SW_RESTORE, $main) Case $msg = $Btn_COA SoundPlay($Sound_clk) Local $s_indices = _GUICtrlListViewGetSelectedIndices($listview) Get_CNumber($s_indices + 1) Show_COA() Case $msg = $listview SoundPlay($Sound_clk) GUICtrlSetState( $Btn_view, $GUI_DISABLE) GUICtrlSetState( $Btn_COA, $GUI_DISABLE) _GUICtrlListViewSort($listview, $B_DESCENDING, GUICtrlGetState($listview)) ; COA Controls Case $msg = $Button_8 SoundPlay($Sound_clk) Show_COA() Case $msg = $COAButton_14 SoundPlay($Sound_clk) Save_COA() Case $msg = $COAButton_15 SoundPlay($Sound_clk) Delete_COA() Case $msg = $COAButton_16 SoundPlay($Sound_clk) Close_COA() GUISetState(@SW_SHOW, $main) GUISetState(@SW_RESTORE, $main) EndSelect WEnd SoundPlay ($Sound_lnk,1) Exit ; --------------------------- Functions ----------------- Func Set_Ini() FileWriteLine($File_Location, "[Address]") FileWriteLine($File_Location, "1=David Jones,12345,This way,East Covina,None,CA,95505-4321,BIG DOG!!!") FileWriteLine($File_Location, "2=Danny Smith,678,That way,North Covina,None,CA,95505-4321,Rear House") FileWriteLine($File_Location, "3=Debra Jones,910,Which way,West Covina,None,CA,95505-4321,Cookies and Milk") EndFunc ;==>Set_Ini Func Set_Customers() $num = 0 $temp_info = GUICtrlRead($Combo_3) If $temp_info = "Name" Then $temp_search = 1 ElseIf $temp_info = "Address" Then $temp_search = 2 ElseIf $temp_info = "Street" Then $temp_search = 3 ElseIf $temp_info = "City" Then $temp_search = 4 ElseIf $temp_info = "COA" Then $temp_search = 5 ElseIf $temp_info = "Zip+4" Then $temp_search = 7 ElseIf $temp_info = "Notes" Then $temp_search = 8 ElseIf $temp_info = "Customer #" Then $num = GUICtrlRead($Input11) Get_CNumber($num) Return Else MsgBox(262208, "Sorry...", "Please Select a Search by... ", 1) Return EndIf $temp_find = GUICtrlRead($Input11) $length = _FileCountLines($File_Location) For $x = 1 To $length - 1 $temp_file = IniRead($File_Location, "Address", $x, "Not Found") If $temp_file = "Not Found" Then MsgBox(262208, "Sorry...", "No Files\Folders Found.... ", 1) Return EndIf $temp_split = StringSplit($temp_file, ",") If StringInStr($temp_split[$temp_search], $temp_find) Then For $t = 1 To $temp_split[0] -1 GUICtrlSetData($Input[$t], $temp_split[$t]) $num = $x Next GUICtrlSetData($Edit_26, $temp_split[8]) GUICtrlSetData($Label_10, "Customer #: " & $num) Return EndIf Next EndFunc ;==>Set_Customers Func Get_CNumber($x) $temp_file = IniRead($File_Location, "Address", $x, "Not Found") If $temp_file = "Not Found" Then MsgBox(262208, "Sorry...", "No Customer Found/Selected... ", 1) Return EndIf $temp_split = StringSplit($temp_file, ",") For $t = 1 To $temp_split[0] - 1 GUICtrlSetData($Input[$t], $temp_split[$t]) $num = $x Next GUICtrlSetData($Edit_26, $temp_split[8]) GUICtrlSetData($Label_10, "Customer #: " & $num) Return EndFunc ;==>Get_CNumber Func Get_List() $length = _FileCountLines($File_Location) For $x = 1 To $length - 1 $temp_file = IniRead($File_Location, "Address", $x, "Not Found") If $temp_file = "Not Found" Then Return $temp_split = StringSplit($temp_file, ",") GUICtrlCreateListViewItem( $x & "|" & $temp_split[1] & "|" & $temp_split[5] & "|" & $temp_split[2] & "|" & $temp_split[3] & "|" & $temp_split[4] & "|" & $temp_split[6] & "|" & $temp_split[7] & "|" & $temp_split[8] ,$listview) Next EndFunc Func Close_List() GUICtrlSetState( $Btn_view, $GUI_ENABLE) GUICtrlSetState( $Btn_COA, $GUI_ENABLE) _GUICtrlListViewDeleteAllItems($listview) GUISetState(@SW_HIDE, $viewer) GUISetState(@SW_SHOW, $main) GUISetState(@SW_RESTORE, $main) EndFunc Func Clear_Customers() If GUICtrlRead($Input[1]) = "" then Return for $x = 1 to 7 GUICtrlSetData($Input[$x], "") Next GUICtrlSetData($Edit_26, "") Clear_List() GUICtrlSetData($Label_10, "Customer #: 0") GUISetState( @SW_HIDE, $COA ) Close_List() EndFunc Func Add_Customer() If GUICtrlRead($Input[1]) = "" then MsgBox(262208, "Sorry...", "No Customer Found/Selected... ", 1) Return EndIf $length = _FileCountLines($File_Location) IniWrite($File_Location, "Address", $length, GUICtrlRead($Input[1]) &","& GUICtrlRead($Input[2])&","& GUICtrlRead($Input[3])&","& GUICtrlRead($Input[4])&","& GUICtrlRead($Input[5])&","& GUICtrlRead($Input[6])&","&GUICtrlRead($Input[7])&","& GUICtrlRead($Edit_26)) GUICtrlSetData($Label_10, "Customer #: " & $length) Clear_List() MsgBox(262208, "Great...", "Customer Added... ", 1) EndFunc Func UpDate_Customer() If GUICtrlRead($Input[1]) = "" then MsgBox(262208, "Sorry...", "No Customer Found/Selected... ", 1) Return EndIf $num = StringTrimLeft(GUICtrlRead($Label_10), 12) IniWrite($File_Location, "Address", $num, GUICtrlRead($Input[1]) &","& GUICtrlRead($Input[2])&","& GUICtrlRead($Input[3])&","& GUICtrlRead($Input[4])&","& GUICtrlRead($Input[5])&","& GUICtrlRead($Input[6])&","&GUICtrlRead($Input[7])&","& GUICtrlRead($Edit_26)) Clear_List() MsgBox(262208, "Great...", "Customer Updated... ", 1) EndFunc Func Remove_Customer() If GUICtrlRead($Input[1]) = "" then MsgBox(262208, "Sorry...", "No Customer Found/Selected... ", 1) Return EndIf $num = StringTrimLeft(GUICtrlRead($Label_10), 12) IniWrite($File_Location, "Address", $num, ",,,,,,,") FileDelete($data_Location & "COA_" & $num &".dat") for $x = 1 to 7 GUICtrlSetData($Input[$x], "") Next GUICtrlSetData($Edit_26, "") Clear_List() GUICtrlSetData($Label_10, "Customer #: 0") MsgBox(262208, "Great...", "Customer Removed... ", 1) EndFunc Func Clear_List() FileDelete($data_Location & "Address.bak") FileDelete(@TempDir & "\new.ini") FileCopy($File_Location, $data_Location & "Address.bak", 1) FileWriteLine(@TempDir & "\new.ini", "[Address]") $t = 0 $length = _FileCountLines($File_Location) For $x = 1 To $length - 1 $temp_file = IniRead($File_Location, "Address", $x, "Not Found") If $temp_file = "Not Found" Then Return $temp_split = StringSplit($temp_file, ",") If $temp_split[1] = "" Then ContinueLoop $t = $t + 1 IniWrite(@TempDir & "\new.ini", "Address", $t, $temp_split[1] & "," & $temp_split[2] & "," & $temp_split[3] & "," & $temp_split[4] & "," & $temp_split[5] & "," & $temp_split[6] & "," & $temp_split[7] & "," & $temp_split[8]) Next FileCopy(@TempDir & "\new.ini", $File_Location, 1) EndFunc Func CO_Address() $web_loc = "https://moversguide.usps.com/mgservice/Home" Run(@ComSpec & " /c Start " & $web_loc, "", @SW_HIDE) EndFunc Func Open_Office() FileDelete($data_Location & "Address.bak") FileDelete($data_Location & "Office.csv") FileCopy($File_Location, $data_Location & "Address.bak", 1) $length = _FileCountLines($data_Location & "Address.bak") $Rfile = FileOpen($data_Location & "Address.bak", 0) $Wfile = FileOpen($data_Location & "Office.csv", 2) For $x = 2 To $length ; - 1 $line = FileReadLine($Rfile, $x) If @error = -1 Then ExitLoop $line_pos = StringInStr($line, "=") FileWriteLine($Wfile, StringTrimLeft($line, $line_pos)) Next FileClose($Rfile) FileClose($Wfile) $Off_loc = FileGetShortName($data_Location & "Office.csv") Run(@ComSpec & " /c Start " & $Off_loc, "", @SW_HIDE) EndFunc Func Show_COA() If GUICtrlRead($Input[1]) = "" then MsgBox(262208, "Sorry...", "No Customer Found/Selected... ", 1) Return EndIf $num = StringTrimLeft(GUICtrlRead($Label_10), 12) If $num = 0 Or $num = "" then Return GUICtrlSetData($COALabel_1, "Customer #: " & $num) GUISetState( @SW_SHOW, $COA ) For $x = 1 to 8 if $x = 3 then ContinueLoop GUICtrlSetData( $COAInput[$x], "" ) Next If FileExists($data_Location & "COA_" & $num & ".dat") Then $temp_split = StringSplit(FileReadLine($data_Location & "COA_" & $num & ".dat", 1), ",") For $x = 1 to 8 If $x == 1 Or $x == 2 Then GUICtrlSendMsg($COAInput[$x], $DTM_SETFORMAT, 0, $temp_split[$x]) Else GUICtrlSetData( $COAInput[$x], $temp_split[$x]) EndIf Next EndIf EndFunc Func Save_COA() If GUICtrlRead($COAInput[4]) = "" then MsgBox(262208, "Sorry...", "No Address Found/Selected... ", 1) Return EndIf $num = StringTrimLeft(GUICtrlRead($Label_10), 12) If $num = 0 Or $num = "" then Return $temp_info = "" For $x = 1 to 7 $temp_info = $temp_info & GUICtrlRead($COAInput[$x]) & "," Next $temp_info = $temp_info & GUICtrlRead($COAInput[$x]) FileDelete($data_Location & "COA_" & $num &".dat") FileWriteLine($data_Location & "COA_" & $num &".dat", $temp_info) GUICtrlSetData( $Input[5], GUICtrlRead($COAInput[2])) GUISetState( @SW_HIDE, $COA ) Close_List() UpDate_Customer() EndFunc Func Delete_COA() If GUICtrlRead($COAInput[4]) = "" then MsgBox(262208, "Sorry...", "No Address Found/Selected... ", 1) Return EndIf $num = StringTrimLeft(GUICtrlRead($Label_10), 12) If $num = 0 Or $num = "" then Return FileDelete($data_Location & "COA_" & $num &".dat") For $x = 1 to 8 if $x = 3 then ContinueLoop GUICtrlSetData( $COAInput[$x], "" ) Next GUICtrlSetData( $Input[5], "None" ) GUISetState( @SW_HIDE, $COA ) Close_List() UpDate_Customer() EndFunc Func Close_COA() GUISetState( @SW_HIDE, $COA ) EndFunc Func Set_QT() SoundPlay($Sound_grp) $iMsgBoxAnswer = MsgBox(32, "* Ez-Track * , by QTasc", "WHO IS, QT APPRAISAL SERVICE CO ?" & @CRLF & "" & @CRLF & "We are a Real Estate Appraisal Company based in Riverside, California. " & @CRLF & "" & @CRLF & _ "I hope this program has been helpful." & @CRLF & "" & @CRLF & "Thank You... Valuater" & @CRLF & "" & @CRLF & "", 60) Select Case $iMsgBoxAnswer = -1 ;Timeout EndSelect SoundPlay($Sound_grp) EndFunc ;==>Set_QT Valuater 8) Hey I know this is a old topic but i have a question about the search function. You have 2 people with the name "jones" in the ini file. If you search at "jones" then you see only 1 name. Is it not better that he display all the results with the name "jones" ? Sapiente vince, rex, noli vincere ferro! Link to comment Share on other sites More sharing options...
icadea Posted January 11, 2008 Share Posted January 11, 2008 thanks for the script Valuater. this is great. i get a chance to learn a lot from this. Did not realize autoit could do this. Link to comment Share on other sites More sharing options...
Valuater Posted January 15, 2008 Author Share Posted January 15, 2008 thanks for the script Valuater. this is great. i get a chance to learn a lot from this. Did not realize autoit could do this.Welcome, Autoit can accomplish almost anything!!!8) Link to comment Share on other sites More sharing options...
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