Clomosy | Forum : ProListView ve SQL ba�lant�s�

ProListView ve SQL ba�lant�s� : selectQuery.SQL.text = 'SELECT...

Tue, 06 Aug 2024 15:42:39 +0000

Yazar: zeynepsimsek
Konu: 808
G�nderim Zaman�: 06 A�ustos 2024 Saat 15:42

selectQuery.SQL.text = 'SELECT ID AS [Kisi ID], Kisi AS [Kisi �smi], Yer AS [Alindigi Yer],

Tarih AS [Alinma Zamani], KmDegeri AS [Km Degeri], Konum AS [Konumu] From KisiBilgileri';

selectQuery.Open;

bu �ekilde yaz�nca d�zeldi te�ekk�r ederim.

ProListView ve SQL ba�lant�s� : Exception Class : EUniError Exception...

Tue, 06 Aug 2024 15:37:19 +0000

Yazar: zeynepsimsek
Konu: 808
G�nderim Zaman�: 06 A�ustos 2024 Saat 15:37

Exception Class : EUniError Exception Message : Incorrect syntax near 'ID'.

kod clomosyde �al��t� ama san�r�m sql tara�ndan b�yle bir hata al�yorum.

ProListView ve SQL ba�lant�s� : Merhaba Zeynep, Var MyForm:TclForm;...

Tue, 06 Aug 2024 15:32:21 +0000

Yazar: BilalCndn
Konu: 808
G�nderim Zaman�: 06 A�ustos 2024 Saat 15:32

Merhaba Zeynep,

