Arsip: Buat Laporan di Memo

 
user image
more 13 years ago

Dedy_007

Ada yang bisa bantu .. saya mau buat laporan di Memo dalam format Tabel Saya bingung untuk source agar antar kolomnya kelihatan RApih dan bisa RAta kanan maupun RAta kiri Contoh nya No. | Nama | Gaji | Anak 01 | Rudi | 1.000.000 | 2 02 | Iwan | 2.500.000 | 12 03 | Irawan | 900.000 | 1
user image
more 13 years ago

deLogic

Set aja font pada memo bertipe monospace.. contohnya Courier. kemudian bermain2 lah dengan spasi untuk menentukan lebar yang sesuai.
user image
more 13 years ago

Dedy_007

Permasalahannya Sumber datanya saya ambil data database, Saya sudah coba hal tsb namun karena perbedaan panjang data maka datanya jadi berantakan, Saya pernah lihat aplikasi yg bisa membuat setiap data menyesuaikan dengan lebar kolomnya sehingga tidak ada yg merapat ke kanan maupun kekiri
user image
more 13 years ago

deLogic

sebelum menuliskan data ke TMemo, ambil terlebih dahulu tipe dan panjang data dari setiap field nya. Itulah panjang maksimumnya, terutama untuk Teks. Nah pada saat menuliskan data ke TMemo, perhitungkan terlebih dahulu berapa spasi yang akan diberikan, berdasarkan informasi dari panjang maksimum. Misalnya pada field Nama tipedatanya varchar(20), nah berarti panjang kolom maksimum nya 20 spasi. Setiap akan menuliskan data pada field nama, cek terlebih dahulu panjang karakternya, misalnya Rudi, berarti panjangnya 4 spasi, nah untuk memenuhi panjang maksimum 20 spasi, maka tambahkan string spasi sebanyak 16. demikian seterusnya untuk kolom lainnya. Silahkan bereksperimen terlebih dahulu.
user image
more 13 years ago

Dedy_007

While Not Adoq1.Eof do Begin Str(I:4,Sno); Redata.Lines.Add(Sno +' | '+Adoq1.Fields[0].AsString ); I:=I+1; Adoq1.Next; End; Redata.Lines.add('---------------------------------------------------------------------------------'); Redata.Lines.add('---------------------------------------------------------------------------------'); Redata.Lines.add('Jumlah :'+Sno); Ini sepenggalan baris program untuk penulisan di Memonya , Untuk menambahkan spasi kosong fungsi yg dipakai apa .. maklum masih pemula ...
user image
more 13 years ago

Dedy_007

Master-masternya kemana nich ..ada yg bisa bantu cari solusi lagi gak
user image
more 13 years ago

mas_kofa

spasi kosong

Redata.Lines.add('');
user image
more 13 years ago

deLogic

contoh, belum diuji, sekedar proof of concept saja:

LenMax := Adoq1.FieldDef[0].Size;
While Not Adoq1.Eof do 
Begin
  Str(I:4,Sno);
  LenStr := Length(Adoq1.Fields[0].AsString);
  Redata.Lines.Add(Sno +' | '+Adoq1.Fields[0].AsString + DupeString(' ', LenMax - LenStr) + ' |');
  I:=I+1;
  Adoq1.Next;
End;
Redata.Lines.add('---------------------------------------------------------------------------------');
Redata.Lines.add('---------------------------------------------------------------------------------');
Redata.Lines.add('Jumlah :'+Sno); 
oiya, jangan lupa untuk menambahkan unit StrUtils di klausul uses karena penggunaan fungsi DupeString.
user image
more 13 years ago

DelphiExpert

atau bisa gunakan function StringOfChar(): string; ...
user image
more 13 years ago

deLogic

Thats right brother.. bahkan tanpa menambahkan unit StrUtils pada klausul uses, karena ada di unit system.
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com