UAS PBD 2015

Tabel Mobil

  • Buat struktur tabel Mobil sebagai berikut:

Struktur Mobil

  • Isi Data Mobil sebagai berikut

Mobil

Tabel Sopir

  • Buat struktur tabel Sopir, sebagai berikut:

Struktur Tabel Sopir

  • Isi data tabel Sopir, sebagai berikut:

Tabel Sopir

Tabel Penyewa

  • Buat struktur tabel Penyewa, sebagai berikut:

Penyewa

  • Isi data tabel Penyewa, sebagai berikut:

Tabel Penyewa

Tabel Kasir

  • Buat tabel Kasir, sebagai berikut:

Struktur Tabel Kasir

  • Isi data tabel Kasir, sebagai berikut:

Tabel Kasir

Tabel Admin

  • Buat struktur tabel Admin, sebagai berikut:

Struktur Tabel Admin

  • Isi data tabel Admin, sebagai berikut:

Tabel Admin

Tabel Sewa

  • Buat struktur tabel Sewa, sebagai berikut:

Struktur Tabel Sewa

  • Isi data tabel Sewa, sebagai berikut:

Tabel Sewa

  • Buat alias database sesuai dengan NPM anda
  • Buka Delphi dan buat Project baru dengan nama prjRentalMobil.dpr, pastikan seluruh pekerjaan (form, laporan, tabel )anda dalam satu folder.

Form Sopir

  • Desain form seperti pada gambar berikut:

Form Sopir

  • Atur properti sebagai berikut:
Komponen Properti Nilai
Form Name frmSopir
Caption Sopir
Label1 Caption Kode Sopir
Label2 Caption Nama Sopir
Label3 Caption Alamat
Label4 Caption Telepon
Edit1 Name edtKodeSopir
Text [Kosongkan]
Edit2 Name edtNamaSopir
Text [Kosongkan]
Edit3 Name edtAlamat
Text [Kosongkan]
Edit4 Name edtTelepon
Text [Kosongkan]
Button1 Name btnTambah
Caption &Tambah
Button2 Name btnEdit
Caption &Edit
Button3 Name btnBatal
Caption &Batal
Button4 Name btnHapus
Caption &Hapus
Button5 Name btnTutup
Caption &Tutup
Table1 Name tblSopir
DatabaseName [NPM Anda]
TableName Sopir
Active True
Datasource1 Name dtsSopir
Dataset tblSopir
DBNavigator1 Name dbnSopir
Datasource dtsSopir
VisibleButton [nbFirst,nbPrior,nbNext,nbLast]
Image1 Picture [Cari Icon Sopir]
Stretch True
unit uSopir;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, ExtCtrls, Grids, DBGrids, DBCtrls, StdCtrls;

type
  TfrmSopir = class(TForm)
    Label1: TLabel;
    edtKodeSopir: TEdit;
    Label2: TLabel;
    edtNamaSopir: TEdit;
    Label3: TLabel;
    edtAlamat: TEdit;
    Label4: TLabel;
    edtTelepon: TEdit;
    btnTambah: TButton;
    btnEdit: TButton;
    btnBatal: TButton;
    btnHapus: TButton;
    btnTutup: TButton;
    dbnSopir: TDBNavigator;
    dbgSopir: TDBGrid;
    img1: TImage;
    dtsSopir: TDataSource;
    tblSopir: TTable;
    procedure btnTambahClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnBatalClick(Sender: TObject);
    procedure btnHapusClick(Sender: TObject);
    procedure btnEditClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSopir: TfrmSopir;

implementation

{$R *.dfm}

procedure TfrmSopir.btnTambahClick(Sender: TObject);
begin
  if btnTambah.Caption  = '&Tambah' then
      begin
        btnTambah.Caption:='&Simpan';
        edtKodeSopir.ReadOnly := false;
        edtNamaSopir.ReadOnly := False;
        edtAlamat.ReadOnly := false;
        edtTelepon.ReadOnly := false;
        edtKodeSopir.SetFocus;
        btnEdit.Enabled:=False;
        btnHapus.Enabled:=False;
        btnBatal.Enabled := True;
        dbnSopir.Enabled:=False;
        dbgSopir.Enabled:=False;

end
   else
      begin
        tblSopir.Append;
        tblSopir.FieldByName('Kode_Sopir').AsString := edtKodeSopir.Text;
        tblSopir.FieldByName('Nama_Sopir').AsString := edtNamaSopir.Text;
        tblSopir.FieldByName('Alamat').AsString := edtAlamat.Text;
        tblSopir.FieldByName('Telp').AsString := edtTelepon.Text;
        tblSopir.Post;
        edtKodeSopir.Clear;
        edtNamaSopir.Clear;
        edtAlamat.Clear;
        edtTelepon.Clear;
        btnTambah.Caption  := '&Tambah';
        btnEdit.Enabled:=True;
        btnHapus.Enabled:=True;
        btnBatal.Enabled := False;
        dbnSopir.Enabled:=True;
        dbgSopir.Enabled:=True;
      end;

