[function sifredegistir]
if (<eval <src.tag.sifredegisti>> == 1)
return 1
else
sdialog d_XX
src.sysmessage sifrenizi bir kereye mahsus degistiriniz.
src.tag.sifredegisti 1
return 1
endif
[function sifredegistir]
if (<eval <src.tag.sifredegisti>> == 1)
return 1
else
sdialog d_ilklogin
src.sysmessage sifrenizi bir kereye mahsus degistiriniz.
src.tag.sifredegisti 1
return 1
endif
[DIALOG d_ilklogin]
0,0
nomove
resizepic 190 175 5054 500 500
resizepic 200 185 3000 500 500
resizepic 220 235 2620 500 500
text 215 200 995 0
text 255 275 0000 1
button 220 275 4005 4006 1 0 1
text 435 275 0000 2
button 400 275 4005 4006 1 0 0
textentry 225 237 253 25 0 0 3
On=@Login
src.sifredegistir
[DIALOG d_ilklogin]
0,0
nomove
resizepic 190 175 5054 500 500
resizepic 200 185 3000 500 500
resizepic 220 235 2620 500 500
text 215 200 995 0
text 255 275 0000 1
button 220 275 4005 4006 1 0 1
text 435 275 0000 2
button 400 275 4005 4006 1 0 0
textentry 225 237 253 25 0 0 3
[DIALOG d_illklogin button]
on=1
src.tag.sifredegisti 1
xxxx
xxx
xx
x
On=@Login
if (<src.tag0.sifredegisti> == 0)
src.sdialog d_ilklogin
endif[function sifredegistir]
if (<eval <src.tag.sifredegisti>> == 0)
sdialog d_kell_login
src.sysmessage sifrenizi bir kereye mahsus degistiriniz.
else
return 1
endif
[dialog d_kell_login]
50,50
nomove
noclose
resizepic 0 0 3500 380 200
dhtmlgump 20 30 400 20 0 0 Sifrenizi girin
resizepic 40 70 3000 250 26
dtextentry 45 71 253 25 0 1 --
button 50 100 57 58 1 0 1
dhtmlgump 90 100 400 80 0 0 Degistir
[dialog d_kell_login BUTTON]
on=1
if !(<isnum <argtxt[1]>>)
src.sysmessageua 49 0 0 1 Sadece rakam kullanabilirsiniz.
elseif (<eval <argtxt[1]>> < 1)
src.sysmessageua 49 0 0 1 Hatalı bir rakam girdiniz.
elseif ((strlen(<argtxt[1]>)) > 6)
src.sysmessageua 49 0 0 1 Pin kodunuz 6 haneden daha fazla olamaz.
else
src.tag.sifredegisti 1
src.password <argtxt[1]>
src.sysmessageua <eval 07a1> 0 0 1 Sifrenizi degistirdiniz.Yeni sifreniz <argtxt[1]>
return 1
endif