Clomosy | Forum : kasa işlemleri yapma https://www.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Tue, 14 Apr 2026 11:14:33 +0000 Wed, 16 Aug 2023 17:18:14 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://www.clomosy.com.tr/RSS_post_feed.asp?TID=563 <![CDATA[Clomosy | Forum]]> https://www.clomosy.com.tr/forum_images/logo.png https://www.clomosy.com.tr/ <![CDATA[kasa işlemleri yapma : Değişkenlere, componentlerde olduğu...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=563&PID=729#729 Yazar: Alforce
Konu: 563
Gönderim Zamanı: 16 Ağustos 2023 Saat 17:18

Değişkenlere, componentlerde olduğu gibi ismi ile ulaşamazsınız.

Eğer işiniz dinamik ise hepsini bir listede tutup sırayla işlem yapabilirsiniz,
Ama işleminiz statik ve az ise hepsini el ile yazmak daha kolaydır.

Eğer dinamik bir sistem oluşturmak istiyorsanız daha detaylı anlatırsanız sevinirim.
]]> Wed, 16 Aug 2023 17:18:14 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=563&PID=729#729 <![CDATA[kasa işlemleri yapma : kabacaif ülke alındıysa thenba...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=563&PID=728#728 Yazar: Zeren
Konu: 563
Gönderim Zamanı: 16 Ağustos 2023 Saat 15:37

kabaca 
if ülke alındıysa then 
banka_parasi:=banka_parasi+ülke_parasi and oyuncu_parasi:=oyuncu_parasi-ülke_parasi;
end; 
gibi birifade kullanmak istiyorum bunu tek tek her ülkenin procedüründe mi tanımlamalıyım yoksa aşağıya attığım SQL procedüründe bu işlemi yapabilir miyim ekstra olarak ben bi şeyler deniyorum ama en aşağıda 2- olarak attığım tanımlama kodunda hata alıyorum
1-procedure AddDataToListview;
Var
  foodListQuery : TClSqlQuery;
begin
  foodListQuery := TClSqlQuery.Create(nil);
  if (testRadio.isChecked) then 
  begin
  try
  ShowMessage(Clomosy.AppUserDisplayName);
     foodListQuery.Connection := Clomosy.DBSQLServerConnection;
     isim := LastSender.caption;
     
    // ShowMessage(isim);
    
     foodListQuery.SQL.Text := 'update dbo.arsa set alan_kisi = '+quotedstr(Clomosy.AppUserDisplayName)+'
     where isim = '+quotedstr(isim);
     ShowMessage(foodListQuery.Sql.Text);   
     foodListQuery.ExecSql;
     ShowMessage('Kayıt işlemi başarılı');
     finally
     foodListQuery.Close;
     foodListQuery.Free;
     end;
  end;
  else begin
  ShowMessage('Doğru giriniz'); 
  end;

end;



2-pb1, //player1 bakiye
bb, //banka bakiye
cinp,kanadap,italyap,ingilterep,turkiyep,korep,almanyap,ukraynap,rusyap,misirp,abdp,norvecp,fransap:Integer; // ülke paraları
begin
pb1:=5000;
bb:=10000;
cinp:=500; italyap:=700; ingilterep:=1000; turkiyep:=4000; korep:=600;  almanyap:=780; ukraynap:=300; rusyap:=680;
misirp:=250; abdp:=1500; norvecp:=700; fransap:=800;
end;

]]> Wed, 16 Aug 2023 15:37:06 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=563&PID=728#728