herkez faydalansın diye konu yapıyorum.
Evet başlayalım:
Addins/görsel veri/visdata/file/new/access/
version7/ sırasıyla tıklayıp logindata.mdb adında vt yi masaüstüne kaydet.
orda ki properties sağ tıkla new table/ Tablo Adı :thtlogin sonra
addfield/name "ad" okey sonra
"sifre" okey. close yi tıkla, built table yi tıkla.
yeşil tuştan begin transaction a bas. sonra sağdan propertiesin altında oluşan
thtlogin çift tıkla ad yazana "tht",sifreye "tht" yaz.
add(ekle) butonuna tıkla
update de
.pencereyi küçült aşağı indir.2 tane form ekle
adı form1 ve form2 olsun. Şimdi form1 e yani
loginformuna toolboxtan(buton,text falan varya işte ordan DATA nesnesini ekle hemen sağdan propertiesten(data nesnesi seçiliyken) database name ye masa üstüne kaydettiğimiz
logindata.mdb yi seç..
Form 1 e;
2 adet label, 2 adet TextBox ve 2 adet
CommandButton yap..
Form2 formu : Bu form da asıl uygulamanın formu..
Visual Basic te Project-Project1 Properties menüsüne tıklayarak Proje ayarlar kısmınından Startup Object yazısı altında combo boxtan ismi form1 olanı seç.Yani form1 başlangıç formumuz olsun.
şimdi login formuna yani form 1 e çift tkla kodlarına bunu yapıştır
----------------------------------------------------
Dim db As Database-------- 'db adında bir veritabanı olduğunu bildirir
Dim tb As Recordset-------- 'tb adında bir tablo olduğunu bildirir
----------------------------------------------------
eklediğin command butona çift tıkla kodlarada bunu yapıştır;
----------------------------------------------------
On Error Resume Next---------- 'hata olsa bile devam et bir sonraki aşamadan
dosyaname = App.Path & "logindata.mdb" Set db = OpenDatabase(dosyaname)
'dosyamızın yolunu adıyla bildirip db bildiriminin açılacak veritabanına ait olduğunu bildiriyoruz.
Set tb = db.OpenRecordset("sifre") -'tb bildirimi kayıtlardan sifre alanına eşitliyoruz
tb.Index = "ad" ---------'tablomuzda giriş olarak ad alanını kontrol et diyoruz
tb.Seek "=", Text1.Text ------'tabloya bak ve text1 de ki isim ad ile aynımı?
If tb.NoMatch Then -------'eğer tablo ile eş değilse
MsgBox "veritabanı bulunamadı..!" Exit Sub ------'uyarı ve çıkış
Else ------'değilse(yani doğruysa)
If Text2.Text = tb.Fields("sifre") Then -'tablomuzda giriş olarak sifre alanını kontrol et
Unload Me ----'ooooo doğru o zaman ben kaçayım:mmlform 1 arkada kalır
MsgBox "Ooooo kimleri görüyorum!" --------'mesaj hoşgeldin şifren doğru
Form2.Show Else --------'asıl formu göster şifre yanlışsa;
MsgBox "yanlış...!" -------'yanlış!
End If --------'eğer döngüsünü bitir
End If --------'eğer döngüsünü bitir
-------------------------------------------------------
command 2 de hakkında gibi bir şey butona çift tıkla;
-------------------------------------------------------
msgbox"teşekkürler kes-mezar"
End
-------------------------------------------------------
---- bunları silin 'yorumlar kalabilir.
Sonra derlenen exe nerdeyse .mdb nde yanında
olmalıdır.databaseyede herhangi bir kelimeyi önce md4,md5,sha serisiyle kripto edin.veritabanınıda accessten şifreleyin.
Son düzenleme: