Delphi Forum

tesekkurler hocam saygilar

forumdan gelen degıskenler
gbid nvarchar
kim integer

begin
/* Procedure Text */
if (KIM=1) then update pdf_dc_adet set S1=S1+1 where BID=:gbid;
if (KIM=2) then update pdf_dc_adet set S2=S2+1 where BID=:gbid;
if (KIM=3) then update pdf_dc_adet set S3=S3+1 where BID=:gbid;
if (KIM=4) then ...

yapmaya calistigim sey resimdeki gibi arkadaslar
80 kere kod yazmak yerine daha kolay bir cozum var mi
saygilar

update pdf_dc_adet set S1=S1+1 where BID=:gbid;

procedures yukardaki kodda calisiyor store procedure 2 adet data geliyor birincisi gbid degiskeni burda sorun yok
ikincisi kim degiskeni kim degiskeni integer mesela S9 da gunceleme yapacaksak kim=9 gonderiyorum.
hucrenin degerini arttirmak icin S ...

arkadaslar tabloya S1-S10 a kadar alan adi ekletmek icin denemeler yapiyorum
bunun icin while dongusu kullanmak gerekiyormus
ornekleri denemeye calistigimda @ isaretini tanimiyor degisken tanimlamada hata aliyoprum
neyi yanlis yapiyorum acaba
saygilarimla

Date kolonunu 21.11.2022 seklinde string olarak kullaniyorum. Pc tarihide o sekilde ayarli turkce isletim ile calisiyor. Win1254 tablo olustururken tanimlaniyor otomatik.
Bu kod gunde 1 kere kullanilacak zaten ciddi bir hataya neden olmazsa boyle kalsin

Ilginize tesekkur eder saygilar sunarim.

CREATE TABLE TBL_KASA (
ID INTEGER NOT NULL,
BID VARCHAR(20),
DATE_ VARCHAR(50),

LANE VARCHAR(10),
OYADET INTEGER,
PARA INTEGER,
PTUR VARCHAR(100) DEFAULT 0,
DATE_TIME VARCHAR(8),
NOTT VARCHAR(250),
USER1 VARCHAR(20)
);


tablo bu sekilde ama PARA ID VE TARIH_ HUCRELERINI KULLANARAK ...

gecikme icin kusura bakmayin.

ID TARIH ---- PARA
1. 20.11.2022 50
2. 20.11.2022 60
3. 20.11.2022 20
4. 21.11.2022 10
5. 21.11.2022 40
6. 15.02.2019 30
7. 21.11.2022 70

burda id sirayla kaydediyor ama pc tarihini degistirip araya farkli tarihli kayit ekleniyor.
tarihe gore 21 kasim raporunu ...

arkadaslar asagidaki sorguyu duzenlemek istiyorum yardimci olabilirmisiniz.

en son kayittan geriye geriye dogru dunun tarihine kadar olan PARA alanidaki kayitlarin toplamini almam lazim.
baya zamandir delphiye elimi surmedim biraz denedim ama kafa basmadi yardimci olursaniz sevinirim saygilar ...

çok teşekkürler tavsiyeleriniz için minnettarım
saygılarımla

oyunlar için 5 pc var her pc 2 yolu kontrol ediyor. her pc de 2 adet hdmı çıkşı var bunlar 2 tv ye bağlı sesli animasyon oynatmak gerektiği için ayrı pc ler kullanılmış orjinal yabancı sistemlerde benzer mantıkla yapılmış.

ama bahsettiğiniz sistemlerde var 1 resepsiyon pc 1 adet de yol pc yol pc 6 ...

bu bir bowling skorlama programı. oyun açılan bir adet resepsiyon pc var burda kasa hesabı için açılan oyunları kaydediyoruz. ayrıca 5 adet pc de 10 adet skorlama programı çalışıyor her birinin veritabanı olmak zorunda. (resepsiyon pc: kasa hesp vt)(5 adet yol pc:10 adet oyun kayıt vt)

diyelimki 2 ...

teşekkürler arkadaşlar replication olayını araştıracağım
saygılar

merak ettiğim bir şey var 5 pc aynı anda veya gelişiguzel zamanlarda clietdeki ana veritabanına bağlanıp data yazabilirmi? bu iletişim problem yaratır mı?

arkadaşlar 1 projem var bu projede haberleşme hakkında fikir almak isityorum.

5 server pc deki veritabanları kendini client pc deki ana veritabanına bilğilerini göndererek sürekli günceleme yapabilirmi. bu mümkün mü.?

mevcut durum şöyle her pc de bir veritabanı var client pc bilği ihtiyacı olunca ...