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;
Senin, 28 Februari 2011
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 ;
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
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
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
Langganan:
Postingan (Atom)