Toplama göre bilgi ve kayıt işlemi

denizfatihi · Mesaj gönderen **denizfatihi** » 21 Oca 2015 02:21

Merhaba,

Edit10 değerine göre önce bilgi vermesi devam edilmesi durumda kayıt işlemi.
edit10 <= 0 ise İzin hakkı bulunmamaktadır şeklinde mesaj son devam edilmesi durumunda kayıt
edit10 >= 0 ise Kaydetmek İstiyor musunuz şeklinde mesaj sonra kayıt

Kod: Tümünü seç

if (Strtointdef(edit10.Text,0 ) <= 0) then
begin
deg1:=Application.MessageBox('İzin hakkı bulunmamaktadır !!!,' + #13 + 'Devam etmek istiyor musunuz?','Bilgi Mesajıdır',MB_YesNO);
  if deg=mrYes Then
  begin
     application.MessageBox('İşlem İptal Edildi...',
                           'Bilgi Mesajı',mb_ok+mb_iconinformation);
  end
  else

if (Strtointdef(edit10.Text,0 ) >= 0) then
begin
Showmessage(edit1.text+' Günlük İzin Kullanımı,' + #13 + 'İşbaşı Tarihi: '+maskedit1.Text);
deg:=Application.MessageBox('Kaydetmek İstiyor musunuz?','Bilgi Mesajı',MB_YesNO);
 if deg=mrYes Then
 begin
 with DataModule2.Tb_izin_kay do
 begin
 DataModule2.Tb_izin_kay.Insert;
 DataModule2.Tb_izin_kay.FieldByName('SICIL').AsString := edit2.Text;
 DataModule2.Tb_izin_kay.FieldByName('BASTARIHI').AsString := datetostr(DateTimePicker1.Date);
 DataModule2.Tb_izin_kay.FieldByName('BITTARIHI').AsString := datetostr(DateTimePicker2.Date);
 DataModule2.Tb_izin_kay.FieldByName('ISBASITAR').AsString := datetostr(DateTimePicker2.Date+1);
 DataModule2.Tb_izin_kay.FieldByName('GUN').AsString := edit1.Text;
 DataModule2.Tb_izin_kay.FieldByName('HT').AsString := edit3.Text;
 DataModule2.Tb_izin_kay.FieldByName('RT').AsString := edit7.Text;
 DataModule2.Tb_izin_kay.FieldByName('IZIN').AsString := edit5.Text;
 DataModule2.Tb_izin_kay.FieldByName('ISEGIRIS').AsString := edit9.Text;
 DataModule2.Tb_izin_kay.post;// ExecSQL;
 application.MessageBox('İşlem Kaydedildi...',
                          'Bilgi Mesajı',mb_ok+mb_iconinformation);
  end
  end
  else
    application.MessageBox('İşlem İptal Edildi...',
                           'Bilgi Mesajı',mb_ok+mb_iconinformation);
end;
end;
end;
end;

Senat0r · Mesaj gönderen **Senat0r** » 22 Oca 2015 08:45

Peki edit10 değeri 0 olursa ne yapacak ?

denizfatihi · Mesaj gönderen **denizfatihi** » 22 Oca 2015 08:50

Günaydın,

evet şimdi farkettim aşağıdaki gibi olacak

değer sıfır ise İzin hakkı bulunmamaktadır şeklinde mesaj son devam edilmesi durumunda kayıt
değer sıfırdan büyük ise Kaydetmek İstiyor musunuz şeklinde mesaj sonra kayıt

edit10 <= 0 ise İzin hakkı bulunmamaktadır şeklinde mesaj son devam edilmesi durumunda kayıt
edit10 > 0 ise Kaydetmek İstiyor musunuz şeklinde mesaj sonra kayıt

denizfatihi · Mesaj gönderen **denizfatihi** » 25 Oca 2015 01:36

s.a.

Yardımcı olabilecek kimse yok mu ?

speed60 · Mesaj gönderen **speed60** » 26 Oca 2015 12:54

Kod: Tümünü seç

if (Strtointdef(edit10.Text,0 ) <= 0) then
begin
deg1:=Application.MessageBox('İzin hakkı bulunmamaktadır !!!,' + #13 + 'Devam etmek istiyor musunuz?','Bilgi Mesajıdır',MB_YesNO);
  if deg1=mrYes Then
begin
     application.MessageBox('İşlem İptal Edildi...',
                           'Bilgi Mesajı',mb_ok+mb_iconinformation);
end
else
begin

end;

end
else
begin
Showmessage(edit1.text+' Günlük İzin Kullanımı,' + #13 + 'İşbaşı Tarihi: '+maskedit1.Text);
deg1:=Application.MessageBox('Kaydetmek İstiyor musunuz?','Bilgi Mesajı',MB_YesNO);
 if deg1=mrYes Then
 begin
      with DataModule2.Tb_izin_kay do
      begin
        DataModule2.Tb_izin_kay.Insert;
        DataModule2.Tb_izin_kay.FieldByName('SICIL').AsString := edit2.Text;
        DataModule2.Tb_izin_kay.FieldByName('BASTARIHI').AsString := datetostr(DateTimePicker1.Date);
        DataModule2.Tb_izin_kay.FieldByName('BITTARIHI').AsString := datetostr(DateTimePicker2.Date);
        DataModule2.Tb_izin_kay.FieldByName('ISBASITAR').AsString := datetostr(DateTimePicker2.Date+1);
        DataModule2.Tb_izin_kay.FieldByName('GUN').AsString := edit1.Text;
        DataModule2.Tb_izin_kay.FieldByName('HT').AsString := edit3.Text;
        DataModule2.Tb_izin_kay.FieldByName('RT').AsString := edit7.Text;
        DataModule2.Tb_izin_kay.FieldByName('IZIN').AsString := edit5.Text;
        DataModule2.Tb_izin_kay.FieldByName('ISEGIRIS').AsString := edit9.Text;
        DataModule2.Tb_izin_kay.post;// ExecSQL;
        application.MessageBox('İşlem Kaydedildi...',
                          'Bilgi Mesajı',mb_ok+mb_iconinformation);
      end;
 end
 else
 begin
    application.MessageBox('İşlem İptal Edildi...',
                           'Bilgi Mesajı',mb_ok+mb_iconinformation);
 end; 
end;

denizfatihi · Mesaj gönderen **denizfatihi** » 26 Oca 2015 06:36

2.seçenekte izin hakkı olduğu zaman sorun yok ama 1.seçenekte izin hakkı yok devam etmek istiyor musun ? evet deyince işlemi iptal ediyor burada gün sayısını gösterip kaydetmek istiyorum yapıp kaydetmesini nasıl sağlarız ?

speed60 · Mesaj gönderen **speed60** » 26 Oca 2015 10:45

1.seçenekte izin hakkı yok devam etmek istiyor musun ? evet deyince işlemi iptal ediyor burada gün sayısını gösterip kaydetmek istiyorum yapıp kaydetmesini nasıl sağlarız ?

demişsin izin hakkı yoksa tabiki proğram bişey yapmıyacak izin hakkı olmayan insanın gün sayısı olurmu.

denizfatihi · Mesaj gönderen **denizfatihi** » 26 Oca 2015 10:51

bakışta haklısın ama 2 adet datetimepicker arasındaki fark aslında edit10 yansıyan gün farkı izin hakkı yoksa devam edilmesi durumunda bu farkı değer olarak alacak. Yani edit10 kısmı...

speed60 · Mesaj gönderen **speed60** » 26 Oca 2015 11:10

Kod: Tümünü seç

if (Strtointdef(edit10.Text,0 ) <= 0) then
begin
deg1:=Application.MessageBox('İzin hakkı bulunmamaktadır !!!,' + #13 + 'Devam etmek istiyor musunuz?','Bilgi Mesajıdır',MB_YesNO);
  if deg1=mrYes Then
begin
      with DataModule2.Tb_izin_kay do (Dikkat bu bölümde kayıt işlemini yapacaksınız.aşağıdaki bölümü kendine göre dizayn et)
      begin
        DataModule2.Tb_izin_kay.Insert;
        DataModule2.Tb_izin_kay.FieldByName('SICIL').AsString := edit2.Text;
        DataModule2.Tb_izin_kay.FieldByName('BASTARIHI').AsString := datetostr(DateTimePicker1.Date);
        DataModule2.Tb_izin_kay.FieldByName('BITTARIHI').AsString := datetostr(DateTimePicker2.Date);
        DataModule2.Tb_izin_kay.FieldByName('ISBASITAR').AsString := datetostr(DateTimePicker2.Date+1);
        DataModule2.Tb_izin_kay.FieldByName('GUN').AsString := edit1.Text;
        DataModule2.Tb_izin_kay.FieldByName('HT').AsString := edit3.Text;
        DataModule2.Tb_izin_kay.FieldByName('RT').AsString := edit7.Text;
        DataModule2.Tb_izin_kay.FieldByName('IZIN').AsString := edit5.Text; 
        DataModule2.Tb_izin_kay.FieldByName('ISEGIRIS').AsString := edit9.Text;
        DataModule2.Tb_izin_kay.post;// ExecSQL;
        application.MessageBox('İşlem Kaydedildi...',
                          'Bilgi Mesajı',mb_ok+mb_iconinformation);
      end;
 end
 else
 begin
    application.MessageBox('İşlem İptal Edildi...',
                           'Bilgi Mesajı',mb_ok+mb_iconinformation);
 end; 

end
else
begin

end;

end
else
begin
Showmessage(edit1.text+' Günlük İzin Kullanımı,' + #13 + 'İşbaşı Tarihi: '+maskedit1.Text);
deg1:=Application.MessageBox('Kaydetmek İstiyor musunuz?','Bilgi Mesajı',MB_YesNO);
 if deg1=mrYes Then
 begin
      with DataModule2.Tb_izin_kay do
      begin
        DataModule2.Tb_izin_kay.Insert;
        DataModule2.Tb_izin_kay.FieldByName('SICIL').AsString := edit2.Text;
        DataModule2.Tb_izin_kay.FieldByName('BASTARIHI').AsString := datetostr(DateTimePicker1.Date);
        DataModule2.Tb_izin_kay.FieldByName('BITTARIHI').AsString := datetostr(DateTimePicker2.Date);
        DataModule2.Tb_izin_kay.FieldByName('ISBASITAR').AsString := datetostr(DateTimePicker2.Date+1);
        DataModule2.Tb_izin_kay.FieldByName('GUN').AsString := edit1.Text;
        DataModule2.Tb_izin_kay.FieldByName('HT').AsString := edit3.Text;
        DataModule2.Tb_izin_kay.FieldByName('RT').AsString := edit7.Text;
        DataModule2.Tb_izin_kay.FieldByName('IZIN').AsString := edit5.Text;
        DataModule2.Tb_izin_kay.FieldByName('ISEGIRIS').AsString := edit9.Text;
        DataModule2.Tb_izin_kay.post;// ExecSQL;
        application.MessageBox('İşlem Kaydedildi...',
                          'Bilgi Mesajı',mb_ok+mb_iconinformation);
      end;
 end
 else
 begin
    application.MessageBox('İşlem İptal Edildi...',
                           'Bilgi Mesajı',mb_ok+mb_iconinformation);
 end; 
end;

denizfatihi · Mesaj gönderen **denizfatihi** » 26 Oca 2015 11:12

Arkadaşım Allah razı olsun şuan deneme imkanım yok ama yarın sabah dener denemez sonucu yazacağım.

denizfatihi · Mesaj gönderen **denizfatihi** » 28 Oca 2015 03:58

Aşağıdaki şekilde tam istediğim gibi oldu, tekrardan teşekkür ederim.

Kod: Tümünü seç

if (Strtointdef(edit10.Text,0 ) <= 0) then
    begin
    deg1:=Application.MessageBox('İzin hakkı bulunmamaktadır !!!,' + #13 + 'Devam etmek istiyor musunuz?','Bilgi Mesajıdır',MB_YesNO);
    Showmessage(edit1.text+' Günlük İzin Kullanımı,' + #13 + 'İşbaşı Tarihi: '+maskedit1.Text);
      if deg1=mrYes Then
    begin
    deg2:=Application.MessageBox('Kaydetmek İstiyor musunuz?','Bilgi Mesajı',MB_YesNO);
    begin
          with DataModule2.Tb_izin_kay do
          begin
            DataModule2.Tb_izin_kay.Insert;
            DataModule2.Tb_izin_kay.FieldByName('SICIL').AsString := edit2.Text;
            DataModule2.Tb_izin_kay.FieldByName('BASTARIHI').AsString := datetostr(DateTimePicker1.Date);
            DataModule2.Tb_izin_kay.FieldByName('BITTARIHI').AsString := datetostr(DateTimePicker2.Date);
            DataModule2.Tb_izin_kay.FieldByName('ISBASITAR').AsString := datetostr(DateTimePicker2.Date+1);
            DataModule2.Tb_izin_kay.FieldByName('GUN').AsString := edit1.Text;
            DataModule2.Tb_izin_kay.FieldByName('HT').AsString := edit3.Text;
            DataModule2.Tb_izin_kay.FieldByName('RT').AsString := edit7.Text;
            DataModule2.Tb_izin_kay.FieldByName('IZIN').AsString := edit5.Text;
            DataModule2.Tb_izin_kay.FieldByName('ISEGIRIS').AsString := edit9.Text;
            DataModule2.Tb_izin_kay.post;// ExecSQL;
            application.MessageBox('İşlem Kaydedildi...',
                              'Bilgi Mesajı',mb_ok+mb_iconinformation);                               
          end;
          end;
     end
     else
     begin
        application.MessageBox('İşlem İptal Edildi...',
                               'Bilgi Mesajı',mb_ok+mb_iconinformation);
    // end
     end;
    end
    else
    begin
    end;
    end;

   // end
   // else
   if (Strtointdef(edit10.Text,0 ) > 0) then
    begin
    Showmessage(edit1.text+' Günlük İzin Kullanımı,' + #13 + 'İşbaşı Tarihi: '+maskedit1.Text);
    deg1:=Application.MessageBox('Kaydetmek İstiyor musunuz?','Bilgi Mesajı',MB_YesNO);
     if deg1=mrYes Then
     begin
          with DataModule2.Tb_izin_kay do
          begin
            DataModule2.Tb_izin_kay.Insert;
            DataModule2.Tb_izin_kay.FieldByName('SICIL').AsString := edit2.Text;
            DataModule2.Tb_izin_kay.FieldByName('BASTARIHI').AsString := datetostr(DateTimePicker1.Date);
            DataModule2.Tb_izin_kay.FieldByName('BITTARIHI').AsString := datetostr(DateTimePicker2.Date);
            DataModule2.Tb_izin_kay.FieldByName('ISBASITAR').AsString := datetostr(DateTimePicker2.Date+1);
            DataModule2.Tb_izin_kay.FieldByName('GUN').AsString := edit1.Text;
            DataModule2.Tb_izin_kay.FieldByName('HT').AsString := edit3.Text;
            DataModule2.Tb_izin_kay.FieldByName('RT').AsString := edit7.Text;
            DataModule2.Tb_izin_kay.FieldByName('IZIN').AsString := edit5.Text;
            DataModule2.Tb_izin_kay.FieldByName('ISEGIRIS').AsString := edit9.Text;
            DataModule2.Tb_izin_kay.post;// ExecSQL;
            application.MessageBox('İşlem Kaydedildi...',
                              'Bilgi Mesajı',mb_ok+mb_iconinformation);
          end;
     end
     else
     begin
        application.MessageBox('İşlem İptal Edildi...',
                               'Bilgi Mesajı',mb_ok+mb_iconinformation);
     end;
    end;
    end;
    end;

Delphi Forum

Toplama göre bilgi ve kayıt işlemi

Toplama göre bilgi ve kayıt işlemi

Re: Toplama göre bilgi ve kayıt işlemi

Re: Toplama göre bilgi ve kayıt işlemi

Re: Toplama göre bilgi ve kayıt işlemi

Re: Toplama göre bilgi ve kayıt işlemi

Re: Toplama göre bilgi ve kayıt işlemi

Re: Toplama göre bilgi ve kayıt işlemi

Re: Toplama göre bilgi ve kayıt işlemi

Re: Toplama göre bilgi ve kayıt işlemi

Re: Toplama göre bilgi ve kayıt işlemi

Re: Toplama göre bilgi ve kayıt işlemi