Clomosy | Forum : Veritaban�na Kullan�c� Ad� �ekme

Veritaban�na Kullan�c� Ad� �ekme : tamamdır hallettim.

Sun, 16 Jun 2024 17:42:52 +0000

Yazar: emre.gungor01
Konu: 610
G�nderim Zaman�: 16 Haziran 2024 Saat 17:42

tamamd�r hallettim.

Veritaban�na Kullan�c� Ad� �ekme : Dediğiniz şekilde yaptım ve...

Wed, 12 Jun 2024 12:13:31 +0000

Yazar: emre.gungor01
Konu: 610
G�nderim Zaman�: 12 Haziran 2024 Saat 12:13

Dedi�iniz �ekilde yapt�m ve bu hatay� ald�m. Kullan�c� ad�n� yazd��m�z b�l�me integer de�er girilebiliyor fakat string de�er girelemiyor.

Veritaban�na Kullan�c� Ad� �ekme : Dediğiniz şekilde yaptığım zaman...

Wed, 12 Jun 2024 12:10:13 +0000

Yazar: emre.gungor01
Konu: 610
G�nderim Zaman�: 12 Haziran 2024 Saat 12:10

Dedi�iniz �ekilde yapt��m zaman integer de�erini al�yor. Fakat string de�erini alm�yor ve bu hatay� veriyor.

Veritaban�na Kullan�c� Ad� �ekme : Merhaba Emre'INSERT INTO...

Wed, 12 Jun 2024 12:00:11 +0000

Yazar: Developer
Konu: 610
G�nderim Zaman�: 12 Haziran 2024 Saat 12:00

Merhaba Emre

'INSERT INTO Kullaniicilar (OyuncuAdi) VALUES (' + QuotedStr(KullaniciAdiEdt.Text) + '); '

Bunda hata var

INSERT INTO Kullaniicilar (id,OyuncuAdi) VALUES (2,' + QuotedStr(KullaniciAdiEdt.Text) + ');

B�yle dener misin

Veritaban�na Kullan�c� Ad� �ekme : AnaKod:Var AnaForm:TclForm; KullaniciId:...

Tue, 11 Jun 2024 18:19:47 +0000

Yazar: emre.gungor01
Konu: 610
G�nderim Zaman�: 11 Haziran 2024 Saat 18:19

AnaKod:

Var

AnaForm:TclForm;

KullaniciId: String;

Id:Integer;

OyunGirisButonu: TClProButton; //Giri� butonu

GirisLabeli: TCLLabel; //Oyun Ad�

KullaniciAdiEdt:TclEdit; //Kullan�c� Ad� Giri�i

KullaniciAdi: String; //Kullan�c� Ad� Giri�i

//Resimler

resim1:TCLImage;

resim2:TCLImage;

resim3:TCLImage;

resim4:TCLImage;

resim5:TCLImage;

resim6:TCLImage;

bomba1:TCLImage;

time1:TCLImage;

//Veritaban�

OyunVeritabani:TClSqlQuery;

//Skor Tablosu

SkorTablosu: TClProButton;

//Kurucu Giri�i

adminGirisi: TClProButton;

//Veri Taban� ba�lant�s� i�in.

Void SetupSqlConnection

{

Clomosy.DBSQLServerConnect('SQL Server', '192.168.1.149', 'sa', '1', 'Oyun', 1433);

}

//Girilen Kullan�c� Adlar�n� Veri Taban�na almak i�in.

void OyunGirisButonuClick