Var   	
  MyForm:TclForm;
  Label1,adLbl,mekanLbl,zamanLbl,kmLbl,konumLbl,idLbl: TClProLabel;
  ProBtn1,ProBtn2,ProBtn3 : TClProButton;
  ProEdit1,ProEdit2,ProEdit3,ProEdit4,ProEdit5,ProEdit6:TclProEdit;
  ProListView : TClProListView;
  DesignerPanel : TClProListViewDesignerPanel; 
  ID,Kisi,Yer,Tarih,KmDegeri,Konum:TClProLabel;
  selectQuery: TclSqlQuery;
  
  
   void AddDataToListView; // bu fonksiyon devreye girince hata veriyor
   {
     try
       selectQuery.SQL.text = 'SELECT ID AS Kisi ID ,  Kisi AS Kisi �smi, Yer AS Alindigi Yer,
       Tarih AS Alinma Zamani, KmDegeri AS Km Degeri, Konum AS Konumu FROM KisiBilgileri';
       selectQuery.Open;
       if(selectQuery.Found)
       {
         ProListView.ClLoadProListViewDataFromDataset(selectQuery);
       }
       else
       {
         ShowMessage('Kay�t Bulunamad�!');
       }
      except
        ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);
      }
   }
   
   void InsertToDatabase;   //bu fonksiyonum ba�ar�l� veritaban�na ekleme yap�yor 
   {
    try
       Clomosy.DBSQLServerQuery.SQL.text= 'INSERT INTO KisiBilgileri (ID,Kisi,Yer,Tarih,KmDegeri,Konum) VALUES (
       '+ProEdit6.Text+','+QuotedStr(ProEdit1.Text)+', '+QuotedStr(ProEdit2.Text)+','+QuotedStr(ProEdit3.Text)+',
       '+ProEdit4.Text+',  '+QuotedStr(ProEdit5.Text)+')';
       Clomosy.DBSQLServerQuery.ExecSql;
       ShowMessage('Veri Ekleme Ba�ar�l�.');
    except
       ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);
    }
  }

 {
   MyForm = TclForm.Create(Self);
   
   MyForm.SetFormColor('#f5f0f0', '#c3d3da', clGVertical);
   
   
   ProListView=MyForm.AddNewProListView(MyForm, 'ProListView');
   clComponent.SetupComponent(ProListView,'{"Height" : 120 ,"Width": 150, "Align":"Client","MarginBottom":50,"MarginTop":380,
   "MarginRight":20,"MarginLeft":20, "BackgroundColor":"#92a1aa", "ListType":"fluid","ItemHeight" : 50, "BorderColor":"#4c5c67",
   "BorderWidth":2 , "ItemWidth":50}');
   
   DesignerPanel=MyForm.AddNewProListViewDesignerPanel(ProListView,'DesignerPanel');
   clComponent.SetupComponent(DesignerPanel,
   '{"Height":100,"Width" : 150,
   "BackgroundColor":"#677b98",
   "BorderColor":"#2c5696",
   "BorderWidth":2,
   "RoundHeight":2,
   "RoundWidth":2}');
   
   ID = MyForm.AddNewProLabel(DesignerPanel,'ID','');
   clComponent.SetupComponent(ID, 
   '{"Height":10,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(ID,Cltext);
    
    Kisi = MyForm.AddNewProLabel(DesignerPanel,'Kisi','');
    clComponent.SetupComponent(Kisi, 
   '{"Height":10,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(Kisi,Cltext);
    
    Yer = MyForm.AddNewProLabel(DesignerPanel,'Yer','');
    clComponent.SetupComponent(Yer, 
   '{"Height":10,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(Yer,Cltext);
    
    Tarih = MyForm.AddNewProLabel(DesignerPanel,'Tarih','');
    clComponent.SetupComponent(Tarih, 
   '{"Height":10,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(Tarih,Cltext);
    
    KmDegeri = MyForm.AddNewProLabel(DesignerPanel,'KmDegeri','');
    clComponent.SetupComponent(KmDegeri, 
   '{"Height":10,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(KmDegeri,Cltext);
    
    Konum= MyForm.AddNewProLabel(DesignerPanel,'Konum','');
    clComponent.SetupComponent(Konum, 
   '{"Height":10,
    "Width" : 100,
    "BackgroundColor":"#a4a5a8",
    "BorderColor":"#7a4848",
    "BorderWidth":2,
    "RoundHeight":2,
    "RoundWidth":2}');
    DesignerPanel.AddPanelObject(Konum,Cltext);
    
    
    ProListView.SetDesignerPanel(DesignerPanel);  
   
  
  
   idLbl = MyForm.AddNewProLabel(MyForm,'idLbl','Ki�i ID:');
   clComponent.SetupComponent(idLbl,'{"MarginBottom":550,"MarginRight":130, "Width" :
   500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",
   "TextHorizontalAlign":"center"}');
   adLbl = MyForm.AddNewProLabel(MyForm,'adLbl','Ki�i �smi:');
   clComponent.SetupComponent(adLbl,'{"MarginBottom":450,"MarginRight":130, "Width" :
   500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",
   "TextHorizontalAlign":"center"}');
   mekanLbl = MyForm.AddNewProLabel(MyForm,'mekanLbl','Al�nd��� Yer:');
   clComponent.SetupComponent(mekanLbl,'{"MarginBottom":350,"MarginRight":145, "Width" :
   500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",
   "TextHorizontalAlign":"center"}');
   zamanLbl = MyForm.AddNewProLabel(MyForm,'zamanLbl','Al�nma Zaman�:');
   clComponent.SetupComponent(zamanLbl,'{"MarginBottom":250,"MarginRight":170, "Width" :
   500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",
   "TextHorizontalAlign":"center"}');
   kmLbl = MyForm.AddNewProLabel(MyForm,'kmLbl','Km De�eri:');
   clComponent.SetupComponent(kmLbl,'{"MarginBottom":150,"MarginRight":140, "Width" :
   500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",
   "TextHorizontalAlign":"center"}');
   konumLbl = MyForm.AddNewProLabel(MyForm,'konumLbl','Konumu:');
   clComponent.SetupComponent(konumLbl,'{"MarginBottom":50,"MarginRight":135, "Width" :
   500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",
   "TextHorizontalAlign":"center"}');
   
   
   ProBtn1=MyForm.AddNewProButton(MyForm, 'ProBtn1', 'Ekle');
   clComponent.SetupComponent(ProBtn1,'{"caption":"Ekle","MarginTop":70,
   "Width" :50, "Height":35,"RoundHeight":2, "RoundWidth":2,"BorderColor":"#7A3E65","BorderWidth":2}');
   
   ProBtn2=MyForm.AddNewProButton(MyForm, 'ProBtn2', 'G�ncelle');
   clComponent.SetupComponent(ProBtn2,'{"caption":"G�ncelle","MarginTop":70, "MarginLeft":110,
   "Width" :50, "Height":35,"RoundHeight":2, "RoundWidth":2,"BorderColor":"#7A3E65","BorderWidth":2}');
   
   ProBtn3=MyForm.AddNewProButton(MyForm, 'ProBtn3', 'Sil');
   clComponent.SetupComponent(ProBtn3,'{"caption":"Sil","MarginTop":70,"MarginRight":110,
   "Width" :50, "Height":35,"RoundHeight":2, "RoundWidth":2,"BorderColor":"#7A3E65","BorderWidth":2}');
  
   Label1 = MyForm.AddNewProLabel(MyForm,'Label1','ARA� TAK�P UYGULAMASI');
   clComponent.SetupComponent(Label1,'{"Align" : "Center","MarginBottom":630,"Width" :
   500, "Height":400,"TextColor":"#000000","TextSize":20,"TextVerticalAlign":"center",
   "TextHorizontalAlign":"center"}');
   
   ProEdit1=MyForm.AddNewProEdit(MyForm, 'ProEdit1', '');
   clComponent.SetupComponent(ProEdit1,'{"Align" : "Center","MarginBottom":450,"Width" :100
   ,"Height":30,"MarginLeft":27}')
   
   ProEdit2=MyForm.AddNewProEdit(MyForm, 'ProEdit2', '');
   clComponent.SetupComponent(ProEdit2,'{"Align" : "Center","MarginBottom":350,"Width" :100
   ,"Height":30,"MarginLeft":27}');
   
   ProEdit3=MyForm.AddNewProEdit(MyForm, 'ProEdit3', 'Y�l-Ay-G�n');
   clComponent.SetupComponent(ProEdit3,'{"Align" : "Center","MarginBottom":250,"Width" :100
   ,"Height":30,"MarginLeft":27}');

   ProEdit4=MyForm.AddNewProEdit(MyForm, 'ProEdit4', '');
   clComponent.SetupComponent(ProEdit4,'{"Align" : "Center","MarginBottom":150,"Width" :100
   ,"Height":30,"MarginLeft":27}');   
  // ProEdit4.clTypeOfField=taFloat;
   
   ProEdit5=MyForm.AddNewProEdit(MyForm, 'ProEdit5', '');
   clComponent.SetupComponent(ProEdit5,'{"Align" : "Center","MarginBottom":50,"Width" :100
   ,"Height":30,"MarginLeft":27}');  
   
   ProEdit6=MyForm.AddNewProEdit(MyForm, 'ProEdit6', '');
   clComponent.SetupComponent(ProEdit6,'{"Align" : "Center","MarginBottom":550,"Width" :100
   ,"Height":30,"MarginLeft":27}'); 
   
   MyForm.AddNewEvent(ProBtn1,tbeOnClick,'InsertToDatabase');
   
   selectQuery = TclSqlQuery.Create(nil);
   Clomosy.DBSQLServerConnect('SQL Server', 'DESKTOP-T9RHDI8\SQLEXPRESS', 'sa', '1', 'AracTakip', 1433);
   selectQuery.Connection = Clomosy.DBSQLServerConnection;
   
   AddDataToListView;
   
   MyForm.Run;
 }

Bu �ekilde dener misin?

ProListView ve SQL ba�lant�s� : Var MyForm:TclForm; Label1,a...

Tue, 06 Aug 2024 01:20:37 +0000

Yazar: zeynepsimsek
Konu: 808
G�nderim Zaman�: 06 A�ustos 2024 Saat 01:20

Var

MyForm:TclForm;

Label1,adLbl,mekanLbl,zamanLbl,kmLbl,konumLbl,idLbl: TClProLabel;

ProBtn1,ProBtn2,ProBtn3 : TClProButton;

ProEdit1,ProEdit2,ProEdit3,ProEdit4,ProEdit5,ProEdit6:TclProEdit;

ProListView : TClProListView;

DesignerPanel : TClProListViewDesignerPanel;

ID,Kisi,Yer,Tarih,KmDegeri,Konum:TClProLabel;

selectQuery: TclSqlQuery;

void AddDataToListView; // bu fonksiyon devreye girince hata veriyor

{

try

selectQuery.SQL.text = 'SELECT ID AS Kisi ID , Kisi AS Kisi �smi, Yer AS Alindigi Yer,

Tarih AS Alinma Zamani, KmDegeri AS Km Degeri, Konum AS Konumu FROM KisiBilgileri';

selectQuery.Open;

if(selectQuery.Found)

{

ProListView.ClLoadProListViewDataFromDataset(selectQuery);

}

else

{

ShowMessage('Kay�t Bulunamad�!');

}

finally

selectQuery.Free;

selectQuery.Close;

}

void InsertToDatabase; //bu fonksiyonum ba�ar�l� veritaban�na ekleme yap�yor

{

try

Clomosy.DBSQLServerQuery.SQL.text= 'INSERT INTO KisiBilgileri (ID,Kisi,Yer,Tarih,KmDegeri,Konum) VALUES (

'+ProEdit6.Text+','+QuotedStr(ProEdit1.Text)+', '+QuotedStr(ProEdit2.Text)+','+QuotedStr(ProEdit3.Text)+',

'+ProEdit4.Text+', '+QuotedStr(ProEdit5.Text)+')';

Clomosy.DBSQLServerQuery.ExecSql;

ShowMessage('Veri Ekleme Ba�ar�l�.');

except

ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);

}

{

MyForm = TclForm.Create(Self);

MyForm.SetFormColor('#f5f0f0', '#c3d3da', clGVertical);

DesignerPanel=MyForm.AddNewProListViewDesignerPanel(ProListView,'DesignerPanel');

clComponent.SetupComponent(DesignerPanel,

'{"Height":100,"Width" : 150,

"BackgroundColor":"#677b98",

"BorderColor":"#2c5696",

"BorderWidth":2,

"RoundHeight":2,

"RoundWidth":2}');

ProListView.SetDesignerPanel(DesignerPanel);

ID = MyForm.AddNewProLabel(DesignerPanel,'ID','');

clComponent.SetupComponent(ID,

'{"Height":10,

"Width" : 100,

"BackgroundColor":"#a4a5a8",

"BorderColor":"#7a4848",

"BorderWidth":2,

"RoundHeight":2,

"RoundWidth":2}');

DesignerPanel.AddPanelObject(ID,Cltext);

Kisi = MyForm.AddNewProLabel(DesignerPanel,'Kisi','');

clComponent.SetupComponent(Kisi,

'{"Height":10,

"Width" : 100,

"BackgroundColor":"#a4a5a8",

"BorderColor":"#7a4848",

"BorderWidth":2,

"RoundHeight":2,

"RoundWidth":2}');

DesignerPanel.AddPanelObject(Kisi,Cltext);

Yer = MyForm.AddNewProLabel(DesignerPanel,'Yer','');

clComponent.SetupComponent(Yer,

'{"Height":10,

"Width" : 100,

"BackgroundColor":"#a4a5a8",

"BorderColor":"#7a4848",

"BorderWidth":2,

"RoundHeight":2,

"RoundWidth":2}');

DesignerPanel.AddPanelObject(Yer,Cltext);

Tarih = MyForm.AddNewProLabel(DesignerPanel,'Tarih','');

clComponent.SetupComponent(Tarih,

'{"Height":10,

"Width" : 100,

"BackgroundColor":"#a4a5a8",

"BorderColor":"#7a4848",

"BorderWidth":2,

"RoundHeight":2,

"RoundWidth":2}');

DesignerPanel.AddPanelObject(Tarih,Cltext);

KmDegeri = MyForm.AddNewProLabel(DesignerPanel,'KmDegeri','');

clComponent.SetupComponent(KmDegeri,

'{"Height":10,

"Width" : 100,

"BackgroundColor":"#a4a5a8",

"BorderColor":"#7a4848",

"BorderWidth":2,

"RoundHeight":2,

"RoundWidth":2}');

DesignerPanel.AddPanelObject(KmDegeri,Cltext);

Konum= MyForm.AddNewProLabel(DesignerPanel,'Konum','');

clComponent.SetupComponent(Konum,

'{"Height":10,

"Width" : 100,

"BackgroundColor":"#a4a5a8",

"BorderColor":"#7a4848",

"BorderWidth":2,

"RoundHeight":2,

"RoundWidth":2}');

DesignerPanel.AddPanelObject(Konum,Cltext);

ProListView=MyForm.AddNewProListView(MyForm, 'ProListView');

clComponent.SetupComponent(ProListView,'{"Height" : 120 ,"Width": 150, "Align":"Client","MarginBottom":50,"MarginTop":380,

"MarginRight":20,"MarginLeft":20, "BackgroundColor":"#92a1aa", "ListType":"fluid","ItemHeight" : 50, "BorderColor":"#4c5c67",

"BorderWidth":2 , "ItemWidth":50}');

ProListView.SetDesignerPanel(DesignerPanel);

idLbl = MyForm.AddNewProLabel(MyForm,'idLbl','Ki�i ID:');

clComponent.SetupComponent(idLbl,'{"MarginBottom":550,"MarginRight":130, "Width" :

500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",

"TextHorizontalAlign":"center"}');

adLbl = MyForm.AddNewProLabel(MyForm,'adLbl','Ki�i �smi:');

clComponent.SetupComponent(adLbl,'{"MarginBottom":450,"MarginRight":130, "Width" :

500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",

"TextHorizontalAlign":"center"}');

mekanLbl = MyForm.AddNewProLabel(MyForm,'mekanLbl','Al�nd�� Yer:');

clComponent.SetupComponent(mekanLbl,'{"MarginBottom":350,"MarginRight":145, "Width" :

500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",

"TextHorizontalAlign":"center"}');

zamanLbl = MyForm.AddNewProLabel(MyForm,'zamanLbl','Al�nma Zaman�:');

clComponent.SetupComponent(zamanLbl,'{"MarginBottom":250,"MarginRight":170, "Width" :

500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",

"TextHorizontalAlign":"center"}');

kmLbl = MyForm.AddNewProLabel(MyForm,'kmLbl','Km De�eri:');

clComponent.SetupComponent(kmLbl,'{"MarginBottom":150,"MarginRight":140, "Width" :

500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",

"TextHorizontalAlign":"center"}');

konumLbl = MyForm.AddNewProLabel(MyForm,'konumLbl','Konumu:');

clComponent.SetupComponent(konumLbl,'{"MarginBottom":50,"MarginRight":135, "Width" :

500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",

"TextHorizontalAlign":"center"}');

ProBtn1=MyForm.AddNewProButton(MyForm, 'ProBtn1', 'Ekle');

clComponent.SetupComponent(ProBtn1,'{"caption":"Ekle","MarginTop":70,

"Width" :50, "Height":35,"RoundHeight":2, "RoundWidth":2,"BorderColor":"#7A3E65","BorderWidth":2}');

ProBtn2=MyForm.AddNewProButton(MyForm, 'ProBtn2', 'G�ncelle');

clComponent.SetupComponent(ProBtn2,'{"caption":"G�ncelle","MarginTop":70, "MarginLeft":110,

"Width" :50, "Height":35,"RoundHeight":2, "RoundWidth":2,"BorderColor":"#7A3E65","BorderWidth":2}');

ProBtn3=MyForm.AddNewProButton(MyForm, 'ProBtn3', 'Sil');

clComponent.SetupComponent(ProBtn3,'{"caption":"Sil","MarginTop":70,"MarginRight":110,

"Width" :50, "Height":35,"RoundHeight":2, "RoundWidth":2,"BorderColor":"#7A3E65","BorderWidth":2}');

Label1 = MyForm.AddNewProLabel(MyForm,'Label1','ARA� TAK�P UYGULAMASI');

clComponent.SetupComponent(Label1,'{"Align" : "Center","MarginBottom":630,"Width" :

500, "Height":400,"TextColor":"#000000","TextSize":20,"TextVerticalAlign":"center",

"TextHorizontalAlign":"center"}');

ProEdit1=MyForm.AddNewProEdit(MyForm, 'ProEdit1', '');

clComponent.SetupComponent(ProEdit1,'{"Align" : "Center","MarginBottom":450,"Width" :100

,"Height":30,"MarginLeft":27}')

ProEdit2=MyForm.AddNewProEdit(MyForm, 'ProEdit2', '');

clComponent.SetupComponent(ProEdit2,'{"Align" : "Center","MarginBottom":350,"Width" :100

,"Height":30,"MarginLeft":27}');

ProEdit3=MyForm.AddNewProEdit(MyForm, 'ProEdit3', 'Y�l-Ay-G�n');

clComponent.SetupComponent(ProEdit3,'{"Align" : "Center","MarginBottom":250,"Width" :100

,"Height":30,"MarginLeft":27}');

ProEdit4=MyForm.AddNewProEdit(MyForm, 'ProEdit4', '');

clComponent.SetupComponent(ProEdit4,'{"Align" : "Center","MarginBottom":150,"Width" :100

,"Height":30,"MarginLeft":27}');

// ProEdit4.clTypeOfField=taFloat;

ProEdit5=MyForm.AddNewProEdit(MyForm, 'ProEdit5', '');

clComponent.SetupComponent(ProEdit5,'{"Align" : "Center","MarginBottom":50,"Width" :100

,"Height":30,"MarginLeft":27}');

ProEdit6=MyForm.AddNewProEdit(MyForm, 'ProEdit6', '');

clComponent.SetupComponent(ProEdit6,'{"Align" : "Center","MarginBottom":550,"Width" :100

,"Height":30,"MarginLeft":27}');

MyForm.AddNewEvent(ProBtn1,tbeOnClick,'InsertToDatabase');

selectQuery = TclSqlQuery.Create(nil);

Clomosy.DBSQLServerConnect('SQL Server', 'DESKTOP-T9RHDI8\SQLEXPRESS', 'sa', '1', 'AracTakip', 1433);

selectQuery.Connection = Clomosy.DBSQLServerConnection;

AddDataToListView;

MyForm.Run;

}

Designer panel k�sm�n� ve �stteki fonksiyonu yorum sat�r�na ald��mda her �ey d�zg�nce �al��yor.

ProListView ve SQL ba�lant�s� : Merhaba Zeynep,Bütün projeni paylaşır...

Mon, 05 Aug 2024 17:49:37 +0000

Yazar: Developer
Konu: 808
G�nderim Zaman�: 05 A�ustos 2024 Saat 17:49

Merhaba Zeynep,

B�t�n projeni payla��r m�s�n?

ProListView ve SQL ba�lant�s� : /* void AddDataToListView; {...

Mon, 05 Aug 2024 15:07:12 +0000

Yazar: zeynepsimsek
Konu: 808
G�nderim Zaman�: 05 A�ustos 2024 Saat 15:07

void AddDataToListView;

{

try

selectQuery.SQL.text = 'SELECT ID AS Kisi ID , Kisi AS Kisi �smi, Yer AS Alindigi Yer,

Tarih AS Alinma Zamani, KmDegeri AS Km Degeri, Konum AS Konumu FROM KisiBilgileri';

selectQuery.Open;

if(selectQuery.Found)

{

ProListView.ClLoadProListViewDataFromDataset(selectQuery);

}

else

{

ShowMessage('Kay�t Bulunamad�!');

}

finally

selectQuery.Free;

selectQuery.Close;

}

/*DesignerPanel=MyForm.AddNewProListViewDesignerPanel(ProListView, 'DesignerPanel');

clComponent.SetupComponent(DesignerPanel,'{"Height":100,"Width" : 150,"BackgroundColor":"#F6EDDB",

"BorderColor":"#F5BCC9","BorderWidth":2,"RoundHeight":20,"RoundWidth":20}');

ProListView.SetDesignerPanel(DesignerPanel);

ID = MyForm.AddNewProLabel(DesignerPanel,'ID','ID');

clComponent.SetupComponent(ID,

'{"Height":100,

"Width" : 150,

"BackgroundColor":"#f3d5aa",

"BorderColor":"#ff9b0f",

"BorderWidth":2,

"RoundHeight":20,

"RoundWidth":20}');

DesignerPanel.AddPanelObject(ID,Cltext);

Kisi = MyForm.AddNewProLabel(DesignerPanel,'Kisi','Kisi �smi');

clComponent.SetupComponent(Kisi,

'{"Height":100,

"Width" : 150,

"BackgroundColor":"#f3d5aa",

"BorderColor":"#ff9b0f",

"BorderWidth":2,

"RoundHeight":20,

"RoundWidth":20}');

DesignerPanel.AddPanelObject(Kisi,Cltext);

Yer = MyForm.AddNewProLabel(DesignerPanel,'Yer','Al�nd�g� Yer');

clComponent.SetupComponent(Yer,

'{"Height":100,

"Width" : 150,

"BackgroundColor":"#f3d5aa",

"BorderColor":"#ff9b0f",

"BorderWidth":2,

"RoundHeight":20,

"RoundWidth":20}');

DesignerPanel.AddPanelObject(Yer,Cltext);

Tarih = MyForm.AddNewProLabel(DesignerPanel,'Tarih','Al�nma Zamani');

clComponent.SetupComponent(Tarih,

'{"Height":100,

"Width" : 150,

"BackgroundColor":"#f3d5aa",

"BorderColor":"#ff9b0f",

"BorderWidth":2,

"RoundHeight":20,

"RoundWidth":20}');

DesignerPanel.AddPanelObject(Tarih,Cltext);

KmDegeri = MyForm.AddNewProLabel(DesignerPanel,'KmDegeri','Kilometre Degeri');

clComponent.SetupComponent(KmDegeri,

'{"Height":100,

"Width" : 150,

"BackgroundColor":"#f3d5aa",

"BorderColor":"#ff9b0f",

"BorderWidth":2,

"RoundHeight":20,

"RoundWidth":20}');

DesignerPanel.AddPanelObject(KmDegeri,Cltext);

Konum= MyForm.AddNewProLabel(DesignerPanel,'Konum','Konumu');

clComponent.SetupComponent(Konum,

'{"Height":100,

"Width" : 150,

"BackgroundColor":"#f3d5aa",

"BorderColor":"#ff9b0f",

"BorderWidth":2,

"RoundHeight":20,

"RoundWidth":20}');

DesignerPanel.AddPanelObject(Konum,Cltext);

ProListView=MyForm.AddNewProListView(MyForm, 'ProListView');

clComponent.SetupComponent(ProListView,'{"Height" : 150 ,"Width": 150, "Align":"Client","MarginBottom":50,"MarginTop":380,

"MarginRight":20,"MarginLeft":20, "ListType":"Cart","ItemHeight" : 50,

"ItemWidth":50}');

ProListView.SetDesignerPanel(DesignerPanel);

Bu iki k�s�m yokken kodum hatas�z �al��yor. Bunlar� devreye soktu�umda yukar�da bahsetti�im hatay� veriyor.

ProListView ve SQL ba�lant�s� : RUNTIME ERRORCould not convert...

Mon, 05 Aug 2024 15:01:31 +0000

Yazar: zeynepsimsek
Konu: 808
G�nderim Zaman�: 05 A�ustos 2024 Saat 15:01

RUNTIME ERROR

Could not convert variant of type (Null) into type (Integer) when evaluating instruction CallProc ($FFFFFFFF,$2,$1320EA8,$6BF99A0,'AddNewProListViewDesignerPanel').

Stack content is: [Null,Null,Null,Null...].

Source position: 49,85

Position: 49, 85

Clomosy Build : 20240709.111531

49.SATIR

DesignerPanel=MyForm.AddNewProListViewDesignerPanel(ProListView, 'DesignerPanel');

Dedi�iniz gibi nesneleri tan�mlad�m �imdii b�yle bir hata veriyor.

ProListView ve SQL ba�lant�s� : Merhaba Zeynep,Veritabanından...

Mon, 05 Aug 2024 14:21:15 +0000

Yazar: Atiker01
Konu: 808
G�nderim Zaman�: 05 A�ustos 2024 Saat 14:21

Merhaba Zeynep,

Veritaban�ndan gelen s�tun adlar� ile prolistview nesnesinin i�erisinde olu�turulan nesnelerin isimleri ayn� olmal�d�r.

�rne�in,

tabloda "Kisi" ad�ndan bir alan ad�n var. ProListView i�erisinde "Kisi" ad�nda nesnen olmal�d�r.

Bu �ekilde d�zenlemeleri yapabilirsin. Geri d�n��n� bekliyorum.

ProListView ve SQL ba�lant�s� : void AddDataToListView; { try...

Mon, 05 Aug 2024 14:04:00 +0000

Yazar: zeynepsimsek
Konu: 808
G�nderim Zaman�: 05 A�ustos 2024 Saat 14:04

void AddDataToListView;

{

try

selectQuery.SQL.text = 'SELECT ID AS Kisi ID , Kisi AS Kisi �smi, Yer AS Alindigi Yer, Tarih AS Alinma Zamani, KmDegeri AS Km Degeri, Konum AS Konumu FROM KisiBilgileri';

selectQuery.Open;

if(selectQuery.Found)

{

ProListView.ClLoadProListViewDataFromDataset(selectQuery);

}

else

{

ShowMessage('Kay�t Bulunamad�!');

}

finally

selectQuery.Free;

selectQuery.Close;

}

KisiBilgileri isimli tablomda ID,Kisi,Yer,Tarih,KmDegeri,Konum s�tunlar� bulunmakta.

Bu s�tunlara ekleme yapt��m bilgileri uygulamamdaki ProListView �zerinde g�stermek istiyorum. Detayl� bir kullan�m bulamad�m. Fonksiyonum hata veriyor inceleyebilir misiniz?

ProListView ve SQL ba�lant�s� : void InsertToDatabase; { try...

Mon, 05 Aug 2024 13:14:41 +0000

Yazar: zeynepsimsek
Konu: 808
G�nderim Zaman�: 05 A�ustos 2024 Saat 13:14

void InsertToDatabase;

{

try

Clomosy.DBSQLServerQuery.SQL.text= 'INSERT INTO KisiBilgileri (ID,Kisi,Yer,Tarih,KmDegeri,Konum) VALUES (

'+ProEdit6.Text+','+QuotedStr(ProEdit1.Text)+', '+QuotedStr(ProEdit2.Text)+','+QuotedStr(ProEdit3.Text)+',

'+ProEdit4.Text+', '+QuotedStr(ProEdit5.Text)+')';

Clomosy.DBSQLServerQuery.ExecSql;

ShowMessage('Veri Ekleme Ba�ar�l�.');

except

ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);

}

Bu �ekilde veritaban�na ba�ar�l� bit �ekilde ekleme yapabiliyorum. Ama ProListView i�inde bu verileri g�r�nt�leme konusunda s�k�nt� ya��yorum.

selectQuery.Sql.text =

nas�l bir kullan�m yapmam gerekti�ini anlayamad�m. Yard�mc� olur musunuz ?