Bu kod Dashboard ekranının kodu.Grid ekranı üzerinde bulunan sqlden çekilen tabloda alt alta aynı satır var ve bu yüzden de sqldeki tablonun ilk satırı görünmüyor.
var MyForm: TclForm; MyGrid: TclStringGrid; Lbl_Baslik: TClProLabel; LblUyari: TClProLabel; DtEdt1: TClProDateEdit; Edt_StokKodu: TclProEdit; Lbl_Tarih: TClProLabel; Lbl_StokKodu: TClProLabel; Btn_Filtrele, Btn_TedarikciSiparisTakibi, Btn_QR, Btn_YeniUrunEkle, Btn_SatisFire: TClProButton; selectQuery: TClSqlQuery; Str_StokKodu: String; Str_DateEdit: String; Edt_QRText: TclProEdit; QRImage: TclProImage; qrUrl, fullQRText: String; Unit2: TclUnit; Unit3: TclUnit; Unit4, Unit5, Unit6: TclUnit; mainPnl: TclProPanel; leftPanel: TclProPanel; rightPanel: TclProPanel; Edt_FilterText: TclProEdit; // Filtreleme için yeni metin kutusu Dt_FilterDate: TClProDateEdit; // Filtreleme için tarih seçme alanı filterText, filterDate: String;
void GoToUnit2; { MyForm.clShow; Unit2.UnitName = 'qrolustur'; Unit2.CallerForm = MyForm; Unit2.Run; } void GoToUnit3; { MyForm.clShow; Unit3.UnitName = 'UrunEkle'; Unit3.CallerForm = MyForm; Unit3.Run; } void GoToUnit4; { MyForm.clShow; Unit4.UnitName = 'SatisFire'; Unit4.CallerForm = MyForm; Unit4.Run; } // Tedarikçi Sipariş Takibi sayfasına yönlendirecek fonksiyon void GoToUnit5; { MyForm.clShow; Unit5.UnitName = 'TedarikciSiparisTakibi'; Unit5.CallerForm = MyForm; Unit5.Run; }
void SetupGridColumns; { MyGrid.Cells[0, 0] = 'Urun Kodu'; MyGrid.Cells[1, 0] = 'Urun Adı'; MyGrid.Cells[2, 0] = 'Stok Miktarı'; MyGrid.Cells[3, 0] = 'Kritik Seviye'; MyGrid.Cells[4, 0] = 'Depo Yeri ID'; MyGrid.Cells[5, 0] = 'Birim Fiyat'; MyGrid.Cells[6, 0] = 'Oluşturma Tarihi';
MyGrid.Columns[0].Width = 100; MyGrid.Columns[1].Width = 150; MyGrid.Columns[2].Width = 100; MyGrid.Columns[3].Width = 100; MyGrid.Columns[4].Width = 100; MyGrid.Columns[5].Width = 100; MyGrid.Columns[6].Width = 120; }
void AddDataToGrid; { try selectQuery.SQL.Text = 'SELECT UrunKodu, UrunAdi, StokMiktari, KritikSeviye, DepoYeriID, BirimFiyat, OlusturmaTarihi FROM TBLSTOKSB'; selectQuery.Open; if (selectQuery.Found) { MyForm.RemoveGridBinding('myLink'); MyForm.AddNewGridBinding(MyGrid, selectQuery, 'myLink'); SetupGridColumns; } else { ShowMessage('Kayıt bulunamadı!'); } except ShowMessage('Hata oluştu: ' + LastExceptionMessage); } }
void OnFilterClick; {
filterText = Edt_FilterText.Text; filterDate = DtEdt1.Text;
try selectQuery.SQL.Text = 'SELECT UrunKodu, UrunAdi, StokMiktari, KritikSeviye, DepoYeriID, BirimFiyat, OlusturmaTarihi ' + 'FROM TBLSTOKSB WHERE 1=1 ';
if (filterText <> '') { selectQuery.SQL.Text = selectQuery.SQL.Text + ' AND UrunKodu LIKE ''%' + filterText + '%'' '; }
if (filterDate <> '') { selectQuery.SQL.Text = selectQuery.SQL.Text + ' AND CAST(OlusturmaTarihi AS DATE) = ''' + filterDate + ''' '; }
selectQuery.Open;
if selectQuery.Found { MyForm.RemoveGridBinding('myLink'); MyForm.AddNewGridBinding(MyGrid, selectQuery, 'myLink'); SetupGridColumns; } else { ShowMessage('Filtre sonucu bulunamadı!'); } except ShowMessage('Filtreleme hatası: ' + LastExceptionMessage); } }
void GenerateQRClick; { fullQRText = 'StokKodu:' + Edt_StokKodu.Text + '+Tarih:' + DtEdt1.Text + '+Not:' + Edt_QRText.Text; qrUrl = ' https://api.qrserver.com/v1/create-qr-code/?size=300x300&data=" rel="nofollow - https://api.qrserver.com/v1/create-qr-code/?size=300x300&data= ' + fullQRText; }
{ // Ana formu oluşturur ve arka plan rengini ayarlar MyForm = TclForm.Create(Self); MyForm.SetFormColor('#c4c4c4', '#c4c4c4', clGVertical); Unit2=TclUnit.Create; Unit3=TclUnit.Create; Unit4=TclUnit.Create; Unit5=TclUnit.Create; Unit6=TclUnit.Create;
// Dashboard başlığını oluşturur ve stil ayarlarını yapar Lbl_Baslik = MyForm.AddNewProLabel(MyForm, 'Lbl_Baslik', 'STOK YÖNETİM DASHBOARD'); 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: Sol paneli oluşturuyoruz leftPanel = MyForm.AddNewProPanel(MyForm, 'leftPanel'); leftPanel.Align = alLeft; leftPanel.Width = 200; // Ekranın 4'te 1'ini kaplar leftPanel.Margins.Top = 20; leftPanel.Margins.Left = 20; leftPanel.Margins.Right = 20;
// Right Panel: Sağ paneli oluşturuyoruz rightPanel = MyForm.AddNewProPanel(MyForm, 'rightPanel'); rightPanel.Align = alClient; // Sağ panel, kalan tüm alanı alacak rightPanel.Margins.Top = 20; rightPanel.Margins.Left = 20; rightPanel.Margins.Right = 20;
// Sol paneldeki butonlar (alt alta) Btn_QR = MyForm.AddNewProButton(leftPanel, 'Btn_QR', 'QR OLUŞTUR'); Btn_QR.Align = alTop; Btn_QR.Margins.Top = 10; Btn_QR.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#fc0000'); Btn_QR.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); Btn_QR.clProSettings.FontSize = 16; Btn_QR.SetclProSettings(Btn_QR.clProSettings); MyForm.AddNewEvent(Btn_QR, tbeOnClick, 'GenerateQRClick');
Btn_TedarikciSiparisTakibi = MyForm.AddNewProButton(leftPanel, 'Btn_TedarikciSiparisTakibi', 'Tedarikçi Sipariş Takibi'); Btn_TedarikciSiparisTakibi.Align = alTop; Btn_TedarikciSiparisTakibi.Margins.Top = 10; Btn_TedarikciSiparisTakibi.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#4CAF50'); Btn_TedarikciSiparisTakibi.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); Btn_TedarikciSiparisTakibi.clProSettings.FontSize = 16; Btn_TedarikciSiparisTakibi.SetclProSettings(Btn_TedarikciSiparisTakibi.clProSettings);
Btn_YeniUrunEkle = MyForm.AddNewProButton(leftPanel, 'Btn_YeniUrunEkle', 'Yeni Ürün Ekle'); Btn_YeniUrunEkle.Align = alTop; Btn_YeniUrunEkle.Margins.Top = 10; Btn_YeniUrunEkle.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#4CAF50'); Btn_YeniUrunEkle.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); Btn_YeniUrunEkle.clProSettings.FontSize = 16; Btn_YeniUrunEkle.SetclProSettings(Btn_YeniUrunEkle.clProSettings);
Btn_SatisFire = MyForm.AddNewProButton(leftPanel, 'Btn_SatisFire', 'Satış ve Fire İşlemleri'); Btn_SatisFire.Align = alTop; Btn_SatisFire.Margins.Top = 10; Btn_SatisFire.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#4CAF50'); Btn_SatisFire.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); Btn_SatisFire.clProSettings.FontSize = 16; Btn_SatisFire.SetclProSettings(Btn_SatisFire.clProSettings);
// Sağ paneldeki filtreleme butonu ve grid Edt_FilterText = MyForm.AddNewProEdit(rightPanel, 'Edt_FilterText', ''); Edt_FilterText.Align = alTop; Edt_FilterText.Height = 30; Edt_FilterText.Width = 150; Edt_FilterText.Margins.Top = 10; Edt_FilterText.SetclProSettings(Edt_FilterText.clProSettings);
Lbl_Tarih = MyForm.AddNewProLabel(rightPanel, 'Lbl_Tarih', 'Tarih Seç'); Lbl_Tarih.Align = alTop; Lbl_Tarih.Height = 30; Lbl_Tarih.clProSettings.FontSize = 12; Lbl_Tarih.clProSettings.FontColor = clAlphaColor.clHexToColor('#080808'); Lbl_Tarih.SetclProSettings(Lbl_Tarih.clProSettings);
DtEdt1 = MyForm.AddNewProDateEdit(rightPanel, 'DtEdt1'); DtEdt1.Align = alTop; DtEdt1.Height = 30; DtEdt1.Width = 150; DtEdt1.Margins.Top = 10; DtEdt1.SetclProSettings(DtEdt1.clProSettings);
Btn_Filtrele = MyForm.AddNewProButton(rightPanel, 'Btn_Filtrele', 'Filtrele'); Btn_Filtrele.Align = alTop; Btn_Filtrele.Height = 50; Btn_Filtrele.Width = 150; Btn_Filtrele.Margins.Top = 10; Btn_Filtrele.clProSettings.RoundHeight = 10; Btn_Filtrele.clProSettings.RoundWidth = 10; Btn_Filtrele.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#fc0000'); Btn_Filtrele.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); Btn_Filtrele.clProSettings.FontSize = 12; Btn_Filtrele.clProSettings.BorderWidth = 2; Btn_Filtrele.SetclProSettings(Btn_Filtrele.clProSettings); MyForm.AddNewEvent(Btn_Filtrele, tbeOnClick, 'OnFilterClick');
MyGrid = MyForm.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; MyForm.AddNewEvent(Btn_QR, tbeOnClick, 'GoToUnit2'); MyForm.AddNewEvent(Btn_YeniUrunEkle, tbeOnClick, 'GoToUnit3'); MyForm.AddNewEvent(Btn_SatisFire, tbeOnClick, 'GoToUnit4'); MyForm.AddNewEvent(Btn_TedarikciSiparisTakibi, tbeOnClick, 'GoToUnit5'); MyForm.clSetWindowState(fwsMaximized);
MyForm.Run; }
|