Output Error

   Aşağıdaki kod sipariş sayfasının kodu.Bu kodda bilgileri dolurduğum halde tüm bilgileri doldurun diyor fakat sonrasında sipariş eklendi diyip sqle ve gride bilgileri kaydediyor.

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;
}

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Muammer Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 24 Haziran 2025 Konum: Konya/meram Durum: Aktif Değil Puanlar: 22	Mesaj Seçenekleri Yanıt Yaz Alıntı Muammer Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Output Error Gönderim Zamanı: Dün Saat 13:32
	Aşağıdaki kod sipariş sayfasının kodu.Bu kodda bilgileri dolurduğum halde tüm bilgileri doldurun diyor fakat sonrasında sipariş eklendi diyip sqle ve gride bilgileri kaydediyor. 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; }

haletr Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Deneyimli Üye Kayıt Tarihi: 16 Haziran 2025 Konum: Konya Durum: Aktif Değil Puanlar: 76	Mesaj Seçenekleri Yanıt Yaz Alıntı haletr Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 10 Saat 43 Dakika Önce Saat 09:17
	Merhaba, TclProDateEdit nesnesinde sectiğimiz tarihi almak için .Text kullanamıyoruz. Bunun yerine .DateStr kullanmamız gerekiyor. void SiparisEkleButtonClick { TedarikciAdi = Edt_TedarikciAdi.Text; TedarikciTelefon = Edt_TedarikciTelefon.Text; UrunAdi = Edt_UrunAdi.Text; SiparisTarihi = Dt_SiparisTarihi.DateStr; SiparisMiktari=Edt_SiparisMiktari.Text; TeslimatTarihi = Dt_TeslimatTarihi.DateStr; // Boş alan kontrolü if ((TedarikciAdi == '') \|\| (TedarikciTelefon == '') \|\| (UrunAdi == '') \|\| (SiparisMiktari == '') \|\| (SiparisTarihi == '') \|\| (TeslimatTarihi == '')) { ShowMessage('Lütfen tüm alanları doldurun.'); } İyi çalışmalar.

Muammer Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 24 Haziran 2025 Konum: Konya/meram Durum: Aktif Değil Puanlar: 22	Mesaj Seçenekleri Yanıt Yaz Alıntı Muammer Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 10 Saat 3 Dakika Önce Saat 09:57
	iyi günler dediğiniz düzeltmeleri yaptım fakat şimdi de aşağıdaki hatayı alıyorum veri ekleme hatası:Conversion failed when converting date and/or time from character string

haletr Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Deneyimli Üye Kayıt Tarihi: 16 Haziran 2025 Konum: Konya Durum: Aktif Değil Puanlar: 76	Mesaj Seçenekleri Yanıt Yaz Alıntı haletr Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 9 Saat 49 Dakika Önce Saat 10:11
	SiparisTarihi ve TeslimatTarihi kullandığınız tabloda Date mi yoksa String mi acaba? Tabloda türü Date ise ekleme yaparken StrToDate() ile dönüştürmemiz gerekiyor.

Muammer Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 24 Haziran 2025 Konum: Konya/meram Durum: Aktif Değil Puanlar: 22	Mesaj Seçenekleri Yanıt Yaz Alıntı Muammer Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 9 Saat 36 Dakika Önce Saat 10:24
	ilk baştaki kodda belirttiğim gibi sonrasında text yerine DateStr yazdım sadece

Muammer Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 24 Haziran 2025 Konum: Konya/meram Durum: Aktif Değil Puanlar: 22	Mesaj Seçenekleri Yanıt Yaz Alıntı Muammer Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 9 Saat 17 Dakika Önce Saat 10:43
	o sorunu hallettim fakat şimdi de şöyle bir sorun oluştu. Tarihi güncel girmiyor.Sürekli 01.01.1900 olarak giriyor 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: String; SiparisMiktari: Integer; SiparisTarihi, TeslimatTarihi: String; // String olarak bırakıldı, DateStr ile uyumlu hale getirildi 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; SiparisMiktari = Edt_SiparisMiktari.Text; // Miktarı integer'a çevir // Boş alan kontrolü if ((TedarikciAdi == '') \|\| (TedarikciTelefon == '') \|\| (UrunAdi == '') \|\| (SiparisMiktari == '') \|\| (Dt_TeslimatTarihi.DateStr == '') \|\| (Dt_SiparisTarihi.DateStr == '')) { 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(Dt_SiparisTarihi.Text) + ', ' + QuotedStr(Dt_TeslimatTarihi.Text) + ')'; 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; }

haletr Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Deneyimli Üye Kayıt Tarihi: 16 Haziran 2025 Konum: Konya Durum: Aktif Değil Puanlar: 76	Mesaj Seçenekleri Yanıt Yaz Alıntı haletr Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 9 Saat 11 Dakika Önce Saat 10:49
	selectQuery.SQL.Text = 'INSERT INTO TBLTedarikciSiparis (TedarikciAdi, Telefon, Urun, Miktar, SiparisTarihi, TeslimatTarihi) VALUES (' + QuotedStr(TedarikciAdi) + ', ' + QuotedStr(TedarikciTelefon) + ', ' + QuotedStr(UrunAdi) + ', ' + IntToStr(SiparisMiktari) + ', ' + QuotedStr(Dt_SiparisTarihi.Text) + ', ' + //burası QuotedStr(Dt_TeslimatTarihi.Text) + ')'; //burası selectQuery.ExecSQL; Bu kısımları bu şekilde güncelleyip dener misin? QuotedStr(Dt_SiparisTarihi.DateStr) + ', ' + QuotedStr(Dt_TeslimatTarihi.DateStr) + ')';

yalperen Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 17 Haziran 2025 Konum: Konya Durum: Aktif Değil Puanlar: 12	Mesaj Seçenekleri Yanıt Yaz Alıntı yalperen Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 8 Saat 36 Dakika Önce Saat 11:24
	Merhaba, SQL'de tarih formatı farklı olduğundan dolayı hata veriyor olabilir. SiparisEkleButonClick void'inde bulunan SelectQuery.SQL.Text kısmına 'INSERT INTO TBLTedarikciSiparis (TedarikciAdi, Telefon, Urun, Miktar, SiparisTarihi, TeslimatTarihi) VALUES (' + QuotedStr(TedarikciAdi) + ', ' + QuotedStr(TedarikciTelefon) + ', ' + QuotedStr(UrunAdi) + ', ' + IntToStr(SiparisMiktari) + ', ' + 'TRY_CONVERT(DATE, ' + QuotedStr(Dt_SiparisTarihi.DateStr) + ', 104), ' + 'TRY_CONVERT(DATE, ' + QuotedStr(Dt_TeslimatTarihi.DateStr) + ', 104))' ; Bu şekilde yazarsan TRY_CONVERT ile zaman SQL'de çevrilir ve sorun çözülür diye düşünüyorum.