Materi Delphi semester 6 Pert.9

1. Buatlah Tabel : Penyewa

Isi Tabel Tersebut dengan beberapa data
2.Buatlah Form : F_Penyewa

\

3. Buatlah Alias Manager untuk menghubungkan ke Path penyimpanan tabel penyewa
4. Hubungkan Objek-objek ini:
    a. Table1 :
         Database Name : Nama_alias
         Table Name       : Penyewa
          Active               : True
    b. Datasource1

         DataSet  : Table1         

    a. DBGrid :

         Data Source : Datasource1 

Ketentuan Soal:

1. Buatlah Procedure  Bersih,aktif, dan nonaktif

2. Saat Form Dijalankan semua editbox dan radio button tidak aktif

3. di klik Tambah form aktif dan bersih

4. Tombol simpan untuk menyimpan ke tabel Penyewa

5. Untuk pencarian terlebih dahulu mengetik kode yang akan di cari.

  Jika ketemu maka data tampil dan form aktif.

 lalu anda bisa mengubah dan menekan tombol Edit untuk menyimpan hasil Editan 

atau anda bisa menghapus data tersebut dengan tombol hapus

6. tombol batal untuk menonaktifkan form

7.keluar untuk mengakhiri Running form      

Download di Tulisan ini

atau 

Read More

Lesson 5th : "Session About How to Make Inner Join In 3 tables"

"How to Make Inner Join In 3 tables with SQL Language in Ms.Access 2003"

1.  Open your Ms.Access and create database: Petshop.mdb

2.  Create the 1^st table with SQL language in SQL Query: Pet

Select Query below The Tables

Double click and right click then select SQL VIEW

3. Then You can write the SQL language to make the  pet table

        GENERAL STATEMENT :

            Create Table table_name

            (Field1 Type_data(size)Index,

            Field2 Type_data(size),

            Fieldn Type_datan(size))

The SQL Statement Is:

      Create Table Pet

      (Pet_code text(5)Primary Key,

       name text(30),

       price number)

4. Fill the Table with this

 GENERAL STATEMENT :

            INSERT INTO table_name

            VALUES(F1D1,F2D1,F3D1,FnDn)

*Nb: F1 = field1

         D1 = data1

*Number Of query values and destination Must be same

The SQL Statement Is:

       INSERT INTO PET

       VALUES("KCPER","Kucing Anggora",100000)

Then click Yes.

Repeat for the 2^nd record

5. Create the 2nd table : Transaction

 GENERAL STATEMENT :

            Create Table table_name

            (Field1 Type_data(size)Index,

            Field2 Type_data(size),

            Fieldn Type_data(size))

The SQL Statement Is:

      Create Table Transaction

      (Transaction_number text(4)Primary Key,

       Date date,

       pet_code text(5),

       Quantity number)

6. Fill the Table with this

 GENERAL STATEMENT :

            INSERT INTO table_name

            VALUES(F1D1,F2D1,F3D1,FnDn)

*Nb: F1 = field1

         D1 = data1

*Number Of query values and destination Must be same

The SQL Statement Is:

       INSERT INTO Transaction

       VALUES("A001","18/04/2011","KCPER",2)

Then click Yes.

Repeat for the 2^nd record

7. Create the 3th table : Costumer

 GENERAL STATEMENT :

            Create Table table_name

            (Field1 Type_data(size)Index,

            Field2 Type_data(size))

       

The SQL Statement Is:

      Create Table Costumer

      (Costumer_Id text(4)Primary Key,

       costumer_name text(30))

8. Then Add Primary Key For Costumer_Id In costumer table

 GENERAL STATEMENT :

            ALTER TABLE table_name

            ADD Primary Key(Field)

The SQL Statement Is:

            ALTER TABLE costumer

            Add Primary Key(Costumer_Id)

9.Fill the Table with this

 GENERAL STATEMENT :

            INSERT INTO table_name

            VALUES(F1D1,F2D1)

