SQL tablodan veri çekme


   uses uUrunEkle;


var
  anaForm: TclForm;
  searchEdit: TclProEdit;
  listView: TclProListView;
  bottomPanel: TclProPanel;
  newScreenButton: TclProButton;
  topLabel: TclLabel;
  selectQuery: TclSqlQuery;
  

void OnUrunEkleClick;
{
  Clomosy.RunUnit('uUrunEkle');
}


void AddDataToListview;
{
  try
    selectQuery.SQL.Text = 'SELECT ProductName AS MAIN_TEXT, ProductCode AS SUB_TEXT FROM Urunler';
    selectQuery.Open;
    if (selectQuery.Found)
    {
      listView.clLoadProListViewDataFromDataset(selectQuery);
    }
    else
    {
      ShowMessage('Kayıt bulunamadı!');
    }
  finally
    selectQuery.Free;
    selectQuery.Close;
    }
}


{
  anaForm = TclForm.Create(Self);
  
  
  searchEdit = anaForm.AddNewProEdit(anaForm, 'searchEdit', 'ara..');
  searchEdit.Align = alTop;
  searchEdit.Height = 50;
  searchEdit.Margins.Top = 10;
  searchEdit.Margins.Left = 10;
  searchEdit.Margins.Right = 10;
  searchEdit.clProSettings.FontSize = 16;
  searchEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
  searchEdit.clProSettings.BorderWidth = 2;
  searchEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#e7e9ee');
  searchEdit.clProSettings.IsRound = True;
  searchEdit.clProSettings.roundHeight = 10;
  searchEdit.clProSettings.roundWidth = 10;
  searchEdit.SetclProSettings(searchEdit.clProSettings);
 
 
  listView = anaForm.AddNewProListView(anaForm, 'listView');
  listView.Align = alClient; // Ekranın kalanını kaplasın
  listView.Margins.Top = 10;
  listView.Margins.Bottom = 10;
  listView.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#f0f0f0');
  listView.clProSettings.BorderWidth = 1;
  listView.clProSettings.BorderColor = clAlphaColor.clHexToColor('#e7e9ee');
  listView.SetclProSettings(listView.clProSettings);
 
 
  bottomPanel = anaForm.AddNewProPanel(anaForm, 'bottomPanel');
  bottomPanel.Align = alBottom;
  bottomPanel.Height= 70;
  bottomPanel.Margins.Bottom = 10;
  bottomPanel.Margins.Left = 10;
  bottomPanel.Margins.Right = 10;
  bottomPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
  //bottomPanel.clProSettings.BorderWidth = 2;
 // bottomPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#db2726');
  bottomPanel.clProSettings.IsRound = True;
  bottomPanel.clProSettings.roundHeight = 10;
  bottomPanel.clProSettings.roundWidth = 10;
  bottomPanel.SetclProSettings(bottomPanel.clProSettings);
 
 
  newScreenButton = anaForm.AddNewProButton(bottomPanel, 'newScreenButton', '+ Yeni Ürün Ekle');
  newScreenButton.Align= alClient; // Panel içinde ortalasın
  newScreenButton.Margins.Left = 10;
  newScreenButton.Margins.Right = 10;
  newScreenButton.Margins.Top = 10;
  newScreenButton.Margins.Bottom = 10;
  newScreenButton.clProSettings.FontSize = 17;
  newScreenButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
  newScreenButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#334255');
  newScreenButton.clProSettings.BorderWidth = 4;
  newScreenButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#334255');
  newScreenButton.clProSettings.IsRound = True;
  newScreenButton.clProSettings.roundHeight = 5;
  newScreenButton.clProSettings.roundWidth = 5;
  newScreenButton.SetclProSettings(newScreenButton.clProSettings);
  anaForm.AddNewEvent(newScreenButton,tbeOnClick,'OnUrunEkleClick');
  
  
  selectQuery = TclSqlQuery.Create(nil);
  Clomosy.DBSQLServerConnect('SQL Server', '192.168.0.106', 'sa', '123456', 'clomosyDB',1433);
  selectQuery.Connection = Clomosy.DBSQLServerConnection;
  
  AddDataToListview;
  
  anaForm.Run;
 }