Clomosy | Forum : veri ekleme hatası

var

mainform: TclForm;

AtistirmaliklarPage: TclProPanel;

Button: TclProButton;

ProductID: Integer;

ProductName: string;

ProductPrice: float;

ProductImageURL: string;

insertQuery, ProductQuery: TclSqlQuery;

pricelabel, namelabel: TclProLabel;

edtProductID, edtProductName, edtProductPrice, edtProductImageURL: TclEdit;

i, previousButtonLeft, previousButtonTop: Integer;

clickedBtn: TClProButton;

clickedProductID: Integer;

clickedProductName: string;

clickedProductPrice: Double;

clickedProductImageURL: string;

// Veritabanına veri ekleme prosedürü

procedure SetupDatabaseConnection;

begin

try

Clomosy.DBSQLServerConnect('SQL Server', 'su-db.database.windows.net', 'dbAdmin', 'Azure1234', 'suDb', 1433);

ShowMessage('Database connected successfully!');

except

ShowMessage('Database connection failed: ' );

end;

// Insert data into the database

procedure insertToDatabase;

begin

insertQuery := TclSqlQuery.Create(self);

try

insertQuery.Connection := Clomosy.DBSQLServerConnection;

insertQuery.SQL.Text := 'INSERT INTO Cart (ProductID, ProductName, ProductPrice, ProductImageURL) ' +

'VALUES (' + IntToStr(ProductID) + ', ' + QuotedStr(ProductName) + ', ' + FloatToStr(ProductPrice) + ', ' + QuotedStr(ProductImageURL) + ')';

insertQuery.ExecSQL;

ShowMessage('Eklendi: ID=' + IntToStr(ProductID) + ', Ad=' + ProductName + ', Fiyat=' + FloatToStr(ProductPrice) + ' TL');

except

ShowMessage(insertQuery); // Sorguyu görsel olarak incelemek için.

ShowMessage('Veri eklerken hata: ' );

ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);

end;

procedure BtnOnClick;

begin

clickedBtn := TClProButton(mainform.Clsender);

clickedProductID := StrToInt(clickedBtn.Caption);

ShowMessage(clickedBtn.Caption);

ShowMessage(clickedProductID);

// Her butonun ürünü sorgudan seçilmeli

ProductQuery.First; // Sorgunun başına dön

while not ProductQuery.Eof do

begin

if ProductQuery.FieldByName('ProductID').AsInteger = clickedProductID then

begin

clickedProductName := ProductQuery.FieldByName('ProductName').AsString;

clickedProductPrice := ProductQuery.FieldByName('ProductPrice').AsFloat;

clickedProductImageURL := ProductQuery.FieldByName('ProductImageURL').AsString;

ShowMessage('Ürün: ' + clickedProductName + ' Fiyat: ' + FloatToStr(clickedProductPrice) + ' TL');

// Ürün bilgilerini veritabanına ekle

ProductID := clickedProductID;

ProductName := clickedProductName;

ProductPrice := clickedProductPrice;

ProductImageURL := clickedProductImageURL;

insertToDatabase;

Exit;

end;

ProductQuery.Next;

end;

ShowMessage('ProductQuery açık değil veya ürün bulunamadı!');

end;

// Ürünleri sayfaya yükleme prosedürü

procedure LoadProductsToPage;

begin

ProductQuery := TclSqlQuery.Create(nil);

try

ProductQuery.Connection := Clomosy.DBSQLServerConnection;

ProductQuery.SQL.Text := 'SELECT ProductID, ProductName, ProductPrice, ProductImageURL FROM Products';

ProductQuery.Open;

previousButtonLeft := 10;

previousButtonTop := 800;

i := 1;

while not ProductQuery.Eof do

begin

try

ProductID := ProductQuery.FieldByName('ProductID').AsInteger;

ProductName := ProductQuery.FieldByName('ProductName').AsString;

ProductPrice := ProductQuery.FieldByName('ProductPrice').AsFloat;

ProductImageURL := ProductQuery.FieldByName('ProductImageURL').AsString;

Button := mainform.AddNewProButton(AtistirmaliklarPage, 'Button' + IntToStr(i), '');

mainform.AddNewEvent(Button, tbeOnClick, 'InsertToDatabase');

Button.Width := 150;

Button.Height := 150;

Button.Caption := IntToStr(i);

if (ProductID mod 2 = 1) then

begin

Button.Margins.Bottom := previousButtonTop;

Button.Margins.Right := 0;

Button.Margins.Left := 10;

previousButtonTop := Button.Top - Button.Height - 10;

end

else

begin

Button.Margins.Bottom := previousButtonTop;

Button.Margins.Right := 300;

Button.Margins.Left := previousButtonLeft;

previousButtonLeft := Button.Left - Button.Width - 10;

end;

if Assigned(mainform) then

mainform.SetImage(Button, ProductImageURL);

namelabel := mainform.AddNewProLabel(AtistirmaliklarPage, 'namelabel' + IntToStr(i), '');

namelabel.Margins.Bottom := Button.Margins.Bottom - Button.Height - 5;

namelabel.Margins.Left := Button.Margins.Left;

namelabel.Margins.Right := Button.Margins.Right;

namelabel.Text := ProductName;

pricelabel := mainform.AddNewProLabel(AtistirmaliklarPage, 'pricelabel' + IntToStr(i), '');

pricelabel.Margins.Bottom := namelabel.Margins.Bottom - namelabel.Height - 5;

pricelabel.Margins.Left := namelabel.Margins.Left;

pricelabel.Margins.Right := namelabel.Margins.Right;

pricelabel.Text := Format('Fiyat: %.2f TL', [ProductPrice]);

mainform.AddNewEvent(Button, tbeOnClick, 'BtnOnClick');

ProductQuery.Next;

Inc(i);

except

ShowMessage('Ürün bilgileri işlenirken hata: ' );

end;

except

ShowMessage('Sorgu çalıştırılamadı! Hata: ' );

end;

// Ürün ekleme sayfasını oluşturma prosedürü

procedure AddProductPage;

begin

try

AtistirmaliklarPage := mainform.AddNewProPanel(mainform, 'AtistirmaliklarPage');

if Assigned(AtistirmaliklarPage) then

begin

AtistirmaliklarPage.Align := alNone;

AtistirmaliklarPage.Width := 600;

AtistirmaliklarPage.Height := 800;

AtistirmaliklarPage.Left := 50;

AtistirmaliklarPage.Top := 50;

AtistirmaliklarPage.Margins.Left := 10;

AtistirmaliklarPage.Margins.Right := 10;

AtistirmaliklarPage.Margins.Top := 5;

AtistirmaliklarPage.Margins.Bottom := 10;

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

AtistirmaliklarPage.SetclProSettings(AtistirmaliklarPage.clProSettings);

LoadProductsToPage;

end

else

ShowMessage('Atıştırmalıklar sayfası oluşturulamadı');

except

ShowMessage('Panel oluşturulurken hata: ' );

end;

// Ana program akışı

begin

mainform := TclForm.Create(nil);

try

mainform.SetFormColor('#CBEDD5', '', clGNone);

SetupDatabaseConnection;

AddProductPage;

mainform.Run;

except

ShowMessage('Ana form çalıştırılırken hata: ' );

end;

end.