Sayfayı Yazdır | Pencereyi Kapat

TclComboBox Hatası

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=944
Tarih: 04 Ocak 2025 Saat 11:35
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: TclComboBox Hatası
Mesajı Yazan: maliyagci
Konu: TclComboBox Hatası
Mesaj Tarihi: 14 Ekim 2024 Saat 14:17
Merhabalar, TclComboBox'ı çalıştırınca mobil clomosy.exe kapanıyor, yardımcı olabilir misiniz?
Teşekkürler.


Cevaplar:
Mesajı Yazan: Developer
Mesaj Tarihi: 14 Ekim 2024 Saat 14:51
Merhaba Ali
Kodunu paylaşabilir misin? 

Mesajı Yazan: maliyagci
Mesaj Tarihi: 14 Ekim 2024 Saat 14:57
Şöyle ki şu an mobil exe kapanmıyor ama ComboBoxStokBakiyeStokKodu'nda örneğin "ST.002" yi seçince ComboBoxStokBakiyeStokAdi "Satılacak Stok2" gözükmesini istiyorum if-else if şeklinde yazdığım kod aşağıda mevcuttur, Ne yapmalıyım?





var

    MyFormStokBakiyeRaporuFiltreleme:TclForm;
    StokBakiyeRaporuFiltreleme_Button:TClProButton;
    DateEditStokBakiyeFiltreleme: TClProDateEdit;
    LabelTarihStokBakiye,LabelStokBakiyeStokKodu,LabelStokBakiyeStokAdi,
    LabelKodYerineIsimGelsin,LabelStokYazilanIsimGelsin,LabelHizmetStoklariHaric:TClProLabel;
    ComboBoxStokBakiyeStokKodu,ComboBoxStokBakiyeStokAdi:TCLComboBox;
    CheckBoxKodYerineIsimGelsin,CheckBoxStokYazilanIsimGelsin,CheckBoxHizmetStoklariHaric:TCLCheckBox;
    
    selectedCode:string;
    
    
    //testButton : TclButton;

void GoToStokBakiyeRaporu;
{
    Clomosy.RunUnit('uStokBakiyeRaporu');
}


void SetTestDate;
{
  DateEditStokBakiyeFiltreleme = MyFormStokBakiyeRaporuFiltreleme.AddNewProDateEdit(MyFormStokBakiyeRaporuFiltreleme,'DateEditStokBakiyeFiltreleme');
  DateEditStokBakiyeFiltreleme.Margins.Bottom = 340;
  DateEditStokBakiyeFiltreleme.Margins.Left = 60;
  DateEditStokBakiyeFiltreleme.Width = 130;
  DateEditStokBakiyeFiltreleme.Height = 20;
  DateEditStokBakiyeFiltreleme.clProSettings.BorderColor = clAlphaColor.clHexToColor('#323d8c');
  DateEditStokBakiyeFiltreleme.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
  //DateEditStokBakiyeFiltreleme.clProSettings.RoundHeight = 10;
  //DateEditStokBakiyeFiltreleme.clProSettings.RoundWidth = 10;
  //DateEditStokBakiyeFiltreleme.clProSettings.BorderWidth = 2;
  DateEditStokBakiyeFiltreleme.clProSettings.FontHorzAlign = palCenter;
  DateEditStokBakiyeFiltreleme.clProSettings.TextSettings.Font.Style = [fsBold];
  DateEditStokBakiyeFiltreleme.clProSettings.FontSize = 14;
  DateEditStokBakiyeFiltreleme.clProSettings.IsFill = True; 
  DateEditStokBakiyeFiltreleme.clProSettings.IsRound = True;
  DateEditStokBakiyeFiltreleme.SetclProSettings(DateEditStokBakiyeFiltreleme.clProSettings);
}