*Nb: F1 = field1

         D1 = data1

*Number Of query values and destination Must be same

The SQL Statement Is:

       INSERT INTO Costumer

       VALUES("P001","Harris")

Then click Yes.

Repeat for the 2^nd record

10.  Then add 1 field in table Transaction :

GENERAL STATEMENT :

            ALTER TABLE table_name

            ADD Field type_data(size)

The SQL Statement Is:

            ALTER TABLE transaction

            Add Costumer_Id Text(4)

11. Update all the Costumer_Id with ="P001"  in transaction table like this

      General Statement for Update:

       UPDATE Table_name

        set field="The Fill"

      The SQL Statement Is:

            UPDATE Transaction

            set Costumer_Id="P001"

12. The Last, You Can Make Query Inner Join 3 tables

Instruction :

a. Total_price = Price*Quantity

b. Terms Of discount

  if quantity >=4 then discount=10%*total_Price

  if quantity >=2 then discount=5%*total_price

  else

  discount=0

c. Total_Paid=Total_Price-Discount

The SQL Statement Is

select transaction_number,date,

          transaction.costumer_id,

          transaction.pet_code,

          price,quantity,

          (price*quantity)as total_price,

         iif(quantity>=4,0.1*total_price,iif(quantity>=2,0.5*total_price,0)) as discount,

        (total_price-discount)as total_paid

FROM (transaction INNER JOIN  pet ON transaction.pet_code=pet.pet_code) INNER JOIN Costumer ON transaction.Costumer_id=costumer.costumer_id

The Result :

Lesson 4th create database design with SQL Language in Ms.Access 2003

Lesson 4^th create database design with SQL Language in Ms.Access 2003

1.  Open your Ms.Access and create database: hotel.mdb

2.  Create the 1^st table with SQL language in SQL Query: Room

Select Query below The Tables

Double click and right click then select SQL VIEW

3. Then You can write the SQL language to make the Room table

The SQL Statement Is:

4. Fill the Table with this

The SQL Statement Is:

Then click Yes.

Repeat for the 2^nd record

5. Then add 1 filed :

The SQL Statement Is:

6. Update all the facility with ="AC" like this

The SQL Statement Is:

6. Update all the facility with ="AC, Double Bed" for the 2nd record

The SQL Statement Is:

Materi & Tugas Delphi Pert.7

Materi Delphi Pertemuan 7

1. Buatlah Form sbb:

Materi & Tugas Visual Basic1 Kelas 11.4D

Materi Visual Basic Pertemuan 5
1. Buatlah Form sbb:



Ketentuan:
1. Isi List1 dengan kode HP sbb : N73,N95
2.dipilih List1 maka Merk dan harga muncul
Kode HP Merk Harga
N73 Nokia N73 1.200.000
N95 Nokia N95 1.500.000

3.Dipilih salah satu Aksesoris, Biaya Aksesoris muncul
a. Casing Bahan = 30.000
b. Casing Mika = 20.000
4. Tombol Hitung digunakan untuk menghitung Biaya Aksesoris tambahan jika dibeli
a. Antogores Layar =25.000
b. memory 2GB=75.000
5. Jumlah Beli di Input dan ditekan enter maka total bayar muncul
Total Bayar= (Jumlah beli * harga)+Biaya Aksesoris+Biaya Aksesoris Tambahan
6. Di Input Uang Bayar maka uang kembali Muncul otomatis
Uang kembali= Uang Bayar-Total bayar
7. Tombol Input digunakan untuk membersihkan layar
8. Tombol keluar untuk mengakhiri form yang sedang running

Hasilnya sbb:


Tugas:
Selesaikan Form berikut ini...Dikumpulkan Print out pada pertemuan selanjutnya.
Buatlah Form Sbb:


Ketentuan:
1. Isi List1 dengan kode Laptop sbb : A1215P,A1201T,A1215B
2.dipilih combo1 maka Merk, harga dan spesifikasi muncul
Untuk spesifikasi muncul di List1


