Müşteri Kayıt

[x_files_x]

Sadece isim kaydetmek için yapılmış bir script deneme amaçlı yapılmıştır,

http://d-h.st/UIS : Program

http://d-h.st/Z3j :Kaynak kodu

http://d-h.st/NAq : Udf kaynak

 

Skincrafter teması ve dll sini sizin bulmanız gerekiyor ben örnek olsun die verdim

 

;Edit @Mesale0077 arkadaşıma  yardımından dolayı tşkler

Diğer yorum yapan arkadaşlarımada verdiği fikirlerden ötürü tşk ederim,

Edited August 1, 2013 by x_files_x

[mesale0077]

 birde resimli yapsanız mesala resim ekle ve resimli müşteri olabilr

yada telefon resim adres giblierini girilebilinen güzel bir çalışma yapılsa hem faydalı bir prgram olur hemde arkadaşlarda yaptığınız çalışmadan faydalanır

böyle çalışmaların devamını bekilyoruz

güzel çalışma olmuş

Edited July 31, 2013 by mesale0077

[reyiz]

Üzgünüm ama daha fazla özellik eklenmesi gerekiyor. Bu şekilde kimsenin hiçbir işine yaramaz. Tabii bu tür bir çalışma yapmak isteyenler için faydalı bir örnek olmuş.

Temayı ben beğenmedim. Daha resmi bir şey olabilirdi ya da tema kullanılmayabilirdi.

Kolay gelsin.

Edited July 31, 2013 by reyiz

[MAKINCI]

Bende'de şöyle bir örnek var, belki birinin işine yarar...

http://www.mediafire.com/download/ydhtpdc90pdyy1x/phonebook.rar

[mesale0077]

; "GUICtrlPic.au3" udf yi indirin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=E:\IKONLAR\Yeni Ikonlar\Status-mail-task.ico
#AutoIt3Wrapper_Compression=0
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Constants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include "GUICtrlPic.au3"
Opt("GUICloseOnESC")
$sFldr1 =@AppDataDir & "\resimler\"
DirCreate($sFldr1)
DirCreate(@TempDir & "\S9D")
$skin = @TempDir & "\S9D\Mechanics.skf"
$dll = @TempDir & "\S9D\SkinCrafterDll.dll"
$Pic1 = @ProgramFilesDir & "\AutoIt3\Examples\GUI\Torus.png"
FileInstall("Mechanics.skf", $skin, 1)
FileInstall("SkinCrafterDll.dll", $dll, 1)

Sleep(500)