// EVET HAYIR CHECKBOX'LARA TIKLAYINCA DEĞİŞEN FONKSİYONLAR
void OnChangeCheckBoxKodYerineIsimGelsin;
{
    // Eğer metin 'Hayır' ise, tıklanma sonrasında 'Evet' yap
    if CheckBoxKodYerineIsimGelsin.Text == 'Hayır' 
    {
        CheckBoxKodYerineIsimGelsin.Text = 'Evet';
        CheckBoxKodYerineIsimGelsin.IsChecked = False;
    }
    // Eğer metin 'Evet' ise, tıklanma sonrasında 'Hayır' yap
    else 
    {
        CheckBoxKodYerineIsimGelsin.Text = 'Hayır';
        CheckBoxKodYerineIsimGelsin.IsChecked = True;
    }
}

void OnChangeCheckBoxStokYazilanIsimGelsin;
{
      // Eğer metin 'Hayır' ise, tıklanma sonrasında 'Evet' yap
    if CheckBoxStokYazilanIsimGelsin.Text == 'Hayır' 
    {
        CheckBoxStokYazilanIsimGelsin.Text = 'Evet';
        CheckBoxStokYazilanIsimGelsin.IsChecked = False;
    }
    // Eğer metin 'Evet' ise, tıklanma sonrasında 'Hayır' yap
    else 
    {
        CheckBoxStokYazilanIsimGelsin.Text = 'Hayır';
        CheckBoxStokYazilanIsimGelsin.IsChecked = True;
    }
}

void OnChangeCheckBoxHizmetStoklariHaric;
{
      // Eğer metin 'Hayır' ise, tıklanma sonrasında 'Evet' yap
    if CheckBoxHizmetStoklariHaric.Text == 'Hayır' 
    {
        CheckBoxHizmetStoklariHaric.Text = 'Evet';
        CheckBoxHizmetStoklariHaric.IsChecked = False;
    }
    // Eğer metin 'Evet' ise, tıklanma sonrasında 'Hayır' yap
    else 
    {
        CheckBoxHizmetStoklariHaric.Text = 'Hayır';
        CheckBoxHizmetStoklariHaric.IsChecked = True;
    }
}











void OnChangeComboBoxStokBakiyeStokKodu;
{
    selectedCode = ComboBoxStokBakiyeStokKodu.GetValueIndex(ComboBoxStokBakiyeStokKodu.ItemIndex);

    // Seçilen stok koduna göre stok adını ayarla
    if (selectedCode == 'ST.002') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Satılacak Stok2';
    } 
    else if (selectedCode == 'ST.003') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Fren Diskleri (Ön Sol)';
    }
    else if (selectedCode == 'ST.004') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Fren Diskleri (Ön Sağ)';
    }
    else if (selectedCode == 'ST.005') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Fren Diskleri (Arka Sol)';
    }
    else if (selectedCode == 'ST.006') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Fren Diskleri (Arka Sağ)';
    }
    else if (selectedCode == 'ST.007') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Yağ Filtresi';
    }
    else if (selectedCode == 'ST.008') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Hava Filtresi';
    }
    else if (selectedCode == 'ST.009') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Yakıt Filtresi';
    }
    else if (selectedCode == 'ST.010') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Polen Filtresi';
    }
    else if (selectedCode == 'ST.011') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Motor Yağ Filtresi';
    }
    else if (selectedCode == 'ST.012') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Süspansiyon Parçası';
    }
    else if (selectedCode == 'ST.013') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Fren Balatası';
    }
    else if (selectedCode == 'ST.014') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Direksiyon Pompası';
    }
    else if (selectedCode == 'ST.015') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Debriyaj Seti';
    }
    else if (selectedCode == 'ST.016') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Egzoz Sistemi';
    }
    else if (selectedCode == 'ST.017') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Amortisör';
    }
    else if (selectedCode == 'ST.018') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Vites Kutusu';
    }
    else if (selectedCode == 'ST.019') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Differansiyel';
    }
    else if (selectedCode == 'ST.020') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Radyatör';
    }
    else if (selectedCode == 'ST.021') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Alternatör';
    }
    else if (selectedCode == 'ST.022') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Hidrolik Direksiyon Kutusu';
    }
    else if (selectedCode == 'ST.023') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Lastik (205/55 R16)';
    }
    else if (selectedCode == 'ST.024') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Lastik (225/45 R17)';
    }
    else if (selectedCode == 'ST.025') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Lastik (195/65 R15)';
    }
    else if (selectedCode == 'ST.026') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Lastik (215/50 R18)';
    }
    else if (selectedCode == 'ST.027') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Akü (60 Ah)';
    }
    else if (selectedCode == 'ST.028') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Akü (70 Ah)';
    }
    else if (selectedCode == 'ST.029') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Akü (80 Ah)';
    }
    else if (selectedCode == 'ST.030') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Akü 90Ah';
    }
    else if (selectedCode == 'ST.031') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Far Ampulü (H7)';
    }
    else if (selectedCode == 'ST.032') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Far Ampulü (H4)';
    }
    else if (selectedCode == 'ST.033') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Yakıt Pompası';
    }
    else if (selectedCode == 'ST.034') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Motor Yağı';
    }
    else if (selectedCode == 'ST.035') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Yağ Filtresi';
    }
    else if (selectedCode == 'ST.036') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Hava Filtresi';
    }
    else if (selectedCode == 'ST.037') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Fren Diski';
    }
    else if (selectedCode == 'ST.038') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Benzin Filtresi';
    }
    else if (selectedCode == 'ST.039') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Arka Teker Poryası';
    }
    else if (selectedCode == 'ST.040') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Hidrolik Direksiyon';
    }
    else if (selectedCode == 'ST.041') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Turbo Şarj';
    }
    else if (selectedCode == 'ST.042') 
    {
        ComboBoxStokBakiyeStokAdi.ItemIndex = 'Yakıt Enjektörü';
    }
}











