Jump to content
alexandre

Cadastro de clientes

Recommended Posts

Criando um simples cadastro, e utilizando algumas funções:

 

1ª Parte -

2ª Parte -

3ª Parte -

#include <file.au3>

$Form1  = GUICreate("Form1", 623, 449, 192, 124)
$Cadast = GUICtrlCreateButton("Cadastrar", 400, 350, 80, 45)
$Editar = GUICtrlCreateLabel("Editar", 40, 100, 55, 20)
		  GUICtrlSetFont(-1, 14)
$Fechar = GUICtrlCreateButton("Fechar", 510, 350, 80, 45)
$Menu   = GUICtrlCreateListView("Os-Nº|Nome|Telefone|Endereço    ", 40, 130, 550, 200)
$Time   = GUICtrlCreateLabel("", 500, 80, 630, 50)
		  GUICtrlCreateLabel("Os-Show", 0, 20, 630, 50)
		  GUICtrlSetBkColor(-1, 0x3366cc)
		  GUICtrlSetFont(-1, 24, 400, 6)
		  GUICtrlSetFont($Time, 12, 400, 3)
		  GUISetBkColor(0x999986)
		  GUISetState(@SW_SHOW)

Global $arq = @ScriptDir, $Nome, $Fone, $End, $atual = @HOUR & ":" & @MIN & ":" & @SEC

Local  $ini = _FileListToArray($arq, "*.ini*", 1), $msg

       $sec = IniReadSection($ini[$ini[0]], "Bk")

       $os  = StringSplit($sec[1][1], "|", 2)

Local $item[$sec[0][0]+1]

For $i = 0 To $sec[0][0] Step 1
	$item[$i] = GUICtrlCreateListViewItem($sec[$i][1], $Menu)
Next

While 1
	Dim $Data = @MDAY & "/" & @MON & "/" & @YEAR & @Cr, $hora = @HOUR & ":" & @MIN & ":" & @SEC

	If $atual <> $hora Then GUICtrlSetData($Time, $Data & $hora)
	$atual  = $hora
	$edit   = 1
	$nMsg   = GUIGetMsg()
 If $nMsg   = -3 Or $nMsg = $Fechar Then Exit
 If $nMsg   = $Cadast Then
	$Form2  = GUICreate("Cadastrar", 623, 449, 192, 124)
	$Time2  = GUICtrlCreateLabel($Data & @HOUR & ":" & @MIN, 500, 80, 630, 150)
	$Salvar = GUICtrlCreateButton("Salvar", 330, 360, 100, 50)
	$Nome   = GUICtrlCreateInput("", 64, 50, 193, 21)
	$Label1 = GUICtrlCreateLabel("Nome", 16, 24, 46, 24)
	$End    = GUICtrlCreateInput("", 64, 130, 193, 21)
	$Label2 = GUICtrlCreateLabel("Telefone", 50, 200, 96, 24)
	$Fone   = GUICtrlCreateInput("", 132, 200, 123, 21)
	$Label3 = GUICtrlCreateLabel("Os-Nº" & $sec[0][0] + 1, 448, 24, 200, 41)
	$Cansel = GUICtrlCreateButton("Canselar", 450, 360, 100, 50)
			  GUICtrlCreateLabel("Endereço", 16, 100, 70, 24)
			  GUICtrlSetFont(     -1, 12, 400, 0, "MS Sans Serif")
			  GUICtrlSetFont($Label3, 24, 400, 0, "MS Sans Serif")
			  GUICtrlSetFont($Label2, 12, 400, 0, "MS Sans Serif")
			  GUICtrlSetFont($Label1, 12, 400, 0, "MS Sans Serif")
			  GUISetBkColor(0xc0cccc)
	GUISetState(@SW_SHOW)

	While   $edit
			$nMsg = GUIGetMsg()
		if	$nMsg = $Salvar Then
				$n    = GUICtrlRead($Nome)
				$tel  = GUICtrlRead($Fone)
				$rua  = GUICtrlRead($End)
			If	$n And $tel And $rua Then
				GUICtrlCreateListViewItem($sec[0][0] + 1 & "|" & $n & "|" & $tel & "|" & $rua, $Menu)
				IniWrite($ini[$ini[0]], "BK", $sec[0][0] + 1, $sec[0][0] +1 & "|" & $n & "|" & $tel & "|" & $rua)
				$sec  = IniReadSection($ini[$ini[0]], "BK")
				Dim $item[$sec[0][0] + 1]
				GUIDelete($Form2)
				$edit = 0
			Else
				MsgBox(48, "", "Dados Incompletos")
			EndIf
		ElseIf $nMsg = -3 Or $nMsg = $Cansel Then
			GUIDelete($Form2)
			$edit = 0
		EndIf
	WEnd
  EndIf

	For $i = 0 To $sec[0][0] Step 1
		If $nMsg == $item[$i] Then
			$msg = $i
			GUICtrlSetBkColor($Editar, 0xffff00)
		EndIf
	Next
	If $nMsg = $Editar And $msg Then
		GUICtrlSetBkColor($Editar, 0x999986)
		Editar($msg)
	EndIf
