Sorgulama !!!

[ozcank]

Bu şekilde değiştirdim ama aynı hata alıyorum ;

[Error] ISILGIRIS2.pas(357): Statement expected, but expression of type 'Integer' found

procedure TForm5.Button2Click(Sender: TObject);
begin
if DBEdit1.Text<>'' then
begin
if DBEdit30.Text<>'' then
begin
//Table1BFIYAT.AsString:=Cedit1.Text;
//Table1ADET.AsString:=Cedit2.Text;
//Table1TOPTUTAR.AsString:=Cedit3.Text;

table1.FieldByName('BFIYAT').AsInteger:=StrToInt(Cedit1.Text);
table1.FieldByName('ADET').AsInteger:=StrToInt(Cedit2.Text);
table1.FieldByName('TOPTUTAR').AsInteger:=StrToInt(Cedit3.Text);
Table1.Post;
end
else
begin
ShowMessage('Lütfen İşlem Kodunu Boş Geçmeyiniz !!!');
DBEdit30.SetFocus;
Abort;
end;
end
else
begin
ShowMessage('Lütfen Firma Kodunu Boş Geçmeyiniz !!!');
DBEdit1.SetFocus;
//Abort;
end;
end;

[bobasturk]

merhaba

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
    if DBEdit1.Text<>'' then
    begin
      if DBEdit2.Text<>'' then
      begin
        ibdataset1.FieldByName('MUSTERI_KODU').AsInteger:=StrToInt(dbedit1.Text);
        ibdataset1.FieldByName('ISLEM_KODU').AsInteger:=StrToInt(dbedit2.Text);
        ibdataset1.FieldByName('TUTAR').asfloat:=StrTofloat(dbedit3.Text);
        ibdataset1.FieldByName('TOPLAM_TUTAR').asfloat:=StrTofloat(dbedit4.Text);
        ibdataset1.Post;
      end
      else
      begin
        ShowMessage('Lütfen İşlem Kodunu Boş Geçmeyiniz !!!');
        DBEdit2.SetFocus;
        Abort;
      end;
      end
      else
      begin
        ShowMessage('Lütfen Müşteri Kodunu Boş Geçmeyiniz !!!');
        DBEdit1.SetFocus;
      end;
    end;

ozcank ustam senin çalışmandaki tabloya benzemese de sen uyarlarsın kendi çalışmana menderes ustamın verdiği örneği uyarladım sadece ve sorunsuz çalışıyor. sizde verdiği hata belki müşteri kodu ve firma kodu veya işlem kodundaki integer alanlardadır. çünki son verdiğiniz hata örneği kodunda bu alanların post durumu geçmiyor oraları inceleyebelirsiniz. bizim verdiğimiz kod bizde çalışıyor gerekli yerlerde mesajı veriyor ve şartlar uyduğunda kaydediyor.

koya gelsin

nod:bu örneği hata vermeyen çalışan kodları uygulayabilmek için yeni tablo oluşturarak yaptım kafanızı karıştırmasın siz kendi tablonuza göre sadece tablo adı, alan adları ve dbedit pozisyonlarını düzenlersiniz.

[spoke25]

bosluk degeri '' alfasayısal Bir degerdir Onun yerine

if dbedit1 isnull then dersen sorun haledilir. Kolay gelsin

[ozcank]

nasıl ekleyeceğimi yazabilirmisin?

[aLonE CoDeR]

Ek olarak, string karşılaştırmalarda ='' yöntemi her zaman doğru sonucu döndürmeyebilir, o nedenle SameText fonksiyonunu kullanmanızı tavsiye ederim.
Kolay gelsin.

[ozcank]

İnceledim ama birşey bulamadım.Abort yerine başka birşey koyabilirmiyiz?

[fduman]

@ozcank bu başlığı izledim de. Milleti kıvrandıracağına biraz temel pascal ve DB bileşenleri üzerine önce biraz çalışsan ve fikir sahibi olsan. ne dersin?

Bilgin yetersiz olduğu için verilen yanıtları uygulayamıyor, ufak bir hatada takılıyorsun.

Böyle zamanlarda kodunu ufak parçalara bölerek ayrı projeler halinde çalışmak çok faydalıdır.

Bileşenler üzerinde de yeterince hakim olmalısın. Internette biraz arama yapsan hem bilgini geliştirmiş, hem de burada anlatılan şeylere daha hakim olmuş olursun.

Kolay gelsin.

[ozcank]

Ben burda kimseyi kıvrandırmıyorum ayrıca arkadaşlar sağolsun hepside elinden geldiğince yardım ettiler ve hepsine ayrı ayrı teşekkür ediyorum.

[fduman]

Elinden geldiğince yardım etmişler ancak sen söylenenleri anlamamışsın. Onu demek istiyorum. Yoksa:

Bu şekilde kullanıyorum ama Abort da hata veriyor;
[Error] ISILGIRIS2.pas(352): Statement expected, but expression of type 'Integer' found

gibi birşey veya

İnceledim ama birşey bulamadım.Abort yerine başka birşey koyabilirmiyiz?

veya

nasıl ekleyeceğimi yazabilirmisin?

demezdin.

[ozcank]

AMA SORUNU NE SİZ NEDE BEN HALA ÇÖZMÜŞ DURUMDA DEĞİLİZ !!!!

[hbahadir]

Kod: Tümünü seç

if (DBEdit1.Text <> '') and (DBEdit1.Text <> '') then
 begin
// buraya kayıt işlemi
 end else begin
// burayada kayıt gerçekleşmedi mesajı
 end; 

Ek olarak;

AMA SORUNU NE SİZ NEDE BEN HALA ÇÖZMÜŞ DURUMDA DEĞİLİZ !!!!

forum kuralları büyük harfle yazılmaması gerektiğini ve burada kimsenin yardım etmek gibi zorunluluğu olmadığını söyler.

[fduman]

AMA SORUNU NE SİZ NEDE BEN HALA ÇÖZMÜŞ DURUMDA DEĞİLİZ !!!!

Bağırman da sorunu çözmez. Bağıracağına gidip araştır.

[ozcank]

Arkadaşlar bu şekilde sorunum cözüldü.

procedure TForm5.Button2Click(Sender: TObject);
begin
if DBEdit1.Text='' then
begin
ShowMessage('Lütfen Firma Kodunu Boş Geçmeyiniz !!!');
DBEdit1.SetFocus;
exit;
end;

if DBEdit30.Text='' then
begin
ShowMessage('Lütfen İşlem Kodunu Boş Geçmeyiniz !!!');
DBEdit30.SetFocus;
exit;
end;
Table1BFIYAT.AsString:=Cedit1.Text;
Table1ADET.AsString:=Cedit2.Text;
Table1TOPTUTAR.AsString:=Cedit3.Text;
Table1.Post;
end;

[bobasturk]

Allaha şükür ne mutlu sana ve bizlere

[BOGACHAN]

Kod: Tümünü seç

procedure Tkayit.suiButton8Click(Sender: TObject);
begin
if (Table1.FieldByName('Ad').isNull) or (Table1.FieldByName('Soyad').isNull) then
 begin
  showmessage('Ad veya Soyad alanlarını boş geçemezsiniz.');
  abort;
 end
else
table1.append;
end;