/ / download aplikasi delphi rental motor

22/02/19

download aplikasi delphi rental motor


LAPORAN PRAKTIKUM
“PEMROGRAMAN VISUAL II”

Description: D:\Data Kuliah\logo ikip.jpg

OLEH :
NAMA : ARGIUS HARTANTO
NIM :611300190



FAKULTAS PENDIDIKAN MIPA DAN TEKNOLOGI
INSTITUT KEGURUAN DAN ILMU PENDIDIKAN
PERSATUAN GURUREPUBLIK INDONESIA
2019

A.    TUJUAN PRAKTIKUM
1.      Mahasiswa bisa memahami penggunaan pemprograman delphi 7
2.      Mahasiswa bisa memahami cara membuat database dengan acces
3.      Mahasiswa memahami data acces, data control, ado query
B.     DASAR TEORI
1.      Borland delphi 7
Delphi adalah suatu bahasa pemograman (development language) yang digunakan untuk merancang suatu aplikasi program.
a.       Kegunaan Delphi
1)      untuk membuat aplikasi windows
2)      Untuk merancang aplikasi program berbasis grafis
3)      Untuk membuat program berbasis jaringan (client/server)
4)      Untuk merancang program .Net (berbasis internet)
b.      Keunggulan Delphi
1)      IDE (Integrated Development Environment) atau lingkungan pengembangan aplikasi sendiri adalah satu dari beberapa keunggulan delphi, didalamnya terdapat menu – menu yang memudahkan kita untuk membuat suatu proyek program.
2)      Proses Kompilasi cepat, pada saat aplikasi yang kita buat dijalankan pada Delphi, maka secara otomatis akan dibaca sebagai sebuah program, tanpa dijalankan terpisah.
3)      Mudah digunakan, source kode delphi yang merupakan turunan dari pascal, sehingga tidak diperlukan suatu penyesuain lagi.
4)      Bersifat multi purphase, artinya bahasa pemograman Delphi dapat digunakan untuk mengembangkan berbagai keperluan pengembangan aplikasi.

2.      Microsoft office acces
Microsoft Access (atau Microsoft Office Access) adalah sebuah program aplikasi basis data komputer relasional yang ditujukan untuk kalangan rumahan dan perusahaan kecil hingga menengah. Aplikasi ini merupakan anggota dari beberapa aplikasi Microsoft Office, selain tentunya Microsoft Word, Microsoft Excel, dan Microsoft PowerPoint. Aplikasi ini menggunakan mesin basis data Microsoft Jet Database Engine, dan juga menggunakan tampilan grafis yang intuitif sehingga memudahkan pengguna. Microsoft Access dapat menggunakan data yang disimpan di dalam format Microsoft Access, Microsoft Jet Database Engine, Microsoft SQL Server, Oracle Database, atau semua kontainer basis data yang mendukung standar ODBC. 
C.     PELAKSANAAN
            NO
           
           HARI/TANGGAL
             
         PELAKSANAAN
           TTD
           DOSEN
          MHS
              1

D.    KEGIATAN PRAKTIKUM
1.      Seperti kita ketahui bahwa database merupakan kumpulan dari beberapa tabel yang terintegrasi menjadi satu kesatuan yang saling berhubungan. Tabel merupakan kumpulan dari beberapa record dan fields. yang dimaksud dengan fields adalah atribut yang dimiliki oleh suatu tabel. Sedangkan record adalah isian data yang dimiliki oleh tabel. Untuk memulai microsoft Access pada dasarnya hampir sama antara Taskbar Windows 95 – 2000 yaitu dimulai dengan tombol Start -> Program -> Program MS-Access.

MEMBUAT DATABASES
·         DATABASE LOGIN DAN RENTAL MOTOR
1.      Buka aplikasi Microsoft Access
2.      Klik File New
3.      Pilih Blank Database
4.      Create nama file database
5.      Setelah anda mengisi nama database, anda bisa langsung mengklik tombol create atau menekan tombol enter.
6.      Save as menggunakan  accses 2002-2003 simpan

