Contoh Menu Untuk Bahasa Pemrograman Delphi 7.0

Delphi 7.0 pro

Berikut adalah pilihan dimana anda akan memilih menu yang sudah saya buat sedemikian rupa ini:

1. Membuat Kalkulator Sederhana

2. Membuat DataBase & Foto Karyawan

3. Membuat Menu Applikasi di Delphi

4. Perintah Percabangan Dalam Delphi

5. Tutorial Delphi 7.0

Membuat DataBase beserta Foto Karyawan

Langkah-langkah

1. Buatlah 1 folder baru dengan nama karyawan
2. Di dalam Folder karyawan buat 3 buah sub folder
● Applikasi
● database
● Foto
3. Buat Database di acccess dg nama karyawan dan tbkaryawan untuk nama
tabelnya
4. Buat New Project di dephi
5. Simpanlah semua foto karyawan .JPG di folder foto yang telah disediakan
6. Boleh di Run!!1
Ket: “kayaknya langkah 1 dan 2 udah mahir semua yah?? jadi Penulis ngak bakal
ngejelasinya, kan udah besar pasti tau kan cara buat folder??” lanjut Buuu…..

BUAT DATABASE (access)
ingattt!!!! 2x simpen databasenya di folder yang sudah kmu buat diatas!!!
Nama tabel: tbkaryawan
Fieldd Type Size
sn Text 10
Nama Text 30
Jeniskelamin Text 10
Tempatlahir Text 20
foto Text 30
(ini hanya untuk demo lho, kalo yang beneran ya harus sesuai dengan field yg kmu buat)

BUAT NEW PROJECT
Disini kita akan membuat 2 form yaitu form input karyawan dan form karyawan??
1.FKaryawan
Buatlah desain seperti di atas dengan komponen:
Component Properties
Form1 caption = Karyawan ; Name = FKaryawan
label1 caption = SN
label2 caption = Nama
label3 caption = jenis kelamin
label4 caption = tanggal lahir
Dbedit1 Name = Dbsn
Dbedit2 Name = Dbnama
Dbedit3 Name = DbJeniskelamin
Dbedit4 Name = Dbtgllahir
Dbnavigator1 -
Panel1 Caption = (dikosongkan)
Image1 -
Button1 caption = Karyawan Baru ; Name = btbaru
Timer1 -
image1 Stretch = True

F inputKaryawan
Buat file/new/Form pada project yang anda buat
Buat Desain Form yang sama dengan di atas!!! Componetnya :
component Properties
ADOConnection1 ConnectionString=D:\Karyawan\Database\Karyawan.mdb
LoginPrompt=False
Connected = True
Name= Data
ADOTable1 Connection = Data ;Tablename = TbKaryawan;
Name = tbKaryawan ; Active = True
ADODataSet1 Connection = Data
ADOCommand1 Connection = Data
OpenPictureDialog1 -
DataSource1 Dataset = TbKaryawan ; Name = Dskar
Combobox1 Items= Laki-laki, Perempuan
Button1 caption = Save; Name =BtSave
Button2 caption = Batal ; Name = btbatal
Button3 caption = Load Foto ; Name = Load
image1 Stretch = True
Duhhhh…. banyaknya prosesnya?? Belum capek kan : ) !!!
Ayoo semangat.. katanya mau jdi Programer ??

Klo udah Buat 2 Form Diatas, sekarang buka lagi Form Karyawan, caranya Shift+F12. pilih dah formnya truesss… isikan Properties pada component di bawah ini (datasource dan DataField)
Dbedit1 DataField = sn
Dbedit2 DataField = nama
Dbedit3 DataField= Jeniskelamin
Dbedit4 DataField= tgllahir
Dbnavigator1 -
Cat: Untuk List Code lengkap liat aja di contoh program yg udh penulis sertakan!!
Maaf yahhh.. penulis ngajari kmu Copy Paste ( Ahh kan Udah Biasa…..!!)
detail code
di F karyawan : Button1 dan timer1
di F inputKaryawan : btsave, btbatal, btload
(penulis yakin udah pada pinter-pinter kan klo copy paste)
-oh ya klo sdh jngan lupa di save ke folder application yg udah dibuat!!!
-Disarankan Fotonya digabung ke 1 folder foto yang udah dibuat!!
-klo udh Copy Pastenya Cba deh di run program yg kmu buat !!!!
Duhhh ngak bisa yahhh…?? gmana yahhhhh ?? Cba cari-cari dulu!! klo masih ada yang kurang desainnya atau apa kek!!! masih Error yahh , Catiaannnn!! bcnda kok…. ya udah kmu email aq aja yahh !!!! Pasti Ku ksh jawabannya,,, ngak bnyk kok cuma Butuh 4 huruf dan 1 tanda baca!!! hee…3x Mauuuu buuuuu…
emailku : andricicau@gmail.com

