share sintak penjualan from buku

1. Contoh form buku
       unit ubuku;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, Buttons;

type
  Tfbuku = class(TForm)
    Label1: TLabel;
    edjudul: TEdit;
    Label2: TLabel;
    ednois: TEdit;
    Label3: TLabel;
    edpenulis: TEdit;
    Label4: TLabel;
    edpenerbit: TEdit;
    Label5: TLabel;
    edstok: TEdit;
    Label6: TLabel;
    edhargapokok: TEdit;
    Label7: TLabel;
    edhargajual: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    edidbk: TEdit;
    Label10: TLabel;
    edtahun: TEdit;
    Label11: TLabel;
    eddiskon: TEdit;
    DBGrid1: TDBGrid;
    btambah: TButton;
    bhapus: TButton;
    bsimpan: TButton;
    breset: TButton;
    bubah: TButton;
    bkeluar: TButton;
    cbppn: TComboBox;
    SpeedButton1: TSpeedButton;
    procedure tampil1;
    procedure tampil2;
    procedure FormShow(Sender: TObject);
    procedure btambahClick(Sender: TObject);
    procedure tambah;
    procedure simpan;
    procedure bsimpanClick(Sender: TObject);
    procedure bhapusClick(Sender: TObject);
    procedure bresetClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure bubahClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fbuku: Tfbuku;

implementation
uses udm;

{$R *.dfm}

procedure Tfbuku.tampil1;
begin
edidbk.Text := '';
edjudul.Text:='';
ednois.Text :='';
edpenulis.Text:='';
edpenerbit.Text:='';
edtahun.Text:='';
edstok.Text:='';
edhargapokok.Text:='';
edhargajual.Text:='';
cbppn.Text:='';
eddiskon.Text:='';

bsimpan.Enabled:= false;
breset.Enabled:=false;
end;

procedure Tfbuku.tampil2;
begin
edidbk.Enabled:=false;
edjudul.Enabled:=false;
ednois.Enabled:=false;
edpenulis.Enabled:=false;
edpenerbit.Enabled:=false;
edtahun.Enabled:=false;
edstok.Enabled:=false;
edhargapokok.Enabled:=false;
edhargajual.Enabled:=false;
cbppn.Enabled:=false;
eddiskon.Enabled:=false;

bsimpan.Enabled:=false;
breset.Enabled:=false;
bubah.Enabled:=true;
bhapus.Enabled:=true;
end;

procedure Tfbuku.FormShow(Sender: TObject);
begin
tampil1;
tampil2;
end;

procedure Tfbuku.btambahClick(Sender: TObject);
begin
tambah;
end;

procedure Tfbuku.tambah;
begin
edidbk.Enabled:= true;
edjudul.Enabled:= true;
ednois.Enabled:=true;
edpenulis.Enabled:=true;
edpenerbit.Enabled:=true;
edtahun.Enabled:=true;
edstok.Enabled:=true;
edhargapokok.Enabled:=true;
edhargajual.Enabled:=true;
cbppn.Enabled:=true;
eddiskon.Enabled:=true;

bsimpan.Enabled:=true;
bubah.Enabled:=true;
breset.Enabled:=true;
end;

procedure Tfbuku.simpan;
begin

edidbk.Text := '';
edjudul.Text:='';
ednois.Text :='';
edpenulis.Text:='';
edpenerbit.Text:='';
edtahun.Text:='';
edstok.Text:='';
edhargapokok.Text:='';
edhargajual.Text:='';
cbppn.Text:='';
eddiskon.Text:='';

bsimpan.Enabled:= false;
breset.Enabled:=false;

end;

procedure Tfbuku.bsimpanClick(Sender: TObject);
begin
DM.aqbuku.Append;
DM.aqbuku['id_buku'] := edidbk.Text;
DM.aqbuku['judul'] := edjudul.Text;
DM.aqbuku['noisbn'] := ednois.Text;
DM.aqbuku['penulis'] := edpenulis.Text;
DM.aqbuku['penerbit'] := edpenerbit.Text;
DM.aqbuku['tahun'] := edtahun.Text;
DM.aqbuku['stok']  := edstok.Text;
DM.aqbuku['harga_pokok'] := edhargapokok.Text;
DM.aqbuku['harga_jual'] := edhargajual.Text;
DM.aqbuku['ppn'] := cbppn.Text;
DM.aqbuku['diskon'] := eddiskon.Text;
DM.aqbuku.Post;
end;

procedure Tfbuku.bhapusClick(Sender: TObject);
begin
DM.aqbuku.Delete;
end;

