Clomosy | Forum : proListView databaseden veri çekme sorunu https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 18:13:21 +0000 Thu, 19 Sep 2024 15:39:58 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=934 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[proListView databaseden veri çekme sorunu : Merhaba Kürşat,Show message ile...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=934&PID=1829#1829 Yazar: Developer
Konu: 934
Gönderim Zamanı: 19 Eylül 2024 Saat 15:39

Merhaba Kürşat,
Show message ile sql de oluşan sorrguyu Sql Server da kontrol eder misin;
ShowMessages(  showListQuery.sql.Text); dönen sonucu kontrol edebilirsin

]]> Thu, 19 Sep 2024 15:39:58 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=934&PID=1829#1829 <![CDATA[proListView databaseden veri çekme sorunu : getData prosedüründeif(cmb_cari_type.ItemIndex...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=934&PID=1825#1825 Yazar: kursat
Konu: 934
Gönderim Zamanı: 17 Eylül 2024 Saat 18:50

getData prosedüründe 
if(cmb_cari_type.ItemIndex <> 0 ) //eğer cari tipi seçiliyse 
 strCariTip='and CARI_TIPI='+QuotedStr (cmb_cari_type.GetValueIndex(cmb_cari_type.ItemIndex)); 

 else //eğer cari tip hepsi ise 
 strCariTip='and 1=1';

şeklinde tanımlama yapmıştım. sorgu tcllistview compenentinde doğru şekilde çalışıyor. yani strCariTip değişkeninde sorun yok gibi.
]]> Tue, 17 Sep 2024 18:50:27 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=934&PID=1825#1825 <![CDATA[proListView databaseden veri çekme sorunu : Merhaba Kürşat,SELECT CARI_ADI...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=934&PID=1819#1819 Yazar: Developer
Konu: 934
Gönderim Zamanı: 17 Eylül 2024 Saat 16:46

Merhaba Kürşat,
SELECT 
          CARI_ADI                  as lblCariName,
          CARI_KODU                 AS lblCariCode,
          CARI_IL                   AS lblCariSehir,
          CARI_ILCE                 AS lblCariIlce,
          ALACAK_TOPLAM-BORC_TOPLAM AS lblToplamBakiye
        FROM 
          TBLCARISB with(nolock)
              WHERE 
                1=1'
                +strCariTip+ //Burasında hata var 
              'ORDER BY 
                CARI_ADI';

Aşağıdaki şekilde olması gerekiyor.
SELECT 
          CARI_ADI                  as lblCariName,
          CARI_KODU                 AS lblCariCode,
          CARI_IL                   AS lblCariSehir,
          CARI_ILCE                 AS lblCariIlce,
          ALACAK_TOPLAM-BORC_TOPLAM AS lblToplamBakiye
        FROM 
          TBLCARISB with(nolock)
              WHERE 
                1=1
              ORDER BY 
                CARI_ADI';
]]> Tue, 17 Sep 2024 16:46:52 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=934&PID=1819#1819 <![CDATA[proListView databaseden veri çekme sorunu : databaseden veri çekerken sadece...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=934&PID=1817#1817 Yazar: kursat
Konu: 934
Gönderim Zamanı: 17 Eylül 2024 Saat 14:13

