Ez-Track Name and Address Tracking

Valuater · December 16, 2006

Title says it all

Posted Image

Enjoy!!!

Code as requested

#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.0

Valuater

8)

Edited May 25, 2008 by Valuater

_Kurt · 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.

Kurt

*Edit* Posted too soon Thanks

Edited December 16, 2006 by _Kurt

Valuater · 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.
Kurt

as requested by PM's and other post..

I added it to the original post above

... and Thanks!

8)

logonui · 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 it

Cheers

Lee

Valuater · December 17, 2006

Thanks...

....and your Welcome

8)

Edited December 12, 2007 by Valuater

Zedna · December 17, 2006

Nice Valuater

Here is some idea to make background gradient without JPEG image:

#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

_Kurt · December 17, 2006

Nice Valuater
Here 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

GaryFrost · December 18, 2006

Wow, that's really cool! I never knew you could do that without a picture of some sort

http://www.autoitscript.com/forum/index.ph...st&p=221361

Mosquitos · July 19, 2007

Title says it all

Ez-Track

Posted Image

Enjoy!!!

Code as requested

#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" ?

icadea · 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.

Valuater · 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)

Ez-Track Name and Address Tracking

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members