·         MEMBUAT MENU LOGIN (FORM1)
1.      buka Delphi maka akan masuk form 1
2.      buat lah desain aplikasi dibawah ini denganmenambahkan 
·         Data source
·         main menu
·         Ado Table
·         Ado connection
3.      klik pada data souce kemudian data set pilih ado table1
4.      Pada bagian ado table1 pilih table name pilih table 1 kemudian aktifkan
5.      Buka adoconnetion1pilih connection string . lalu pilih database yg telah dibuat tadi
6.      klik 2 kali pada main menus tulis menu pada caption, tulis exit pada caption .
7.      klik 2 kali pada tulisan exit masukan coding 
8.      application.Terminate;
9.      LISTING CODING SAVE
10.  LISTING CODING SIGN UP
11.  LISTING CODING EXIT
·         MEMBUAT APLIKASI RENTAL MOTOR (FORM 2)
1.      buka Delphi maka akan masuk form 1
2.      buatlah desain aplikasi dengan menambah kan 
·         Data source
·         Ado Table
·         Ado connection
·         main menu
·         buatlah seperti gambar
3.      klik 2 kali pada main menus tulis menu pada caption, tulis exit pada caption klik 2 kali pada tulisan exit masukan coding \
4.      Pada bagian ado table1 pilih table name pilih table 1 kemudian aktifkan
5.      Buka adoconnetion1pilih connection string . lalu pilih database yg telah dibuat tadi .aktifkan
6.      coding button save
begin
if form2.Caption='INPUT DATA'then
begin
edit1.SetFocus;
  end
  else
  begin
  ADOtable1.open;
  ADOtable1.Append;
        ADOtable1.FieldByName('NO TRANSAKSI').AsString:=edit1.Text;
        ADOtable1.FieldByName('ID KTP').AsString:=edit2.Text;
        ADOtable1.FieldByName('NAMA PENYEWA').AsString:=edit3.Text;
        ADOtable1.FieldByName('TANGGAL SEWA').AsDateTime:=DateTimePicker1.DateTime;
        ADOtable1.FieldByName('NO PLAT').AsString:=combobox1.Text;
        ADOtable1.FieldByName('MEREK MOTOR').AsString:=edit4.Text;
        ADOtable1.FieldByName('LAMA SEWA').AsString:=edit5.Text;
        ADOtable1.FieldByName('IDR SEWA').AsString:=edit6.Text;
        ADOtable1.FieldByName('ALAMAT LENGKAP').AsString:=edit7.Text;
        ADOtable1.FieldByName('TOTAL BAYAR').AsString:=edit8.Text;
  ADOtable1.Post;
  ADOtable1.Close;
  ADOtable1.Open;
  ADOtable1.Filtered:=false;
  combobox1.ItemIndex:= -1;
  form2.Caption:='RENTAL MOTOR';
    end;
if form2.Caption='UPDATE DATA'then
begin
edit1.SetFocus;
  end
  else
  begin
  ADOtable1.edit;
        ADOtable1.FieldByName('NO TRANSAKSI').AsString:=edit1.Text;
        ADOtable1.FieldByName('ID KTP').AsString:=edit2.Text;
        ADOtable1.FieldByName('NAMA PENYEWA').AsString:=edit3.Text;
        ADOtable1.FieldByName('TANGGAL SEWA').AsDateTime:=DateTimePicker1.DateTime;
        ADOtable1.FieldByName('NO PLAT').AsString:=combobox1.Text;
        ADOtable1.FieldByName('MEREK MOTOR').AsString:=edit4.Text;
        ADOtable1.FieldByName('LAMA SEWA').AsString:=edit5.Text;
        ADOtable1.FieldByName('IDR SEWA').AsString:=edit6.Text;
        ADOtable1.FieldByName('ALAMAT LENGKAP').AsString:=edit7.Text;
        ADOtable1.FieldByName('TOTAL BAYAR').AsString:=edit8.Text;
    end;
