Senin, 28 Februari 2011

Tambahan Radio Button + Check Box Delphi

Tampilan form



Keterangan :
- Nama Pembeli dan Jumlah Beli diinput
- Harga Bayar diperoleh dari Jumlah Beli dikali harga dari Jenis Barang
- Harga barangnya : Buku 5000, Penggaris 3000 dan Pensil 1500
- Harga Bayar akan tampil kalau tombol Hitung ditekan
- Tombol Ulang digunakan untuk mengosongkan edit1, edit2 dan edit3
- Tombol Exit digunakan untuk menghentikan jalannya program

Programnya :

procedure TForm1.Button1Click(Sender: TObject);
var b,c : integer;
begin
val(edit2.Text,b,c);
if buku.checked then edit3.Text:=inttostr(b*5000);
if penggaris.checked then edit3.Text:=inttostr(b*3000);
if pensil.checked then edit3.Text:=inttostr(b*1500);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:=' ';
edit2.Text:=' ';
edit3.Text:=' ';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
application.terminate
end;



Tampilan form



Keterangan :
- Nama Pembeli dan Jumlah Beli diinput
- Jumlah Bayar diperoleh dari Jumlah Beli dikali harga dari Jenis Barang lalu dijumlahkan barang mana saja yang dibeli
- Harga barangnya : Buku 5000, Penggaris 3000 dan Pensil 1500
- Jumlah Bayar akan tampil kalau tombol Hitung ditekan

Programnya :

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,e,f,g : integer;
begin
val(edit2.Text,a,d);
val(edit3.Text,b,d);
val(edit4.Text,c,d);
e:=0;
f:=0;
g:=0;
if buku.state=cbchecked then
e:=a*5000;
if penggaris.state=cbchecked then
f:=b*3000;
if pensil.state=cbchecked then
g:=c*1500;
edit5.Text:=inttostr(e+f+g);
end;

Radio Button & Radio Group Delphi

1. Contoh Program :



dibentuk menggunakan obyek groupbox

dibentuk menggunakan obyek radiobutton

Nilai luas akan keluar jika radiobutton1 diklik, dan nilai keliling akan keluar jika radiobutton2 diklik.

Programnya :

Procedure TForm1.RadioButton1Click(Sender: TObject) ;
var a , b , c : integer ;
begin

val ( edit1.Text , a , b ) ;
c := a * a ;
edit2.Text := inttostr ( c ) ;
end ;

Procedure TForm1.RadioButton2Click(Sender: TObject) ;
var a , b , c : integer ;
begin
val ( edit1.Text , a , b ) ;
c := 4 * a ;
edit2.Text := inttostr ( c ) ;
end ;


2. Contoh program :



dari contoh di atas, hasil baru akan ditampilkan jika tombol Prosres diklik,
programnya adalah :

Procedure TForm1.Button1Click(Sender: TObject) ;
var a , b , c : integer ;
begin
val ( edit1.Text , a , b ) ;
if radiobutton1.Checked = true then
c := a * a
else if radiobutton2.Checked = true then

c := 4 * a ;
edit2.Text := inttostr ( c ) ;
end ;

3. Contoh program



dibentuk dengan RadioGroup, maka programnya adalah :

Procedure TForm1.RadioGroup1Click(Sender: TObject) ;
var a , b , c : integer ;
begin
val ( edit1.Text , a , b ) ;
if radiogroup1.itemindex = 0 then
c := a * a
else if radiogroup1.itemindex = 1 then
c := 4 * a ;
edit2.Text := inttostr ( c ) ;
end ;

4. contoh program



dari contoh di atas, hasil baru akan ditampilkan jika tombol Prosres diklik, pilihan dibuat dengan radiogroup, programnya adalah :

Procedure TForm1.Button1Click(Sender: TObject) ;
var a , b , c : integer ;
begin
val (edit1.Text , a , b ) ;
if radiogroup1.itemindex = 0 then
c := a * a
else if radiogroup1.itemindex = 1 then
c := 4 * a ;
edit2.Text := inttostr ( c ) ;
end ;

Minggu, 27 Februari 2011

Report Access 2007

Report, untuk membentuk report dengan cepat menggunakan fasilitas wizard

Report Design, untuk membentuk report baru melalui tampilan desainnya, dengan terlebih dahulu merancang sendiri tampilan report-nya

Report View, untuk menampilkan hasil desain rancangan report

Print Preview, untuk menampilkan hasil desain rancangan report pada lembaran kertas per halaman

Design View, untuk menampilkan jendela desain rancangan report

Group & Sort, untuk mengatur pengelompokan dan pengurutan data pada hasil tampilan report



Pada jendela Group, Sort and Total di atas, kegunaan bagian :
- with a header section /
without a header section: tampil suatu bagian header baru yaitu berdasarkan field yang menjadi acuan pengelompokan data, dari contoh di atas Bidang Studi Header
- with a footer section / without a footer section: tampil suatu bagian footer baru yaitu berdasarkan field yang menjadi acuan pengelompokan data, dari contoh di atas Bidang Studi Footer
- keep whole group together on one page / do not keep group together on one page, untuk mengatur agar suatu group / kelompok tampil dalam halaman tersendiri atau
suatu group / kelompok tidak tampil dalam halaman tersendiri

Fungsi-fungsi yang dapat digunakan pada obyek report :

- sum : untuk menjumlahkan data
- count : untuk menghitung banyaknya data

- max : untuk mencari nilai tertinggi
- min : untuk mencari nilai terendah

- avg : untuk mencari nilai rata-rata

Bagian-Bagian Report
:
Report Haeder : untuk mengatur pada bagian awal report
Page Header : untuk mengatur pada bagian awal halaman
Detail : untuk mengatur bagian inti suatu report
Page Footer : untuk mengatur pada bagian akhir halaman
Report Footer : untuk mengatur pada bagian akhir report

Icon-Icon Form Access 2007

Form, untuk membentuk form baru secara cepat, dengan bantuan wizard

Form design, untuk membentuk form baru, dengan menyusunnya melalui tampilam desain
yang kosong
Form View, untuk menampilkan hasil desain form

Datasheet View, untuk menampilkan data seluruh table atau query yang menjadi sumber data form

Design View, untuk menampilkan jendela tempat merancang tampilan form

Add Existing Fields, untuk menampilkan field-field table / query yang menjadi sumber data form

Property Sheet, untuk menampilkan jendela property yang digunakan untuk mengatur karakteristik dari setiap obyek