Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - Pro grid Veri Kaybolması
  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.

Kapalı KonuPro grid Veri Kaybolması
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
dev70 Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye
Simge

Kayıt Tarihi: 23 Temmuz 2024
Durum: Aktif Değil
Puanlar: 46 		Mesajın Direkt Linki Konu: Pro grid Veri Kaybolması
    Gönderim Zamanı: 09 Ağustos 2024 Saat 10:34
Merhaba;


MainBody----
 { 
  uForm= TclForm.Create(Self);
  //uForm.TclStyle(uForm.LightSB);
  dForm= TclForm.Create(Self);
  counter=0;
  
  
  selectQuery = TClSqlQuery.Create(nil);
  Clomosy.DBSQLServerConnect('SQL Server', '172.16.222.94', 'sa', '1', 'CINAR', 50000);
  selectQuery.Connection = Clomosy.DBSQLServerConnection;
  ChartPie = uForm.AddNewChart(uForm,'ChartPie','Clomosy Inc');
  setUpType;
  AddDataToGrid;
  FilledPieImage.Visible=False;
  
  SetUpChartText;
  ChartPanel.Visible= False;
   

  
  uForm.AddNewEvent(PieImage,tbeOnClick,'clickedPie');
  uForm.AddNewEvent(TableImage,tbeOnClick,'clickedTable');
  uForm.AddNewEvent(MyGrid,tbeOnProGridCellDblClick,'clickedGrid');

  uForm.Run;
  }

---------------------------------------------------------------------------
---------------------------------------------------------------------------

void AddDataToGrid;

{

  
  try
    BorcBakiye=0;
    AlacakBakiye=0;
    ToplamAlacak=0;
    ToplamBorc=0;
    controlFilter;
    full=Clomosy.GlobalVariableString;
    c=clGetStringTo(full,';');
    temp=clGetStringAfter(full,';');
    bit=FormatDateTime('yyyy.mm.dd',clGetStringTo(temp,'/'));
    temp2=clGetStringAfter(full,'/');
    startvade=FormatDateTime('yyyy.mm.dd',clGetStringTo(temp2,':'));
    bitvade=FormatDateTime('yyyy.mm.dd',clGetStringAfter(full,':'));
    
    selectQuery.SQL.Text = 'EXEC dbo.usp_FilteredCariRaporAtiker
    @BakiyeToleransi= '+QuotedStr(r)+',
    @BakiyesizlerGosterilmesin = '+QuotedStr(i)+' ,
    @SadeceBakiyesizlerGosterilsin = '+QuotedStr(j)+',
    @HareketsizlerDahilEdilsin = '+QuotedStr(k)+' ,  
    @CariTipi = '+QuotedStr(c)+' ,
    @MaxBakiyeToleransi = '+QuotedStr(s)+' , 
    @TarihBaslangic = '+QuotedStr(g)+' , 
    @TarihBitis = '+QuotedStr(bit)+' , 
    @VadeTarihBaslangic = '+QuotedStr(startvade)+' , 
    @VadeTarihBitis = '+QuotedStr(bitvade)+' , 
    @BakiyeTipi = '+QuotedStr(t);
    
    selectQuery.Open;
    if (selectQuery.Found)
    {
      if(counter==0){
        MyGrid = uForm.AddNewProGrid(uForm,'MyGrid');
      }
     
     MyGrid.BeginUpdate
     
       MyGrid.Margins.Bottom = 8;
      MyGrid.Margins.Top = 8;
       MyGrid.Margins.Right = 8;
     MyGrid.Margins.Left= 14;
     MyGrid.Align = alClient;
     MyGrid.Margins.Bottom = 12;
     MyGrid.NormalLayoutFillColor = clAlphaColor.clHexToColor('#8283ab');
    MyGrid.FixedLayoutFillColor = clAlphaColor.clHexToColor('#496292');
     MyGrid.Options.Selection.Mode = smSingleRow;//smSingleRow VEYA smSingleColumn VEYA smNone
 
     
      MyGrid.Options.ColumnSize.StretchAll = True;
       MyGrid.AutoSizeColumns(True, 100);// Kolon genişliği ayarlama 
     
     MyGrid.SelectedLayoutFontColor = clAlphaColor.clBlack; //Seçilen Satır Yazı Reng
     MyGrid.BandLayoutFontColor = clAlphaColor.clBlack;
     MyGrid.FocusedLayoutFontColor = clAlphaColor.clBlack;
     MyGrid.FixedLayoutFontColor = clAlphaColor.clBlack;
     MyGrid.NormalLayoutFontColor = clAlphaColor.clBlack;
     MyGrid.ConnectDataSet(selectQuery);
     MyGrid.Options.Selection.Mode = smSingleRow;
     MyGrid.FocusedLayoutFillColor = clAlphaColor.clHexToColor('#7ee13d'); 
     MyGrid.SelectedLayoutFillColor = clAlphaColor.clHexToColor('#7ee13d');
     MyGrid.cells[0,0] = 'Cari Kodu'; 
     MyGrid.cells[1,0] = 'Cari Adı'; 
     MyGrid.cells[2,0] = 'Toplam Borç'; 
     MyGrid.cells[3,0] = 'Toplam Alacak'; 
     MyGrid.cells[4,0] = 'Borç'; 
     MyGrid.cells[5,0] = 'Alacak'; 
     MyGrid.cells[6,0] = 'Son İşlem Tarihi'; 
     MyGrid.EndUpdate;
    
   
     
     
   
     
     
         for (i=1 to (MyGrid.RowCount-1))
        {
            x = MyGrid.Cells[MyGrid.ColumnCount-3,i];
            
            BorcBakiye=StrToInt(x)+BorcBakiye;
            
            
             MyGrid.HorzAlignments[MyGrid.ColumnCount-3,i] = 0;
           
          if (x[0] > '0' )
          { 
            
            MyGrid.Colors[MyGrid.ColumnCount-3,i] = clAlphaColor.clRed;
           
          }
           
        
        }
        
        
         for (i=1 to (MyGrid.RowCount-1)) 
        {
            x = MyGrid.Cells[MyGrid.ColumnCount-2,i];
            AlacakBakiye=StrToInt(x)+AlacakBakiye;
            
             MyGrid.HorzAlignments[MyGrid.ColumnCount-2,i] = 0;
            
          if (x[0] > '0' )
          {
          
            MyGrid.Colors[MyGrid.ColumnCount-2,i] = clAlphaColor.clGreen;
            tempFloat=StrToFloat(MyGrid.Cells[MyGrid.ColumnCount-2,i]);
            MyGrid.Cells[MyGrid.ColumnCount-2,i] = FloatToStr(tempFloat);
       
          }
            
        
        }
        
        
        for (i=1 to (MyGrid.RowCount-1))
        {
            x = MyGrid.Cells[MyGrid.ColumnCount-4,i];
            
             MyGrid.HorzAlignments[MyGrid.ColumnCount-4,i] = 0;
            ToplamAlacak=StrToInt(x)+ToplamAlacak;
          
        }
         for (i=1 to (MyGrid.RowCount-1))
        {
            x = MyGrid.Cells[MyGrid.ColumnCount-5,i];
            
             MyGrid.HorzAlignments[MyGrid.ColumnCount-5,i] = 0;
            
            ToplamBorc=StrToInt(x)+ToplamBorc;
          
        }

    }
    else
    {
      ShowMessage('Kayıt bulunamadı!');
    }
  except
    ShowMessage('xaazaException class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);
  }
  
  counter=0;
  
}


