Clomosy | Forum : TclSqlQuery Outputunu i�leyemedim

TclSqlQuery Outputunu i�leyemedim : Problemi bu şekilde çözdüm artık...

Wed, 18 Mar 2026 10:46:56 +0000

Yazar: M-Guney
Konu: 1258
G�nderim Zaman�: 18 Mart 2026 Saat 10:46

Problemi bu �ekilde ��zd�m art�k herhangi bir problem bulunmamaktad�r.

function MakeTitleFromField(AField: String): String;

var p: Integer;

{

Result = AField;

p = Pos('_', Result);

while (p > 0) { Delete(Result, p, 1); Insert(' ', Result, p); p = Pos('_', Result); }

Result = AnsiUpperCase(Result);

}

void FillGrid

var

col, Satir, i, SampleCount: Integer;

FieldName, TitleMethod, RawValue, UpFieldName, C: String;

InputPersonalTitles: TClStringList;

IsNumberCol: Boolean;

{

ReportQuery = uDataLib.GetReportQuery;

TitleMethod = uDataLib.GetTitleMethod;

InputPersonalTitles = uDataLib.GetPersonalTitles;

if (ReportQuery == nil) Exit;

if (not ReportQuery.Active) ReportQuery.Open;

if (CariFields == nil) CariFields = Clomosy.StringListNew;

CariFields.Clear;

if (TitleMethod == 'Personalize')

{

if (InputPersonalTitles <> nil)

{

for (col = 0 to InputPersonalTitles.Count - 1)

{

FieldName = InputPersonalTitles.Names[col];

if (ReportQuery.FindField(FieldName) <> nil) CariFields.Add(FieldName);

}

else

{

ReportQuery.GetFieldNames(CariFields);

if (TitleMethod == 'Field')

{

InputPersonalTitles = Clomosy.StringListNew;

for (col = 0 to CariFields.Count - 1)

{

FieldName = CariFields.Strings[col];

InputPersonalTitles.Add(FieldName + '=' + MakeTitleFromField(FieldName));

}

uDataLib.SetPersonalTitles(InputPersonalTitles);

}

ReportGrid.ColumnCount = CariFields.Count + 1; // S�ra No i�in Grid'e ekstra +1 kolon ekliyoruz ---

ReportGrid.RowCount = ReportQuery.RecordCount + 1;

// 1. BA�LIKLARI YAZDIRMA

ReportGrid.Cells[0, 0] = ''; // En sol �st k��eye sabit ba�l�k('') / 'S�ra'

for (col = 0 to CariFields.Count - 1)

{

if (TitleMethod == 'Personalize')

ReportGrid.Cells[col + 1, 0] = InputPersonalTitles.Values[CariFields.Strings[col]]; // Veriler col+1'e kayd�r�ld�

else

ReportGrid.Cells[col + 1, 0] = MakeTitleFromField(CariFields.Strings[col]);

}

// 2. VER�LER� YAZDIRMA

if (ReportQuery.RecordCount > 0)

{

ReportQuery.First;

Satir = 1;

while (not ReportQuery.Eof)

{

ReportGrid.Cells[0, Satir] = IntToStr(Satir);

ReportGrid.HorzAlignments[0, Satir] = 0; // S�ra No: Ortala (gtaCenter)

for (col = 0 to CariFields.Count - 1)

{

FieldName = CariFields.Strings[col];

RawValue = ReportQuery.FieldByName(FieldName).AsString;

RawValue = TransformCellValue(FieldName, RawValue);

RawValue = FormatIfNumeric(FieldName, RawValue);

ReportGrid.Cells[col + 1, Satir] = RawValue;

}

Satir = Satir + 1;

ReportQuery.Next;

}

ReportGrid.AutoSizeColumns(True, 10);

// 3. H�CRE BAZLI H�ZALAMA MOTORU (Data Sampling Y�ntemi)

for (col = 0 to CariFields.Count - 1)

{

UpFieldName = AnsiUpperCase(CariFields.Strings[col]);

IsNumberCol = True; // Varsay�lan olarak say� kabul et, testte ��r�t

// KURAL 1: Kesin Metin Olanlar (Blacklist)

if ((Pos('KOD', UpFieldName) > 0) ||

(Pos('_NO', UpFieldName) > 0) ||

(Pos('NO_', UpFieldName) > 0) ||

(Pos('TIP', UpFieldName) > 0) ||

(Pos('ADI', UpFieldName) > 0) ||

(Pos('MODUL', UpFieldName) > 0) ||

(Pos('ACIKLAMA', UpFieldName) > 0) ||

(Pos('VADE', UpFieldName) > 0) ||

(Pos('TARIH', UpFieldName) > 0))

{

IsNumberCol = False; // Metin

}

else

{

// KURAL 2: ��pheli Kolonlar ��in Veri �rnekleme (Sampling)

SampleCount = 0;

for (Satir = 1 to ReportGrid.RowCount - 1)

{

RawValue = Trim(ReportGrid.Cells[col + 1, Satir]);

if (RawValue <> '')

{

for (i = 1 to Length(RawValue))

{

C = Copy(RawValue, i, 1);

if (Pos(C, '0123456789.,-') == 0)

{

IsNumberCol = False; // Harf bulundu, say� de�il!

}

SampleCount = SampleCount + 1;

}

// Karar verildiyse testleri bitir

if ((IsNumberCol == False) || (SampleCount >= 3))

{

Break;

}

if (SampleCount == 0) IsNumberCol = False;// E�er tamamen bo� bir kolonsa (SampleCount = 0) onu da sola at

}

// H�CRELER� F�Z�KSEL OLARAK H�ZALA (Sat�r D�ng�s�)

for (Satir = 1 to ReportGrid.RowCount - 1)

{

ReportGrid.HorzAlignments[0, Satir] = 0; // 0. Kolon (S�ra No) daima Ortada (gtaCenter = 0)

if (IsNumberCol == True)

ReportGrid.HorzAlignments[col + 1, Satir] = 2; // Sa�a Yasla (gtaTrailing = 2)

else

ReportGrid.HorzAlignments[col + 1, Satir] = 1; // Sola Yasla (gtaLeading = 1)

}

ApplyGridColors;

CalculateTotals;

}

.

https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

TclSqlQuery Outputunu i�leyemedim : Merhaba Güney,Son gönderdiğim...

Tue, 03 Feb 2026 09:17:44 +0000

Yazar: Emr.Erkmn
Konu: 1258
G�nderim Zaman�: 03 �ubat 2026 Saat 09:17

Merhaba G�ney,
Son g�nderdi�im kodun mant�� da o asl�nda veritaban�nda ki AD_SOYAD field
MakeTitleFromField prosed�r� i�erisinde ba�l�klar� okunabilir hale getiriyor
yani AD SOYAD olarak ��k�yor daha sonra gridi dolduruyor.
--------------------------

var

MainForm : TCLForm;

ProGridCari : TCLProGrid;

mainVertSB : TclVertScrollBox;

ReportQuery : TclSqlQuery;

CariFields : TClStringList;

HamBaslik : String;

function MakeTitleFromField(AField : String) : String;

var

p : Integer;

{

Result = AField;

p = Pos('_', Result);

while (p > 0)

{

Delete(Result, p, 1);

Insert(' ', Result, p);

p = Pos('_', Result);

}

Result = AnsiUpperCase(Result);

}

void GridDoldur;

var

col, Satir : Integer;

FieldName : String;

{

if (ReportQuery == nil) { exit; }

if (not ReportQuery.Active) ReportQuery.Open;

CariFields.Clear;

ReportQuery.GetFieldNames(CariFields);

// 2. Grid Yoksa Olu�tur

if (ProGridCari == nil)

{

ProGridCari = MainForm.AddNewProGrid(mainVertSB, 'ProGridCari');

ProGridCari.Align = alClient;

ProGridCari.Options.Editing.Enabled = False;

}

ProGridCari.ColumnCount = CariFields.Count;

for (col = 0 to CariFields.Count - 1)

{

HamBaslik = CariFields.Strings[col];

ProGridCari.Cells[col, 0] = MakeTitleFromField(HamBaslik);

}

ProGridCari.RowCount = 1;

if (ReportQuery.Found)

{

ReportQuery.First;

Satir = 1;

while (not ReportQuery.Eof)

{

for (col = 0 to CariFields.Count - 1)

{

FieldName = CariFields.Strings[col];

ProGridCari.Cells[col, Satir] = ReportQuery.FieldByName(FieldName).AsString;

}

Satir = Satir + 1;

ReportQuery.Next;

}

ProGridCari.AutoSizeColumns(True, 100);

}

{

MainForm = TCLForm.Create(Self);

mainVertSB = MainForm.AddNewVertScrollBox(MainForm, 'mainVertSB');

mainVertSB.Align = alClient;

CariFields = Clomosy.StringListNew;

ReportQuery = Clomosy.DBSQLiteQueryWith('SELECT 101 as OGRENCI_NO, ''Ahmet Yilmaz'' as AD_SOYAD, 85 as NOT_ORT');

ReportQuery.Open;

GridDoldur;

MainForm.Run;

}
bir �nce ki g�nderdi�im de manuel olarak ekliyorduk.
Son g�nderdi�im de s�tun isimlerini otomatik al�yor prosed�rle d�zeltiyor ve verileri dolduruyor.

Deneyebilir misin?

https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

TclSqlQuery Outputunu i�leyemedim : Aslında benim burada yapmak istediğim...

Mon, 02 Feb 2026 18:25:19 +0000

Yazar: M-Guney
Konu: 1258
G�nderim Zaman�: 02 �ubat 2026 Saat 18:25

Asl�nda benim burada yapmak istedi�im field alan�n� vermeden sorgudan almakt�

CariFields.Add('AD_SOYAD');

CariFields.Add('NOT_ORT');

Yani sorgunun i�erisindeki field alan�ndaki "_" leri " " ye �evirerek kullanmak istiyorum.
"AD_SOYAD" --> "AD SOYAD" �eklinde

TclSqlQuery Outputunu i�leyemedim : Merhaba Güney,var MainForm :...

Mon, 02 Feb 2026 16:38:08 +0000

Yazar: Emr.Erkmn
Konu: 1258
G�nderim Zaman�: 02 �ubat 2026 Saat 16:38

Merhaba G�ney,

var

MainForm : TCLForm;

ProGridCari : TCLProGrid;

mainVertSB : TclVertScrollBox;

ReportQuery : TclSqlQuery;

CariFields : TClStringList;

HamBaslik : String;

function MakeTitleFromField(AField : String) : String;

var

p : Integer;

{

Result = AField;

p = Pos('_', Result);

while (p > 0)

{

Delete(Result, p, 1);

Insert(' ', Result, p);

p = Pos('_', Result);

}

Result = AnsiUpperCase(Result);

}

void GridDoldur;

var

col, Satir : Integer;

FieldName : String;

{

if (ReportQuery == nil) { exit; }

if (not ReportQuery.Active) ReportQuery.Open;

if (ProGridCari == nil)

{

ProGridCari = MainForm.AddNewProGrid(mainVertSB, 'ProGridCari');

ProGridCari.Align = alClient;

ProGridCari.Options.Editing.Enabled = False;

}

ProGridCari.ColumnCount = CariFields.Count;

// 1. BA�LIKLARI YAZ

for (col = 0 to CariFields.Count - 1)

{

HamBaslik = CariFields.Strings[col];

ProGridCari.Cells[col, 0] = MakeTitleFromField(HamBaslik);

}

// 2. D�NG�YLE DOLDUR

ProGridCari.RowCount = 1;

if (ReportQuery.Found)

{

ReportQuery.First;

Satir = 1;

while (not ReportQuery.Eof)

{

for (col = 0 to CariFields.Count - 1)

{

FieldName = CariFields.Strings[col];

ProGridCari.Cells[col, Satir] = ReportQuery.FieldByName(FieldName).AsString;

}

Satir = Satir + 1;

ReportQuery.Next;

}

ProGridCari.AutoSizeColumns(True, 100);

}

{

MainForm = TCLForm.Create(Self);

mainVertSB = MainForm.AddNewVertScrollBox(MainForm, 'mainVertSB');

mainVertSB.Align = alClient;

CariFields = Clomosy.StringListNew;

// Alanlar� Belirle

CariFields.Add('OGRENCI_NO');

CariFields.Add('AD_SOYAD');

CariFields.Add('NOT_ORT');

ReportQuery = Clomosy.DBSQLiteQueryWith('SELECT 101 as OGRENCI_NO, ''Ahmet Yilmaz'' as AD_SOYAD, 85 as NOT_ORT');

ReportQuery.Open;

GridDoldur;

MainForm.Run;

}
Test edebilir misin??

TclSqlQuery Outputunu i�leyemedim : LSourceQuery = Clomosy.DBSQLServerQueryWith(AQuery);...

Mon, 02 Feb 2026 15:01:00 +0000

Yazar: M-Guney
Konu: 1258
G�nderim Zaman�: 02 �ubat 2026 Saat 15:01

LSourceQuery = Clomosy.DBSQLServerQueryWith(AQuery);

Result = LSourceQuery;

��kt� olarak buradan ald��m� ReportQuery olarak kullan�yorum

TclSqlQuery Outputunu i�leyemedim : var MainForm : TCLForm; ProGridCari...

Mon, 02 Feb 2026 14:59:53 +0000

Yazar: M-Guney
Konu: 1258
G�nderim Zaman�: 02 �ubat 2026 Saat 14:59

var

MainForm : TCLForm;

ProGridCari : TCLProGrid;

mainVertSB : TclVertScrollBox;

ScaledLayout : TCLScaledLayout;

ReportQuery : TclSqlQuery;

CariFields : TClStringList;

function MakeTitleFromField(AField : String) : String;

var

p : Integer;

{

Result = AField;

p = Pos('_', Result);

while (p > 0)

{

Delete(Result, p, 1);

Insert(' ', Result, p);

p = Pos('_', Result);

}

Result = AnsiUpperCase(Result);

}

void SetupCariGrid;

var

c : Integer;

{

if (ProGridCari == nil)

{

ProGridCari = MainForm.AddNewProGrid(mainVertSB, 'ProGridCari');

ProGridCari.Align = alClient;

}

ProGridCari.RowCount = 0;

ProGridCari.ColumnCount = CariFields.Count;

ProGridCari.RowCount = 2;

ProGridCari.FixedRows = 1;

ProGridCari.Options.Editing.Enabled = False;

for (c = 0 to (CariFields.Count - 1))

{

ProGridCari.Cells[c, 0] = MakeTitleFromField(CariFields.Strings[c]);

}

void ExtractMetadataFromQuery;

var

i : Integer;

{

if (ReportQuery == nil) { exit; }

CariFields.Clear;

for (i = 0 to (ReportQuery.FieldCount - 1))

{

//CariFields.Add(ReportQuery.FieldName(i));

// Tam burada SQL den d�nm�� olan verideki field alanlar�n� s�tun ismi olarak //ayarlamak istiyorum ama sorgunun textine ula�amad�m

}