{

OyunVeritabani = TClSqlQuery.Create(nil);

try

OyunVeritabani.Connection = Clomosy.DBSQLServerConnection;

// Kullan�c� ad�n� ekleme veya varsa kullan�c� id'sini alma

OyunVeritabani.SQL.Text =

'IF NOT EXISTS (SELECT 1 FROM Kullaniicilar WHERE OyuncuAdi = ' + QuotedStr(KullaniciAdiEdt.Text) + ') ' +

'BEGIN ' +

'INSERT INTO Kullaniicilar (OyuncuAdi) VALUES (' + QuotedStr(KullaniciAdiEdt.Text) + '); ' +

'END; ' +

'SELECT Id FROM Kullaniicilar WHERE OyuncuAdi = ' + QuotedStr(KullaniciAdiEdt.Text);

OyunVeritabani.Open;

KullaniciId = OyunVeritabani.FieldByName('Id').AsString;

KullaniciAdi = KullaniciAdiEdt.Text; // Kullan�c� ad�n� al

Clomosy.GlobalVariableString=KullaniciAdiEdt.Text; // Kullan�c� ad�n� al //buras�

finally

OyunVeritabani.Free;

}

Clomosy.RunUnit('Oyun'); //Oyun adl� Unit'e gitmek i�in.

}

//T�kland��nda Skor'a atar.

void SkorTablosuClick

{

Clomosy.RunUnit('Skor');

}

//T�kland��nda adminGirisi'ne atar.

void adminGirisiClick

{

Clomosy.RunUnit('Admin');

}

