Form Access 2007

Desain Form

Tombol-tombol obyek form


Logo : digunakan untuk menampilkan gambar pada bagian form header

Title : digunakan untuk menampilkan judul pada bagian form header

Date & Time : digunakan menyisipkan tanggal dan atau waktu pada bagian form header

Text Box : digunakan untuk menampilkan data dari sumber data form, memasukkan rumus ataupun suatu fungsi

Label : digunakan untuk menampilkan teks atau keterangan pada form

Button : digunakan untuk membuat suatu tombol perintah

Combo Box: digunakan untuk memasukkan data ke sumber data form dengan bentuk dapat diketik atau dipilih

List Box : digunakan untuk memasukkan data ke sumber data form dengan bentuk dipilih

Subform/Subreport : digunakan untuk menampilkan form di dalam suatu form yang merupakan bagian dari data yang diinput pada form utama

line : digunakan untuk membentuk tampilan garis pada form

rectangle : digunakan untuk membentuk tampilan kotak pada form

Bound Object Frame : digunakan untuk memasukkan data bertipe data ole object ke sumber data form

Option Group : digunakan untuk memasukkan data ke sumber data form dengan bentuk dipilih

Check Box : digunakan untuk memasukkan data bertipe Yes / No

Option Button : digunakan untuk memasukkan data bertipe Yes / No

Toggle Button : digunakan untuk memasukkan data bertipe Yes / No

Image : digunakan untuk menyisipkan gambar pada form

Contoh tampilan form dan obyeknya :



A. Logo
B. Option Group
C. Button
D. ListBox
E. CheckBox
F. Option Button
G. Toggle Button
H. ComboBox
I. Line
J. TextBox
K. Label

Langkah-langkah membentuk command button pada form
1. Klik icon , lalu klik tempat di mana button tersebut ingin diletakkan, sehingga tampil kotak dialog command button wizard, seperti di bawah ini :

2. Tentukan kategori dan aksi yang dibutuhkan sesuai dengan tujuan oembentukan command button, selanjutnya Next, sehingga tampil kotak dialog seperti di bawah ini :

3. Tentukan apakah teks atau gambar yang akan ditampilkan pada button tersebut, selanjutnya tekan Next, sehingga menampilkan kotak dialog seperti di bawah ini :

4. Tulis nama untuk obyek button tersebut lalu tekan Finish


Langkah-langkah membentuk option group pada form
1. Klik icon , lalu klik field yang akan dihubungkan dengan obyek tersebut, lalu klik tempat di mana option group tersebut ingin diletakkan, sehingga tampil kotak dialog option group wizard, seperti di bawah ini :

2. Tentukan pilihan yang akan ditampilkan pada option group, selanjutnya tekan tombol Next, sehingga tampil kotak dialog seperti di bawah ini :

3. Tentukan apakah ada pilihan standard, selanjutnya tekan Next, sehingga tampil kotak dialog seperti di bawah ini :

4. Tentukan nilai yang akan disimpan pada field sumber data, selanjutnya tekan Next, sehingga tampil kotak dialog seperti di bawah ini :

5. Tentukan field tempat data tersebut akan disimpan, selanjutnya tekan Next, sehingga tampil kotak dialog seperti di bawah ini :

6. Tentukan model option group yang akan ditampilkan, selanjutnya tekan Next, sehingga tampil kotak dialog seperti di bawah ini :

7. Tentukan isi keterangan yang akan tampil mendampingi kotak option group, selanjutnya tekan Finish


Langkah-langkah membentuk list box pada form
1. Klik icon , lalu klik field yang akan dihubungkan dengan obyek tersebut, lalu klik tempat di mana listbox tersebut ingin diletakkan, sehingga tampil kotak dialog listbox wizard, seperti di bawah ini :

2. Pilih untuk menentukan sendiri tipe nilai, selanjutnya tekan Next, sehingga tampil kotak dialog seperti di bawah ini :

3. Tentukan jumlah kolom pilihan dan pilihan yang tampil pada list box, selanjutnya tekan Next, sehingga tampil kotak dialog seperti di bawah ini :

4. Tentukan field sumber data yang akan menampung data yang dipilih, selanjutnya tekan Next, sehingga tampil kotak dialog seperti di bawah ini :