WEnd

Func Editar($msg)
	Local $os = StringSplit($sec[$msg][1], "|")

	$Form3 = GUICreate("Editar",   623, 449, 192, 124)
	$Nome  = GUICtrlCreateInput("",  24, 112, 273, 21)
	$Fone  = GUICtrlCreateInput("",  24, 200, 265, 21)
	$End   = GUICtrlCreateInput("", 144, 248, 113, 21)
			 GUICtrlCreateLabel("Nome",24,72,  60, 28)
	         GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
			 GUICtrlCreateLabel("Endereço", 24, 152, 96, 28)
	         GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
			 GUICtrlCreateLabel("Telefone", 24, 240, 87, 28)
			 GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
			 GUICtrlCreateLabel("Edição", 152, 16, 85, 33)
			 GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
	         GUICtrlCreateLabel("Os-Nº" & $msg, 448, 24, 200, 41)
			 GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
	$Cansel= GUICtrlCreateButton("Canselar", 450, 360, 100, 50)
	$Salvar= GUICtrlCreateButton("Salvar", 330, 360, 100, 50)
			 GUISetBkColor(0xc0ccdc)
			 GUISetState(@SW_SHOW)

			 GUICtrlSetData($Nome, $os[2])
			 GUICtrlSetData($End , $os[3])
			 GUICtrlSetData($Fone, $os[4])

		While 1
			$nMsg = GUIGetMsg()
			Switch $nMsg
				Case $Salvar
					IniWrite($ini[$ini[0]], "BK", $sec[$msg][0], $msg & "|" & GUICtrlRead($Nome) & "|" & GUICtrlRead($End) & "|" & GUICtrlRead($Fone))
					$sec = IniReadSection($ini[$ini[0]], "BK")
					GUIDelete($Form3)
					GUICtrlDelete($Menu)
					$Menu   = GUICtrlCreateListView("Os-Nº|Nome|Telefone|Endereço    ", 40, 130, 550, 200)
					For $i = 0 To $sec[0][0] Step 1
						$item[$i] = GUICtrlCreateListViewItem($sec[$i][1], $Menu)
					Next
					$nMsg = ""
					ExitLoop
				Case -3
					GUIDelete($Form3)
					$nMsg = ""
					ExitLoop
				Case $Cansel
					$nMsg = ""
					ExitLoop
			EndSwitch
		WEnd
	EndFunc
  • Like 4

Share this post


Link to post
Share on other sites

Um belo exemplo de uso das funcões ini !!!

 

Gostei amigo, obrigado por compartilhar conosco.

 

JS

Share this post


Link to post
Share on other sites

Opa! Sou novo aqui.
Meu nome é Armand; estou entrando neste mundo de programação com AutoIt agora e me cadastrei aqui para aprender mais e desenvolver programas etc...
Estou a principio tentando modificar um arquivo gerado pelo AutoIt porem, já no formato .exe . Existe a possibilidade de modificar um arquivo depois que ele esta convertido em exe?

Share this post


Link to post
Share on other sites

Olá Armand.

 

Não é possível modificar a funcionalidade de nenhum arquivo .EXE

 

Vc precisaria ter o "fonte", ou seja, o programa original para poder modificar e gerar um novo .EXE

Share this post


Link to post
Share on other sites

Um tópico que estava a tanto tempo sem comentários volta a ser atualizado, achei que fosse vídeos novos, mas alguém acabou tirando um dúvida dentro de outro tópico não relacionado. Armand abra um novo tópico na área específica e aguarde que um de nossos colaboradores irá te atender, como o Maninal bem prontamente fez.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

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

Create an account

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

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


×