Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - Output Error
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

Output Error
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
Muammer Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 24 Haziran 2025
Konum: Konya/meram
Durum: Aktif Değil
Puanlar: 13 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Muammer Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Output Error
    Gönderim Zamanı: 8 Saat 53 Dakika Önce 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;
}
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,047 Saniyede Yüklendi.