Membuat Aplikasi Penjualan (POS) dengan Delphi Part5

Akhirnya ada waktu juga buat nerusin judul ini. Setelah kemarin lagi repot ngurusin kerjaan. hehehe
Oke... kita langsung saja untuk melanjutkan membuat aplikasi penjualan dengan delphi. Sekarang akan membuat Form untuk data pelanggan (customer) .

Langkah pertama desain form seperti gambar dibawah.

Keterangan

Tambahkan uses Udm terlebih dahulu. Dengan cara klik File lalu Use Unit pilih Udm. Agar bisa terkoneksi dengan database.

• Edit1 Name : Ekodepelanggan
• Edit2 Name : Enamapelanggan
• Edi3 Name : Ealamat
• Edit4 Name : Enomertelepon
• Button1 Caption : Tambah
• Button2 Caption : Simpan
• Button3 Caption : Ubah
• Button4 Caption : Hapus
• Button5 Caption : Tutup
• DBgrid1 Properties DataSoure Di isi dengan dm.DdataPelanggan

Setelah propertis semua sudah diseting maka pada grid akan muncul field-field pada tabel yang terkoneksi.

2. Pengkodean

• Membuat Procedure autoNumber, bersih, Checkedit
Procedure AutoNumber digunakan untuk nomer otomatis

procedure TFpelanggan.AutoNumber;
var
  kode:String;
  urut:integer;
begin
  with dm.Q1 do
  begin
    Close;
    SQL.Clear;
    SQL.Text:='select * from tbpelanggan';
    Open;
  end;
  if dm.Q1.RecordCount = 0 then urut :=1 else
  if dm.Q1.RecordCount > 0 then
  begin
    with Dm.Q1 do
    begin
      Close;
      SQL.Clear;
      SQL.Text:='select max(right(kodepelanggan,5)) as kode from tbpelanggan';
      Open;
    end;
    urut:=dm.Q1.FieldByName('kode').AsInteger +1;
  end;
  kode:=inttostr(urut);
  kode:=Copy('00000'+kode,length('00000'+kode)-4,5);
  Ekodepelanggan.Text:='CS.'+kode;
end;

Procedure Bersih(reset) digunakan untuk membersihkan text pada Tedit atau tampilan form kosong 

procedure TFpelanggan.Reset;
var
  i:integer;
begin
  for i := 0 to ComponentCount -1 do
    begin
      if Components[i] is TEdit then
       Tedit(Components[i]).Text :=''
    end;
    bitbtn1.Caption:='Tambah';
end;


function checkEdit digunakan untuk validasi TEdit apabila masih kosong maka akan muncul peringatan 

Function TFpelanggan.CheckEdit;
var
  i:integer;
begin

  for i := 0 to ComponentCount -1 do
    begin
      if ( Components[i] is TEdit ) then
      if Tedit(Components[i]).Text ='' then
      begin
        Showmessage(TEdit(Components[i]).Name +' masih kosong');
        Exit;
      end;
    end;
     Result:=True;
end;



• Kode Untuk Tombol Tambah



procedure TFpelanggan.BitBtn1Click(Sender: TObject);
begin
  if bitbtn1.Caption ='Tambah' then
  begin
    Reset;
    AutoNumber;
    bitbtn1.Caption:='Batal';
  end else
  begin
    Reset;
    AutoNumber;
  end;
end;

• Kode Untuk Tombol Simpan



procedure TFpelanggan.BitBtn2Click(Sender: TObject);
begin
  if CheckEdit then
  begin
    with dm.Qdatapelanggan do
    begin
      Append;
      FieldByName('KodePelanggan').AsString:=EKodePelanggan.Text;
      FieldByName('namapelanggan').AsString:=EnamaPelanggan.Text;
      FieldByName('alamat').AsString:=Ealamat.Text;
      FieldByName('nomertelepon').AsString:=Enomertelepon.text;
      Post;
    end;
    Reset;
    AutoNumber;
  end;
end;



• Kode Untuk Tombol Ubah



procedure TFpelanggan.BitBtn3Click(Sender: TObject);
begin
 if CheckEdit then
  begin
    with dm.Qdatapelanggan do
    begin
      Edit;
      FieldByName('KodePelanggan').AsString:=EKodePelanggan.Text;
      FieldByName('namapelanggan').AsString:=enamapelanggan.Text;
      FieldByName('alamat').AsString:=Ealamat.Text;
      FieldByName('nomertelepon').AsString:=Enomertelepon.text;
      Post;
    end;
    Reset;
    AutoNumber;
  end;
end;



• Kode Untuk Tombol Hapus



procedure TFpelanggan.BitBtn4Click(Sender: TObject);
begin
 if messageDlg('Apakah yakin data'+
  ''+dm.Qdatapelanggan.FieldByName('namapelanggan').AsString+' akan dihapus?',MTConfirmation,[MByes,MBno],0)=mrYes then
  begin
    dm.Qdatapelanggan.Delete;
    Reset;
    AutoNumber;
  end;
end;

• Kode Untuk DBgrid1 Event OnCellClick



procedure TFpelanggan.DBGrid1CellClick(Column: TColumn);
begin
  eKodePelanggan.Text:=dm.Qdatapelanggan.FieldByName('KodePelanggan').AsString;
  Enamapelanggan.Text:=dm.Qdatapelanggan.FieldByName('namapelanggan').AsString;
  Ealamat.Text:=dm.Qdatapelanggan.FieldByName('alamat').AsString;
  Enomertelepon.Text:=dm.Qdatapelanggan.FieldByName('nomertelepon').AsString;
end;

• Kode Untuk Form event Onshow



procedure TFpelanggan.FormShow(Sender: TObject);
begin
  Reset;
  AutoNumber;
end;

Pada Form Umata ( Menu utama) tambahkan kode seperti dibawah ini.

procedure TFMenuUtama.D2Click(Sender: TObject);
begin
  FPelanggan.showmodal;
end;

procedure TFMenuUtama.ToolButton2Click(Sender: TObject);
begin
  FPelanggan.showmodal;
end;

Kini untuk form data pelanggan sudah selesai kemudian jalankan program dengan menekan F9.

Baca Juga : Membuat Aplikasi Penjualan (POS) dengan Delphi Part4

Sedot Source Code