Penutup
Mudah-mudahan artikel ini membantu kmu-kmu yang lg kesulitan untuk mencari solusi database karyawan. Inget jngan malu bertanya ama tmen-tmen yang lebih ngerti dari kita!! klo bisa qta deketin terus tuh orang, biar ilmunya nyamber ke qta!! he…3x. Salam Buat rekan-rekan di Politeknik Negeri Sriwijaya Jurusan Manajemen Informatika. (loh kok qrm-qrm slm di sini) ngak kok , penulis cma pngen ksh tau Klo anak – anak MI polsri mau bagi-bagi informasi.

Membuat Menu Applikasi di Delphi 7.0

Delphi

Gambar Form 1

Menanggapi respon dari mas rohman, yang ingin membuat menu utama pada aplikasinya. Monggo ikuti langkah-langkah berikut untuk membuat menu seperti contoh diatas.

1. Buat Project sebuah baru anda, dari menu File -> New -> Application,maka akan otomatis ada form1
2. Buat beberapa form baru di dalam project anda tersebut. Dari menu File -> New -> Form, pada contoh ini saya membuat 3 form yaitu Form1 (sebagai menu utama), Form2 dan Form3 sebagai Form prompt ketika di klik salah satu menu.
3. Jangan lupa menyimpan project dan form-form anda, dari menu File -> Save All.
4. Mulai membuat menupada Form1 letakkan object MainMenu yang ada ditab Standar. Klik kanan pada MainMenu1 -> Menu Designer. maka akan ada tampilan edit menu.Klik pada area biru gambar diatas, kemudian pada properties Caption ketikkan “Document“, kemudian enter. Satu menu utama sudah terbuat.Untuk membuat menu dari Document, klik pada menu document, akan ada satu area menu yang masih kosong, klik kemudian pada caption ketikkan Baru dan enter, dan seterusnya untuk menu-menu lain.Untuk membuat garis pembatas antar menu, cukup ketikkan - (tanda min), pada caption.Untuk membuat sub menu dari menu Baru, klik kanan pada Menu Baru -> Create Sub Menu, klik pada satu area kosong dari sub menu baru, kemudian ketik Dokument Kosong. Demikianjuga untuk membuat menu-menu.Close windows editor menu untuk selesai dan kembali ke design Form1. Jika berhasil maka pada form1 sudah ada menu-menu yang kita buat.

   

   Gambar Form 2

5. Membuat Form show/dan showmodal.untuk contoh ini, Form2 akan ditampilkan jika dipilih menu Document -> Buka.
   pilih menu Document dan klik Buka, maka akan masuk ke lebar source code, Kodenya adalah

   Form2.Show;

   atau bisa juga

   Form2.ShowModal.

   Apa perbedaan antara kedua kodenya?

   Jika menggunakan fungsi show, maka form1 dan form2 bisa bertukar tempat, artinya form1 bisa diatas Form2 dan Form2 bisa diatas form1. Tapi ShowModal akan membuat Form1 sebagai menu utama selalu berada dibelakang, dan Form2 akan selalu berada diatas (Always on Top).

6. Simpan kembali project anda.
7. Run / F9 untuk eksekusi.ketika run akan ada pesan berikutPilih Yes, bahwa benar Form1 mereferensikan form dua di unitnya.

Gambar Information

Percabangan Dalam Delphi

PERINTAH PENCABANGAN / STRUKTUR PEMILIHAN

Pada beberapa kasus terkadang kita menginginkan komputer melakukan suatu aksi tertentu bila suatu kondisi terpenuhi. Keberadaan perintah bersyarat pada suatu program memberikan pencabangan proses seperti ditunjukkan oleh Error! Not a valid link.. Bahasa Pascal menyediakan dua cara penyajian perintah bersyarat, yaitu If…Then…Else dan Case…of. Pada prinsipnya pemilihan aksi dapat dikelompokkan menjadi 3 bagian :

Pemilihan 1 pilihan/kasus. Gunakan perintah IF – THEN
Pemilihan 2 pilihan/kasus. Gunakan perintah IF – THEN – ELSE
Pemilihan N pilihan/kasus. Gunakan Case – of (Catatan sebenarnya dapat menggunakan if—then – else bersarang)

I. IF…THEN…ELSE

1. IF … THEN … ELSE : Pemilihan 2 kasus

Perintah bersyarat If umumnya digunakan untuk melakukan pencabangan sederhana (antara 2 atau 3 cabang). Atau untuk pencabangan yang banyak, dimana kondisi yang menjadi prasyaratnya melibatkan lebih dari satu parameter. Bentuk sintaks dari perintah bersyarat ini adalah:
If then
Begin
… {aksi-1}
end
else
Begin
… {aksi-2}
end;

2. IF … THEN … ELSE : Pemilihan N kasus

If then
Begin
… {aksi-1}
end
else
If then
Begin
… {aksi-2}
end
else
Begin
… {aksi-3}
End;

