Yorumları: 673
Konuları: 73
Kayıt Tarihi: 20-12-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 1.545
Programcı
Selamlar,
Standart bir memo kullanacaksanız, preview işeminden önce, ilgili memoya, kayıtı pas edebilirsiniz.
Yazılımcı, kahveyi koda çeviren bir organizmadır.
Yorumları: 765
Konuları: 39
Kayıt Tarihi: 11-11-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 3.757
Uzman
(11-07-2023, Saat: 13:58)Frrst Adlı Kullanıcıdan Alıntı: Merhaba üstatlar,
SqLite veritabanı ve Firedac bileşenleri kullanarak basit bir Cv programı kodluyorum. Alttaki ekran görüntüsündeki çerçeveli alan fastreport DetailData alanında gösterilen detail tablo verileri. Bu alanı okla gösterilen sol sütunda band kullanmadan bir Memo içinde gösterebilmem mümkün mü? Bir Memo alan kullandığımda son kayıt geliyor sadece.
Merhabalar,
- SubReport kullanabilirsiniz.
- SQL ile verilerinizi birleştirip yazdırabilirsiniz.
- Memo içerisine 1. alanı, alt satıra geçip 2. alanı, alt satıra geçip 3. alanı ekleyebilirsiniz.
Kolay gelsin.
Amaç, bilginin de/aklın da zekat'ını vermek.
Yorumları: 765
Konuları: 39
Kayıt Tarihi: 11-11-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 3.757
Uzman
13-07-2023, Saat: 06:35
(Son Düzenleme: 13-07-2023, Saat: 06:36, Düzenleyen: hi_selamlar.)
(13-07-2023, Saat: 01:25)Frrst Adlı Kullanıcıdan Alıntı: (13-07-2023, Saat: 00:15)hi_selamlar Adlı Kullanıcıdan Alıntı: - SubReport kullanabilirsiniz.
- SQL ile verilerinizi birleştirip yazdırabilirsiniz.
- Memo içerisine 1. alanı, alt satıra geçip 2. alanı, alt satıra geçip 3. alanı ekleyebilirsiniz.
Cevap için teşekkürler sayın hocam.
Mevcut bilgimle tek tek uğraştım ama yapamadım :-(
Sql ile kayıt sayısını bulup ona göre detay tablodaki verileri Memo için nasıl yazdırabileceğim konusunda yardımcı olabilir misiniz? Sanırım en kestirme yol bu gibi ama emin değilim.
Şöyle yapmaya çalıştım ama "Object [ID] is not found." hatası aldım.
var
sorgu: string;
begin
sorgu := 'SELECT seviye FROM yetenek';
FDQuery1.SQL.Clear;
FDQuery1.SQL.Add(sorgu);
FDQuery1.Open;
while not FDQuery1.Eof do
begin
TfrxMemoView(frxReport1.FindObject('Memo1')).Lines.Add(FDQuery1.FieldByName('seviye').AsString);
FDQuery1.Next;
end;
Merhabalar,
Öncelikle sorgunuzun döngüsünü bitirip en son aşamada sonucu göndermeniz gerekli.
procedure TForm1.Button1Click(Sender: TObject);
var
sorgu: string;
begin
sorgu:='• Delphi 7'+#13+#10+
'• Delphi XE'+#13+#10+
'• Delphi XE3'+#13+#10+
'• Delphi XE5'+#13+#10+
'• Delphi XE7'+#13+#10+
'• Delphi XE11'+#13+#10+
'* DelphiCan.com';
TfrxMemoView(frxReport1.FindObject('Memo1')).Memo.Text:=sorgu;
frxReport1.ShowReport(True);
end;
Kolay gelsin.
Amaç, bilginin de/aklın da zekat'ını vermek.
Yorumları: 35
Konuları: 11
Kayıt Tarihi: 05-10-2020
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 20
Başlangıç
Aslında tam olarak yapmak istediğim de bu idi. cv lerde olduğu şekilde madde imleri şeklinde.
Dediğiniz gibi Memo1 içinde kayıtlar harika şekilde gösteriliyor. Ama ben veritabanındaki verileri buna uyarlayamadım hocam. Tablo adı "yetenek" alan adı "seviye". Bahsettiğiniz şekilde veritabanındaki verileri bu şekilde çekmeyi başarırsam harika olacak. Eğer yapamazsam sağ taraftaki alanda DetadilData içinde göstereceğim.
Yorumları: 765
Konuları: 39
Kayıt Tarihi: 11-11-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 3.757
Uzman
(13-07-2023, Saat: 09:48)Frrst Adlı Kullanıcıdan Alıntı: Aslında tam olarak yapmak istediğim de bu idi. cv lerde olduğu şekilde madde imleri şeklinde.
Dediğiniz gibi Memo1 içinde kayıtlar harika şekilde gösteriliyor. Ama ben veritabanındaki verileri buna uyarlayamadım hocam. Tablo adı "yetenek" alan adı "seviye". Bahsettiğiniz şekilde veritabanındaki verileri bu şekilde çekmeyi başarırsam harika olacak. Eğer yapamazsam sağ taraftaki alanda DetadilData içinde göstereceğim.
Merhabalar,
Hangi DB kullandığınızı belirtmemişsiniz.
SQL komutlarını araştırabilirsiniz.
LIST
STRING_AGG
CONCAT
Kolay gelsin.
Amaç, bilginin de/aklın da zekat'ını vermek.
Yorumları: 765
Konuları: 39
Kayıt Tarihi: 11-11-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 3.757
Uzman
(13-07-2023, Saat: 14:54)Frrst Adlı Kullanıcıdan Alıntı: İlk mesajda belirttiğim için gerek olmaz diye düşünmüştüm hocam. Sqlite ile birlikte firedac bileşenlerini kullanıyorum. Tablo adı yetenek ve alan adı seviye şeklinde.
Söylediğimiz yöntemleri araştıracağım ama benim düzeyimle üstesinden gelmek zor olacak.
------ Ekleme ----
Hocam şurada bulduğum kod ile ilk sütunu gösterebildim. Kodlarda hata var mı değerlendirirseniz sevinirim.
var
names: TStringList;
i: Integer;
currentField: TField;
currentLine: string;
begin
With DataM do
begin
if not FDQuery1.IsEmpty then
begin
FDQuery1.First;
names := TStringList.Create;
try
FDQuery1.GetFieldNames(names);
while not FDQuery1.Eof do
begin
currentLine := '';
// for i := 0 to names.Count - 1 do
for i := 1 to names.Count - 3 do
begin
currentField := FDQuery1.FieldByName(names[i]);
currentLine := '• ' + currentLine + ' ' + currentField.AsString;
end;
TfrxMemoView(frxReport1.FindObject('Memo1')).Lines.Add(currentLine).MaxValue;
FDQuery1.Next;
end;
finally
names.Free;
end;
frxReport1.ShowReport();
end;
end;
end;
Başarı ile ilgili sütunu da aynı şekilde kodları tekrar değiştirerek başlangıç ise: * ... uzman ise: ***** gibi bir görünümle göstermek istiyorum.
Merhabalar,
Dosyayı inceleyin lüfen.
delphican.zip (Dosya Boyutu: 8,59 KB / İndirme Sayısı: 5)
Kolay gelsin.
Amaç, bilginin de/aklın da zekat'ını vermek.