Seyahat Otomasyon Sistemi

[sheak]

Arkadaşlar Merhabalar. Ödev Gereği Seyahat Otomasyon Sistemi Yazacağız ve Cok Kısa Bir Sürem Kaldı Sad

Şimdi Hocamızın İsteklerine Gelince.

1- Rezervasyon Bilet Kesimi ve Koltuk Boş Ken Farklı Renkler Olack
2- Bilet Yazıcıdan Cıkacak
3- Rapor Alınabilecek

Simdilik Bu Kadar Hatırladığım. Sizce Bunları Nasıl Yapabilirim. Birde Hangi Bileşenleri Kullanabilirim. Veritabanı İcin Paradox 7 Yi kullanıyorum normalde ama bazen giriş yaptıktan sonra gostermiyor verileri? bu konularda yardımcı olursanız cok sevineceğim.

Saygılarımla.

[mkysoft]

daha spesifik yardımlar talep etmelisin. paradoxda ne kaydedersen alırsın. göstermeme gibi bir problemi yok.

[sheak]

Bay -> Radiobuton3
Bayan -> Radiobuton4

Rezervasyon -> Radiobuton1
Satıs -> Radiobuton2
********************************
BAY REZERV -> KIRMIZI
BAY SATIS -> MAVİ
BAYAN REZERV -> PEMBE
BAYAN SATIS -> AQUA
******************************



Arkadaşlar Yukardaki Renklere Göre Döngü Kurdum Hata Verdi Sad
Güzel Bir Döngü Kurarmısınız ÜStteki Renkleri Verecek. Sonuc olarak da renkler

Panel37.color:=ClRENK;

olarak değişecek. yardımlarınız icin teşekkürler.

[Lost Soul]

Bay -> Radiobuton3
Bayan -> Radiobuton4

Rezervasyon -> Radiobuton1
Satıs -> Radiobuton2
********************************
BAY REZERV -> KIRMIZI
BAY SATIS -> MAVİ
BAYAN REZERV -> PEMBE
BAYAN SATIS -> AQUA
******************************



Arkadaşlar Yukardaki Renklere Göre Döngü Kurdum Hata Verdi Sad
Güzel Bir Döngü Kurarmısınız ÜStteki Renkleri Verecek. Sonuc olarak da renkler

Panel37.color:=ClRENK;

olarak değişecek. yardımlarınız icin teşekkürler.

yazdığın kodu görebilir miyim?

[sheak]

begin
if radiobutton3.Checked=true or radiobutton1.Checked=true then
begin
Panel37.Color:=clRed;
end;
if radiobutton4.Checked=true or radiobutton2.Checked=true then
begin
Panel37.Color:=clAqua;
end;
Dbedit5.Text:='36';
end;

[sheak]

if radiobutton3.Checked=True and radiobutton2.Checked=true then
panel9.color:=clblue;
if radiobutton4.Checked=True and radiobutton1.Checked=true then
panel9.color:=clfuchsia;


bu da hata veren kodlar

[mrmarman]

if için kullandığın AND ile bağladığın birden fazla kriteri parantez ile bloklara alırsan sorun kalmaz.

Kod: Tümünü seç

if ( radiobutton3.Checked=True ) and ( radiobutton2.Checked=true ) then 
panel9.color:=clblue; 
if ( radiobutton4.Checked=True ) and ( radiobutton1.Checked=true ) then 
panel9.color:=clfuchsia; 

- Ayrıca ek bilgi olsun; Boolean eşitliklerde sonucun TRUE olan durumlarını kontrol ederken eşitlik koymana lüzum yok.

Kod: Tümünü seç

if radiobutton3.Checked and radiobutton2.Checked then 
panel9.color:=clblue; 
if radiobutton4.Checked and radiobutton1.Checked then 
panel9.color:=clfuchsia; 

sorgusu da aynı işi görür.. Bunu da hatırlatmak istedim.. Başarılar..

[sheak]

begin
if radiobutton2.Checked=true then
Dbedit6.Text:='Satış';
end;


kodunu yazdım Sad daha sonra DBEDİT6 nın üstüne tıklanınca otomatik olarak siliniyor. ve radiobutondan dolayı satış yazısı database'e aktarılmıyor. yardımm.


yani radiobutoon ile gelen text DBEdit de gorunuor ama Database e aktarılmıyor Sad yardım arkadaşlar.

[haydarxxx]

Paradoxta veri kaybını önlemek için table yada query leriniz afterpost olayına

Kod: Tümünü seç

procedure TForm1.Table1AfterPost(DataSet: TDataSet);
begin
    try
DBISaveChanges((DataSet As TBDEDataSet).Handle)
except
On EDatabaseError do
ShowMessage('Dataya Kaydetme hatası !...');
end;
end;

kullanabilirsin ama firebird e geçmeni tavsiye ederim