Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - TclComboBox Hatası
  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.

TclComboBox Hatası
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
maliyagci Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 16 Eylül 2024
Konum: Konya
Durum: Aktif Değil
Puanlar: 13 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı maliyagci Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: TclComboBox Hatası
    Gönderim Zamanı: 14 Ekim 2024 Saat 14:17
Merhabalar, TclComboBox'ı çalıştırınca mobil clomosy.exe kapanıyor, yardımcı olabilir misiniz?
Teşekkürler.
Yukarı Dön
Developer Açılır Kutu İzle
Forum Yöneticisi
Forum Yöneticisi


Kayıt Tarihi: 14 Haziran 2023
Durum: Aktif Değil
Puanlar: 354 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Developer Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 14 Ekim 2024 Saat 14:51
Merhaba Ali
Kodunu paylaşabilir misin? 
Yukarı Dön
maliyagci Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 16 Eylül 2024
Konum: Konya
Durum: Aktif Değil
Puanlar: 13 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı maliyagci Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 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');
  

  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;
  
}
Yukarı Dön
Developer Açılır Kutu İzle
Forum Yöneticisi
Forum Yöneticisi


Kayıt Tarihi: 14 Haziran 2023
Durum: Aktif Değil
Puanlar: 354 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Developer Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 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.
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.