var

  TedarikciForm: TclForm;

  Lbl_Baslik, Lbl_TedarikciAdi, Lbl_UrunAdi, Lbl_TeslimatTarihi, Lbl_TedarikciTelefon, Lbl_SiparisTarihi, Lbl_SiparisMiktari: TClProLabel;

  mainPnl, leftPanel, rightPanel: TclProPanel;

  Edt_TedarikciAdi, Edt_TedarikciTelefon, Edt_SiparisMiktari, Edt_UrunAdi: TclProEdit;

  Dt_SiparisTarihi, Dt_TeslimatTarihi: TClProDateEdit;

  Btn_SiparisEkle: TClProButton;

  MyGrid: TclStringGrid;

  selectQuery: TClSqlQuery;

  row: Integer;

  TedarikciAdi, TedarikciTelefon, UrunAdi, SiparisTarihi, TeslimatTarihi: String;

  SiparisMiktari: Integer;

void SetupGridColumns

{

  MyGrid.Columns[0].Header = 'Tedarikçi Adı';

  MyGrid.Columns[1].Header = 'Telefon';

  MyGrid.Columns[2].Header = 'Ürün';

  MyGrid.Columns[3].Header = 'Miktar';

  MyGrid.Columns[4].Header = 'Sipariş Tarihi';

  MyGrid.Columns[5].Header = 'Teslimat Tarihi';

  MyGrid.Columns[0].Width = 150;

  MyGrid.Columns[1].Width = 120;

  MyGrid.Columns[2].Width = 150;

  MyGrid.Columns[3].Width = 120;

  MyGrid.Columns[4].Width = 120;

  MyGrid.Columns[5].Width = 120;

}

// Add Data to Grid

void AddDataToGrid

{

  try

    selectQuery.SQL.Text = 'SELECT TedarikciAdi, Telefon, Urun, Miktar, SiparisTarihi, TeslimatTarihi FROM TBLTedarikciSiparis';

    selectQuery.Open;

    

    if (selectQuery.Found)

    {

      TedarikciForm.RemoveGridBinding('myLink');

      TedarikciForm.AddNewGridBinding(MyGrid, selectQuery, 'myLink');

      SetupGridColumns;

    }

    else

    {

      ShowMessage('Kayıt bulunamadı!');

    }

  except

  {

    ShowMessage('Hata oluştu: ' + LastExceptionMessage);

  }

  }

}

void SiparisEkleButtonClick

{

  TedarikciAdi = Edt_TedarikciAdi.Text;

  TedarikciTelefon = Edt_TedarikciTelefon.Text;

  UrunAdi = Edt_UrunAdi.Text;

  SiparisTarihi = Dt_SiparisTarihi.Text;

  SiparisMiktari=Edt_SiparisMiktari.Text;

  TeslimatTarihi = Dt_TeslimatTarihi.Text;

  // Boş alan kontrolü

  if ((TedarikciAdi == '') || (TedarikciTelefon == '') || (UrunAdi == '') || (SiparisMiktari == '') || (SiparisTarihi == '') || (TeslimatTarihi == ''))

  {

    ShowMessage('Lütfen tüm alanları doldurun.');

  }

  try

  {

    // SQL bağlantısını kontrol et

    if (selectQuery.Connection == nil)

    {

      ShowMessage('SQL bağlantısı başarısız. Lütfen bağlantıyı kontrol edin.');

    }

    // Yeni siparişi tabloya ekle

    selectQuery.SQL.Text =

      'INSERT INTO TBLTedarikciSiparis (TedarikciAdi, Telefon, Urun, Miktar, SiparisTarihi, TeslimatTarihi) VALUES (' +

      QuotedStr(TedarikciAdi) + ', ' +

      QuotedStr(TedarikciTelefon) + ', ' +

      QuotedStr(UrunAdi) + ', ' +

      IntToStr(SiparisMiktari) + ', ' +

      QuotedStr(SiparisTarihi) + ', ' +

      QuotedStr(TeslimatTarihi) + ')';

    selectQuery.ExecSQL;

    // Grid'i güncelle

    AddDataToGrid;

    // Temizle

    Edt_TedarikciAdi.Text = '';

    Edt_TedarikciTelefon.Text = '';

    Edt_UrunAdi.Text = '';

    Edt_SiparisMiktari.Text = '';

    ShowMessage('Sipariş başarıyla eklendi.');

  }

  except

  {

    ShowMessage('Veri ekleme hatası: ' + LastExceptionMessage);

  }

  }

}