end;

procedure TfrmSopir.FormCreate(Sender: TObject);
begin
   edtKodeSopir.ReadOnly := True;
   edtNamaSopir.ReadOnly := True;
   edtAlamat.ReadOnly := True;
   edtTelepon.ReadOnly := True;

   btnBatal.enabled:=False;
end;

procedure TfrmSopir.btnBatalClick(Sender: TObject);
begin
   edtKodeSopir.Clear;
   edtNamaSopir.Clear;
   edtAlamat.Clear;
   edtTelepon.Clear;
   edtKodeSopir.ReadOnly := True;
   edtNamaSopir.ReadOnly := True;
   edtAlamat.ReadOnly := True;
   edtTelepon.ReadOnly := True;

   btnTambah.Caption:='&Tambah';
   btnEdit.Caption:='&Edit';
   btnTambah.Enabled:=True;
   btnEdit.Enabled:=True;
   btnHapus.Enabled:=True;
   btnBatal.Enabled := False;
   dbnSopir.Enabled:=True;
   dbgSopir.Enabled:=True;
end;

procedure TfrmSopir.btnHapusClick(Sender: TObject);
begin
  tblSopir.Delete;
end;

procedure TfrmSopir.btnEditClick(Sender: TObject);
begin
  if btnEdit.Caption  = '&Edit' then
      begin
        btnEdit.Caption:='&Update';
        edtKodeSopir.ReadOnly := false;
        edtNamaSopir.ReadOnly := False;
        edtAlamat.ReadOnly := false;
        edtTelepon.ReadOnly := false;
        edtKodeSopir.Text := tblSopir.FieldByName('Kode_Sopir').AsString;
        edtNamaSopir.Text := tblSopir.FieldByName('Nama_Sopir').AsString;
        edtAlamat.Text := tblSopir.FieldByName('Alamat').AsString;
        edtTelepon.Text:=tblSopir.FieldByName('Telp').AsString;

        edtKodeSopir.SetFocus;
        btnTambah.Enabled:=False;
        btnHapus.Enabled:=False;
        btnBatal.Enabled := True;
        dbnSopir.Enabled:=False;
        dbgSopir.Enabled:=False;

end
   else
      begin
        tblSopir.Edit;
        tblSopir.FieldByName('Kode_Sopir').AsString := edtKodeSopir.Text;
        tblSopir.FieldByName('Nama_Sopir').AsString := edtNamaSopir.Text;
        tblSopir.FieldByName('Alamat').AsString := edtAlamat.Text;
        tblSopir.FieldByName('Telp').AsString := edtTelepon.Text;
        tblSopir.Post;
        edtKodeSopir.Clear;
        edtNamaSopir.Clear;
        edtAlamat.Clear;
        edtTelepon.Clear;
        btnEdit.Caption  := '&Edit';
        btnTambah.Enabled:=True;
        btnHapus.Enabled:=True;
        btnBatal.Enabled := False;
        dbnSopir.Enabled:=True;
        dbgSopir.Enabled:=True;
      end;
end;
end.

Form Mobil

  • Buat Desain form berikut

Desain Form Mobil2

  • Lakukan pengaturan properti, dengan mencontoh pada form sopir
  • Lakukan pengkodean, dengan mencontoh pada form Sopir
  • Simpan form dengan nama uMobil.pas

Form Penyewa

  • Desain form Penyewa sebagai berikut

Desain Form Penyewa

  • Tuliskan pengaturan Properti, seperti biasanya
    Untuk Combobox1 properti Items di isi dengan pilihan Sertifikat Tanah, BPKB Mobil, STNK Mobil, dan Lainnya.
  • Tuliskan pengkodean seperti pada form-form sebelumnya dengan ditambahkan proses pencarian.
  • Simpan form dengan nama file uPenyewa.pas

Form Kasir

  • Desain Form Kasir sebagai berikut

Desain Form Kasir

  • Tuliskan pengaturan properti seperti biasanya, khusus Komponen Edit Password, properti PasswordChar diisi dengan karakter untuk menyembunyikan karakter yang diketik
  • Tuliskaan pengkodeanya
  • Simpan form dengan nama file uKasir.pas

 

 

 

Tuliskan komentar anda

Komentar

Tinggalkan Balasan