Dunia Naeta: Delphi 7

Showing posts with label Delphi 7. Show all posts

Cara membuat menu pada delphi 7

Menu adalah daftar perintah-perintah suatu perangkat lunak (program) yang apabila dieksekusi akan menjalankan suatu perintah tertentu dari aplikasi. Menu digunakan sebagai alternatif dari antarmuka baris perintah. Pilihan yang diberikan oleh menu dapat dipilih dengan menggunakan antarmuka pengguna.

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 Form3sebagai 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.

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 berikut

Pilih Yes, bahwa benar Form1 mereferensikan form dua di unitnya.

Contoh Aplikasi Data Siswa Delphi 7

Contoh Aplikasi Data Siswa Delphi 7
---------------------------------------------------
unit Siswa;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
GroupBox1: TGroupBox;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
GroupBox2: TGroupBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
GroupBox3: TGroupBox;
GroupBox4: TGroupBox;
GroupBox5: TGroupBox;
Edit7: TEdit;
Edit8: TEdit;
Label7: TLabel;
Label8: TLabel;
Button6: TButton;
DataSource1: TDataSource;
Table1: TTable;
DBGrid1: TDBGrid;
Edit6: TEdit;
Edit1: TEdit;
Label9: TLabel;
Button7: TButton;
procedure Button1Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit6Change(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
table1.Append;

table1 ['NIP'] := Edit1.Text;
table1 ['Nama'] := edit2.Text;
table1 ['Tanggal_lahir'] := edit4.Text;
table1 ['alamat'] := edit3.Text;
table1 ['No_telp'] := edit5.Text;

table1.Post ;

Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';

Edit1.SetFocus;
label9.Caption:='';
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
begin
table1.IndexName := 'tanggal_idx';

table1.SetRangeStart;
Table1.FieldByName('Tanggal_lahir').AsString := (edit7.Text);

table1.SetRangeEnd;
Table1.FieldByName('Tanggal_lahir').AsString := (edit8.Text);

table1.ApplyRange;
end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Edit1Change(Sender: TObject);

VAR ADA:BOOLEAN;

begin
IF LENGTH (Edit1.Text) < 5 THEN
EXIT;

ADA:=Table1.FindKey([Edit1.Text]);

IF ADA THEN
BEGIN
Edit1.Focused;
Edit1.SelectAll;

edit2.Text:=Table1['Nama'];
edit4.Text:=Table1['Tanggal_lahir'];
edit3.Text:=Table1['alamat'];
edit5.Text:=Table1['no_telp'];
Label9.Caption:='Maaf data sudah terdaftar';
Exit;
end;
end;

procedure TForm1.Edit6Change(Sender: TObject);
begin
table1.IndexName:= 'Nama_idx';
table1.FindNearest([Edit6.Text]);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if messagedlg('yakin akan dihapus??', mtconfirmation,
[mbyes,mbno],0)=mryes then

table1.Delete;
label9.Caption:='';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
table1.Edit;
Edit1.Focused;
Edit1.SelectAll;

Edit1.Text:=table1['NIP'];
Edit2.Text:=Table1['Nama'];
Edit3.Text:=Table1['Tanggal_lahir'];
Edit4.Text:=Table1['Alamat'];
Edit5.Text:=Table1['No_Telp'];

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
table1.Edit;
table1['NIP'] := Edit1.Text;
table1['Nama'] := Edit2.Text ;
table1['Tanggal_Lahir' ] := Edit3.Text;
table1['Alamat'] := Edit4.Text;
table1['No_Telp']:= Edit5.Text;
table1.Post;

Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';

edit1.SetFocus;
label9.Caption:='';
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
if messagedlg('yakin akan dibatalkan??', mtconfirmation,
[mbyes,mbno],0)=mryes then

Table1.Cancel;

Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';

edit1.SetFocus;
end;

end.

------------------------------------------------------------------------------------------------------------------
transaksi
--------------------------------------------------------------------------------------------------------------------
unit transaksi;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls, ComCtrls;

type
TForm2 = class(TForm)
Label1: TLabel;
GroupBox1: TGroupBox;
Label2: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Edit5: TEdit;
Edit1: TEdit;
GroupBox2: TGroupBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
DataSource1: TDataSource;
Table1: TTable;
DBGrid1: TDBGrid;
aa: TLabel;
Label3: TLabel;
Edit6: TEdit;
Table2: TTable;
Label7: TLabel;
Edit7: TEdit;
Button6: TButton;
DateTimePicker1: TDateTimePicker;
procedure Button1Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
table1.Append;
table1 ['no_pembayaran'] := edit7.Text;
table1 ['NIS'] := Edit1.Text;
table1 ['Nama'] := edit2.Text;
table1 ['Tanggal_Bayar'] := datetimepicker1.Date;
table1 ['alamat'] := edit3.Text;
table1 ['No_telp'] := edit5.Text;
table1 ['jumlah'] := edit6.Text;

table1.Post ;

Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit5.Text:='';
edit6.Text:='';
edit7.Text:='';

Edit7.Text:=Edit7.Text+inttostr(table1.RecordCount+1);
edit1.SetFocus;

Edit1.SetFocus;
end;

procedure TForm2.Button5Click(Sender: TObject);
begin
close;
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
if messagedlg('yakin akan dihapus??', mtconfirmation,
[mbyes,mbno],0)=mryes then

table1.Delete;
end;

procedure TForm2.Edit1Change(Sender: TObject);

VAR ADA:BOOLEAN;

begin
IF LENGTH (Edit1.Text) < 5 THEN
EXIT;

ADA:=Table2.FindKey([Edit1.Text]);

IF ADA THEN
BEGIN
Edit1.Focused;
Edit1.SelectAll;

edit2.Text:=Table2['Nama'];
edit3.Text:=Table2['alamat'];
edit5.Text:=Table2['no_telp'];
end;

end;
procedure TForm2.Button3Click(Sender: TObject);
begin
table1.Edit;
Edit7.Focused;
Edit7.SelectAll;

Edit1.Text:=Table1['NIS'];
Edit2.Text:=Table1['Nama'];
datetimepicker1.Date:=Table1['Tanggal_Bayar'];
Edit3.Text:=Table1['Alamat'];
Edit5.Text:=Table1['No_Telp'];
edit6.Text:=Table1 ['jumlah'];
edit7.Text:= table1['no_pembayaran'];

end;

procedure TForm2.Button2Click(Sender: TObject);
begin
table1.Edit;
table1['NIS'] := Edit1.Text;
table1['Nama'] := Edit2.Text ;
table1['Tanggal_Bayar' ] := datetimepicker1.Date;
table1['Alamat'] := Edit3.Text;
table1['No_Telp']:= Edit5.Text;
table1['jumlah']:= edit6.Text;
table1['no_pembayaran']:= edit7.Text;
table1.Post;

Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';

Edit5.Text:='';
edit6.Text:='';
edit7.Text:='' ;

edit7.SetFocus;
end;

procedure TForm2.Button6Click(Sender: TObject);
begin
if messagedlg('yakin akan dibatalkan??', mtconfirmation,
[mbyes,mbno],0)=mryes then

Table1.Cancel;

Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';

Edit5.Text:='';
edit6.Text:='';
edit7.Text:='' ;

edit7.SetFocus;
end;

end.

Free Donwnload Contoh Aplikasi Delphi 7

Bagi anda yang sedang belajar delphi mungkin ini bisa di jadikan sebagai referensi hanya saja saya tidak membuat instalternya. anda cukup memperbaiki koneksinya

untuk aplikasinya silahkan download di sini >> KLIK<<

Contoh Coding Tombol Update

1. Double klik Tombol Update yang telah anda buat sebelumnya
2. Simpan kode Berikut antara begin dan end ;

table1.Edit;
table1['NIP'] := Edit1.Text;
table1['Nama'] := Edit2.Text ;
table1['Tanggal_Lahir' ] := Edit3.Text;
table1['Alamat'] := Edit4.Text;
table1['No_Telp']:= Edit5.Text;
table1.Post;

Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';

edit1.SetFocus;

------ket-----

tombol ini berlalu bila telah membuat tombol edit

Logikanya : data yang masuk ke database adalah data yang telah di edit sebelumnya

Contoh Coding Tombol Edit Delphi 7

1. Double Klik Tombol edit yang telah di buat sebelumnya
2. Masukan kode ini di antara begin dan end

table1.Edit;
Edit1.Focused;
Edit1.SelectAll;

Edit1.Text:=table1['NIP'];
Edit2.Text:=Table1['Nama'];
Edit3.Text:=Table1['Tanggal_lahir'];
Edit4.Text:=Table1['Alamat'];
Edit5.Text:=Table1['No_Telp'];

---------------ket-------

Data yang ada di tabel akan masuk ke T edit dan kita bisa mengolahnya :

table1 : adalah nama tabel yang anda gunakan ( entah itu menggunakan BDE atau ADO conection)

Logika yang berjalan Edit1.Text:= table1 ['NIP']; --> Edit 1 akan di isi oleh data field dari tabel 1
Nama Field Harus sama persis

Contoh Coding Tombol Hapus Delphi 7

1. Double klik pada tombol yang telah di buat sebelumnya

2. masukan kode ini di antara begin dan end

//kode konfirmasi penghapusan
if messagedlg('yakin akan dihapus??', mtconfirmation,
[mbyes,mbno],0)=mryes then
//penghapusan
table1.Delete;
table1.Refresh;
end;

--------------------
ket :
Table1 : nama tabel yang anda gunakan ( entah itu menggunakan BDE atau ADO)

Contoh Coding Tombol Simpan Delphi 7

1. Double Klik Button Simpan Yang telah di buat sebelumnya
2. Simpan Kode Ini Di dalamnya
//Kode simpan
table1.Append;

table1 ['NIP'] := Edit1.Text;
table1 ['Nama'] := edit2.Text;
table1 ['Tanggal_lahir'] := edit4.Text;
table1 ['alamat'] := edit3.Text;
table1 ['No_telp'] := edit5.Text;

table1.Post ;
//Kode agar T edit bersih kembali stelah simpan
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
// kode agar Kursor berada di edit 1 setelh simpan
Edit1.SetFocus;

Postingan Terbaru