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
function checkEdit digunakan untuk validasi TEdit apabila masih kosong maka akan muncul peringatan
Kode Untuk Tombol Tambah
Kode Untuk Tombol Ubah
Kode Untuk Tombol Hapus
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.
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;Procedure Bersih(reset) digunakan untuk membersihkan text pada Tedit atau tampilan form kosong
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 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;
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;
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;
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);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.
begin
Reset;
AutoNumber;
end;
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
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :