Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: kullanıcı girişi nasıl yapılabilir.  (Okunma sayısı 1488 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı nane

  • Delphi 1 Level 1
  • *
  • İleti: 1
  • Rep: +0/-0
kullanıcı girişi nasıl yapılabilir.
« : 09 Kasım 2010 15:38:52 »
arkadaşlar benim bu forumda ilk mesajım. ben bir program yapıyorum bunun kullanıcı girişi kısmında bi hata oldu ama neden bu oldu anlayamadım.

procedure TForm1.Button1Click(Sender: TObject);
 var
sifre:integer;
ad:string;
begin
Edit1.text:=ad;
Edit2.Text:=sifre;
if ad='mehmet'  then
  ShowMessage('mehmet')
  else
  begin
    close;
  end;
end;
end.


dedim ama edit1 e mehmet girsemde forum kapanıyor. çok basıt bir mantık kullandım.

eger daha güzel bi kontrol varsa beni bilgilendirseniz sevinirim.
Kayıtlı

Çevrimdışı hayati

  • Administrator
  • *****
  • İleti: 860
  • Rep: +19/-3
  • Cinsiyet: Bay
Ynt: kullanıcı girişi nasıl yapılabilir.
« Yanıtla #1 : 09 Kasım 2010 16:20:43 »
Zamanında Selçuk kardeşim bu konu ile ilgili çok güzel bir görsel ders hazırlamıştı.
http://www.delphidunyasi.net/bile351en/usercontrol-(kullanici-kontrol-paketi)/msg17751/#msg17751

Linki yeniledim
http://rapidshare.com/files/429778447/usercontrol.rar
Kayıtlı
Olsa dahi tenimin kıl biten her yeri bir dil, güçsüzüm şükretmeye,şükrüm binde bir bile değil (İ.R.)

Çevrimdışı redcoder

  • Delphi 7 Level 4
  • ****
  • İleti: 338
  • Rep: +2/-0
  • Coder
Ynt: kullanıcı girişi nasıl yapılabilir.
« Yanıtla #2 : 09 Kasım 2010 17:54:14 »
procedure TForm1.Button1Click(Sender: TObject);
 var
sifre:integer;
ad:string;
begin
ad:='mehmet';
if ad = edit1.text  then
begin
  ShowMessage('mehmet')
end
  else
  begin
    close;
  end;
end;
end.

Değişken atamalarında hata yapmışssın Bu şekilde yaparsan veya hocamın verdiği örnekleri incelersen işin içinden çıkarsın.
Kayıtlı
Application.MessageBox('Zor yapılabilir?','Imkansız sadece zaman alır',0+32+0);

Çevrimdışı hayati

  • Administrator
  • *****
  • İleti: 860
  • Rep: +19/-3
  • Cinsiyet: Bay
Ynt: kullanıcı girişi nasıl yapılabilir.
« Yanıtla #3 : 09 Kasım 2010 17:55:23 »
Son cümleni dikkate alarak yardımcı olmak istemiştim ama kodlarına bakınca bazı aksaklıklar fark ettim
Şunu dene
Kod: [Seç]
var
sifre:integer;
ad:string;
begin
ad:='mehmet';
//Edit1.text:=ad;
//Edit2.Text:=inttostr(sifre);
if edit1.Text=ad  then
  ShowMessage(ad)
  else
  begin
    close;
  end;
end;
Kayıtlı
Olsa dahi tenimin kıl biten her yeri bir dil, güçsüzüm şükretmeye,şükrüm binde bir bile değil (İ.R.)

Çevrimdışı hayati

  • Administrator
  • *****
  • İleti: 860
  • Rep: +19/-3
  • Cinsiyet: Bay
Ynt: kullanıcı girişi nasıl yapılabilir.
« Yanıtla #4 : 09 Kasım 2010 17:56:13 »
Aynı anda post etmişiz, kalbimiz birmiş:)
Kayıtlı
Olsa dahi tenimin kıl biten her yeri bir dil, güçsüzüm şükretmeye,şükrüm binde bir bile değil (İ.R.)

Çevrimdışı wakawaka10

  • Delphi 1 Level 1
  • *
  • İleti: 5
  • Rep: +0/-0
Ynt: kullanıcı girişi nasıl yapılabilir.
« Yanıtla #5 : 07 Mayıs 2011 22:08:30 »
C# ta kullanıcı giris proceduru

create proc sp_LoginKontrol

(
@Kadi nvarchar(50),//formda girdigimiz kullanıcı adı
@Parola nvarchar(50),// formda girdigimiz parola
@Sonuc bit output// geriye 1 veya 0 deger dondurucek Sonuc.
)
if exists(Select * from Tbl_Kullanıcı where Kullanıcı_Adı=@Kadi and Parola=@Parola)
Begin
@Sonuc=1
end
else
begin
@Sonuc=0
end
return @Sonuc // geriye deger donduruyo
Kayıtlı

Çevrimdışı mcuyan

  • Delphi 1 Level 1
  • *
  • İleti: 1
  • Rep: +0/-0
Ynt: kullanıcı girişi nasıl yapılabilir.
« Yanıtla #6 : 22 Eylül 2011 14:56:27 »
ad:=edit1.text;
... olacak sen ters yazmışsı..
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »