Clomosy | Forum : Veri Silme

var

AdminSayfasi: TclForm;

VerileriGetirButonu: TClProButton;

VeriyiSilButonu: TClProButton;

AdminListWiev: TClProListView;

AdminPanl: TClProListViewDesignerPanel;

OyuncuAdi:TClProLabel;

//Veritabanı bağlantısı için.

Void SetupSqlConnection

{

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

}

Void VerileriGetirButonuClick;

var

//Veritabanı

AdminSayfasiVeritabani:TClSqlQuery;

{

AdminSayfasiVeritabani = TClSqlQuery.Create(nil);

try

AdminSayfasiVeritabani.Connection = Clomosy.DBSQLServerConnection;

AdminSayfasiVeritabani.SQL.Text ='SELECT OyuncuAdi as RECORD_GUID, OyuncuAdi from Kullaniicilar';

AdminSayfasiVeritabani.Open;

if (AdminSayfasiVeritabani.Found)

{

AdminListWiev.clLoadProListViewDataFromDataset(AdminSayfasiVeritabani);

}

finally

AdminSayfasiVeritabani.Close;

AdminSayfasiVeritabani.Free;

}

Void DataDelete

var

AdminDelete: TClSqlQuery;

{

AdminDelete = TClSqlQuery.Create(nil);

try

AdminDelete.Connection = Clomosy.DBSQLServerConnection;

AdminDelete.SQL.Text = 'DELETE FROM Kullaniicilar WHERE OyuncuAdi = ' + QuotedStr(OyuncuAdi.Text);

AdminDelete.ExecSql;

VerileriGetirButonuClick;

finally

AdminDelete.Free;

}

void onItemClicked;

{

ShowMessage('--' +AdminListWiev.clSelectedItemData(clRecord_GUID));

}

void CreateDesignerPanel;

{

AdminPanl = AdminSayfasi.AddNewProListViewDesignerPanel(AdminListWiev, 'AdminPanl');

AdminPanl.Align = alTop;

AdminPanl.Height = 80;

AdminPanl.clProSettings.IsRound = True;

AdminPanl.clProSettings.IsFill = True;

AdminPanl.clProSettings.ItemHeight = 150;

AdminPanl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF'); // White

AdminPanl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#e2c5de'); // Light Grey

AdminPanl.clProSettings.BorderWidth = 2;

AdminPanl.clProSettings.RoundWidth = 10;

AdminPanl.clProSettings.RoundHeight = 10;

AdminPanl.SetclProSettings(AdminPanl.clProSettings);

AdminListWiev.SetDesignerPanel(AdminPanl);

}

void CreateListView;

{

AdminListWiev = AdminSayfasi.AddNewProListView(AdminSayfasi, 'AdminListWiev');

AdminListWiev.Align = alLeft;

AdminListWiev.Width = AdminSayfasi.clWidth / 2 - 20;

AdminListWiev.Margins.Right = 10;

AdminListWiev.Margins.Bottom = 10;

AdminListWiev.Margins.Left = 10;

AdminListWiev.clProSettings.ViewType = lvWaterFall;

AdminListWiev.clProSettings.IsRound = True;

AdminListWiev.clProSettings.IsFill = True;

AdminListWiev.clProSettings.ColCount = 1;

AdminListWiev.clProSettings.ItemHeight = 150;

AdminListWiev.clProSettings.ItemSpace = 5;

AdminListWiev.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ffffff');

AdminListWiev.clProSettings.BorderWidth = 1;

AdminListWiev.clProSettings.RoundWidth = 3;

AdminListWiev.clProSettings.RoundHeight = 3;

AdminListWiev.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#000000'); // Light Green

AdminListWiev.SetclProSettings(AdminListWiev.clProSettings);

AdminSayfasi.AddNewEvent(AdminListWiev, tbeOnItemClick, 'onItemClicked');

}

void CreateOyuncuAdiAndPrice;

{

OyuncuAdi = AdminSayfasi.AddNewProLabel(AdminPanl,'OyuncuAdi','test');

clComponent.SetupComponent(OyuncuAdi,'{"MarginTop":10,"MarginLeft":10,"MarginRight":10,"MarginBottom":10 ,"Height":20,"Align" : "MostTop"}');

AdminPanl.AddPanelObject(OyuncuAdi,clCaption);

OyuncuAdi.Properties.AutoSize = True;

}

{

AdminSayfasi = TclForm.Create(Self);

CreateListView;

CreateDesignerPanel;

SetupSqlConnection;

CreateOyuncuAdiAndPrice;

// VerileriGetirButonu

VerileriGetirButonu = AdminSayfasi.AddNewProButton(AdminSayfasi, 'VerileriGetirButonu', 'Verileri Getir');

VerileriGetirButonu.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#f1e9e9');

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

VerileriGetirButonu.Margins.Top= 100;

VerileriGetirButonu.Align = alNone;

VerileriGetirButonu.Width = 100;

VerileriGetirButonu.Height= 50;

VerileriGetirButonu.Position.X = (AdminSayfasi.clWidth / 2) - (VerileriGetirButonu.Width / 2) + 250;

VerileriGetirButonu.Position.Y = (AdminSayfasi.clHeight / 2) - (VerileriGetirButonu.Height / 2) - 200;

VerileriGetirButonu.SetclProSettings(VerileriGetirButonu.clProSettings);

AdminSayfasi.AddNewEvent(VerileriGetirButonu, tbeOnClick, 'VerileriGetirButonuClick');

// VeriyiSilButonu

VeriyiSilButonu = AdminSayfasi.AddNewProButton(AdminSayfasi, 'VeriyiSilButonu', 'Seçilen Veriyi Sil');

VeriyiSilButonu.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#f1e9e9');

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

VeriyiSilButonu.Margins.Top= 100;

VeriyiSilButonu.Align = alNone;

VeriyiSilButonu.Width = 100;

VeriyiSilButonu.Height= 50;

VeriyiSilButonu.Position.X = (AdminSayfasi.clWidth / 2) - (VeriyiSilButonu.Width / 2) + 250;

VeriyiSilButonu.Position.Y = (AdminSayfasi.clHeight / 2) - (VeriyiSilButonu.Height / 2) - 110;

VeriyiSilButonu.SetclProSettings(VeriyiSilButonu.clProSettings);

AdminSayfasi.AddNewEvent(VeriyiSilButonu, tbeOnClick, 'DataDelete');

AdminSayfasi.SetFormColor('#dfe2e7','#336ecc',clGCross); //AdminSayfasi'un arkaplanını renklendirme.

AdminSayfasi.Run; // AdminSayfasi'u çalıştırma.

}