Herkese selam ederim;
Veritabanında bir tablo oluşturuyoruz adı " Kayıp Parola " ve hiç bir tablo ile bağlantısı yok.
İçerisinde oluşturduğum alanlar sorgusunu yaptığımız tablodaki alanlara göre isim verdim karışıklık olmasın diye.
Alanlarımızın hepsi Text ve Global alan.
Alan Adları;
Hesap Adı
Telefon
E-Posta Adresi
Guvenlik Kodu
Bir Layout oluşturdum. Adını " Başlangıç " yaptım. İlişkili Tablosu " Kayıp Parola "
Ve bu Layot u açılışta yüklettiriyorum. ( File Options --> Switch to layout )
Yukarıdaki 4 alanı bu tabloya yerleştiriyoruz ( Resim1 )
Şimdi betiğimiz...
Betiğimizin adı;
ParolaSifilamaMesaji
Allow User Abort [ Off ]
Set Error Capture [ On ]
Refresh Window
[ Flush cached join results; Flush cached external data ]
#Girlen bilgileri set ediyoruz
Set Variable [ $$KP_HESAP_ADI; Value:Kayıp Parola::Hesap Adı ]
Set Variable [ $$KP_TELEFON; Value:Kayıp Parola::Telefon ]
Set Variable [ $$KP_EPOSTA; Value:Kayıp Parola::E-Posta Adresi ]
Set Variable [ $$KP_GUVENLIK_KODU; Value:Kayıp Parola::Guvenlik Kodu ]
#Boş alan kontrolü
If [ IsEmpty ( Kayıp Parola::Hesap Adı ) or IsEmpty ( Kayıp Parola::Telefon ) or IsEmpty ( Kayıp Parola::E-Posta Adresi ) or IsEmpty ( Kayıp Parola::
Guvenlik Kodu ) ]
Show Custom Dialog [ Title: "Uyarı"; Message: "Lütfen, tüm alanları doldurunuz..."; Default Button: “Tamam”, Commit: “Yes” ]
Exit Script [ ]
End If
#Ben tabloda 2 farklı hesap adı kullandım ( Satıcılar ve Alıcılar ) ve sadece satıcılara parola değiştirme olanağı sağlayacağım için " Length " i kullandım ( Satıcılar ın hesap adı 6 karakterden oluşuyor )
If [ Length ( $$KP_HESAP_ADI ) = 6 ]
#Sorguları yaptıracağımız Layout a gidiyoruz ( Benimki CARİ FİRMA )
Go to Layout [ “CARİ FİRMA” (CARİ FİRMA) ]
#Set ettiğimiz bilgileri sorgulatıyoruz.
Perform Find [ Specified Find Requests: Find Records; Criteria: CARİ FİRMA::Hesap Adı: “$$KP_HESAP_ADI” AND CARİ FİRMA::
E-Posta Adresi: “"$$KP_EPOSTA"” AND CARİ FİRMA::Telefon: “$$KP_TELEFON” AND CARİ FİRMA::Guvenlik Kodu: “$
$KP_GUVENLIK_KODU” ]
[ Restore ]
#Sonuç var ise...
If [ Get ( FoundCount ) = 1 ]
#Burada CARİ FİRMA daki Yetkli Kişi alanını set etmemdeki amaç sonuç mesajında Sayın, Yetkli Kişi çıksın diye başka bir amacı yok.
Set Variable [ $$KP_HESAP_YETKILI; Value:CARİ FİRMA::Yetkli Kişi ]
#Burada mesaj gönderme işlemini gerçekleştiriyoruz.
Perform Script [ “SendMail | SatıciFirmaParolaSifirlama” ]
# Başlangıç layout u na geri dönüyoruz
Go to Layout [ original layout ]
#Sonuç mesajı (Resim2)
Show Custom Dialog [ Title: "Bigi"; Message: "Hesap bilgileriniz doğrulandı.¶" & "Sayın, " & $$KP_HESAP_YETKILI &
"¶Parolanız sistemde kayıtlı olan e-posta adresinize gönderilmiştir."; Default Button: “Tamam”, Commit: “Yes” ]
#Girilen bilgiler CARİ FİRMA daki bilgiler ile eşleşmiyor ise...
Else
Go to Layout [ original layout ]
Show Custom Dialog [ Title: "Bigi"; Message: "Hesap doğrulanamadı"; Default Button: “Tamam”, Commit: “Yes” ]
Exit Script [ ]
End If
End If
Betiğimiz bitti
Ayrıca en önemli konu; [Guest] Kullanıcısını akttive ediyoruz. (Resim3)
Resim1
Resim2
Resim3
Değerli Hocalarımız; Düşünceleriniz benim için çok önemli. Hatta bir çoğumuz için de önemli. Görüş, düşünce, eleştiri, yorum...; Artık her ne olursa bekliyorum.
Saygılarımla.
