Script Demo

Bagi yang rajin buka ini blog, maka dia hoki banget (kalo blom deadline loh)
Dibuat khusus untuk 2D.
Untuk 2C juga bisa,
tinggal comot sana-comot sini.
Jadi dah.

donlot here: hxxp://rapidshare.com/files/116286875/Tugas_Demo.rar.html

Baca Selengkapnya....

Menghitung Jumlah Kata pada String

Kali ini akan diberikan suatu tips sederhana untuk menghitung jumlah kata pada suatu string dengan menggunakan Borland Delphi. Silakan saja Anda simak tulisan ini.

Siapkan Button1 dan ketikkan kode program di bawah ini pada event OnClick:

procedure TForm1.Button1Click(Sender: TObject);

function JumlahKata(S: string): integer;
begin
if S='' then
Result := 0
else
begin
Result := 1;
while Pos(SPASI, S)>0 do begin
Delete(S, 1, Pos(SPASI,S));
Inc(Result);
end;
end;
end;

var
Kalimat: string;
begin
Kalimat := '';
if InputQuery('Ketikkan sembarang kalimat',
'Kalimat: ',
Kalimat) then
begin
ShowMessage('Jumlah kata: ' +
IntToStr(JumlahKata(Kalimat)));
end;
end;

Jika kita ketikkan “Borland Delphi”, program akan menampilkan pesan Jumlah kata: 2.

Tetapi, fungsi JumlahKata() di atas masih memiliki kelemahan. Karena berpatokan pada spasi, program akan ngaco jika kita ketikkan misalnya “Borland Delphi”, “ Borland Delphi”, atau “Borland Delphi “.

Oleh karena itu, fungsi JumlahKata() di atas perlu dimodifikasi sebagai berikut:

function JumlahKata(S: string): integer;
const
SPASI_GANDA = ' ';
SPASI = ' ';
begin
if S='' then
Result := 0
else
begin
//Hapus spasi ganda
while Pos(SPASI_GANDA, S)>0 do
S := StringReplace(S, SPASI_GANDA, SPASI, [rfReplaceAll]);
//Hapus spasi di awal kalimat
if S[1]=SPASI then Delete(S, 1, 1);
//Hapus spasi di akhir kalimat
if S[Length(S)]=SPASI then Delete(S, Length(S), 1);

Result := 1;
while Pos(SPASI, S)>0 do begin
Delete(S, 1, Pos(SPASI,S));
Inc(Result);
end;
end;
end;

Namun, fungsi di atas masih memiliki kelemahan lainnya jika kalimatnya berupa “Borland Delphi . ”. Program akan menganggap titik (atau simbol lain) yang di dahului oleh spasi sebagai satu kata. Oleh karena itu, kita modifikasi lagi fungsi JumlahKata() di atas sebagai berikut:

function JumlahKata(S: string): integer;
const
SPASI_GANDA = ' ';
SPASI = ' ';
//Anda bisa tambahkan simbol lainnya
Simbol = '():;[]{}"''`!,?.';
var
i: byte;
begin
if S='' then
Result := 0
else
begin
//Ubah simbol2x menjadi spasi
for i:=1 to Length(Simbol) do
S := StringReplace(S, Simbol[i], SPASI, [rfReplaceAll]);

//Hapus spasi ganda
while Pos(SPASI_GANDA, S)>0 do
S := StringReplace(S, SPASI_GANDA, SPASI, [rfReplaceAll]);

//Hapus spasi di awal kalimat
if S[1]=SPASI then Delete(S, 1, 1);

//Hapus spasi di akhir kalimat
if S[Length(S)]=SPASI then Delete(S, Length(S), 1);

Result := 1;
while Pos(SPASI, S)>0 do begin
Delete(S, 1, Pos(SPASI,S));
Inc(Result);
end;
end;
end;

Terima Kasih

Credit To 1st Uploader

Baca Selengkapnya....

Contoh Membuat Laporan Pada Borland Delphi dengan Quick Report

Quick Report adalah suatu komponen penulisan laporan sederhana dari database dimana komponennya sudah terinstall ketika kita menginstall program Delphi. Kali ini penulis akan membuat penulisan laporan dari database mahasiswa dari artikel yang telah disebutkan di atas.

1. Membuat Quick Report

Pertama kali kita buat tampilan baru QReport melalui File - New - Report. Jika Anda tidak menemui menu report maka pilih menu File - New - Other - New - Report. Kemudian kita buat tampilan laporan yang kita inginkan. Kali ini penulis ingin menuliskan judul dari laporan, lambang, daftar mahasiswa, jumlah mahasiswa, tanggal, jam, serta nomor halaman, maka diperlukan komponen sebagai berikut:

- QRBand, untuk memberikan batasan - batasan sesuai dengan jenis penulisan.
- QRLabel, untuk menampilkan tulisan yang kita inginkan
- QRDBtext, untuk menampilkan data field yang kita inginkan
- QRExpr, untuk melakukan mengolah data field database dengan operasi matematika, statistic , tanggal dan waktu,logical, information dan yang lainnya.
- QRSysData, untuk menampilkan tanggal dan jam (qrstime,qrsdate,qrsdatetime), jumlah record (qrsdetailcount), Nomor urut record (qrsdetailno), nomor halaman (qrspagenumber).
- QRShape, untuk mengambar bentuk - bentuk tertentu misalnya garis, lingkaran, bujur sangkar dan lainnya.
- QRImage, untuk menampilkan picture dari file tertentu.

Penulis akan membuat tampilan laporan seperti berikut ini:

Sebelum membuat tampilan lebih dulu kita kopi Table1 di Form1 dan di-paste pada Quick Report. Pastikan property Active pada Table1 adalah true, cek isi property TableName dan property DatabaseName apakah sudah betul. Kemudian ubah property DataSet di Quick Report ke nama tabel yang kita gunakan (Table1).

Untuk laporan diatas terdiri dari 4 (empat) bagian , kita akan membuat masing masing bagian dengan menggunakan QRSBand.

2. Menghubungkan form dengan Quick Report

Kita tambahkan komponen button "preview" dan "print" yang akan menghubungkan form dengan Quick Report.

Untuk menghubungkan Unit1 (Form1) dengan Unit2 (QuickReport) maka ditulis perintah sesudah perintah implementation.

uses Unit2; // uses namaunitlaporan;

Program button preview:

procedure TForm1.btnviewClick(Sender: TObject);
begin
quickreport.Preview;
//namalaporan.preview (untuk menampilkan laporan)
end;

Program button print:

procedure TForm1.btnprintClick(Sender: TObject);
begin
quickreport.Print;
// namalaporan.print (untuk menge-print laporan langsung
// dari form tanpa masuk ke tampilan laporan)
end;

Demikian artikel tentang membuat laporan (report) sederhana dari database dengan menggunakan Quick Report. Source code program bisa di download di delphiqreport1.zip.

Terima kasih.

Credit To 1st Uploader

Baca Selengkapnya....