Clomosy | Forum : Output Error

Clomosy | Forum : Output Error https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 13:14:52 +0000 Wed, 16 Jul 2025 11:24:16 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1086 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Output Error : Merhaba,SQL'de tarih formatı...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1086&PID=2211#2211 Yazar: yalperen
Konu: 1086
Gönderim Zamanı: 16 Temmuz 2025 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.

]]> Wed, 16 Jul 2025 11:24:16 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1086&PID=2211#2211 <![CDATA[Output Error : selectQuery.SQL.Text = 'INSERT...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1086&PID=2210#2210 Yazar: haletr
Konu: 1086
Gönderim Zamanı: 16 Temmuz 2025 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) + ')';

]]> Wed, 16 Jul 2025 10:49:28 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1086&PID=2210#2210 <![CDATA[Output Error : o sorunu hallettim fakat şimdi...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1086&PID=2208#2208 Yazar: Muammer
Konu: 1086
Gönderim Zamanı: 16 Temmuz 2025 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;

}

]]> Wed, 16 Jul 2025 10:43:18 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1086&PID=2208#2208 <![CDATA[Output Error : ilk baştaki kodda belirttiğim...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1086&PID=2207#2207 Yazar: Muammer
Konu: 1086
Gönderim Zamanı: 16 Temmuz 2025 Saat 10:24

ilk baştaki kodda belirttiğim gibi
sonrasında text yerine DateStr yazdım sadece]]> Wed, 16 Jul 2025 10:24:24 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1086&PID=2207#2207 <![CDATA[Output Error : SiparisTarihi ve TeslimatTarihi...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1086&PID=2206#2206 Yazar: haletr
Konu: 1086
Gönderim Zamanı: 16 Temmuz 2025 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.]]> Wed, 16 Jul 2025 10:11:31 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1086&PID=2206#2206 <![CDATA[Output Error : iyi günlerdediğiniz düzeltmeleri...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1086&PID=2204#2204 Yazar: Muammer
Konu: 1086
Gönderim Zamanı: 16 Temmuz 2025 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]]> Wed, 16 Jul 2025 09:57:39 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1086&PID=2204#2204 <![CDATA[Output Error : Merhaba,TclProDateEdit nesnesinde...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1086&PID=2202#2202 Yazar: haletr
Konu: 1086
Gönderim Zamanı: 16 Temmuz 2025 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.

]]> Wed, 16 Jul 2025 09:17:02 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1086&PID=2202#2202 <![CDATA[Output Error : Aşağıdaki kod sipariş sayfasının...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1086&PID=2197#2197 Yazar: Muammer
Konu: 1086
Gönderim Zamanı: 15 Temmuz 2025 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;

}

]]> Tue, 15 Jul 2025 13:32:46 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1086&PID=2197#2197