Saya lanjutkan lagi untuk tutorial membuat aplikasi penjualan dengan delphi yang sempat terhenti beberapa hari. Kali ini akan membuat form terakhir yang ada di menu master yaitu data pengguna atau data pemakai dari aplikasi penjualan ini nanti.
Langsung saja kita mulai dengan medesain form seperti pada gambar dibawah ini.
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 Pengguna sudah selesai kemudian jalankan program dengan menekan F9.
Langsung saja kita mulai dengan medesain form seperti pada gambar dibawah ini.
Keterangan
Tambahkan uses Udm terlebih dahulu. Dengan cara klik File lalu Use Unit pilih Udm. Agar bisa terkoneksi dengan database.
- Edit1 Name : Ekodepengguna
- Edit2 Name : Enamapengguna
- Edi3 Name : Enotelepon
- Edit4 Name : Epassword
- Button1 Caption : Tambah
- Button2 Caption : Simpan
- Button3 Caption : Ubah
- Button4 Caption : Hapus
- Button5 Caption : Tutup
- DBgrid1 Properties DataSoure Di isi dengan dm.DdataPengguna
Setelah propertis semua sudah diseting maka pada grid akan muncul field-field pada tabel yang terkoneksi.
2. Pengkodean
- Membuat Procedure autoNumber, bersih, Checkedit
procedure TFdataPengguna.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 tbpengguna';
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(kodepengguna,5)) as kode from tbpengguna';
Open;
end;
urut:=dm.Q1.FieldByName('kode').AsInteger +1;
end;
kode:=inttostr(urut);
kode:=Copy('00000'+kode,length('00000'+kode)-4,5);
Ekodepengguna.Text:='US.'+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 TFdataPengguna.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 TFdataPengguna.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 TFdataPengguna.BitBtn2Click(Sender: TObject);
begin
if CheckEdit then
begin
with dm.QdataPengguna do
begin
Append;
FieldByName('kodepengguna').AsString:=Ekodepengguna.Text;
FieldByName('namapengguna').AsString:=Enamapengguna.Text;
FieldByName('notelepon').AsString:=eNotelepon.Text;
FieldByName('password').AsString:=Epassword.text;
Post;
end;
Reset;
AutoNumber;
end;
end;
procedure TFdataPengguna.BitBtn3Click(Sender: TObject);
begin
if CheckEdit then
begin
with dm.QdataPengguna do
begin
Edit;
FieldByName('kodepengguna').AsString:=Ekodepengguna.Text;
FieldByName('namapengguna').AsString:=Enamapengguna.Text;
FieldByName('notelepon').AsString:=Enotelepon.Text;
Post;
end;
Reset;
AutoNumber;
end;
end;
procedure TFdataPengguna.BitBtn4Click(Sender: TObject);
begin
if messageDlg('Apakah yakin data'+
''+dm.QdataPengguna.FieldByName('namapengguna').AsString+' akan dihapus?',MTConfirmation,[MByes,MBno],0)=mrYes then
begin
dm.QdataPengguna.Delete;
Reset;
AutoNumber;
end;
end;
- Kode Untuk DBgrid1 Event OnCellClick
procedure TFdataPengguna.DBGrid1CellClick(Column: TColumn);
begin
EKodepengguna.Text:=dm.QdataPengguna.FieldByName('kodepengguna').AsString;
Enamapengguna.Text:=dm.QdataPengguna.FieldByName('namapengguna').AsString;
Enotelepon.Text:=dm.QdataPengguna.FieldByName('nomertelepon').AsString;
end;
- Kode Untuk Form event Onshow
procedure TFdataPengguna.FormShow(Sender: TObject);Pada Form Umata ( Menu utama) tambahkan kode seperti dibawah ini.
begin
Reset;
AutoNumber;
end;
procedure TFMenuUtama.D3Click(Sender: TObject);
begin
FdataPengguna.showmodal;
end;
procedure TFMenuUtama.ToolButton3Click(Sender: TObject);
begin
FdataPengguna.showmodal;
end;
Kini untuk form Data Pengguna sudah selesai kemudian jalankan program dengan menekan F9.
Untuk menambahkan form data pengguna kedalam project yang sebelumnya sudah di download. lakukan dengan cara . Project > Add to Project tambahkan file yang akan ditambahkan ke keproject.
Baca Juga : Membuat Aplikasi Penjualan (POS) dengan Delphi Part5.
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 :