Çok oldum ama prosedürde ki hatam ne ?

[conari]

Yes komutunda İşlemi yapıp uygulamamı tray a atıyorum fakat, No komutunda
işlemleri yapmıyor(ok) ve tray a atmadan(atmamalı ok) uygulamayı
gizliyor..(yanlış)

hatam nerde arkadaşlar sıyırıyorum..

Kod: Tümünü seç

procedure TSform.BOnaylaClick(Sender: TObject);
  begin
    UPQuery.SQL.Text:='update sipamas set tipi=2 ';
       if MessageDlg('Tüm Siparişler Onaylanacak?', mtConfirmation,[mbYes, 
mbNo], 0) =
            mrYes then
        begin
           ProgressBar1.Visible:=true;
           UPQuery.ExecSQL;
           OYQuery.Active:=FALSE;
           OYQuery.Active:=TRUE;
           TopsipQuery.Active:=FALSE;
           TopsipQuery.Active:=true;
           TopSipaadQuery.Active:=False;
           TopSipaadQuery.Active:=true;
           ProgressBar1.Position:=100;
           ShowMessage('Tüm Siparişler Onaylandı..Uygulama Gizlenecek!!!');
           ProgressBar1.Position:=0;
           ProgressBar1.Visible:=false;
        Bgizle.Click
   end
      else
        ShowMessage('Onaylama İşlemi iptal edildi..') ;
end; 

[nitro]

elseden sonraki kısmı da begin end içine al dene bence

[conari]

o şekilde de yapmıştım ama olmamıştı.

Tekrar denedim yine olmadı

[aslangeri]

s.a.
iyide bu kodlarda bişey yok.
traya gitmesinin sebebi başka birşey olmalı.
bu procedureyi nerden çağırıyorsun nasıl bir yol izlemişsin
onları bilmek lazım.
bide düğmenin modalresult u ne
kolay gelsin.

[conari]

Merhaba Düğmenin Modal result u mrAll bitbuton kullandım.Ama buton ile ne alakası var diye de soracagım..

Başka komutlarım var uygulama da ama hepsine step koydum..
Butona basıp soruya No dedigimde başka bir prosedürün içine de girmiyor.

[aslangeri]

düğmenin modal resultunu set ettiğin zaman klik işlemine yazılan kodu işledikten sonra formu kapatır.
modal resulktu mrnone yap
bide kind vardı sanırım.
kolay gelsin.

[conari]

Aslangeri

Saygı ve hürmetler..

Kafayı yemiştim..Artık tüm systtray a gizleme ile ilgili comp. buton kod v.s. hepsini kaldırıp tekrar koyacaktım..

Eyvallaah..

[aslangeri]

eyvallah.