Cara Membuat Aplikasi Entri Data Dengan Delphi 7

Selamat sore agan-agan , pada postingan kali ini saya akan menyajikan tutorial mengenai Cara Membuat Aplikasi Entri  Data Delphi 7.Aplikasi ini dapat di gunakan oleh kasir untuk entri data  dan langsung di print.Terdengar sangat sulit !? Ternyata tidak.Aplikasi yang akan kita buat kali ini di buat sangat sederhana agar mudah di mengerti.Tidak ada database yang ngejelimet.Dan menjadikan array sebagai vault/tempat penyimpanan sementara data yang akan kita input.Lalu bagaimana caranya !?Makanya , pantengin terus blog ini :D

Buka borland delphi 7 anda , lalu tambahkan komponen-komponen berikut :

Komponen	Properties	Keterangan
Tlabel (3 buah)	Caption:Kode Barang , Nama Barang , harga
Tedit (3buah)	Name:edKodeBarang,edNamaBarang,edHarga
Tbutton (3buah)	Caption:Simpan,Tampilkan,Print Name:btnSimpan,btnTampilkan,btnPrint
TMemo	Name:moLaporan	Hapus linesnya
TForm1	Name:FentriData , Caption: Entri Data

Lalu susun komponen-komponen tersebut sesuai gambar berikut

Tambahkan variabel berikut diantara implementation dan var

view plainprint?

1. var  
2.   i:Integer;  
3.   kodeBarang, namaBarang , harga : array [1..100] of string;  

var
  i:Integer;
  kodeBarang, namaBarang , harga : array [1..100] of string;

Lalu buat sebuah procedure bernama procedure kondisiAwal tepat di bawah {$R *.dfm} , ketikan procedure berikut

view plainprint?

1. procedure kondisiAwal;  
2. begin  
3.   with FentriData do  
4.     begin  
5.       edKodeBarang.Clear;  
6.       edNamaBarang.Clear;  
7.       edHarga.Clear;  
8.       btnTampilkan.Enabled:=false;  
9.       btnPrint.Enabled:=false;  
10.       i:=i+1;  
11.       edKodeBarang.SetFocus;  
12.     end;  
13. end;  

procedure kondisiAwal;
begin
  with FentriData do
    begin
      edKodeBarang.Clear;
      edNamaBarang.Clear;
      edHarga.Clear;
      btnTampilkan.Enabled:=false;
      btnPrint.Enabled:=false;
      i:=i+1;
      edKodeBarang.SetFocus;
    end;
end;

Setelah itu pada FeditData event onShow , panggil procedure tadi seperti berikut

view plainprint?

1. procedure TFentriData.FormShow(Sender: TObject);  
2. begin  
3.   kondisiAwal;  
4. end;  

procedure TFentriData.FormShow(Sender: TObject);
begin
  kondisiAwal;
end;

Sekarang ,double-klik btnSimpan dan tambahkan kode seperti di bawah ini

view plainprint?

1. procedure TFentriData.btnSimpanClick(Sender: TObject);  
2. begin  
3.   if (edKodeBarang.Text='')or(edNamaBarang.Text='')or(edHarga.Text='') then  
4.     begin  
5.       ShowMessage('Data Tidak Lengkap');  
6.     end  
7.   else  
8.     begin  
9.       kodeBarang[i]:=edKodeBarang.Text;  
10.       namaBarang[i]:=edNamaBarang.Text;  
11.       harga[i]:=edHarga.Text;  
12.       kondisiAwal;  
13.       btnTampilkan.Enabled:=true;  
14.     end;  
15. end;  

procedure TFentriData.btnSimpanClick(Sender: TObject);
begin
  if (edKodeBarang.Text='')or(edNamaBarang.Text='')or(edHarga.Text='') then
    begin
      ShowMessage('Data Tidak Lengkap');
    end
  else
    begin
      kodeBarang[i]:=edKodeBarang.Text;
      namaBarang[i]:=edNamaBarang.Text;
      harga[i]:=edHarga.Text;
      kondisiAwal;
      btnTampilkan.Enabled:=true;
    end;
end;

Double-klik btnTampilkan lalu ketikan kode berikut

view plainprint?

1. procedure TFentriData.btnTampilkanClick(Sender: TObject);  
2. var j:Integer;  
3. begin  
4.      moLaporan.Clear;  
5.      moLaporan.Lines.Add('---------------------------------------------------------------------');  
6.      moLaporan.Lines.Add('Kode Barang       Nama Barang         Harga ');  
7.      moLaporan.Lines.Add('---------------------------------------------------------------------');  
8.      for j:=1 to i do  
9.      begin  
10.         moLaporan.Lines.add(format('%8s  %19s   %22s',[kodeBarang[j],namaBarang[j],harga[j]]));  
11.      end;  
12.      btnPrint.Enabled:=true;  
13. end;  

procedure TFentriData.btnTampilkanClick(Sender: TObject);
var j:Integer;
begin
     moLaporan.Clear;
     moLaporan.Lines.Add('---------------------------------------------------------------------');
     moLaporan.Lines.Add('Kode Barang       Nama Barang         Harga ');
     moLaporan.Lines.Add('---------------------------------------------------------------------');
     for j:=1 to i do
     begin
        moLaporan.Lines.add(format('%8s  %19s   %22s',[kodeBarang[j],namaBarang[j],harga[j]]));
     end;
     btnPrint.Enabled:=true;
end;

Terakhir agar data bisa di print , double-klik btnPrint lalu ketikan kode berikut

view plainprint?

1. procedure TFentriData.btnPrintClick(Sender: TObject);  
2. var p : integer;  
3.     dataCetak: TextFile;  
4. begin  
5.   AssignPrn(dataCetak) ;  
6.    Rewrite(dataCetak) ;  
7.    try  
8.      for p := 0 to moLaporan.Lines.Count-1 do  
9.        WriteLn(dataCetak, moLaporan.Lines[p]) ;  
10.    finally  
11.      CloseFile(dataCetak);  
12.      i:=0;  
13.    end;  
14. end;  

procedure TFentriData.btnPrintClick(Sender: TObject);
var p : integer;
    dataCetak: TextFile;
begin
  AssignPrn(dataCetak) ;
   Rewrite(dataCetak) ;
   try
     for p := 0 to moLaporan.Lines.Count-1 do
       WriteLn(dataCetak, moLaporan.Lines[p]) ;
   finally
     CloseFile(dataCetak);
     i:=0;
   end;
end;

Beres deh , sekarang jalankan program anda.Alurnya seperti ini : Anda tidak dapat menampilkan data sebelum ada data yang di simpan.Anda tidak dapat print data sebelum data di tampilkan di moLaporan.Anda juga tidak dapat menyimpan data bila ada edit yang masih kosong.Okey , coba anda inputkan data pada tiap field.Lalu tekan tombol simpan.Setelah itu anda dapat menampikan data atau menginput data lagi.Bila semua data yang di input telah di tampilkan , maka anda bisa melakukan proses print.Tiap proses print di panggil , maka otomatis data pada pada moLaporan di hapus.Bila masih ada kesalahan dalam program , silahkan bandingkan dengan program yang saya buat DISINI.Atau bila masih ada yang belum di mengerti , silahkan tinggalkan komentar.Sekian tutorial mengenai Cara Membuat Aplikasi Entri  Data Dengan Delphi 7 kali ini semoga bermanfaat.