Minggu, 23 Januari 2011

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

Senin, 17 Januari 2011

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;