Membuat menu di Delphi
1.Sediakan form yang akan kita pakai. Kemudian tambahkan icon/objek menu kedalam form tersebut.
2.Dobel klik pada icon tersebut. Tampilan nya seperti berikut;
3.Pada area adalah tempat kita menuliskan menu kita
4.Seperti Latihan, database dan seterusnya.
5.Mengisi coding, dobel klik pada Hello word, misalnya, codingnya adalah seperti berikut:
procedure TForm_Menu.HeloWord1Click(Sender: TObject);
begin
form_hello.Show;
end;
6.Lakukan sampai selesai.
Coding untuk Exit adalah:
application.terminte;
Jumat, 24 Juni 2011
Kamis, 16 Juni 2011
Nomor Urut laporan
Pada Rave report
1.tambahkan komponen CalcText, letakkan pada tempat yang diinginkan (pada kolom No)
2.set properti CalcType ke ctCount
3.set proprti DataView dan DataField yang sesuai, untuk DataField Anda bisa gunakan field apa aja, misal field Nama
4.pada EventEditor, tambahkan event OnBeforePrint:
Code:
Self.Text := '';
5.pada EventEditor, tambahkan event onGetText:
Code:
if Value = '' then
Self.Text := '0';
else
Self.Text := Value;
end if;
6.setting properties running total menjadi true
7.setting properties controler arahkan pada data band Anda masing-masing.
8.Selesai…..
Jalankan form untuk menampilkan laporan tadi….
Pada quick Report
1.Desain kembali report kita
2.Kita menggunakan objek qrexpr dari komponen qreport.
3.Kita memerlukan variabel. Ini ada di coding, dobel klik form, Pada bagian var, ketikkan
iNomor : Integer = 0;
artinya kita membuat variabel dengan nama inomor bertipe integer dengan nilai awal adalah 0.
4.Pada qexpr1 kita buat coding berikut
Inc(iNomor);
Value := FormatFloat('0', iNomor);
5.Selesai, jalankan form tersebut….
1.tambahkan komponen CalcText, letakkan pada tempat yang diinginkan (pada kolom No)
2.set properti CalcType ke ctCount
3.set proprti DataView dan DataField yang sesuai, untuk DataField Anda bisa gunakan field apa aja, misal field Nama
4.pada EventEditor, tambahkan event OnBeforePrint:
Code:
Self.Text := '';
5.pada EventEditor, tambahkan event onGetText:
Code:
if Value = '' then
Self.Text := '0';
else
Self.Text := Value;
end if;
6.setting properties running total menjadi true
7.setting properties controler arahkan pada data band Anda masing-masing.
8.Selesai…..
Jalankan form untuk menampilkan laporan tadi….
Pada quick Report
1.Desain kembali report kita
2.Kita menggunakan objek qrexpr dari komponen qreport.
3.Kita memerlukan variabel. Ini ada di coding, dobel klik form, Pada bagian var, ketikkan
iNomor : Integer = 0;
artinya kita membuat variabel dengan nama inomor bertipe integer dengan nilai awal adalah 0.
4.Pada qexpr1 kita buat coding berikut
Inc(iNomor);
Value := FormatFloat('0', iNomor);
5.Selesai, jalankan form tersebut….
Selasa, 14 Juni 2011
Tugas Ketiga
Untuk Temen-temen TI semester 3, berikut saya unggah form tugas yang ketiga. jadikan referensi untuk form tugas untuk input data ke dalam tabel, setelah selesai form input data, buat form untuk menampilkan report. OK, saya tunggu tugasnya,,,, bagi yang mau form tugas3, silahkan..
Label:
Visual Foxpro 9.0
Rabu, 08 Juni 2011
Laporan/. Report Delphi
Ada dua macam laporan yang dapat kita buat di Delphi. Ada yang menggunakan ravereport (yang ini minimal Delphi 7). Yang butuh monggo. Ada juga yang menggunakan Quick Report. Pada Prinsipnya sama-sama menghasilkan laporan.... silahkan
Label:
Delphi
Form Update Data
Buat temen-temen yang butuh contoh form update data di Delphi dengan database Ms. Access berikut contohnya. Silahkan....
Label:
Delphi
Langganan:
Postingan (Atom)
