Yorumları: 90
Konuları: 17
Kayıt Tarihi: 09-09-2017
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 123 Başlangıç
02-07-2018, Saat: 23:38
(Son Düzenleme: 02-07-2018, Saat: 23:40, Düzenleyen: theSinan.)
s.a akınsoft wolvox erp muhasebe programında
raporlama aracı olarak QuickReport kullanıyor raporlamada pascal script düzenleyici var ancak hiç döküman eklememiş pascal script içerisinde biraz bişeyler yaptım showmessage , formatdatetime çalışıyor basit bir procedure yazdım sorunsuz çalışıyor pascal script içerisinden rapora eklenen QuickReport nesnelerine nasıl erişebilirim bilgi okuma yazma gibi işlemler yapmak istiyorum
yardımlarınız için tşkler
Yorumları: 42
Konuları: 3
Kayıt Tarihi: 03-05-2018
Aktif Kullandığınız Delphi Sürümü:
- Delphi 10.1
- Delphi XE7
- Delphi XE
Rep Puanı: 345 Acemi
Selamlar,
Pascal Script'i muhtemelen FastScript bileşeni kullanarak yapmışlardır. FastScript'in dokumanları işinizi görecektir.
https://www.fast-report.com/public_download/fs_en.pdf
Kolay Gelsin
Yorumları: 754
Konuları: 39
Kayıt Tarihi: 11-11-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 3.708 Uzman
(02-07-2018, Saat: 23:38)theSinan Adlı Kullanıcıdan Alıntı: s.a akınsoft wolvox erp muhasebe programında
raporlama aracı olarak QuickReport kullanıyor raporlamada pascal script düzenleyici var ancak hiç döküman eklememiş pascal script içerisinde biraz bişeyler yaptım showmessage , formatdatetime çalışıyor basit bir procedure yazdım sorunsuz çalışıyor pascal script içerisinden rapora eklenen QuickReport nesnelerine nasıl erişebilirim bilgi okuma yazma gibi işlemler yapmak istiyorum
yardımlarınız için tşkler
Merhabalar
Code yazım ekran görüntüsü var mı?
@ Kuri_YJ nin de belirttiği gibi olma ihtimali yüksek.
Kolay gelsin.
Amaç, bilginin de/aklın da zekat'ını vermek.
Yorumları: 90
Konuları: 17
Kayıt Tarihi: 09-09-2017
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 123 Başlangıç
s.a @ Kuri_YJ hocam fastscript ile yazılmış gibi bir çok fonksiyon çalışıyor bazı. fonksiyonlar ise çalışmıyor ancak rapordaki neslere nasıl erişebilirim bulamadım ve rapor veritabanından bilgi çekiyor bağlı olduğu veritabanında diger tablolardan bilgi nasıl çekilecek onuda bulamadım fonksiyonlu
Yorumları: 42
Konuları: 3
Kayıt Tarihi: 03-05-2018
Aktif Kullandığınız Delphi Sürümü:
- Delphi 10.1
- Delphi XE7
- Delphi XE
Rep Puanı: 345 Acemi
Selamlar,
Eğer normal pascal code içinden erişiyorsanız (yani programdan) normal olarak diğer nesnelere nasıl erişiyorsanız öyle erişebilirsiniz. FindComponent ile isminden buldurup erişebilirsiniz vs. vs.
Örnek code gösterebilirseniz, örnek rapor vs. belki bir şeyu söyleyebiliriz.
Kolay Gelsin
Yorumları: 90
Konuları: 17
Kayıt Tarihi: 09-09-2017
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 123 Başlangıç
25-12-2018, Saat: 11:37
(Son Düzenleme: 26-12-2018, Saat: 08:00, Düzenleyen: TescilsizUzman.)
(01-08-2018, Saat: 08:51)Kuri_YJ Adlı Kullanıcıdan Alıntı: Selamlar,
Eğer normal pascal code içinden erişiyorsanız (yani programdan) normal olarak diğer nesnelere nasıl erişiyorsanız öyle erişebilirsiniz. FindComponent ile isminden buldurup erişebilirsiniz vs. vs.
Örnek code gösterebilirseniz, örnek rapor vs. belki bir şeyu söyleyebiliriz.
Kolay Gelsin
Hocam Örnek Kod Malesef Paylaşmıyor
Dizayn da Pascal Script Düzenleyici Diye Menüye Eklemiş Tıklayınca
Boş Bir Ekran Geliyor
Gelen ekranda
program Report;
begin
end.
sadece Bunlar Var
ben aşağıdaki gibi biraz denemeler yaptım
çalışıyor ancak Var olan Nesnelere nasıl erişim yapacağımı bulamıyorum
program Report;
var
Degisken01:string;
AComponent: TComponent ;
i:integer;
DNMDugme: TButton;
DNMForm: TForm;
Memo1:TMemo;
begin
DNMForm:=TForm.Create(nil);
DNMForm.SetBounds(10, 100, 420, 350);
DNMForm.Caption:='Dimanik Form Başlığı';
DNMDugme:=TButton.create(DNMForm);
DNMDugme.Caption:='Düğme Başlığı';
DNMDugme.SetBounds(10, 10, 200, 30);
DNMDugme.Parent:=DNMForm;
Memo1:=TMemo.create(DNMForm);
Memo1.SetBounds(10, 40, 200, 150);
Memo1.Parent:=DNMForm;
DNMForm.ShowModal;
Degisken01 := 'Ahmet Ak';
ShowMessage('Değişken Değeri : '+Degisken01);
end.
Dosya Eklenilmiyor
Örnek Rapor Dosyası Linkte Mevcut
https://www.pcurunleri.com/fatura.arp
Yorumları: 230
Konuları: 9
Kayıt Tarihi: 07-07-2017
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 1.713 Programcı
for i:=0 to ComponentCount-1 do
with Components[i] do showmessage(Name+' - '+ClassName); gibi bir kod çalıştırmayı deneyin. Hatta Application.Components denemesi de yapılabilir. Çalışır mı hata verir mi bilemem ama denemekte fayda var.
Yorumları: 90
Konuları: 17
Kayıt Tarihi: 09-09-2017
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 123 Başlangıç
25-12-2018, Saat: 19:49
(Son Düzenleme: 25-12-2018, Saat: 19:49, Düzenleyen: theSinan.)
(25-12-2018, Saat: 19:04)sabanakman Adlı Kullanıcıdan Alıntı: for i:=0 to ComponentCount-1 do
with Components[i] do showmessage(Name+' - '+ClassName); gibi bir kod çalıştırmayı deneyin. Hatta Application.Components denemesi de yapılabilir. Çalışır mı hata verir mi bilemem ama denemekte fayda var.
Kodu Çalıştırdığımda
Derlenen: [Error] (14:15): Unknown identifier 'ComponentCount'
Hatası Veriyor
Yorumları: 42
Konuları: 3
Kayıt Tarihi: 03-05-2018
Aktif Kullandığınız Delphi Sürümü:
- Delphi 10.1
- Delphi XE7
- Delphi XE
Rep Puanı: 345 Acemi
25-01-2019, Saat: 16:06
(Son Düzenleme: 25-01-2019, Saat: 16:08, Düzenleyen: Kuri_YJ.)
(25-12-2018, Saat: 19:49)theSinan Adlı Kullanıcıdan Alıntı: (25-12-2018, Saat: 19:04)sabanakman Adlı Kullanıcıdan Alıntı: for i:=0 to ComponentCount-1 do
with Components[i] do showmessage(Name+' - '+ClassName); gibi bir kod çalıştırmayı deneyin. Hatta Application.Components denemesi de yapılabilir. Çalışır mı hata verir mi bilemem ama denemekte fayda var.
Kodu Çalıştırdığımda
Derlenen: [Error] (14:15): Unknown identifier 'ComponentCount'
Hatası Veriyor
Selamlar,
ComponenCount yerine DNMForm.ComponentCount yazıp dener misiniz.
Yorumları: 90
Konuları: 17
Kayıt Tarihi: 09-09-2017
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 123 Başlangıç
28-01-2019, Saat: 12:16
(Son Düzenleme: 28-01-2019, Saat: 12:19, Düzenleyen: theSinan.)
(25-01-2019, Saat: 16:06)Kuri_YJ Adlı Kullanıcıdan Alıntı: (25-12-2018, Saat: 19:49)theSinan Adlı Kullanıcıdan Alıntı: Kodu Çalıştırdığımda
Derlenen: [Error] (14:15): Unknown identifier 'ComponentCount'
Hatası Veriyor
Selamlar,
ComponenCount yerine DNMForm.ComponentCount yazıp dener misiniz.
Aleyküm Selam
Kodu Şu Şekilde Düzenledim
program Report;
var
Degisken01:string;
AComponent: TComponent ;
i:integer;
DNMDugme: TButton;
DNMForm: TForm;
Memo1:TMemo;
begin
try
for i:=0 to DNMForm.ComponentCount-1 do
with DNMForm.Components[i] do showmessage(Name+' - ');
exception E : Exception do
ShowMessage(E.ClassName+' error raised, with message : '+E.Message);
end;
DNMForm.SetBounds(10, 100, 420, 350);
DNMForm.Caption:='Dimanik Form Başlığı';
DNMDugme:=TButton.create(DNMForm);
DNMDugme.Caption:='Düğme Başlığı';
DNMDugme.SetBounds(10, 10, 200, 30);
DNMDugme.Parent:=DNMForm;
Memo1:=TMemo.create(DNMForm);
Memo1.SetBounds(10, 40, 200, 150);
Memo1.Parent:=DNMForm;
DNMForm.ShowModal;
Degisken01 := 'Ahmet Ak';
ShowMessage('Değişken Değeri : '+Degisken01);
end.
Ancak
Derlenen : [Error] (18:13) : Internal error (20) Hatası Veriyor
|