{
  MyFormStokBakiyeRaporuFiltreleme=TclForm.Create(Self);
  
  
  SetTestDate;

  //LabelTarihStokBakiye = MyFormStokBakiyeRaporuFiltreleme.AddNewProLabel(MyFormStokBakiyeRaporuFiltreleme,'LabelTarihStokBakiye','Tarih');
  
  
  
  // STOK DETAYLI FATURA / ALIŞ FATURASI BUTONN
  StokBakiyeRaporuFiltreleme_Button = MyFormStokBakiyeRaporuFiltreleme.AddNewProButton(MyFormStokBakiyeRaporuFiltreleme, 'StokBakiyeRaporuFiltreleme_Button', 'RAPOR');
  clComponent.SetupComponent(StokBakiyeRaporuFiltreleme_Button, '{
    "Caption":"RAPOR",
    "MarginTop": 250, 
    "MarginLeft":0,
    "Width": 150, 
    "Height": 50,
    "RoundHeight": 10, 
    "RoundWidth": 10,
    "BorderColor": "#2bcf25",
    "BorderWidth": 2,
    "TextColor": "#000000",
    "TextSize": 12,
    "TextBold": "yes",
    "TextVerticalAlign": "center", 
    "TextHorizontalAlign": "center",
    "BackgroundColor":"#FFFFFF"
  }'); 
  
  //MyFormStokBakiyeRaporuFiltreleme.SetImage(StokBakiyeRaporuFiltreleme_Button,' https://r.resimlink.com/eGcC_mrtzPn.jpg" rel="nofollow - https://r.resimlink.com/eGcC_mrtzPn.jpg ');
  

  ComboBoxStokBakiyeStokKodu = MyFormStokBakiyeRaporuFiltreleme.AddNewComboBox(MyFormStokBakiyeRaporuFiltreleme,'ComboBoxStokBakiyeStokKodu');
  ComboBoxStokBakiyeStokKodu.Align = alCenter;
  ComboBoxStokBakiyeStokKodu.Width = 220;
  ComboBoxStokBakiyeStokKodu.Margins.Bottom=520;
  ComboBoxStokBakiyeStokKodu.Margins.Left =150;
  ComboBoxStokBakiyeStokKodu.AddItem(' ','00');
  //ComboBoxStokBakiyeStokKodu.AddItem('ST.001','01');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.002','02');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.003','03');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.004','04');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.005','05');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.006','06');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.007','07');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.008','08');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.009','09');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.010','10');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.011','11');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.012','12');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.013','13');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.014','14');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.015','15');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.016','16');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.017','17');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.018','18');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.019','19');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.020','20');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.021','21');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.022','22');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.023','23');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.024','24');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.025','25');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.026','26');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.027','27');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.028','28');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.029','29');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.030','30');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.031','31');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.032','32');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.033','33');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.034','34');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.035','35');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.036','36');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.037','37');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.038','38');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.039','39');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.040','40');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.041','41');
  ComboBoxStokBakiyeStokKodu.AddItem('ST.042','42');



  ComboBoxStokBakiyeStokAdi = MyFormStokBakiyeRaporuFiltreleme.AddNewComboBox(MyFormStokBakiyeRaporuFiltreleme,'ComboBoxStokBakiyeStokAdi');
  ComboBoxStokBakiyeStokAdi.Align = alCenter;
  ComboBoxStokBakiyeStokAdi.Width = 220;
  ComboBoxStokBakiyeStokAdi.Margins.Bottom=450;
  ComboBoxStokBakiyeStokAdi.Margins.Left =150;
  ComboBoxStokBakiyeStokAdi.AddItem(' ','00');
  //ComboBoxStokBakiyeStokAdi.AddItem('Satılacak Stok','01');
  ComboBoxStokBakiyeStokAdi.AddItem('Satılacak Stok2','02');
  ComboBoxStokBakiyeStokAdi.AddItem('Fren Diskleri (Ön Sol)','03');
  ComboBoxStokBakiyeStokAdi.AddItem('Fren Diskleri (Ön Sağ)','04');
  ComboBoxStokBakiyeStokAdi.AddItem('Fren Diskleri (Arka Sol)','05');
  ComboBoxStokBakiyeStokAdi.AddItem('Fren Diskleri (Arka Sağ)','06');
  ComboBoxStokBakiyeStokAdi.AddItem('Yağ Filtresi','07');
  ComboBoxStokBakiyeStokAdi.AddItem('Hava Filtresi','08');
  ComboBoxStokBakiyeStokAdi.AddItem('Yakıt Filtresi','09');
  ComboBoxStokBakiyeStokAdi.AddItem('Polen Filtresi','10');
  ComboBoxStokBakiyeStokAdi.AddItem('Motor Yağ Filtresi','11');
  ComboBoxStokBakiyeStokAdi.AddItem('Süspansiyon Parçası','12');
  ComboBoxStokBakiyeStokAdi.AddItem('Fren Balatası','13');
  ComboBoxStokBakiyeStokAdi.AddItem('Direksiyon Pompası','14');
  ComboBoxStokBakiyeStokAdi.AddItem('Debriyaj Seti','15');
  ComboBoxStokBakiyeStokAdi.AddItem('Egzoz Sistemi','16');
  ComboBoxStokBakiyeStokAdi.AddItem('Amortisör','17');
  ComboBoxStokBakiyeStokAdi.AddItem('Vites Kutusu','18');
  ComboBoxStokBakiyeStokAdi.AddItem('Differansiyel','19');
  ComboBoxStokBakiyeStokAdi.AddItem('Radyatör','20');
  ComboBoxStokBakiyeStokAdi.AddItem('Alternatör','21');
  ComboBoxStokBakiyeStokAdi.AddItem('Hidrolik Direksiyon Kutusu','22');
  ComboBoxStokBakiyeStokAdi.AddItem('Lastik (205/55 R16)','23');
  ComboBoxStokBakiyeStokAdi.AddItem('Lastik (225/45 R17)','24');
  ComboBoxStokBakiyeStokAdi.AddItem('Lastik (195/65 R15)','25');
  ComboBoxStokBakiyeStokAdi.AddItem('Lastik (215/50 R18)','26');
  ComboBoxStokBakiyeStokAdi.AddItem('Akü (60 Ah)','27');
  ComboBoxStokBakiyeStokAdi.AddItem('Akü (70 Ah)','28');
  ComboBoxStokBakiyeStokAdi.AddItem('Akü (80 Ah)','29');
  ComboBoxStokBakiyeStokAdi.AddItem('Akü 90Ah','30');
  ComboBoxStokBakiyeStokAdi.AddItem('Far Ampulü (H7)','31');
  ComboBoxStokBakiyeStokAdi.AddItem('Far Ampulü (H4)','32');
  ComboBoxStokBakiyeStokAdi.AddItem('Yakıt Pompası','33');
  ComboBoxStokBakiyeStokAdi.AddItem('Motor Yağı','34');
  ComboBoxStokBakiyeStokAdi.AddItem('Yağ Filtresi','35');
  ComboBoxStokBakiyeStokAdi.AddItem('Hava Filtresi','36');
  ComboBoxStokBakiyeStokAdi.AddItem('Fren Diski','37');
  ComboBoxStokBakiyeStokAdi.AddItem('Benzin Filtresi','38');
  ComboBoxStokBakiyeStokAdi.AddItem('Arka Teker Poryası','39');
  ComboBoxStokBakiyeStokAdi.AddItem('Hidrolik Direksiyon','40');
  ComboBoxStokBakiyeStokAdi.AddItem('Turbo Şarj','41');
  ComboBoxStokBakiyeStokAdi.AddItem('Yakıt Enjektörü','42');



  // Checkbox oluşturma ve özellikleri ayarlama
  CheckBoxKodYerineIsimGelsin = MyFormStokBakiyeRaporuFiltreleme.AddNewCheckBox(MyFormStokBakiyeRaporuFiltreleme, 'CheckBoxKodYerineIsimGelsin', 'Hayır');
  CheckBoxKodYerineIsimGelsin.Width = 100; // Checkbox genişliği
  CheckBoxKodYerineIsimGelsin.Height = 50; // Checkbox yüksekliği
  CheckBoxKodYerineIsimGelsin.Align = alCenter;
  CheckBoxKodYerineIsimGelsin.Margins.Bottom = 260;
  CheckBoxKodYerineIsimGelsin.Margins.Left = 40; // Sol boşluk
  CheckBoxKodYerineIsimGelsin.StyledSettings = ssFamily;
  CheckBoxKodYerineIsimGelsin.TextSettings.Font.Size = 12; // Font boyutu
  CheckBoxKodYerineIsimGelsin.TextSettings.FontColor = clAlphaColor.clHexToColor('#8a067c'); 
  CheckBoxKodYerineIsimGelsin.TextSettings.Font.Style = [fsItalic]; // İtalik 
  
  CheckBoxStokYazilanIsimGelsin = MyFormStokBakiyeRaporuFiltreleme.AddNewCheckBox(MyFormStokBakiyeRaporuFiltreleme, 'CheckBoxStokYazilanIsimGelsin', 'Hayır');
  CheckBoxStokYazilanIsimGelsin.Width = 100; 
  CheckBoxStokYazilanIsimGelsin.Height = 50;
  CheckBoxStokYazilanIsimGelsin.Align = alCenter;
  CheckBoxStokYazilanIsimGelsin.Margins.Bottom = 180;
  CheckBoxStokYazilanIsimGelsin.Margins.Left = 40; 
  CheckBoxStokYazilanIsimGelsin.StyledSettings = ssFamily;
  CheckBoxStokYazilanIsimGelsin.TextSettings.Font.Size = 12; // Font boyutu
  CheckBoxStokYazilanIsimGelsin.TextSettings.FontColor = clAlphaColor.clHexToColor('#8a067c'); 
  CheckBoxStokYazilanIsimGelsin.TextSettings.Font.Style = [fsItalic]; // İtalik ve altı çizili font
  
  CheckBoxHizmetStoklariHaric = MyFormStokBakiyeRaporuFiltreleme.AddNewCheckBox(MyFormStokBakiyeRaporuFiltreleme, 'CheckBoxHizmetStoklariHaric', 'Hayır');
  CheckBoxHizmetStoklariHaric.Width = 100; // Checkbox genişliği
  CheckBoxHizmetStoklariHaric.Height = 50; // Checkbox yüksekliği
  CheckBoxHizmetStoklariHaric.Align = alCenter;
  CheckBoxHizmetStoklariHaric.Margins.Bottom = 100;
  CheckBoxHizmetStoklariHaric.Margins.Left = 40; 
  CheckBoxHizmetStoklariHaric.StyledSettings = ssFamily;
  CheckBoxHizmetStoklariHaric.TextSettings.Font.Size = 12; // Font boyutu
  CheckBoxHizmetStoklariHaric.TextSettings.FontColor = clAlphaColor.clHexToColor('#8a067c'); 
  CheckBoxHizmetStoklariHaric.TextSettings.Font.Style = [fsItalic]; // İtalik ve altı çizili font






  LabelStokBakiyeStokKodu = MyFormStokBakiyeRaporuFiltreleme.AddNewProLabel(MyFormStokBakiyeRaporuFiltreleme,'LabelStokBakiyeStokKodu','Stok Kodu');
  LabelStokBakiyeStokKodu.Margins.Bottom = 500;
  LabelStokBakiyeStokKodu.Margins.Right =190;
  LabelStokBakiyeStokKodu.Width = 180;
  LabelStokBakiyeStokKodu.Height = 15;
  LabelStokBakiyeStokKodu.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  LabelStokBakiyeStokKodu.clProSettings.FontSize = 12;
  //LabelStokBakiyeStokKodu.clProSettings.BorderWidth=10;
  LabelStokBakiyeStokKodu.clProSettings.TextSettings.Font.Style = [fsBold];
  LabelStokBakiyeStokKodu.clProSettings.IsFill = True; 
  LabelStokBakiyeStokKodu.clProSettings.IsRound = True;
  LabelStokBakiyeStokKodu.SetclProSettings(LabelStokBakiyeStokKodu.clProSettings);


  LabelStokBakiyeStokAdi = MyFormStokBakiyeRaporuFiltreleme.AddNewProLabel(MyFormStokBakiyeRaporuFiltreleme,'LabelStokBakiyeStokAdi','Stok Adı');
  LabelStokBakiyeStokAdi.Margins.Bottom = 420;
  LabelStokBakiyeStokAdi.Margins.Right = 190;
  LabelStokBakiyeStokAdi.Width = 180;
  LabelStokBakiyeStokAdi.Height = 15;
  LabelStokBakiyeStokAdi.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  LabelStokBakiyeStokAdi.clProSettings.FontSize = 12;
  //LabelStokBakiyeStokAdi.clProSettings.BorderWidth=10;
  LabelStokBakiyeStokAdi.clProSettings.TextSettings.Font.Style = [fsBold];
  LabelStokBakiyeStokAdi.clProSettings.IsFill = True; 
  LabelStokBakiyeStokAdi.clProSettings.IsRound = True;
  LabelStokBakiyeStokAdi.SetclProSettings(LabelStokBakiyeStokKodu.clProSettings);


  LabelTarihStokBakiye = MyFormStokBakiyeRaporuFiltreleme.AddNewProLabel(MyFormStokBakiyeRaporuFiltreleme,'LabelTarihStokBakiye','Baz Tarih');
  LabelTarihStokBakiye.Margins.Bottom = 340;
  LabelTarihStokBakiye.Margins.Right = 190;
  LabelTarihStokBakiye.Width = 180;
  LabelTarihStokBakiye.Height = 15;
  LabelTarihStokBakiye.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  LabelTarihStokBakiye.clProSettings.FontSize = 12;
  //LabelTarihStokBakiye.clProSettings.BorderWidth=10;
  LabelTarihStokBakiye.clProSettings.TextSettings.Font.Style = [fsBold];
  LabelTarihStokBakiye.clProSettings.IsFill = True; 
  LabelTarihStokBakiye.clProSettings.IsRound = True;
  LabelTarihStokBakiye.SetclProSettings(LabelTarihStokBakiye.clProSettings);
  

  LabelKodYerineIsimGelsin = MyFormStokBakiyeRaporuFiltreleme.AddNewProLabel(MyFormStokBakiyeRaporuFiltreleme,'LabelKodYerineIsimGelsin','Kod Yerine İsim Gelsin');
  LabelKodYerineIsimGelsin.Margins.Bottom = 260;
  LabelKodYerineIsimGelsin.Margins.Right = 190;
  LabelKodYerineIsimGelsin.Width = 180;
  LabelKodYerineIsimGelsin.Height = 15;
  LabelKodYerineIsimGelsin.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  LabelKodYerineIsimGelsin.clProSettings.FontSize = 12;
  //LabelKodYerineIsimGelsin.clProSettings.BorderWidth=10;
  LabelKodYerineIsimGelsin.clProSettings.TextSettings.Font.Style = [fsBold];
  LabelKodYerineIsimGelsin.clProSettings.IsFill = True; 
  LabelKodYerineIsimGelsin.clProSettings.IsRound = True;
  LabelKodYerineIsimGelsin.SetclProSettings(LabelKodYerineIsimGelsin.clProSettings);
  
  
  LabelStokYazilanIsimGelsin = MyFormStokBakiyeRaporuFiltreleme.AddNewProLabel(MyFormStokBakiyeRaporuFiltreleme,'LabelStokYazilanIsimGelsin','Stok Yazılan İsim Gelsin');
  LabelStokYazilanIsimGelsin.Margins.Bottom = 180;
  LabelStokYazilanIsimGelsin.Margins.Right = 190;
  LabelStokYazilanIsimGelsin.Width = 180;
  LabelStokYazilanIsimGelsin.Height = 15;
  LabelStokYazilanIsimGelsin.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  LabelStokYazilanIsimGelsin.clProSettings.FontSize = 12;
  //LabelStokYazilanIsimGelsin.clProSettings.BorderWidth=10;
  LabelStokYazilanIsimGelsin.clProSettings.TextSettings.Font.Style = [fsBold];
  LabelStokYazilanIsimGelsin.clProSettings.IsFill = True; 
  LabelStokYazilanIsimGelsin.clProSettings.IsRound = True;
  LabelStokYazilanIsimGelsin.SetclProSettings(LabelStokYazilanIsimGelsin.clProSettings);
  
  LabelHizmetStoklariHaric = MyFormStokBakiyeRaporuFiltreleme.AddNewProLabel(MyFormStokBakiyeRaporuFiltreleme,'LabelHizmetStoklariHaric','Hizmet Stokları Hariç');
  LabelHizmetStoklariHaric.Margins.Bottom = 100;
  LabelHizmetStoklariHaric.Margins.Right = 190;
  LabelHizmetStoklariHaric.Width = 180;
  LabelHizmetStoklariHaric.Height = 15;
  LabelHizmetStoklariHaric.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  LabelHizmetStoklariHaric.clProSettings.FontSize = 12;
  //LabelHizmetStoklariHaric.clProSettings.BorderWidth=5;
  LabelHizmetStoklariHaric.clProSettings.TextSettings.Font.Style = [fsBold];
  LabelHizmetStoklariHaric.clProSettings.IsFill = True; 
  LabelHizmetStoklariHaric.clProSettings.IsRound = True;
  LabelHizmetStoklariHaric.SetclProSettings(LabelHizmetStoklariHaric.clProSettings);
  
  
  MyFormStokBakiyeRaporuFiltreleme.AddNewEvent(StokBakiyeRaporuFiltreleme_Button,tbeOnClick,'GoToStokBakiyeRaporu');
  
  MyFormStokBakiyeRaporuFiltreleme.AddNewEvent(CheckBoxKodYerineIsimGelsin,tbeOnClick,'OnChangeCheckBoxKodYerineIsimGelsin');
  MyFormStokBakiyeRaporuFiltreleme.AddNewEvent(CheckBoxStokYazilanIsimGelsin,tbeOnClick,'OnChangeCheckBoxStokYazilanIsimGelsin');
  MyFormStokBakiyeRaporuFiltreleme.AddNewEvent(CheckBoxHizmetStoklariHaric,tbeOnClick,'OnChangeCheckBoxHizmetStoklariHaric');
  
  
  MyFormStokBakiyeRaporuFiltreleme.AddNewEvent(ComboBoxStokBakiyeStokKodu, tbeOnChange, 'OnChangeComboBoxStokBakiyeStokKodu');


  
  MyFormStokBakiyeRaporuFiltreleme.Run;
  
}

Mesajı Yazan: Developer
Mesaj Tarihi: 25 Ekim 2024 Saat 17:26
Merhaba Maliyeci,
Kodlama yapısına baktığımız zaman verileri sql den aldıktan sonra while ile verileri combo eklmelisin. Kullanıcı stokkodunu seçtiğinde stok adını kullanıcının seçtiği koda göre getirmelisin.


Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net