Sistema para Cadastro

por **MrViSiBLe** 7/20/2010, 22:08

MrViSiBLe: Administrador; Número de Mensagens : 3779
Idade : 31
Localização : Cuiaba
Agradecimentos : 864
Data de inscrição : 10/12/2008

Mensagem nº1

Sistema para Cadastro

por MrViSiBLe 7/20/2010, 22:08

Boa Galera vou passar so uma base...

So implementar.

Código:

#cs
Criando Por LuizeTi
All copyright - Team Softeti - teamsofteti.rg3.net
Total Agrecimentos ao AutoIt
#ce

#include
#include
#include
#include
#include
#NoTrayIcon

Main()

Func Main()
Local $myedit, $main

$main = GUICreate("Team SofteTi", 635, 435, 192, 124)
GUISetBkColor(0x00E0FFFF)
GUICtrlSetDefColor(0xFF0000)

;~ cadastro
$tab = GuiCtrlCreateTab(2, 1, 633, 434)
$tab1 = GuiCtrlCreateTabItem("Cadastro de Clientes")
GUICtrlCreateLabel("Nome:", 32, 80, 35, 17)
GUICtrlCreateLabel("Email", 32, 120, 29, 17)
$in_nome = GUICtrlCreateInput("", 80, 80, 449, 21)
$in_email = GUICtrlCreateInput("", 80, 120, 449, 21)
$confir_c = GUICtrlCreateButton("Confirma Cadastro", 400, 400, 100, 25, $WS_GROUP)

$cancel_c = GUICtrlCreateButton("Cancelar", 520, 400, 75, 25, $WS_GROUP)
;~ di**
$tab_s = GuiCtrlCreateTabItem("")
;~ di**

;~ busca
$tab2 = GuiCtrlCreateTabItem("Buscar Cadastro")
GUICtrlCreateLabel("Nome:", 32, 80, 35, 17)
$in_busca = GUICtrlCreateInput("", 80, 80, 449, 21)
$confir_b = GUICtrlCreateButton("Busca Cliente", 400, 400, 100, 25, $WS_GROUP)

$cancel_b = GUICtrlCreateButton("Cancelar", 520, 400, 75, 25, $WS_GROUP)
$myedit = GUICtrlCreateEdit("",30, 120, 500, 200)
GUICtrlCreateTabItem("")
;~ visivel janela
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $cancel_b
Exit
Case $cancel_c
Exit
Case $confir_c
$nome = GUICtrlRead($in_nome)
$email = GUICtrlRead($in_email)
If $nome="" Then
MsgBox(16,"Error","Digite o Nome do Cliente!")
ContinueLoop
EndIf
If $email="" Then
MsgBox(16,"Error","Digite o Email do Cliente!")
ContinueLoop
EndIf
$verificar = RegRead("HKEY_CURRENT_USER\Software\SofteTi®\Cadastros", $nome)
if @error Then
;~ Criando o registro com os dados
RegWrite("HKEY_CURRENT_USER\Software\SofteTi®\Cadastros", $nome, "REG_MULTI_SZ", "Nome: "&$nome & @LF & "Email: "&$email)
MsgBox(0,"Aviso", "Cliente Cadastrado com Sucesso")
if @error Then
MsgBox(0,"Aviso", "Erro nº001 ao Cadastrar o Cliente")
EndIf
Else
MsgBox(0,"Aviso","Ja existe um cliente com este nome no sistema")
EndIf
ContinueLoop
Case $confir_b ;------------------------------------------------------------------
$buscar = GUICtrlRead($in_busca)
If $buscar="" Then
MsgBox(16,"Error","Digite o Nome do Cliente!")
ContinueLoop
EndIf

$cadastro = RegRead("HKEY_CURRENT_USER\Software\SofteTi®\Cadastros", $buscar)

if @error Then
MsgBox(0,"Aviso", "Nenhum Cadastro Encontrado")
Else
GUICtrlSetData($myedit, $cadastro, 0)
EndIf
ContinueLoop
EndSwitch
WEnd
EndFunc

Estes Sistema Salva cadastros nos Registros do Windows

onde salva os cadastro = "HKEY_CURRENT_USER\Software\SofteTi®\Cadastros "

Estou fazendo um q salva no excel ..
E outro q salva em Banco de Dados
Estarei postando
qualquer Duvida estamos ai ...