giriş sayfasında problem

[true_false]

mer habalar programın user connect formu var kullanıcı adı ve şifre giriş ekranı tamam ve vazgeç butonları var v.s ....
sorum şudur kullanıcı adı ve şifre doğru girildiğinde program amacına uygun çalışıyo

Kod: Tümünü seç

procedure TfrmUserConnect.cxButton1Click(Sender: TObject);
begin
  if Dm.cdsUsers.Locate('USER_ID',edtUserName.EditValue,[]) then
  if Dm.cdsUsers.FieldValues['PASSWORD'] = edtPassword.Text then
  begin

    Dm.fSenderId := edtUserName.EditValue;
    user_login := edtUserName.EditText;
    flogin:=true;
    cxDBProgressBar1.Show;

    with Dm.cdsUsers do
    begin

       Filtered := False;
       FilterOptions := [foCaseInsensitive];
       Filter := 'USER_ID <> '+IntToStr(Dm.fSenderId);
       Filtered := True;
       First;
  end;
    Dm.RefreshDatas;
//    if Assigned(mesaj) then mesaj.Show;
    Self.Close;
  end
  else Exit;


end;

fakat vazgeç denildiği zaman bana

..exe raised exception class Edatabase eror with message 'cds_todo' cannot perform this operation on closed database

vazgeç butonunun clickine yazdığım kod ise şudur.

Kod: Tümünü seç

begin
flogin:=False;
If flogin=false then
   close;
end;

bi çok denemeler yaptım ama olmadı mesela tablolarımı kapattım sadece close dedim falan ama olmadı gene bu hatayı veriyo
Not: şimdiden vermiş olduğunuz güzel cevaplar için teşekkür ederim

[feinpus]

Yukarıda ki procedure çalışmadan önce database i açıyor musun?

[true_false]

bu form avaible form main formun onshowunda şu kod var

Kod: Tümünü seç

  str_isim:=frmUserConnect.user_login;
         FRM_MAIN.Caption := str_isim +'  olarak bağlandınız';
         if not frmUserConnect.flogin then
         self.Close;
         Notebook1.ActivePage :='default';
......
....
.....
....

[feinpus]

Dm.cdsUsers tablosunu programın en başında active etmen gerekiyor.

Bu tablo senin şifre karşılaştırma kodlarından önce açık durumda mı?

Eğer öyleyse şifreyi doğru girdiğinde bir hata veriyor mu ?

Eğer tablon açık ve hata vermiyorsa şifre onaylama kodlarının bulunduğu yere break point koyarak bir debug et ve şifreyi doğru girdiğinde bu kodlar çalışıyormu?

Çalışmıyorsa karşılaştırma kodlarında hata var demektir.

[true_false]

hocam ilgilendiğin için saol ama heralde ben sana anlatamadım derdimi
kullanıcı adında ve şifre girişinde hata yok yani tam olarak kullanıcı adı ve şifre doğru girildiğin de bi sorun yok programa giriyo benim sorunum mesela programı açtık userogin formunda vazgeç deyip çıkıcaz yani programa girmicez bunu yaptığım zaman bu hatayı veriyo vazgeç deyip formu kapattığım zaman bu hatayı veriyo umarım anlaşmışızdır emeklerin için saol

[gkimirti]

buton click yordamında ilk satıra breakpoint koyup butona basın
sonra adım adım devam edin
tam olarak nerede hata verdigini grebilirsiniz.

[true_false]

Kod: Tümünü seç

begin
flogin:=false
self.close

bu satırların sonuna kadar işliyo fakat end 'den çıktıktan sonra bana bu hatayı veriyo

exe raised exception class Edatabase eror with message 'cds_todo' cannot perform this operation on closed database

dediğim gibi kullanıcı adı ve şifre doğru girildiğinde problem yok ama sadece vazgeç dediğim zaman yani programa girmek istemediğim zaman bu hatayı alıyorum..

[gkimirti]

self.close uzerine gelince F7 ile devam et

[true_false]

gkirmiti hocam:
kullandığım compenentlerinin unitlerinde dolaşıp duruyorum en sonundada hata alıyorum. anlamıyorum ya daha önceki projelerimde de bu şekilde bir vazgeç butonu kullanmıştım ama şimdi bana bu hatayı verip duruyo.