{

  // Form Initialization

  TedarikciForm = TclForm.Create(Self);

  TedarikciForm.clSetWindowState(fwsMaximized);

  TedarikciForm.SetFormColor('#c4c4c4', '#c4c4c4', clGVertical);

  // Form Title

  Lbl_Baslik = TedarikciForm.AddNewProLabel(TedarikciForm, 'Lbl_Baslik', 'Tedarikçi Sipariş Ekleme Sayfası');

  Lbl_Baslik.Align = alTop;

  Lbl_Baslik.Height = 60;

  Lbl_Baslik.Margins.Top = 30;

  Lbl_Baslik.clProSettings.FontSize = 26;

  Lbl_Baslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#fc0000');

  Lbl_Baslik.clProSettings.FontVertAlign = palCenter;

  Lbl_Baslik.clProSettings.FontHorzAlign = palCenter;

  Lbl_Baslik.SetclProSettings(Lbl_Baslik.clProSettings);

  // Left Panel (For form inputs)

  leftPanel = TedarikciForm.AddNewProPanel(TedarikciForm, 'leftPanel');

  leftPanel.Align = alLeft;

  leftPanel.Width = 400;  // Left panel takes 1/4th of the width

  leftPanel.Margins.Top = 20;

  leftPanel.Margins.Left = 20;

  leftPanel.Margins.Right = 20;

  // Right Panel (For Grid)

  rightPanel = TedarikciForm.AddNewProPanel(TedarikciForm, 'rightPanel');

  rightPanel.Align = alClient;  // Right panel takes the remaining space

  rightPanel.Margins.Top = 20;

  rightPanel.Margins.Left = 20;

  rightPanel.Margins.Right = 20;

  // Left Panel Widgets (Tedarikçi Bilgileri)

  Lbl_TedarikciAdi = TedarikciForm.AddNewProLabel(leftPanel, 'Lbl_TedarikciAdi', 'Tedarikçi Adı');

  Lbl_TedarikciAdi.Align = alTop;

  Lbl_TedarikciAdi.Height = 30;

  Lbl_TedarikciAdi.clProSettings.FontSize = 14;

  Lbl_TedarikciAdi.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  Lbl_TedarikciAdi.SetclProSettings(Lbl_TedarikciAdi.clProSettings);

  Edt_TedarikciAdi = TedarikciForm.AddNewProEdit(leftPanel, 'Edt_TedarikciAdi', '');

  Edt_TedarikciAdi.Align = alTop;

  Edt_TedarikciAdi.Height = 40;

  Edt_TedarikciAdi.Width = leftPanel.Width * 70 div 100;

  Edt_TedarikciAdi.Margins.Top = 10;

  Edt_TedarikciAdi.SetclProSettings(Edt_TedarikciAdi.clProSettings);

  Lbl_TedarikciTelefon = TedarikciForm.AddNewProLabel(leftPanel, 'Lbl_TedarikciTelefon', 'Telefon');

  Lbl_TedarikciTelefon.Align = alTop;

  Lbl_TedarikciTelefon.Height = 30;

  Lbl_TedarikciTelefon.clProSettings.FontSize = 14;

  Lbl_TedarikciTelefon.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  Lbl_TedarikciTelefon.SetclProSettings(Lbl_TedarikciTelefon.clProSettings);

  Edt_TedarikciTelefon = TedarikciForm.AddNewProEdit(leftPanel, 'Edt_TedarikciTelefon', '');

  Edt_TedarikciTelefon.Align = alTop;

  Edt_TedarikciTelefon.Height = 40;

  Edt_TedarikciTelefon.Width = leftPanel.Width * 70 div 100;

  Edt_TedarikciTelefon.Margins.Top = 10;

  Edt_TedarikciTelefon.SetclProSettings(Edt_TedarikciTelefon.clProSettings);

  Lbl_UrunAdi = TedarikciForm.AddNewProLabel(leftPanel, 'Lbl_UrunAdi', 'Ürün Adı');

  Lbl_UrunAdi.Align = alTop;

  Lbl_UrunAdi.Height = 30;

  Lbl_UrunAdi.clProSettings.FontSize = 14;

  Lbl_UrunAdi.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  Lbl_UrunAdi.SetclProSettings(Lbl_UrunAdi.clProSettings);

  Edt_UrunAdi = TedarikciForm.AddNewProEdit(leftPanel, 'Edt_UrunAdi', '');

  Edt_UrunAdi.Align = alTop;

  Edt_UrunAdi.Height = 40;

  Edt_UrunAdi.Width = leftPanel.Width * 70 div 100;

  Edt_UrunAdi.Margins.Top = 10;

  Edt_UrunAdi.SetclProSettings(Edt_UrunAdi.clProSettings);

  Lbl_SiparisMiktari = TedarikciForm.AddNewProLabel(leftPanel, 'Lbl_SiparisMiktari', 'Sipariş Miktarı');

  Lbl_SiparisMiktari.Align = alTop;

  Lbl_SiparisMiktari.Height = 30;

  Lbl_SiparisMiktari.clProSettings.FontSize = 14;

  Lbl_SiparisMiktari.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  Lbl_SiparisMiktari.SetclProSettings(Lbl_SiparisMiktari.clProSettings);

  Edt_SiparisMiktari = TedarikciForm.AddNewProEdit(leftPanel, 'Edt_SiparisMiktari', '');

  Edt_SiparisMiktari.Align = alTop;

  Edt_SiparisMiktari.Height = 40;

  Edt_SiparisMiktari.Width = leftPanel.Width * 70 div 100;

  Edt_SiparisMiktari.Margins.Top = 10;

  Edt_SiparisMiktari.SetclProSettings(Edt_SiparisMiktari.clProSettings);

  Lbl_SiparisTarihi = TedarikciForm.AddNewProLabel(leftPanel, 'Lbl_SiparisTarihi', 'Sipariş Tarihi');

  Lbl_SiparisTarihi.Align = alTop;

  Lbl_SiparisTarihi.Height = 30;

  Lbl_SiparisTarihi.clProSettings.FontSize = 14;

  Lbl_SiparisTarihi.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  Lbl_SiparisTarihi.SetclProSettings(Lbl_SiparisTarihi.clProSettings);

  Dt_SiparisTarihi = TedarikciForm.AddNewProDateEdit(leftPanel, 'Dt_SiparisTarihi');

  Dt_SiparisTarihi.Align = alTop;

  Dt_SiparisTarihi.Height = 40;

  Dt_SiparisTarihi.Width = leftPanel.Width * 70 div 100;

  Dt_SiparisTarihi.Margins.Top = 10;

  Dt_SiparisTarihi.SetclProSettings(Dt_SiparisTarihi.clProSettings);

  Lbl_TeslimatTarihi = TedarikciForm.AddNewProLabel(leftPanel, 'Lbl_TeslimatTarihi', 'Teslimat Tarihi');

  Lbl_TeslimatTarihi.Align = alTop;

  Lbl_TeslimatTarihi.Height = 30;

  Lbl_TeslimatTarihi.clProSettings.FontSize = 14;

  Lbl_TeslimatTarihi.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  Lbl_TeslimatTarihi.SetclProSettings(Lbl_TeslimatTarihi.clProSettings);

  Dt_TeslimatTarihi = TedarikciForm.AddNewProDateEdit(leftPanel, 'Dt_TeslimatTarihi');

  Dt_TeslimatTarihi.Align = alTop;

  Dt_TeslimatTarihi.Height = 40;

  Dt_TeslimatTarihi.Width = leftPanel.Width * 70 div 100;

  Dt_TeslimatTarihi.Margins.Top = 10;

  Dt_TeslimatTarihi.SetclProSettings(Dt_TeslimatTarihi.clProSettings);

  Btn_SiparisEkle = TedarikciForm.AddNewProButton(leftPanel, 'Btn_SiparisEkle', 'Sipariş Ekle');

  Btn_SiparisEkle.Align = alTop;

  Btn_SiparisEkle.Height = 50;

  Btn_SiparisEkle.Width = leftPanel.Width * 70 div 100;

  Btn_SiparisEkle.Margins.Top = 10;

  Btn_SiparisEkle.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#4CAF50');

  Btn_SiparisEkle.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

  Btn_SiparisEkle.clProSettings.FontSize = 16;

  Btn_SiparisEkle.SetclProSettings(Btn_SiparisEkle.clProSettings);

  // Grid for displaying orders

  MyGrid = TedarikciForm.AddNewStringGrid(rightPanel, 'MyGrid');

  MyGrid.Align = alClient;

  MyGrid.ReadOnly = True;

  // SQL bağlantısı

  selectQuery = TClSqlQuery.Create(nil);

  Clomosy.DBSQLServerConnect('SQL Server', 'DESKTOP-E2HF8JM\SQLEXPRESS', 'sa', '1', 'StokYonetim', 1433);

  selectQuery.Connection = Clomosy.DBSQLServerConnection;

  // Verileri çek

  AddDataToGrid;

  TedarikciForm.AddNewEvent(Btn_SiparisEkle, tbeOnClick, 'SiparisEkleButtonClick');

  TedarikciForm.clSetWindowState(fwsMaximized);

  TedarikciForm.Run;

}