databaseden veri çekerken sadece en sondaki veriyi çekiyor. kodlar aşağıdaki gibidir.


  void createListView;
  {
  lst_cari_guide = cariMainForm.AddNewProListView(pnl_cari_list,'lst_cari_guide');
  lst_cari_guide.Properties.ItemSpace = 10;
  clComponent.SetupComponent(lst_cari_guide,'{"Align":"Client","MarginBottom":10,"MarginTop":10,"MarginRight":20,"MarginLeft":20, "ItemColumnCount" : 1,"ItemHeight" :'+IntToStr(pnl_cari_list.height*0.27)+', 
  "BorderWidth":2,"RoundWidth":5, "RoundHeight":5}');
  clRTMethod(lst_cari_guide, 'SendToBack');
  }
  
  void createDesignerPanel;
  {
  belgeDesignerPanel = cariMainForm.AddNewProListViewDesignerPanel(lst_cari_guide,'belgeDesignerPanel'); 
  clComponent.SetupComponent(belgeDesignerPanel,'{"Height":300,"BackgroundColor":"#ffffff","RoundHeight":20,"RoundWidth":20,"BorderColor":"#1F8FEA","BorderWidth":2,
  "Align":"Top"}');
 
  lst_cari_guide.SetDesignerPanel(belgeDesignerPanel);
  }
  void createLabels;
  {
  lblCariName = cariMainForm.AddNewProLabel(belgeDesignerPanel,'lblCariName','cari Name');
  clComponent.SetupComponent(lblCariName,'{"Align":"center","MarginRight":'+IntToStr(belgeDesignerPanel.Width*0.45)+',"MarginBottom":'+IntToStr(belgeDesignerPanel.Height*0.15)+
                                          ',"MarginTop":10,"TextBold":"yes","TextSize":22,"TextHorizontalAlign":"left","TextVerticalAlign":"left","AutoSize":"horizontal"}');
  belgeDesignerPanel.AddPanelObject(lblCariName,clText);
 
  lblCariCode = cariMainForm.AddNewProLabel(belgeDesignerPanel,'lblCariCode','cari code');
  clComponent.SetupComponent(lblCariCode,'{"Align":"center","MarginRight":'+IntToStr(belgeDesignerPanel.Width*0.45)+',"MarginTop":'+IntToStr(belgeDesignerPanel.Height*0.12)+
                                          ',"TextBold":"no","TextSize":16,"TextHorizontalAlign":"left","TextVerticalAlign":"left","AutoSize":"horizontal"}');
  belgeDesignerPanel.AddPanelObject(lblCariCode,clText);
 
  lblCariSehir = cariMainForm.AddNewProLabel(belgeDesignerPanel,'lblCariSehir','cari il');
  clComponent.SetupComponent(lblCariSehir,'{"Align":"center","MarginLeft":'+IntToStr(belgeDesignerPanel.Width*0.45)+',"MarginBottom":'+IntToStr(belgeDesignerPanel.Height*0.15)+
                                          ',"TextBold":"no","TextSize":16,"TextHorizontalAlign":"left","TextVerticalAlign":"left","AutoSize":"horizontal"}');
  belgeDesignerPanel.AddPanelObject(lblCariSehir,clText);
 
  lblCariIlce = cariMainForm.AddNewProLabel(belgeDesignerPanel,'lblCariIlce','cari ilce');
  clComponent.SetupComponent(lblCariIlce,'{"Align":"center","MarginLeft":'+IntToStr(belgeDesignerPanel.Width*0.45)+',"MarginBottom":'+IntToStr(belgeDesignerPanel.Height*0.01)+
                                          ',"TextBold":"no","TextSize":16,"TextHorizontalAlign":"left","TextVerticalAlign":"left","AutoSize":"horizontal"}');
  belgeDesignerPanel.AddPanelObject(lblCariIlce,clText);
 
  lblToplamBakiye = cariMainForm.AddNewProLabel(belgeDesignerPanel,'lblToplamBakiye','cari bakiye');
  clComponent.SetupComponent(lblToplamBakiye,'{"Align":"center","MarginLeft":'+IntToStr(belgeDesignerPanel.Width*0.45)+',"MarginTop":'+IntToStr(belgeDesignerPanel.Height*0.13)+
                                          ',"TextBold":"no","TextSize":16,"TextHorizontalAlign":"left","TextVerticalAlign":"left","AutoSize":"horizontal"}');
  belgeDesignerPanel.AddPanelObject(lblToplamBakiye,clText);
  }
  void getData;
  var
    showListQuery: TClSqlQuery;
    strCariTip : String;
  {
    lst_cari_guide.ClearList;
    
    if(cmb_cari_type.ItemIndex <> 0 ) //eğer cari tipi seçiliyse
      strCariTip='and CARI_TIPI='+QuotedStr (cmb_cari_type.GetValueIndex(cmb_cari_type.ItemIndex));
    else                              //eğer cari tip hepsi ise
      strCariTip='and 1=1';
      
    showListQuery = TClSqlQuery.Create(nil);
    showListQuery.Connection = Clomosy.DBSQLServerConnection;
    try
      try
        showListQuery.sql.Text = 
        'SELECT 
          CARI_ADI                  as lblCariName,
          CARI_KODU                 AS lblCariCode,
          CARI_IL                   AS lblCariSehir,
          CARI_ILCE                 AS lblCariIlce,
          ALACAK_TOPLAM-BORC_TOPLAM AS lblToplamBakiye
        FROM 
          TBLCARISB with(nolock)
              WHERE 
                1=1'
                +strCariTip+
              'ORDER BY 
                CARI_ADI';
        showListQuery.Open;
        if (showListQuery.Found) 
          lst_cari_guide.clLoadProListViewDataFromDataset(showListQuery);
        else
          lst_cari_guide.ClearList;
      except
        ShowMessage('AddDataToListView1 '+'Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
      }
    finally
      showListQuery.Free;
    }
  }


    createListView;
    createDesignerPanel;
    createLabels;
    getData;


]]> Tue, 17 Sep 2024 14:13:31 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=934&PID=1817#1817