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

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

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

  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;  

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

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

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

  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;  

Double-klik btnTampilkan lalu ketikan kode berikut

  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;  

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

  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;  


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.

1 Response to " Cara Membuat Aplikasi Entri Data Dengan Delphi 7 "

  1. Numpang Belajar Delphi Gan.!!

Welcome In Kode Blogger

Contoh Sliding Login Dengan JQuery

Disamping ini adalah contoh Sliding Login menggunakan JQuery. Login Form Disamping hanya Contoh dan tidak dapat digunakan layaknya Login Form FB, Karena Blog ini terbuka untuk umum tanpa perlu mendaftar menjadi Member

Tutorial Blog

Untuk membuatnya Silahkan : Klik Disini

Member Login

Lost your password?

Not a member yet? Sign Up!