7. Tentukan isi keterangan yang akan tampil mendampingi kotak listbox, selanjutnya tekan Finish

Catatan : langkah-langkah membuat combobox sama dengan langkah-langkah membuat listbox

Langkah-langkah membentuk toggle button, check box dan option button pada form
1. Klik obyek toggle button, check box atau option button
2. Klik field sumber datanya
3. Klik tempat di mana toggle button, check box atau option button tersebut ingin diletakkan

Obyek Label-Button-Edit Delphi

Obyek Label digunakan untuk menampilkan teks atau tulisan pada form
Obyek Edit digunakan untuk input atau output program
Obyek Button digunakan untuk menjalankan suatu perintah program

Contoh program mengubah tampilan obyek label menjadi sesuai dengan tombol yang ditekan

Untuk mengatur tulisan yang tampil di obyek digunakan properti caption pada obyek label dan button, sedangkan properti name digunakan untuk penulisan program.
Dari contoh di atas nama obyek diubah sesuai yang ditunjuk.
Penggalan programnya :

procedure TForm1.SatuClick(Sender: TObject);
begin
lima.Caption:='kiri';
end;

procedure TForm1.DuaClick(Sender: TObject);
begin
lima.Caption:='bawah';
end;

procedure TForm1.TigaClick(Sender: TObject);
begin
lima.Caption:='kanan';
end;

procedure TForm1.EmpatClick(Sender: TObject);
begin
lima.Caption:='atas';
end;

Contoh program kalkulator sederhana

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:integer;
begin
val(edit1.text,a,c);
val(edit2.text,b,c);
edit3.text:=inttostr(a+b);
end;

procedure TForm1.Button2Click(Sender: TObject);
var a,b,c:integer;
begin
val(edit1.text,a,c);
val(edit2.text,b,c);
edit3.text:=inttostr(a-b);
end;

procedure TForm1.Button3Click(Sender: TObject);
var a,b,c:integer;
begin
val(edit1.text,a,c);
val(edit2.text,b,c);
edit3.text:=inttostr(a*b);
end;

procedure TForm1.Button4Click(Sender: TObject);
var a,b,c : real;
d : integer;
e : string;
begin
val(edit1.text,a,d);
val(edit2.text,b,d);
c:=a/b;
Str(c:5:2,e);
edit3.Text:=e;
end;

Contoh program mengukur tingkat status usia seseorang
Ketentuan :
Nama dan Tahun Lahir diinput
Usia diperoleh dari Tahun Sekarang dikurang Tahun Lahir
Kelompok umur diperoleh dari :
jika usia lebih kecil dari 6, kelompok umur BALITA
jika usia lebih kecil dari 13, kelompok umur ANAK-ANAK
jika usia lebih kecil dari 17, kelompok umur REMAJA
jika usia lebih kecil dari 33, kelompok umur PEMUDA
jika usia lebih kecil dari 61, kelompok umur ORANG TUA
jika usia lebih kecil dari 121, kelompok umur LANSIA
selainnya, kelompok umur TIDAK MUNGKIN
Sedangkan tombol Hapus untuk mengosongkan kembali seluruh kotak edit

Pengaturan propertinya :

Obyek	Property	Setting
Form1	Caption	Tingkat Status
Label1	Caption	Nama
Label2	Caption	Tahun Lahir
Label3	Caption	Usia
Label4	Caption	Kelompok Umur
Edit1	Text	dikosongkan
Edit2	Text	dikosongkan
Edit3	Text	dikosongkan
Edit4	Text	dikosongkan
Button1	Caption	P&roses
Button2	Caption	&Hapus

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

procedure TForm1.Button1Click(Sender: TObject);
var TL,USIA,c : integer;
begin
val(edit2.Text,TL,c);
edit3.Text:=inttostr(2011-TL);
val(edit3.Text,USIA,c);
If USIA <= 5 Then
edit4.text := 'BALITA'
Else If USIA <= 12 Then
edit4.text := 'ANAK-ANAK'
Else If USIA <= 16 Then
edit4.text := 'REMAJA'
Else If USIA <= 32 Then
edit4.text := 'PEMUDA'
Else If USIA <= 60 Then
edit4.text := 'ORANG TUA'
Else If USIA <= 120 Then
edit4.text := 'LANSIA'
Else
edit4.text := 'TIDAK MUNGKIN';
end;