Delphi Forum

Öncelikle ilginize teşekkür ederim.

Aslında örnek olsun diye yazdım TABLO isimlerini. Bunların olması şart değil. Siz başka 2-3 veya daha fazla tablo için kodlu bir örnek verebilirsiniz. Eğer bu şekilde kısa da olsa bir örnek verebilirseniz mantığı tamamiyle algılamış olacağım. Lütfen hazırcı falan ...

Merhaba

Bir konuyu tam anlayamadım. Bu konuda yardımcı olabilirseniz sevinirim.

Mesela Paradox ile hazırlanmış 3 adet tablom var: MusteriBilgileri, UrunBilgileri, Tali

TABLO1
MüsteriBilgileri: Adi(Text), Soyadi(Text), Adres(Text), Telefon(Text), DogumTarihi(Tarih)

TABLO2
UrunBilgileri: Kaza(Text ...

Merhaba

Çok fazla alanları olan bazı programlar var. Mesela 50-100-150 ve daha fazla alanı olan program düşünün. Bu program parça parça TABLElerden oluşuyor. Müşteriye ait bilgilerin olduğu bir TABLE, aldığı ürünlere ait özellikleri belirten bir TABLE, parasal işlemlerin tutulduğu ayrı bir TABLE ...

Önce teşekkür ederim. Evet arkadaşlar gereken yardımda bulunuyor. Ama ben bir süredir delphi ile arama mesafe koyduğumdan bazı basit şeyleri bile unutmuşum. Anca bir örnek görünce hatırlıyorum. Bu bağlamda dataset.open; dataset.append; kodlarını formun creat olayına yazdığımda hata veriyor. sanırım ...

dataset.cancel;
dataset.append;

kodunun tam satırını yazmanı rica etsem çok mu şey istemiş olurum

Arkadaşlar tekrar teşekkür ederim ama sorular cevaplandıkça buna bağlı yeni sorular geliyor aklıma başka başlık açmak istemiyorum. :oops: Diyelim ki 2 adet DBEdit var. DBEdit1.Text ve DBEdit2.Text'e ...

Yardımın için teşekkür ederim. Ek olarak birşey daha sormak istiyorum. Diyelim ki DBEdit'lerden bazılarına bilgi girişi yaptım, ve sonra bu bilgiyi veritabanına kaydetmekten vazgeçtim. Bir İPTAL butonu ile bunu iptal edip dbeditleri tekrar boş konuma nasıl getirebilirim?

Merhaba arkadaşlar

DBEditler açılışta nasıl boş gelir?

Bu konuyu artık uzatmasak diyorum arkadaşlar. Çünkü aslında öyle ya da böyle hepimizin söyledikleri ya da yaşadıkları aynı şeylerden ibaret.

Yarin yanağından gayrı
Har zaman
Her yerde
Her şeyde
Hep beraber
diyebilmek için...

Yahu cxGrid değil TcxPageControl kullanıyorum diyorum :lol:

Al bunlar da olayları

OnChange
OnContextPopUp
OnDockDrop
OnDockOver
OnDragDrop
OnDragOver
OnDrawTab
OnDrawTabEx
OnEndDock
OnEndDrag
OnEnter
OnExit
OnGetImageIndex
OnGetSiteInfo
OnMouseDown
OnMouseMove
OnMouseUp
OnPageChanging
OnResize ...

Murat cevabını ben yazdıktan sonra gördüm. Daha yaşım genç köprüden kurtulmak için elimden geleni yapacağım. Bundan önce yazdığım mesajın son 2 satırında birşey sordum onu da cevapla da benden kurtul

Sadece bu şekilde yapınca oluyor istenilen.


procedure TForm1.SayfaChanging(Sender: TObject; var AllowChange: Boolean);
var
Eksik:integer;
begin

if ((GBAadi.Text='') or (GBAunvan.Text='')) {and (Sayfa.ActivePageIndex <> 0)} then
begin
Eksik:=Application.MessageBox('Bu alanını boş bırakılamaz ...

Ümitliyim, çözeceksin. :)

Siz öyle zannedin :lol:
Ayrıca ukalalık değil estafurullah. Sadece ben sizin kadar uzman değilim bu konuda hepsi bu. daha önce de belirttim, PageControl değil cxPageConrtol kullandım işler burda biraz karıştı.

Şu AlloweChange:=False bi türlü yediremedim. Biliyorum ...

Bu kodlar iş görüyor ama mesaj butonu 2 defa tıklanınca ilgili sayfaya yönleniyor. Eğer bunu çözebilirsek bu da olur. Teşekkür ederim.


procedure TForm1.SayfaChange(Sender: TObject);
var
i: Integer;
begin
for i := 0 to ComponentCount - 1 do
begin
if Components is TcxTextEdit then
begin
with ...

Yine olmadı bir türlü döngüden çıkmıyor sürekli tekrarlıyor. Şunu nasıl yapacağımı açıklayacak bir arkadaş yok mu?