Delphi 7 Tablodan Veri Çekme

[kaan_karabey]

Arkadaşlar Ben Şöyle Bir Kodlama Yaptım.Ama Kodda Sorun Var Sadece Yeni Kullanıcı Eklendiği Zaman Çalışıyor.Programı Kapatıp Tekrar Açtığımda Var Olan Kullanıcıların Üzerinden İşlem Yapmaya Çalıştığımda ShowMessage Veriyor.

Kodlar:

Kod: Tümünü seç

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters,
  Menus, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
  dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
  dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
  dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinPumpkin, dxSkinSeven,
  dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
  dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
  dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, cxButtons;

type
  TForm5 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    cxButton1: TcxButton;
    procedure cxButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm5.cxButton1Click(Sender: TObject);
var 
ara:variant;
mesaj:integer;
begin
ara:=Form3.Table1.Lookup('kullaniciadi',Edit1.Text,'kullaniciadi;sifre');
if VarIsNull(ara) Then //Eğer boş sa
ShowMessage('ADMIN Kullanıcının Şifresi Bilinemez veya Kayıt Bulunamadı')
else
if Form3.Table1KullaniciAdi.AsString='ADMIN' Then
begin
ShowMessage('ADMIN Kullanıcının Şifresi Bilinemez veya Kayıt Bulunamadı')
end
ELSE
ShowMessage('Kullanıcı Adı :   '+ara[0]+#13#10+'Parola :  '+ara[1]);
Edit1.Text:='';
Edit1.SetFocus;
end;

end.

[kaan_karabey]

Yardım Edebilecek Kimse Yok mu????

[Lord_Ares]

tam olarak ne yapmaya çalıştığını açıklarsan yardımcı olmaya çalışılacaktır. Sanırım girilen kaydın daha önce varmı yokmu diye sorgulayıp varsa olanı göstermesini istiyorsun.
1) lookup değilde locate kullanmanı tavsiye ediyorum.
2) kod bloğuna baktığımda if else yapısını ve mantığını yanlış kullandığını görüyorum. Sanırım temel sorunda bu
Ara değişkeninin boş olup olmadığına , admine eşit olup olmadığına bakmışsın. Eksik olan farklıysa kısmı yok, yani boş değil ve admin değilse ne yapacağını yazmamışsın