procedure Tfbuku.bresetClick(Sender: TObject);
begin
edidbk.Text := '';
edjudul.Text:='';
ednois.Text :='';
edpenulis.Text:='';
edpenerbit.Text:='';
edtahun.Text:='';
edstok.Text:='';
edhargapokok.Text:='';
edhargajual.Text:='';
cbppn.Text:='';
eddiskon.Text:='';
end;

procedure Tfbuku.DBGrid1DblClick(Sender: TObject);
begin
edidbk.Text := DM.aqbuku['id_buku'];
edjudul.Text := DM.aqbuku['judul'];
ednois.Text := DM.aqbuku['noisbn'];
edpenulis.Text := DM.aqbuku ['penulis'];
edpenerbit.Text := DM.aqbuku ['penerbit'];
edtahun.Text := DM.aqbuku['tahun'];
edstok.Text :=DM.aqbuku['stok'];
edhargapokok.Text := DM.aqbuku ['harga_pokok'];
edhargajual.Text := DM.aqbuku ['harga_jual'];
cbppn.Text := DM.aqbuku ['ppn'];
eddiskon.Text := DM.aqbuku ['diskon'];
end;

procedure Tfbuku.bubahClick(Sender: TObject);
begin
DM.aqbuku.Edit;
DM.aqbuku['id_buku'] := edidbk.Text;
DM.aqbuku['judul'] := edjudul.Text;
DM.aqbuku['noisbn'] := ednois.Text;
DM.aqbuku['penulis'] := edpenulis.Text;
DM.aqbuku['penerbit'] := edpenerbit.Text;
DM.aqbuku['tahun'] := edtahun.Text;
DM.aqbuku['stok']  := edstok.Text;
DM.aqbuku['harga_pokok'] := edhargapokok.Text;
DM.aqbuku['harga_jual'] := edhargajual.Text;
DM.aqbuku['ppn'] := cbppn.Text;
DM.aqbuku['diskon'] := eddiskon.Text;
DM.aqbuku.Post;
end;

procedure Tfbuku.SpeedButton1Click(Sender: TObject);
begin
edhargajual.Text:= FloatToStr(StrToFloat(edhargapokok.Text)+
(StrToFloat(edhargapokok.Text)*(StrToFloat(cbppn.Text)/100))-
StrToFloat(edhargapokok.Text)*(StrToFloat(eddiskon.Text)/100));
end;

end.

Soal Pemrograman Web Dinamis

KD 3.1

1.      Kemampuan situs untuk mempertahankan state (keadaan) adalah

a.       Statefull

b.      Stateless

c.       Session

d.      Cookie

e.       State

2.      Pada interaksi statefull, membuat sebuah website dapat menyimpan keadaan seorang user walaupun komunikasi data di jaringan tetap menggunakan

a.       HTML

b.      HTTP

c.       WWW

d.      GET

e.       POST

3.      Konsep abstrak yang merepresentasikan interaksi antara browser dan server adalah

a.       Statefull

b.      Cookie

c.       Session

d.      State

e.       Stateless

4.      Data yang disimpan di client adalah

a.       State

b.      Stateless

c.       Statefull

d.      Cookie

e.       Session

5.      Yang biasanya dibangun diatas cookies adalah

a.       State

b.      Cookie

c.       Statefull

d.      Stateless

e.       Session

6.      Cookie hanya dapat menyimpan data berukuran

a.       Panjang

b.      Lebar

c.       Sedang

d.      Besar

e.       Kecil

7.      Kegunaan cookie dibawah ini, kecuali

a.       Otentifikasi

b.      Dapat melacak user

c.       Mempertahankan preferensi user, shopping chart dll

d.      Dapat memberikan web yang baik

e.       Dapat menyimpan halaman yang pernah dikunjungi

8.      Proses dalam rangka validasi user pada saat memasuki sistem, nama dan password dari user di cek melalui proses yang mengecek langsung ke daftar mereka yang diberikan hak untuk memasuki sistem tersebut disebut

a.       Validations

b.      Hak akses

c.       Authentification

d.      Log in

e.       User interface

9.      Metode-Metode Autentikasi , kecuali

a.       Something you know

b.      Something you want

c.       Something you have

d.      Something you are

e.       Something you do

10.  Session dapat digunakan untuk menyimpan data berukuran

a.       Sangat besar

b.      Sangat kecil

c.       Kecil

d.      Sedang

e.       Lebar

KD 3.2

1.      Encryption berasal dari bahasa yunani kryptos yang artinya