{

AnaForm = TclForm.Create(Self);

SetupSqlConnection; //Veritaban� ba�lant�s� i�in

//Resimler

//resim1

resim1=AnaForm.AddNewImage(AnaForm,'resim1');

AnaForm.SetImage(resim1,'https://cdn0.iconfinder.com/data/icons/phosphor-thin-vol-3/256/number-circle-one-thin-256.png');

resim1.Height=120;

resim1.Width=120;

resim1.Align=alBottom;

resim1.Margins.Right=350;

//resim2

resim2=AnaForm.AddNewImage(AnaForm,'resim2');

AnaForm.SetImage(resim2,'https://cdn0.iconfinder.com/data/icons/phosphor-thin-vol-3/256/number-circle-three-thin-512.png');

resim2.Height=120;

resim2.Width=120;

resim2.Align=alCenter;

resim2.Margins.Right=500;

//resim3

resim3=AnaForm.AddNewImage(AnaForm,'resim3');

AnaForm.SetImage(resim3,'https://cdn0.iconfinder.com/data/icons/phosphor-thin-vol-3/256/number-circle-five-thin-512.png');

resim3.Height=65;

resim3.Width=65;

resim3.Align=alCenter;

resim3.Margins.Left=500;

//resim4

resim4=AnaForm.AddNewImage(AnaForm,'resim4');

AnaForm.SetImage(resim4,'https://cdn0.iconfinder.com/data/icons/phosphor-thin-vol-3/256/number-circle-seven-thin-512.png');

resim4.Height=120;

resim4.Width=120;

resim4.Align=alBottom;

resim4.Margins.Left=400;

//resim5

resim5=AnaForm.AddNewImage(AnaForm,'resim5');

AnaForm.SetImage(resim5,'https://cdn0.iconfinder.com/data/icons/phosphor-thin-vol-3/256/number-circle-nine-thin-512.png');

resim5.Height=80;

resim5.Width=80;

resim5.Align=alTop;

resim5.Margins.Right=200;

//resim6

resim6=AnaForm.AddNewImage(AnaForm,'resim6');

AnaForm.SetImage(resim6,'https://cdn0.iconfinder.com/data/icons/phosphor-thin-vol-3/256/number-circle-six-thin-512.png');

resim6.Height=80;

resim6.Width=80;

resim6.Align=alTop;

resim6.Margins.Left=400;

//bomba1

bomba1=AnaForm.AddNewImage(AnaForm,'bomba1');

AnaForm.SetImage(bomba1,'https://cdn2.iconfinder.com/data/icons/nasty/60/apocolypse_nuclear_explosion_atomic_bomb-256.png');

bomba1.Height=60;

bomba1.Width=60;

bomba1.Align=alBottom;

bomba1.Margins.Left=200;

//time1

time1=AnaForm.AddNewImage(AnaForm,'time1');

AnaForm.SetImage(time1,'https://cdn4.iconfinder.com/data/icons/basic-ui-2-line/32/clock-time-ticker-times-hour-256.png');

time1.Height=45;

time1.Width=45;

time1.Align=alLeft;

time1.Margins.Left=10;

// Ba�l�k Label'�

GirisLabeli = AnaForm.AddNewLabel(AnaForm, 'GirisLabeli', 'TimeTap');

GirisLabeli.StyledSettings = ssFamily;

GirisLabeli.TextSettings.Font.Size = 24;

GirisLabeli.Align = alTop;

GirisLabeli.Height = 50;

GirisLabeli.Width = 200;

GirisLabeli.Margins.Left=300;

GirisLabeli.Position.X = (AnaForm.clWidth / 2) - (GirisLabeli.Width / 2);

GirisLabeli.Position.Y = 50;

// Kullan�c� Ad� B�l�m�

KullaniciAdiEdt = AnaForm.AddNewEdit(AnaForm,'KullaniciAdiEdt', 'Kullanici Adinizi Giriniz');

KullaniciAdiEdt.Align = alNone;

KullaniciAdiEdt.Margins.Top=30;

KullaniciAdiEdt.Width = 200;

KullaniciAdiEdt.Height = 30;

KullaniciAdiEdt.Position.X = (AnaForm.clWidth / 2) - (KullaniciAdiEdt.Width / 2) + 2;

KullaniciAdiEdt.Position.Y = (AnaForm.clHeight / 2) - (KullaniciAdiEdt.Height / 2) - 75;

KullaniciAdiEdt.TextPrompt = 'Kullan�c� Ad�n�z� Girin';

KullaniciAdiEdt.MaxLength=17; //Belirli miktarda kullan�c� ad� girebilir.

// Ba�lat Butonu

OyunGirisButonu = AnaForm.AddNewProButton(AnaForm, 'OyunGirisButonu', 'Ba�lat');

OyunGirisButonu.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#e0d1d1');

OyunGirisButonu.Margins.Top= 50;

OyunGirisButonu.Align = alNone;

OyunGirisButonu.Width = 100;

OyunGirisButonu.Height= 50;

OyunGirisButonu.Position.X = (AnaForm.clWidth / 2) - (OyunGirisButonu.Width / 2);

OyunGirisButonu.Position.Y = (AnaForm.clHeight / 2) - (OyunGirisButonu.Height / 2);

OyunGirisButonu.SetclProSettings(OyunGirisButonu.clProSettings);

AnaForm.AddNewEvent(OyunGirisButonu, tbeOnClick, 'OyunGirisButonuClick');

// SkorTablosu

SkorTablosu = AnaForm.AddNewProButton(AnaForm, 'SkorTablosu', '');

clComponent.SetupComponent(SkorTablosu,'{"RoundHeight": 2, "RoundWidth": 2, "BorderColor": "#000000"}');

AnaForm.SetImage(SkorTablosu, 'https://cdn3.iconfinder.com/data/icons/customer-experience-1/32/Score-256.png');

SkorTablosu.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#b4f500');

SkorTablosu.Margins.Left= 480;

SkorTablosu.Margins.bottom=500;

SkorTablosu.Align = alNone;

SkorTablosu.Width = 70;

SkorTablosu.Height= 40;

SkorTablosu.SetclProSettings(SkorTablosu.clProSettings);

AnaForm.AddNewEvent(SkorTablosu, tbeOnClick, 'SkorTablosuClick');

//Admin Giri�i

adminGirisi = AnaForm.AddNewProButton(AnaForm, 'adminGirisi', '');

clComponent.SetupComponent(adminGirisi,'{"RoundHeight": 2, "RoundWidth": 2, "BorderColor": "#000000"}');

AnaForm.SetImage(adminGirisi, 'https://cdn4.iconfinder.com/data/icons/essential-app-2/16/user-avatar-human-admin-login-256.png');

adminGirisi.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#00b8f5');

adminGirisi.Margins.Right= 630;

adminGirisi.Margins.bottom=500;

adminGirisi.Align = alNone;

adminGirisi.Width = 70;

adminGirisi.Height= 40;

adminGirisi.SetclProSettings(adminGirisi.clProSettings);

AnaForm.AddNewEvent(adminGirisi, tbeOnClick, 'adminGirisiClick');

TclButton(anaForm.clFindComponent('BtnFormMenu')).Visible = False; //Clomosy Form Menu kapatma olay�.

TclButton(anaForm.clFindComponent('BtnGoBack')).Visible = False; //Clomosy Geri tu�unu kapatma olay�.

AnaForm.SetFormColor('#ad6ec4','#6d6bbd',clGHorizontal); //AnaForm'un arkaplan�n� renklendirme.

AnaForm.Run; // AnaForm'u �al��t�rma.

}

