Membuat Aplikasi Penjualan (POS) dengan Delphi Part6

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.

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 AutoNumber digunakan untuk nomer otomatis

procedure TFdataPengguna.AutoNumber;
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 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 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;



• Kode Untuk Tombol Tambah



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;



• Kode Untuk Tombol Ubah



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;



• Kode Untuk Tombol Hapus



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);
begin
  Reset;
  AutoNumber;
end;

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

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

Posted by Albathn

Tweet