---------------------------------------------------------------------------
---------------------------------------------------------------------------



void clickedGrid;{
  counter=1;
  dForm.LytTopBar.Visible = False;
  backPanel=dForm.AddNewProPanel(dForm,'backPanel');

  clComponent.SetupComponent(backPanel,'{"Align" : "MostTop","MarginTop":10,"Width" :300, "MarginRight":0, "MarginLeft":10,
  "Height":33,"RoundHeight":10,"RoundWidth":10,"BorderWidth":2}');
  
    
    
   backButton = dForm.AddNewProImage(backPanel,'backButton');
    clComponent.SetupComponent(backButton,'{"Align":"Left","MarginLeft" :  4 ,"MarginRight" : 4,"MarginTop":4, "MarginBottom":5,"Width" :50,"Height" :50 ,
   "ImgUrl":"https://i.hizliresim.com/k5jz984.png","ImgFit":"yes" }');

  dForm.AddNewEvent(backButton,tbeOnClick,'goBack');
  
  try
   
   SenderRow=uForm.ClSenderRow;
   l= TCLProGrid(uForm.ClSender).Cells[0,SenderRow];
    selectQuery.SQL.Text = 'EXEC dbo.usp_GetCariDetay2 
    @CariKodu =  '+QuotedStr(l);
    
    selectQuery.Open;
    if (selectQuery.Found)
    {
     MyGrid = dForm.AddNewProGrid(dForm,'MyGrid');
     setUpGrid;
     MyGrid.ConnectDataSet(selectQuery);
 
      
    }
    else
    {
      ShowMessage('Kayıt bulunamadı!');
    }
  except
    ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);
  }
  
   
  
  dForm.Run;
 
}




---------------------------------------------------------------------------
---------------------------------------------------------------------------



void goBack;{


     case counter of
 {
 0: clickedGrid;
 1: AddDataToGrid;
 else
 ShowMessage('Bu değer geçersizdir.');
 }
}


---------------------------------------------------------------------------
---------------------------------------------------------------------------

detay girddiden geri okuna basınca resimdeki hatayı veriyor;(addDataToGrid kısmındaki catch bloğu ) 
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ın Direkt Linki Gönderim Zamanı: 13 Ağustos 2024 Saat 11:51
Merhaba dev70,
Hatan var mı ? 
Yukarı Dön
dev70 Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye
Simge

Kayıt Tarihi: 23 Temmuz 2024
Durum: Aktif Değil
Puanlar: 46 		Mesajın Direkt Linki Gönderim Zamanı: 13 Ağustos 2024 Saat 13:09
Sorun çözüldü teşekkürler.
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,027 Saniyede Yüklendi.