Oyun Unit Kodlar�:

Var

AnaForm:TclForm;

//Buton k�sm�

btn1 : TClProButton;

Zaman : TCLTimer;

sayac:Integer;

//Random Renk verme k�sm�

RndmTimer: TClTimer;

colorArray : array of String;

//Oyun S�resi k�sm�

oyunzaman:TCLTimer;

sayac1:Integer;

lblTimer: TCLLabel;

//Random oyun s�resi artt�rma azaltma i�in ekranda ��kan g�rseller

surearttirma: TCLImage;

sureazaltma: TCLImage;

SkorVeritabani: TClSqlQuery;

KullaniciAdi:String;

void SetupSqlConnection

{

Clomosy.DBSQLServerConnect('SQL Server', '192.168.1.149', 'sa', '1', 'Oyun', 1433);

}

//Buton haricinde ekran�n herhangi bir yerine bas�nca oyundan ��kmak i�in.

void onFormMouseDown

{

ShowMessage('Yand�n�z.Oyuna tekrardan ba�lay�n�z.');

AnaForm.clHide;

oyunzaman.Enabled=False;

}

//Ba�lang�� ekran�ndan sonra olacak olay i�in

void OyunBaslangic;

{

btn1.Visible=True;

}

//Random olarak arkaplan rengini de�i�tirmek i�in.

void randomColor;

var

randmDeger: Integer;

{

colorArray = ['#26cf3a','#ff780a','#9a7de8','#813b3b','#a664c4','#6492c4','#81c464'];

randmDeger = clMath.GenerateRandom(0,6);

AnaForm.SetFormColor(colorArray[randmDeger],'',clGNone);

}

//Random olarakm btn1'in yerini de�i�tirmek i�in k�sayol.

void randomPosition;