end;
7.      coding button edit
begin
form2.Caption :='UPDATE DATA';
edit1.Enabled :=true;
edit2.Enabled :=true;
edit3.Enabled :=true;
DateTimePicker1.Enabled:=True;
combobox1.Enabled:=true;
edit4.Enabled:=true;
edit5.Enabled:=true;
edit6.Enabled:=true;
edit7.Enabled:=true;
edit8.Enabled:=False;
edit1.Enabled:=true;
edit1.SetFocus;
edit1.Text:=ADOtable1.FieldByName('NO TRANSAKSI').AsString;
edit2.Text:=ADOtable1.FieldByName('ID KTP').AsString;
edit3.Text:=ADOtable1.FieldByName('NAMA PENYEWA').AsString;
DateTimePicker1.DateTime:=ADOtable1.FieldByName('TANGGAL SEWA').AsDateTime;
combobox1.Text:=ADOtable1.FieldByName('NO PLAT').AsString;
edit4.Text:=ADOtable1.FieldByName('MEREK MOTOR').AsString;
edit5.Text:=ADOtable1.FieldByName('LAMA SEWA').AsString;
edit6.Text:=ADOtable1.FieldByName('IDR SEWA').AsString;
edit7.Text:=ADOtable1.FieldByName('ALAMAT LENGKAP').AsString;
ADOTable1.edit;
end;
8.      coding button clear
begin
edit1.clear;
edit2.clear;
edit3.clear;
combobox1.clear;
edit4.clear;
edit5.clear;
edit6.clear;
edit7.clear;
edit8.clear;
edit1.SetFocus;
end;
9.      coding button deleted
begin
ADOTable1.Delete;
edit1.Text:='';
edit2.Text:='';
combobox1.clear;
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
end;
10.  coding edit1
begin
edit1.Enabled:=true;
edit2.Enabled:=true;
edit3.Enabled:=true;
DateTimePicker1.Enabled:=True;
combobox1.Enabled:=true;
edit4.Enabled:=true;
edit5.Enabled:=true;
edit6.Enabled:=true;
edit7.Enabled:=true;
edit8.Enabled:=true;
edit1.SetFocus;
combobox1.ItemIndex:= -1;
DateTimePicker1.DateTime:= -1;
end;
11.  coding edit 6
var
a,b,r:real;
begin
a:=strtoint(edit5.text);
b:=strtoint(edit6.text);
r:=(a*b);
edit8.Text:=FloatToStr(r);
end;
12.  coding pada main menu
·         menu exit
begin
if messagedlg('YAKIN UNTUK KELUAR..?!',mtconfirmation,[mbYes,mbNo],0)=mrYes then
begin
application.Terminate;
end;
end;
·         menu login
begin
form1.show;
 end;

·         MEMBUAT MENU DAFTAR LOGIN (FORM3)
1.      buka Delphi maka akan masuk form 1
·         buatlah desain aplikasi dengan menambah kan Data source
·         Ado Table
·         Ado connection
·         buatlah seperti gambar
2.      klik 2 kali pada main menus tulis menu pada caption, tulis exit pada caption .klik 2 kali pada tulisan exit masukan coding 
3.       Pada bagian ado table1 pilih table name pilih table 1 kemudian aktifkan
4.       Buka adoconnetion1pilih connection string . lalu pilih database yg telah dibuat tadi .aktifkan
5.       coding button save
begin
  ADOtable1.open;
  ADOtable1.Append;
        ADOtable1.FieldByName('first name').AsString:=edit1.Text;
        ADOtable1.FieldByName('last name').AsString:=edit2.Text;
        ADOtable1.FieldByName('email').AsString:=edit3.Text;
        ADOtable1.FieldByName('user').AsString:=edit4.Text;
        ADOtable1.FieldByName('password').AsString:=edit5.Text;
  ADOtable1.Post;
  ADOtable1.Close;
  ADOtable1.Open;
  ADOtable1.Filtered:=false;
    end;





#TAGS COMMAND
    

  • delphi application
    • 

  • visual programming
    • 

  • rental application
    • 

  • application database
    •

Comments