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.
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
Kini untuk form data pelanggan sudah selesai kemudian jalankan program dengan menekan F9.
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;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 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 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;
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;
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;
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);Pada Form Umata ( Menu utama) tambahkan kode seperti dibawah ini.
begin
Reset;
AutoNumber;
end;
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.
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 :