{

if((sayac >= 32) && (sayac <= 55))

{

btn1.Position.X = Abs((Random() * AnaForm.clWidth) - btn1.Width);

btn1.Position.Y = Abs((Random() * AnaForm.clHeight) - btn1.Height);

}

//Belirli zamanda ekran�n herhangi bir yerinde ��kan g�rsele bas�nca ek s�re eklemek i�in.

void eksure //Ekran�n ortas�ndaki say� 3 veya b�y�k olunca ��kmas� i�in yap�ld�.

{

if(IntToStr(btn1.Text) >= 3)

{

surearttirma.visible=False;

sayac1 = sayac1+5;

}

//Belirli zamanda ekran�n herhangi bir yerinde ��kan g�rsele bas�nca s�re azaltmak i�in.

void sureazalt //Ekran�n ortas�ndaki say� 3 veya b�y�k olunca ��kmas� i�in yap�ld�.

{

if(IntToStr(btn1.Text) >= 3)

{

sureazaltma.visible=False;

sayac1 = sayac1-2;

}

//btn1 i�erisinde yazan say�ya g�re i�lemler d�nd�ren k�s�m. randomColor,randomPosition,s�re artt�rma ve azaltma gibi i�lemler yapar.

void zamanlayici;

{

//Bu fonksiyon RndmTimer'�n rastgale �al��mas�n� engellemi� oluyor.

if (sayac >= 32)

{

RndmTimer.Enabled = True;

}

btn1.Text = IntToStr(sayac);

sayac = sayac + 1; //sayac� 1 1 artt�r�r.

oyunzaman.Enabled=True; //oyun zaman� etkinle�tirir

btn1.Text = IntToStr(sayac); //btn1 i�erisindeki say�

if(sayac == 3) //sureazaltma

{

sureazaltma.Position.X = Abs((Random() * AnaForm.clWidth) - sureazaltma.Width);

sureazaltma.Position.Y = Abs((Random() * AnaForm.clHeight) - sureazaltma.Height);

sureazaltma.visible=True;

}

if(sayac == 5)

{

AnaForm.SetFormColor('#23c7c5','',clGNone);

sayac1 = sayac1 + 3;

btn1.Position.X = Abs((Random() * AnaForm.clWidth) - btn1.Width);

btn1.Position.Y = Abs((Random() * AnaForm.clHeight) - btn1.Height);

surearttirma.Position.X = Abs((Random() * AnaForm.clWidth) - surearttirma.Width);

surearttirma.Position.Y = Abs((Random() * AnaForm.clHeight) - surearttirma.Height);

surearttirma.visible=True;

}

if(sayac==9) //sureazaltma

{

sureazaltma.Position.X = Abs((Random() * AnaForm.clWidth) - sureazaltma.Width);

sureazaltma.Position.Y = Abs((Random() * AnaForm.clHeight) - sureazaltma.Height);

sureazaltma.visible=True;

}

if(sayac == 13)

{

AnaForm.SetFormColor('#e01f1f','',clGNone);

sayac1 = sayac1 + 5;

btn1.Position.X = Abs((Random() * AnaForm.clWidth) - btn1.Width);

btn1.Position.Y = Abs((Random() * AnaForm.clHeight) - btn1.Height);

surearttirma.Position.X = Abs((Random() * AnaForm.clWidth) - surearttirma.Width);

surearttirma.Position.Y = Abs((Random() * AnaForm.clHeight) - surearttirma.Height);

surearttirma.visible=True;

}

if(sayac==17) //sureazaltma

{

sureazaltma.Position.X = Abs((Random() * AnaForm.clWidth) - sureazaltma.Width);

sureazaltma.Position.Y = Abs((Random() * AnaForm.clHeight) - sureazaltma.Height);

sureazaltma.visible=True;

}

if(sayac == 25)

{

AnaForm.SetFormColor('#cfeb00','#db7edd',clGHorizontal);

sayac1 = sayac1 + 7;

btn1.Position.X = Abs((Random() * AnaForm.clWidth) - btn1.Width);

btn1.Position.Y = Abs((Random() * AnaForm.clHeight) - btn1.Height);

surearttirma.Position.X = Abs((Random() * AnaForm.clWidth) - surearttirma.Width);

surearttirma.Position.Y = Abs((Random() * AnaForm.clHeight) - surearttirma.Height);

surearttirma.visible=True;

}

if(sayac==29) //sureazaltma

{

sureazaltma.Position.X = Abs((Random() * AnaForm.clWidth) - sureazaltma.Width);

sureazaltma.Position.Y = Abs((Random() * AnaForm.clHeight) - sureazaltma.Height);

sureazaltma.visible=True;

}

if((sayac >= 32) && (sayac <= 55))

{

RndmTimer.Enabled = True;

randomPosition();

}

if (sayac >= 56)

{

AnaForm.SetFormColor('#ffae00','',clGNone);

RndmTimer.Enabled = False;

}

btn1.Text = IntToStr(sayac);

}

//Oyun s�resi i�in olu�turulmu� k�s�m

void sure;

{

if(sayac1 == 0)

{

oyunzaman.Enabled = False;

lblTimer.caption = IntToStr(sayac1);

ShowMessage('S�reniz Doldu!');

ShowMessage('Puan�n�z: ' + IntToStr(sayac));

// Skoru veritaban�na kaydet

SkorVeritabani = TClSqlQuery.Create(nil);

try

SkorVeritabani.Connection = Clomosy.DBSQLServerConnection;

SkorVeritabani.SQL.Text =

'INSERT INTO Skorlar (Skor,KullaniciId) VALUES ('+ IntToStr(sayac) + ', ' + QuotedStr(Clomosy.GlobalVariableString) +')';

SkorVeritabani.ExecSQL;

finally

SkorVeritabani.Free;

}

else

{

lblTimer.caption = IntToStr(sayac1);

Dec(sayac1);

}

//Ekranda bulunan her �eyin �zellik k�sm� eklemek i�in.

{

sayac=0;

sayac1=5;

AnaForm = TclForm.Create(Self);

SetupSqlConnection;

TclButton(anaForm.clFindComponent('BtnFormMenu')).Visible = False; //Clomosy'nin kendi uygulamas� men� �zelli�i kapat�ld�.

TclButton(anaForm.clFindComponent('BtnGoBack')).Visible = False; //Clomosy'nin kendi uygulamas� geri �zelli�i kapat�ld�.

//Random color k�sm�

RndmTimer = AnaForm.AddNewTimer(AnaForm,'RndmTimer',100); //s�rekli olaca�� i�in timer kullan�ld�.

RndmTimer.Enabled = False;

AnaForm.AddNewEvent(RndmTimer,tbeOnTimer,'randomColor');

//oyunzaman s�resi

oyunzaman=AnaForm.AddNewTimer(AnaForm,'oyunzaman',1000);

oyunzaman.Enabled=False;

AnaForm.AddNewEvent(oyunzaman,tbeOnTimer,'sure');

lblTimer=AnaForm.AddNewLabel(AnaForm,'lblTimer','');

lblTimer.StyledSettings = ssFamily;

lblTimer.TextSettings.Font.Size = 35;

lblTimer.Align = alTop;

lblTimer.Height=50;

lblTimer.Width=50;

lblTimer.Margins.Left = 170;

//oyunzaman s�resi

AnaForm.SetFormColor('#52504d','',clGNone);

btn1 = AnaForm.AddNewProButton(AnaForm,'btn1','Ba�la');

surearttirma = AnaForm.AddNewImage(AnaForm,'surearttirma');

sureazaltma = AnaForm.AddNewImage(AnaForm,'sureazaltma');

btn1.Align = alNone;

btn1.Width = 100;

btn1.Height = 100;

btn1.Position.X = (AnaForm.clWidth / 2) - (btn1.Width / 2); //konum1.

btn1.Position.Y = (AnaForm.clHeight / 2) - (btn1.Width / 2); // konum2.

btn1.visible=True;

AnaForm.SetImage(surearttirma,'https://cdn2.iconfinder.com/data/icons/chess-58/377/Time-256.png');

surearttirma.Align = alNone;

surearttirma.Height = 35;

surearttirma.Width = 35;

surearttirma.Position.X = (AnaForm.clWidth / 2) - (surearttirma.Width / 2); //surearttirma konum1.

surearttirma.Position.Y = (AnaForm.clHeight / 2) - (surearttirma.Width / 2); //surearttirma konum2.

surearttirma.visible=False; //Ekran�n farkl� yerlerinde ek s�re i�in ��kan resim g�r�n�rl��.

//S�RE AZALTMA

AnaForm.SetImage(sureazaltma,'https://cdn2.iconfinder.com/data/icons/nasty/60/apocolypse_nuclear_explosion_atomic_bomb-256.png');

sureazaltma.Align = alNone;

sureazaltma.Height = 40;

sureazaltma.Width = 40;

sureazaltma.Position.X = (AnaForm.clWidth / 2) - (sureazaltma.Width / 2); //sureazaltma konum1.

sureazaltma.Position.Y = (AnaForm.clHeight / 2) - (sureazaltma.Width / 2); //sureazaltma konum2.

sureazaltma.visible=False; //Ekran�n farkl� yerlerinde ek s�re i�in ��kan resim g�r�n�rl��.

btn1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#a0a3b1');

btn1.clProSettings.FontColor = clAlphaColor.clHexToColor('#050505');

btn1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');

btn1.clProSettings.IsTransparent = False;

btn1.clProSettings.FontSize = 12;

btn1.clProSettings.FontVertAlign = palcenter;//palLeading , palCenter , palTrailing

btn1.clProSettings.FontHorzAlign = palCenter;

btn1.clProSettings.IsFill = True;

btn1.clProSettings.IsRound = True;

btn1.clProSettings.RoundHeight = 50;

btn1.clProSettings.RoundWidth = 50;

btn1.clProSettings.BorderWidth = 3;

btn1.SetclProSettings(btn1.clProSettings);

AnaForm.AddNewEvent(btn1,tbeOnClick,'zamanlayici'); //btn1'e t�klan�nca s�re etkinle�mesi i�in t�klanma olay�.

AnaForm.AddNewEvent(surearttirma, tbeOnClick, 'eksure'); //ek s�re i�in t�klanma olay�.

AnaForm.AddNewEvent(sureazaltma, tbeOnClick, 'sureazalt'); //s�re azaltmak i�in t�klanma olay�.

AnaForm.AddNewEvent(AnaForm, tbeOnMouseDown, 'onFormMouseDown');

AnaForm.Run;

}

Biz �imdi Oyun Unit kodlar�mda void sure k�sm�nda KullaniciId'yi QuotedStr(Clomosy.GlobalVariableString) buna ba�lad�k. QuotedStr(Clomosy.GlobalVariableString) buda AnaKod k�sm�nda KullaniciAdiEdt.Text k�sm�na ba�l� de�il mi? KullaniciAdiEdt.Text' te bir �st�nde bulunan KullaniciAdi = KullaniciAdiEdt.Text; k�sm�yla e�le�tirildi�ini d��n�yorum ben. Ama nedense i�te string de�eri alm�yorda sadece int de�erini mssql veri taban�na al�yor.

Veritaban�na Kullan�c� Ad� �ekme : Merhaba EmreSanınırm KullaniciId...

Tue, 11 Jun 2024 18:09:27 +0000

Yazar: Developer
Konu: 610
G�nderim Zaman�: 11 Haziran 2024 Saat 18:09

Merhaba Emre

San�n�rm KullaniciId kalm�� sql Insert c�mlende bunu de�i�tirmen gerekiyor. OyuncuAdi yazman gerekiyor. ��nki sql senden int de�er t�r� bekliyor.

e�er anlamazsan kodunu y�kler misin

Kolay Gelsin

Veritaban�na Kullan�c� Ad� �ekme : Merhabalar;İstediğim gibi sonuç...

Tue, 11 Jun 2024 16:46:54 +0000

Yazar: emre.gungor01
Konu: 610
G�nderim Zaman�: 11 Haziran 2024 Saat 16:46

Merhabalar;

�stedi�im gibi sonu� ald�m te�ekk�rler. Fakat bu sefer hesaba katmad��m�z bir sorun var. Beni mssql veritaban�mda bulunan dbo.Kullaniicilar tablomda Id int t�r�nde bunda s�k�nt� yok, OyuncuAdi nvarchar(50) t�r�nde

G�rsel;

Giri� ekran�nda string t�r�nde veriyle giri� yapabiliyorum ve oyunumuda oynayabiliyorum, oyun sonunda

Bu hatayla kar��la��yorum kullaniicilar tabloma al�yor kullan�c� ad�n� fakat dbo.Skorlar tabloma o ismi alm�yor. Bende giri� ekran�nda int tipinde de�er girerek denedim ve oluyor hem dbo.Kullanicilar tabloma ekliyor hemde dbo.Skorlar tabloma ekliyor.

G�rseller:

B�yle girdi�imde sorun ��km�yor.Sadece string t�r�nde kullan�c� ad� girdi�imde ��k�yor.

Buras� Kullaniicilar tablosu:

Buras� Skorlar tablosu:

Peki ben giri� ekran�nda string veri t�r�nde girmek istedi�imde skorlar tabloma kaydetmiyor, kullaniicilar tabloma kaydediyorsa her iki tabloma da nas�l kay�t ettirebilirim?

Veritaban�na Kullan�c� Ad� �ekme : Merhaba Emre,görselleri ve hataları...

Tue, 11 Jun 2024 16:33:29 +0000

Yazar: Atiker01
Konu: 610
G�nderim Zaman�: 11 Haziran 2024 Saat 16:33

Merhaba Emre,

g�rselleri ve hatalar� y�klememi�sin. Tekrar atabilir misin?

Veritaban�na Kullan�c� Ad� �ekme : Merhabalar;İstediğim gibi sonuç...

Tue, 11 Jun 2024 16:28:17 +0000

Yazar: emre.gungor01
Konu: 610
G�nderim Zaman�: 11 Haziran 2024 Saat 16:28

Merhabalar;

G�rsel:

Giri� ekran�nda string t�r�nde veriyle giri� yapabiliyorum ve oyunumuda oynayabiliyorum, oyun sonunda

G�rseller:

Buras� Skorlar tablosu:

Buras� Kullaniicilar tablosu:

Peki ben giri� ekran�nda string veri t�r�nde girmek istedi�imde skorlar tabloma kaydetmiyor, kullaniicilar tabloma kaydediyorsa her iki tabloma da nas�l kay�t ettirebilirim?

Veritaban�na Kullan�c� Ad� �ekme : Merhaba Emre,/Girilen Kullanıcı...

Tue, 11 Jun 2024 11:42:12 +0000

Yazar: Developer
Konu: 610
G�nderim Zaman�: 11 Haziran 2024 Saat 11:42

Merhaba Emre,

/Girilen Kullan�c� Adlar�n� Veri Taban�na almak i�in.

void OyunGirisButonuClick

{

OyunVeritabani = TClSqlQuery.Create(nil);

try

OyunVeritabani.Connection = Clomosy.DBSQLServerConnection;

// Kullan�c� ad�n� ekleme veya varsa kullan�c� id'sini alma

OyunVeritabani.SQL.Text =

'IF NOT EXISTS (SELECT 1 FROM Kullaniicilar WHERE OyuncuAdi = ' + QuotedStr(KullaniciAdiEdt.Text) + ') ' +

'BEGIN ' +

'INSERT INTO Kullaniicilar (OyuncuAdi) VALUES (' + QuotedStr(KullaniciAdiEdt.Text) + '); ' +

'END; ' +

'SELECT Id FROM Kullaniicilar WHERE OyuncuAdi = ' + QuotedStr(KullaniciAdiEdt.Text);

OyunVeritabani.Open;

KullaniciId = OyunVeritabani.FieldByName('Id').AsString;

KullaniciAdi = KullaniciAdiEdt.Text; // Kullan�c� ad�n� al

Clomosy.GlobalVariableString = KullaniciAdiEdt.Text; //Burada kullan�c� ad�n�n atams�n� yapt�n.

finally

OyunVeritabani.Free;

}

Clomosy.RunUnit('Oyun'); //Oyun adl� Unit'e gitmek i�in.

}

//Oyun s�resi i�in olu�turulmu� k�s�m

void sure;

{

if(sayac1 == 0)

{

oyunzaman.Enabled = False;

lblTimer.caption = IntToStr(sayac1);

ShowMessage('S�reniz Doldu!');

ShowMessage('Puan�n�z: ' + IntToStr(sayac));

// Skoru veritaban�na kaydet

SkorVeritabani = TClSqlQuery.Create(nil);

try

SkorVeritabani.Connection = Clomosy.DBSQLServerConnection;

SkorVeritabani.SQL.Text = 'INSERT INTO Skorlar (Skor,KullaniciId) VALUES ('+ IntToStr(sayac),QuotedStr(Clomosy.GlobalVariableString) +')';

SkorVeritabani.ExecSQL;

finally

SkorVeritabani.Free;

}

else

{

lblTimer.caption = IntToStr(sayac1);

Dec(sayac1);

}

�yi �al��malar