Global $nSkinCrafterDll
Func _LoadSkinCrafter($nDLL)
$nSkinCrafterDll = DllOpen($nDLL)
If Not FileExists($nDLL) Then
SetError(1)
Return 0
EndIf
If $nSkinCrafterDll = -1 Then
SetError(2)
Return 0
EndIf
DllCall($nSkinCrafterDll, "int:cdecl", "InitLicenKeys", "wstr","SKINCRAFTER", "wstr","SKINCRAFTER.COM", "wstr", "[email protected]","wstr","DEMOSKINCRAFTERLICENCE")
DllCall($nSkinCrafterDll, "int:cdecl", "DefineLanguage", "int", 0)
Return 1
EndFunc
Func _InitializeSkinCrafter($nHWND, $nSkin)
If Not WinExists($nHWND) Then
SetError(1)
Return 0
EndIf
If Not FileExists($nSkin) Then
SetError(2)
Return 0
EndIf
DllCall($nSkinCrafterDll, "int:cdecl", "InitDecoration", "int", 1)
DllCall($nSkinCrafterDll, "int:cdecl", "LoadSkinFromFile", "wstr", $nSkin)
DllCall($nSkinCrafterDll, "int:cdecl", "ApplySkin")
DllCall($nSkinCrafterDll, "int:cdecl", "DecorateAs","long",$nHWND,"long",1)
Return 1
EndFunc
_LoadSkinCrafter($dll)
$Form1_1 = GUICreate("                                                  .:|:. Müşteri Kayıt .:|:.", 406, 335, 238, 159)
GUISetOnEvent(-3, "_Exit")
_InitializeSkinCrafter($Form1_1, $skin)
$Group1 = GUICtrlCreateGroup("Kayıt", 8, 8, 294, 65)
$cInput = GUICtrlCreateInput("", 92, 30, 195, 25)
$Label1 = GUICtrlCreateLabel("Adı ve Soyadı:", 16, 32, 72, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("", 312, 8, 81, 65)
$Button1 = GUICtrlCreateButton("Ekle", 325, 25, 55, 20)
$Button2 = GUICtrlCreateButton("Sil", 325, 48, 55, 20)
$Button3 = GUICtrlCreateButton("Resetle", 325, 88, 55, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$cList = GUICtrlCreateList("", 8, 88, 297, 240)
$Dosya = @AppDataDir & "\kisiler.ini"
GuiCtrlSetData(-1, IniRead($Dosya, "kullanıcılar", "adlar", ""))
$a8 = _GUICtrlPic_Create($Pic1, 310, 127, 89, 105, BitOR($GUI_SS_DEFAULT_PIC,$WS_BORDER))
GUISetState(@SW_SHOW)
$cCheck_Dummy = GUICtrlCreateDummy()
GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND")
Func _ReadcList()
Local $iCnt = _GUICtrlListBox_GetCount($cList)
Local $sMsg = ""
For $n = 0 To $iCnt - 1
$sMsg &= _GUICtrlListBox_GetText($cList, $n) & "|"
Next
Return $sMsg
EndFunc
While 1
Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
Exit

Case $cList
$sChosen = GUICtrlRead($cList)
If $sChosen <> "" Then
GUICtrlSetData($cInput, $sChosen)
if FileExists( $sFldr1&GUICtrlRead($cInput)&".jpg") then
 _GUICtrlPic_SetImage($a8, $sFldr1&GUICtrlRead($cInput)&".jpg", 0)
 else
 _GUICtrlPic_SetImage($a8,$Pic1 , 0)
 endif
EndIf
Case $cCheck_Dummy
$sText = GUICtrlRead($cInput)
$iIndex = _GUICtrlListBox_FindString($cList, $sText)
If $iIndex <> -1 Then
_GUICtrlListBox_SetCurSel($cList, $iIndex)
 _GUICtrlPic_SetImage($a8, $sFldr1&GUICtrlRead($cList)&".jpg", 0)
 Else
_GUICtrlListBox_SetCurSel($cList, -1)
 _GUICtrlPic_SetImage($a8,$Pic1 , 0)
EndIf
Case $Button1
If DirGetSize($sFldr1) = -1 Then
DirCreate($sFldr1)
endif
$Dosya = $Dosya
If Not StringInStr(IniRead($Dosya, "kullanıcılar", "adlar", "") & "|", GUICtrlRead($cInput)) Then
IniWrite($Dosya, "kullanıcılar", "adlar", _ReadcList() & GUICtrlRead($cInput))
if Not GUICtrlRead($cInput)="" then
 $sMessage = "Resim ekle"
   $sFileOpenDialog = FileOpenDialog($sMessage, @WindowsDir & "\", "Images (*.jpg)", $FD_FILEMUSTEXIST + $FD_MULTISELECT)
    If @error Then
              MsgBox($MB_SYSTEMMODAL, "", "dosya seçilmedi.")
endif
filecopy($sFileOpenDialog ,$sFldr1&GUICtrlRead($cInput)&".jpg")
 _GUICtrlPic_SetImage($a8, $sFldr1&GUICtrlRead($cInput)&".jpg", 0)
 endif
EndIf
GuiCtrlSetData($cList, "")
GuiCtrlSetData($cList, IniRead($Dosya, "kullanıcılar", "adlar", ""))
Case $Button2
$Dosya = $Dosya
Global $MusteriData = StringStripWS(IniRead($Dosya,"Kullanıcılar","Adlar",""), 3)
$Gread = StringStripWS(GUICtrlRead($cList), 3)
If $Gread <> "" And StringInStr("|" & $MusteriData & "|", "|" & $Gread & "|") <> 0 Then
$MusteriData = StringReplace($MusteriData, $Gread, "")
$MusteriData = StringReplace($MusteriData, "||", "|")
If $MusteriData = StringRight($MusteriData,1) = "|" Then $MusteriData = StringTrimRight($MusteriData,1)
GUICtrlSetData($cList, "")
GUICtrlSetData($cList, $MusteriData)
 _GUICtrlPic_SetImage($a8,$Pic1 , 0)
filedelete($sFldr1&GUICtrlRead($cInput)&".jpg")
 IniWrite($Dosya,"Kullanıcılar","Adlar",$MusteriData)
EndIf
Case $Button3
 _GUICtrlPic_SetImage($a8,$Pic1 , 0)
FileDelete($Dosya)
DirRemove($sFldr1, 1)
GUICtrlSetData($cList, "")
GUICtrlSetData($cInput, "")
EndSwitch
WEnd
Func _WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
If $lParam = GUICtrlGetHandle($cInput) Then
If BitShift($wParam, 16) = $EN_CHANGE Then
GUICtrlSendToDummy($cCheck_Dummy)
EndIf
EndIf
EndFunc
Func _Exit()
FileDelete(@TempDir & "\S9D")
Exit 0
EndFunc

Edited August 1, 2013 by mesale0077

[x_files_x]

@Reyiz Yorumlarınız için tşk ederim, tema ilginc oldugu icin oyle yaptım, bu örnek zaten ben rastgele yaptım kimsenin işine yarasın die degil sadece göstermelik, çünkü autoit bilgim henüz birilerine faydalı olabilecek kadar çok degil, Resim ve tlf numarasıda eklenebilir ama işlerimden dolayı onları düşünecek vakit olmuyor, tema değişir tabiki,

@Mesale0077 tşk ederim örnegini inceleyim :)

@Makıncı örnek güzel tşk ederim