a.       Tersembunyi

b.      Sempurna

c.       Enkripsi

d.      Deskripsi

e.       Hosting

2.      Manfaat enkripsi, kecuali

a.       Kerahasiaan suatu informasi terjamin

b.      Menanggulangi penyadapan web

c.       Menyediakan authentication dan perlindungan integritas pada algoritma checksum/hash

d.      Untuk digital signature.

e.       Untuk digital cash

3.      Menambahkan suatu baris statemen pada suatu elektronik copy dan mengenkripsi statemen tersebut dengan kunci yang kita miliki dan hanya pihak yang memiliki kunci dekripsinya saja yang bisa membukanya adalah

a.       Digital cash

b.      Digital simulation

c.       Digital signature

d.      Digital printing

e.       Digital hash

4.      Decryptor adalah

a.       Kehilangan kode sintak

b.      Kehilangan pengertian

c.       Kehilangan web

d.      Kehilangan kunci

e.       Kehilangan hosting

5.      Macam-macam Enkripsi, kecuali

a.       Metode Enkripsi MD2

b.      Metode Enkripsi MD4

c.       Metode Enkripsi MD5

d.      Metode Enkripsi SHA

e.       Metode Enkripsi RC0

6.      Transformasi aritmatik sebuah string dari karakter menjadi nilai yang mempresentasikan string aslinya adalah

a.       Decrypton

b.      Deskripsi

c.       Enkripsi

d.      Web

e.       Hosting

7.      Jenis-jenis hosting, kecuali

a.       DES(unix)

b.      Domain Chaced Credentials

c.       PAdminv2x

d.      MD5(blogspot)

e.       MySQL

8.      Hashing digunakan sebagai metode untuk menyimpan data dalam sebuah

a.       Double

b.      Varchar

c.       Array

d.      Boolean

e.       String

9.      Suatu metode yang digunakan untuk mengkodekan data sedemikian rupa sehingga keamanan informasinya terjaga dan tidak dapat dibaca tanpa di dekripsi (kebalikan dari proses enkripsi) dahulu adalah

a.       Deskripsi

b.      Enkripsi

c.       Hosting

d.      Web

e.       Desryption

10.              Private Sub Entri_LostFocus(Index As Integer)
            If IsNumeric(Entri(Index).Text) = False Then
            MsgBox "Sori, input cuman boleh angka doank!", _
            vbCritical, "Pesan"
            Entri(Index).SetFocus
            End If
            End Sub

Syntak diatas merupakan contoh syntak dari

a.       Validasi Input numerik User

b.      Validasi Input Alfanumerik User

c.       Validasi Input

d.      Validasi Input User

e.       Validasi Input Onnumeric user

KD 3.3

1.      Wadah (tempat) yang digunakan untuk menciptakan suatu objek disebut

a.       Class

b.      Method

c.       Hak akses

d.      Turunan

e.       Behavior

2.      Suatu tempat penampung data / konstanta dalam memori yang nilai atau datanya dapat diubah disebut

a.       Class

b.      Variable

c.       Array

d.      Turunan

e.       Hak akses

3.      Keyword ini digunakan untuk memanggil konstruktor dari superclass atau menjadi variabel yang mengacu pada superclass

a.       Extends

b.      Methode overriding 

c.       Super

d.      Subclass

e.       Superclass

4.      Pendefinisian ulang method yang sama pada subclass

a.       Extends

b.      Superclass

c.       Super

d.      Method overriding

e.       Subclass

5.      Class anak atau turunan secara hirarki dari superclass

a.       Super

b.      Metgode overriding

c.       Extends

d.      Superclass

e.       Subclass

6.      Untuk menunjukkan hirarki class yang berarti class dasar dari subclass/class anak

a.       Super

b.      Metgode overriding

c.       Extends

d.      Subclass

e.       Superclass

7.      Keyword ini harus kita tambahkan pada definisi class yang menjadi subclass

a.       Super

b.      Metgode overriding

c.       Subclass

d.      Extends

e.       Superclass

8.      Suatu hubungan dua buah kelas atau lebih disebut

a.       Polymorpishm

b.      Encapsulation

c.       Inheritance

d.      Public

e.       Private

9.      Hak akses yang dapat di akses oleh semua class adalah

a.       Private

b.      Public

c.       Protected

d.      Provide

e.       Inheritance

10.  Hak akses yang dapat di akses oleh class itu sendiri adalah

a.       Private

b.      Public

c.       Protected

d.      Provide

e.       Inheritance