Membuat Aplikasi Penjualan (POS) dengan Delphi Part4

Setelah istirahat nge-blog 2 hari dikarenakan lagi ada proyek. heheheh. sekarang kita lanjutkan lagi proses pembuatan aplikasi penjualan dengan delphi. untuk dapat mengikuti artikel ini maka saya sarankan untuk membaca juga artikel sebelumnya  Membuat Aplikasi Penjualan (POS) dengan Delphi Part 3.

Agar artikel cepat selesai maka kita lagsung saja mulai membuat from selanjutnya yaitu form Data Supplier. Ikuti tiap langkah-langkahnya.

1. Buat form Data Supplier

Keterangan

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

• Edit1 Name : Ekodesupplier
• Edit2 Name : EnamaSupplier
• 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.DdataSource1

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 TFsupplier.AutoNumber;
var
  kode:String;
  urut:integer;
begin
  with dm.Q1 do
  begin
    Close;
    SQL.Clear;
    SQL.Text:='select * from tb_supplier';
    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(kodesupplier,5)) as kode from tb_supplier';
      Open;
    end;
    urut:=dm.Q1.FieldByName('kode').AsInteger +1;
  end;
  kode:=inttostr(urut);
  kode:=Copy('00000'+kode,length('00000'+kode)-4,5);
  EkodeSupplier.Text:='SP.'+kode;
end;

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


procedure TFsupplier.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 TFsupplier.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 TFsupplier.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 TFsupplier.BitBtn2Click(Sender: TObject);
begin
  if CheckEdit then
  begin
    with dm.QdataSupplier do
    begin
      Append;
      FieldByName('kodesupplier').AsString:=ekodesupplier.Text;
      FieldByName('namasupplier').AsString:=Enamasupplier.Text;
      FieldByName('alamat').AsString:=Ealamat.Text;
      FieldByName('nomertelepon').AsString:=Enomertelepon.text;
      Post;
    end;
    Reset;
    AutoNumber;
  end;
end;



• Kode Untuk Tombol Ubah



procedure TFsupplier.BitBtn3Click(Sender: TObject);
begin
 if CheckEdit then
  begin
    with dm.QdataSupplier do
    begin
      Edit;
      FieldByName('kodesupplier').AsString:=ekodesupplier.Text;
      FieldByName('namasupplier').AsString:=Enamasupplier.Text;
      FieldByName('alamat').AsString:=Ealamat.Text;
      FieldByName('nomertelepon').AsString:=Enomertelepon.text;
      Post;
    end;
    Reset;
    AutoNumber;
  end;
end;



• Kode Untuk Tombol Hapus



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

• Kode Untuk DBgrid1 Event OnCellClick



procedure TFsupplier.DBGrid1CellClick(Column: TColumn);
begin
  ekodeSupplier.Text:=dm.QdataSupplier.FieldByName('kodesupplier').AsString;
  Enamasupplier.Text:=dm.QdataSupplier.FieldByName('namasupplier').AsString;
  Ealamat.Text:=dm.QdataSupplier.FieldByName('alamat').AsString;
  Enomertelepon.Text:=dm.QdataSupplier.FieldByName('nomertelepon').AsString;
end;

• Kode Untuk Form event Onshow



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

pengkodean untuk Form Data Supplier sudah selesai. sebelum dijalankan tambahkan use unit udataSupplier pada FMainMenu(Form utama) dengan cara File > use Unit pilih UdataSupplier, kemudian pada tombol dan menu data supplier tambahkan event Onclik ( atau klik 2X) kemudian masukan kode FSupplier.Showmodal; seperti dibawah ini.

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

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

Setelah selesai semua kemudian jalankan program dengan menekan F9. Apabila tidak ada yang error maka program akan berjalan dengan lancar. Sepert pada gambar dibawah ini.

Sekian dulu untuk lanjutan tutorial Aplikasi Penjualan Dengan Delphi. Sampai ketemu di tutorial selanjutnya. Terima kasih telah berkunjung.

Sedot Source Code