3.Dipilih salah satu Aksesoris, Biaya Aksesoris muncul
a. Desain professional = 500.000
b Desain Gaul = 750.000
4. Tombol Hitung digunakan untuk menghitung Biaya Aksesoris tambahan jika dibeli
a. Antigores Layar =30.000
b. Memory 250GB=250.000
c. Dvd Rw External = 300.000
5. Jumlah Beli di Input dan ditekan enter maka total bayar muncul,Cash Back, dan Jumlah bayar Muncul
Total Bayar= (Jumlah beli * harga)+Biaya Aksesoris+Biaya Tambahan
Cash back diperoleh jika
Membeli tipe A1201T mendapat cash back=10% dari harga awal
Membeli tipe A1215B mendapat cash back=5% dari harga awal
Selain itu tidak dapat cash back
Jumlah bayar=total bayar-cash back
6. Di Input Uang Bayar maka uang kembali Muncul otomatis
Uang kembali= Uang Bayar-Total bayar
7. Tombol Input digunakan untuk membersihkan layar
8. Tombol keluar untuk mengakhiri form yang sedang running

DOWNLOAD HERE...

Materi & Tugas Delphi pertemuan5 kelas 12.4G

Materi Delphi Pertemuan 5
1. Buatlah Form sbb:



Ketentuan:
1. Isi List1 dengan kode HP sbb : N73,N95
2.dipilih List1 maka Merk dan harga muncul
Kode HP Merk Harga
N73 Nokia N73 1.200.000
N95 Nokia N95 1.500.000

3.Dipilih salah satu Aksesoris, Biaya Aksesoris muncul
a. Casing Bahan = 30.000
b. Casing Mika = 20.000
4. Tombol Hitung digunakan untuk menghitung Biaya Aksesoris tambahan jika dibeli
a. Antogores Layar =25.000
b. memory 2GB=75.000
5. Jumlah Beli di Input dan ditekan enter maka total bayar muncul
Total Bayar= (Jumlah beli * harga)+Biaya Aksesoris+Biaya Aksesoris Tambahan
6. Di Input Uang Bayar maka uang kembali Muncul otomatis
Uang kembali= Uang Bayar-Total bayar
7. Tombol Input digunakan untuk membersihkan layar
8. Tombol keluar untuk mengakhiri form yang sedang running

Hasilnya sbb:


Tugas:
Selesaikan Form berikut ini...Dikumpulkan Print out pada pertemuan selanjutnya.
Buatlah Form Sbb:

Quiz Foxpro Kredit Motor

1.Buatlah sebuah Project dengan Nama = KreditMotor
2. Buat Database = DBKredit



5.Buat FormMotor


Ketentuan :

1. Saat Form dijalankan semua textbox dan Option Button Dalam Keadaan Nonaktif.
2. Buat prosedur aktif, bersih dan nonaktif
3. Di klik Tambah maka form aktif , dan bersih
4. Ketika notrans di Input dan ditekan Enter,jika notrans sudah ada maka ada pesan "Nomor Transaksi Sudah Ada"
5. Kode motor di input dan di tekan enter untuk mencari merk dan harga dari tabel motor maka merk dan harga akan muncul
6. Jumlah Angsuran di pilih maka Bunga dan total harga muncul
Jika jumlah angsur=12 maka
Bunga=10% dari harga
Total bayar=harga+bunga

Jika jumlah angsur=24 maka
Bunga=15% dari harga
Total bayar=harga+bunga

7. Uang Muka di input dan ditekan enter maka sisa bayar muncul
Sisa bayar=total bayar-uang muka

8. Tombol Simpan untuk menyimpan ke tabel transaksi
9. Tombol Batal untuk membuat form nonaktif dan bersih
10. Di Klik EXIT untuk keluar

Berikut ini Hasilnya :



“” Selamat Mengerjakan “”
BY : MR. Specta

Download Here