II. CASE … OF … : Pemilihan N kasus

Perintah bersyarat Case umumnya digunakan untuk kondisi dengan banyak pencabangan. Syarat pencabangan pada bentuk ini hanya boleh melibatkan satu buah parameter dengan tipe data bukan Real. Pemeriksaan kondisi di sini lebih tepat disebutkan dalam hubungan relasi samadengan (=). Dengan demikian bila parameter bernilai tertentu maka dilakukan suatu aksi terkait, bila bernilai lain maka dilakukan aksi yang lain juga, demikian seterusnya.
Case Of
: ;
: ;
…
: ;
Else ;
End;

STRUKTUR PENGULANGAN

Dalam menyelesaikan masalah, terkadang kita harus melaku suatu proses yang sama lebih dari satu kali. Untuk itu perlu dibuat suatu algoritma pengulangan. Pascal memberikan tiga alternatif pengulangan, yaitu dengan For, While, atau Repeat. Masing-masing memiliki karakteristik, yang akan dipelajari pada modul ini. Ada dua hal yang penting dalam melakukan merancang perintah pengulangan, yaitu:
• Inisialisasi awal.
• Nilai akhir pengulangan atau kondisi berhenti.

FOR – TO – DO

Pada pengulangan dengan For, inisialisasi awal dan kondisi akhir ditentukan dengan menggunakan suatu variable kendali yang nilainya dibatasi dalam suatu range tertentu. Sintaks untuk perintah ini adalah:
For := to do
Begin
… {aksi}
End ;
atau
For := downto do
Begin
… {aksi}
End ;
Perbedaan antara to dan downto adalah pada kondisi nilai awal dan akhir. Pada to: nilai awal lebih kecil dari nilai akhir, sedangkan pada downto nilai awal lebih besar dari nilai akhir. Perlu diingat, bahwa variable kendali harus dideklarasikan dengan tipe data integer.
Contoh program pengulangan menggunakan For-to-do:
procedure TfrmPengulangan.btnPengulanganClick(Sender: TObject);
var I : integer;
begin
lbxHasil.Items.Clear;
For I := 1 to 5 do
Begin
lbxHasil.Items.Add(inttoStr(i));
End;
Hasilnya adalah : 1, 2, 3, 4, 5

Contoh program yang sama jika tapa perintah tanpa pengulanganL:
procedure TfrmPengulangan.btnPengulanganClick(Sender: TObject);
begin
lbxHasil.Items.Clear;
lbxHasil.Items.Add(inttoStr(1));
lbxHasil.Items.Add(inttoStr(2));
lbxHasil.Items.Add(inttoStr(3));
lbxHasil.Items.Add(inttoStr(4));
lbxHasil.Items.Add(inttoStr(5));
End;
Hasilnya adalah : 1, 2, 3, 4, 5

WHILE – DO

Pada metoda pengulangan ini aksi hanya akan diproses bila kondisi pengulangan terpenuhi, bentuk sintaks dari pengulangan ini adalah:
While do
Begin
… {aksi}
End ;

Selama kondisi_pengulangan bernilai true maka aksi akan dilakukan, dan baru akan berhenti setelah kondisi pengulangan bernilai false. Karena kondisi pengulangan diperiksa pada bagian awal, maka ada kemungkinan aksi tidak pernah dilakukan, yaitu bila kondisi pengulangan tidak pernah bernilai true. Contoh program pengulangan menggunakan While-do: procedure TfrmPengulangan.btnPengulanganClick(Sender: TObject);
var I : integer;
begin
lbxHasil.Items.Clear;
I := 1;
While I<=5 DO Begin lbxHasil.Items.Add(inttoStr(i)); I := I + 1; End; End;

REPEAT – UNTIL

Metoda pengulangan ini juga melakukan pengulangan berdasarkan pemeriksaan kondisi pengulangan. Hanya saja natur dari pengulangan ini adalah sistem seakan-akan memaksa untuk melakukan pengulangan, sampai di ketahui adanya kondisi berhenti. Bentuk sintaks dari pengulangan ini adalah:
Repeat
… {aksi}
Until
Berlawanan dengan While, yang akan memproses aksi hanya bila kondisi_pengulangan bernilai true, pada pengulangan Repeat, sistem akan memproses aksi selama kondisi_berhenti bernilai false. Dengan demikian aksi pasti akan selalu diproses (minimal satu kali). Pada tipe ini, pengulangan dapat terjadi terus-menerus (tidak pernah berhenti), yaitu bila kondisi berhenti tidak pernah bernilai true. Contoh program pengulangan menggunakan Repeat- Until:
procedure TfrmPengulangan.btnPengulanganClick(Sender: TObject);
var I : integer;
begin
lbxHasil.Items.Clear;
I := 1;
Repeat
lbxHasil.Items.Add(inttoStr(i));
I := I + 1;
Until I > 5;
End;

Download Template