kullanıcı giriş ekranı
Senaryo
Proje çalıştığı zaman ilk karşımıza gelen ekran kullanıcı girişidir. Ana menü formuna girilmesi için bu formda kullanıcı adı ve şifre textlerine doğru veriler girilmelidir. Bu girişler kullanıcı ekle formundan yapılır. Kullanıcı adı ve şifre textleri formun üzerinde bulunan “ADOConnection”, “ADOTable”, “DataSource” ve “ADOQuery” bileşenleri SQL sorgusunu çalıştırır.Select * from kullanicilar WHERE kullaniciadi = ”’ trim(Edit1.Text) ”’ and sifre=”’ trim(Edit2.Text) ”’ sorgusu; Edit1.Text ve Edit2.Text alanları formdan girildiğinde kullanıcılar tablosunda böyle bir kayıt olup olmadığına bakar. Eğer böyle bir kayıt varsa ve kullanıcı adı ve şifre birbiriyle uyuşuyorsa anamenu formuna giriş sağlanır. Eğer kayıt yoksa tekrar kullanıcı adı ve şifre girilmesi istenir.Teknik Senaryo
Edit1 ve Edit2 textlerine yazılan değerler “AdoQuery1” bileşeni sayesinde sorgusunu çalıştırarak veritabanında tarama yapar. AdoConnection1’in “ConnectionString” bağlantısıyla SQL Server bağlantısı seçilip link açılır.Oluşturulan bağlantıda “DataSource” seçildiğinde “AdoTable” oluşturulmuş olur. Böylece “AdoQuery” sorgularını çalıştırabilir duruma gelmiş olur. Edit1 ve Edit2’ye yazılı string yapıları sorgu tarafından değerlendirilmeye alınarak gereklı sutun ısımlerınde aranır. Varsa if sorgusu true calısır; eğer kayıt bulunamazsa if sorgusu false çalışır.Eklenilecek Kodlar
Tamam tuşu:
beginADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(‘select * from kullanicilar WHERE kullaniciadi = ”’ trim(Edit1.Text) ”’ and sifre=”’ trim(Edit2.Text) ””);ADOQuery1.Open;if ADOQuery1.RecordCount>0 thenbeginedit1.text:=”;edit2.text:=”;edit1.SetFocus;AnaMenu.Show;close;endelsebeginApplication.MessageBox(‘Kullanıcı Adı yada Şifre Yanlış….’,’UYARI’,MB_OK);edit1.text:=”;edit2.text:=”;Edit1.SetFocus;exit;end;end;Buarada Şifrenin girildiği textbox da karakterlerin gizlenmesi için object inspector’ ın Properties kısmından PasswordChar özelliğine * koymanız yeterli olacaktır.
