membuat database menggunakan command prompt

1.buka program cmd prompt;

TUGAS KELOMPOK VB

MEMBUAT DATA BASE MENGGUNAKAN VISUAL BASIC

1.Membuat 3 form dlm 3 tabel,masing-masing tabel 1 form

2.masing-masing form diberi report

3.dibuat menu utama

4.listing dan tampilan print screen dalam word

TABEL1

(Tabel Barang)

Listing:

Sub aktif()

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Combo1.Enabled = True

End Sub

Sub tidak()

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Combo1.Enabled = False

End Sub

Private Sub Command1_Click()

Data1.Recordset.AddNew

Data1.Recordset!kd_brg = Text1.Text

Data1.Recordset!nm_brg = Text2.Text

Data1.Recordset!satuan = Combo1.Text

Data1.Recordset!harga = Text3.Text

Data1.Recordset.Update

tidak

Command1.Enabled = True

End Sub

Private Sub Command2_Click()

aktif

Data1.Recordset.AddNew

Text1.SetFocus

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Command4_Click()

DataReport1.Show

End Sub

Private Sub Command5_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Combo1.Text = ""

End Sub

Private Sub Form_Activate()

tidak

Command2.SetFocus

End Sub

Private Sub Command6_Click()

Form4.Show

Form1.Hide

End Sub

Membuat  report table barang

2. Membuat table pelanggan

Listing:

Sub nonaktif()

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Text4.Enabled = False

End Sub

Sub aktif()

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Text4.Enabled = True

End Sub

Private Sub Command1_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

aktif

Data1.Recordset.AddNew

Command1.Enabled = False

Command2.Enabled = True

Text1.SetFocus

End Sub

Private Sub Command2_Click()

Data1.Recordset.AddNew

Data1.Recordset!kd_plg = Text1.Text

Data1.Recordset!nm_plg = Text2.Text

Data1.Recordset!almat = Text3.Text

Data1.Recordset!no_tlp = Text4.Text

Data1.Recordset.Update

nonaktif

End Sub

Private Sub Command3_Click()

a = MsgBox("keluar", vbQuestion + vbYesNo, "info")

If a = vbYes Then

End If

End

End Sub

Private Sub Command4_Click()

DataReport2.Show

End Sub

Private Sub Command5_Click()

Form4.Show

Form2.Hide

End Sub

Membuat report tabel2

3.tabel transaksi

Listing:

Sub tombolsemula()

Command1.Enabled = True

Command2.Enabled = False

Command3.Enabled = True

Command4.Caption = False

End Sub

Sub bersih()

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

Text7 = ""

Text8 = ""

Text9 = ""

Combo1 = ""

Combo2 = ""

End Sub

Sub aktif()

Text1.Enabled = True

Combo1.Enabled = True

Combo2.Enabled = True

Text6.Enabled = True

Text8.Enabled = True

End Sub

Sub nonaktif()

Text1 = False

Text2 = False

Text3 = False

Text6 = False

Text7 = False

Text8 = False

Text9 = False

Text10 = False

Combo1.Enabled = False

Combo2.Enabled = False

End Sub

Sub output()

Text3.Enabled = False

Text2.Enabled = False

Text4.Enabled = False

Text5.Enabled = False

Text7.Enabled = False

Text8.Enabled = False

Text9.Enabled = False

End Sub

Private Sub Combo1_Click()

If Combo1.Text = "k001" Then

Text2.Text = "nia"

ElseIf Combo1.Text = "k002" Then

Text2.Text = "tiara"

Else

Text2.Text = "arum"

End If

End Sub

Private Sub Combo2_Click()

If Combo2.Text = "A001" Then

Text4.Text = "siomay komplit"

Text5.Text = 7000

ElseIf Combo2.Text = "A002" Then

Text4.Text = "batagor"

Text5.Text = 8000

Else

Text4.Text = "dimsum"

Text5.Text = 15000

End If

End Sub

Private Sub Command1_Click()

bersih

aktif

Text1.SetFocus

Command2.Enabled = True

Command3.Caption = "Batal"

End Sub

Private Sub Command2_Click()

With Data1.Recordset

.AddNew

!no_nota = Text1.Text

!nm_pelanggan = Combo1.Text

!nm_barang = Text4.Text

!harga = Text5.Text

!jumlah = Text6.Text

!total = Text7.Text

!bayar = Text8.Text

!kembali = Text9.Text

.Update

End With

bersih

nonaktif

tombolsemula

End Sub

Private Sub Command3_Click()

x = MsgBox("Benar ingin keluar?", vbOKCancel + vbQuestion, "Konfirmasi")

If x = vbOK Then

'MDIForm1.Show

'FormTransaksi.Hide

End If

End

End Sub

Private Sub Text6_Change()

Text7.Text = Val(Text5.Text) * Val(Text6.Text)

End Sub

Private Sub Text8_Change()

Text9.Text = Val(Text8.Text) - Val(Text7.Text)

End SubPrivate Sub Timer1_Timer()

Text3 = Date

End Sub

Private Sub Command5_Click()

Form4.Show

Form3.Hide

End Sub

Membuat report transaksi

Membuat Menu Utama

1.Buat form baru

2.Klik menu editor

3.Maka akan muncul jendela;

4.Isi caption, name, shortcut kemudian bila sudah terisi seprti gambar diatas kli ok

5.Maka tampilanya seperti di bawah ini;

6.klik barang,maka akan tampil kotak listing

 Isikan;

Private Sub mnbarang_Click()

Form1.Show

Form4.Hide

End Sub

Private Sub mnpelanggan_Click()

Form2.Show

Form4.Hide

End Sub

Private Sub tttransaksi_Click()

Form3.Show

Form4.Hide

End Sub

Private Sub eeexit_Click()

End

End Sub

acces

Membuat table barang dgn SQL :

CREATE table barang (kodebarang text (5) primary key,namabarang text (20),harga currency);

Membuat isi table dg SQL ;

INSERT into penjualan

values("k001","keyboard komic","50000")

INSERT into penjualan

values("M001","mouse komic","25500")

INSERT into penjualan

values("p001","printer epson1","400000")

INSERT into penjualan

values("p002","printer hp","452000")

INSERT into penjualan

values("p003","printer canon","463000")

Membuat isi table dg SQL ;

INSERT into penjualan

values("k001","keyboard komic","50000")

INSERT into penjualan

values("M001","mouse komic","25500")

INSERT into penjualan

values("p001","printer epson1","400000")

INSERT into penjualan

values("p002","printer hp","452000")

INSERT into penjualan

values("p003","printer canon","463000")

membuat tabel penjualan dg SQL

CREATE table penjualan (kodebarang text (5) primary key,namabarang text (20),harga currency,jumlahbeli text (5));

membuat isi tabel dg SQL

INSERT into penjualan

values ("k001","keyboard komic","500000","5")
INSERT into penjualan

values ("m001","mouse komic","25500","6")
INSERT into penjualan

values ("p001","printer epson1","400000","3")
INSERT into penjualan

values ("p001","printer hp","452000","6")
INSERT into penjualan

values ("p001","printer canon","463000","5")

 membuat table transaksi dg SQL;

CREATE table transaksi (nofaktur text(5) primary key,tanggal date,kodebarang text(5),jumlahbeli text(5),totalbayar currency);

membuat isi tabel dg SQL;

INSERT into transaksi

values("f01","31/10/2011","k001","5","250000")

INSERT into transaksi

values("f02","31/10/2011","m001","6","153000")

INSERT into transaksi

values("f03","1/11/2011","p001","3","1200000")

INSERT into transaksi

values("f04","1/11/2011","p002","6","2712000")

INSERT into transaksi

values("f05","1/11/2011","p003","5","2315000")

functional depedency

 sifat depedency functional

Mengingat bahwa X, Y, dan Z adalah set atribut dalam relasi R, satu dapat memperoleh beberapa sifat dependensi fungsional. Among the most important are Armstrong's axioms , which are used in database normalization: Di antara yang paling penting adalah aksioma Armstrong , yang digunakan dalam normalisasi database:

• Subset Property (Axiom of Reflexivity): If Y is a subset of X , then X → Y Subset Properti (Aksioma Refleksivitas): Jika Y adalah subset dari X, maka X → Y
• Augmentation (Axiom of Augmentation): If X → Y , then XZ → YZ Augmentasi (Aksioma Augmentasi): Jika X → Y, maka XZ YZ →
• Transitivity (Axiom of Transitivity): If X → Y and Y → Z , then X → Z Transitivitas (Aksioma Transitivitas): Jika X → Y dan Y → Z, maka X → Z

From these rules, we can derive these secondary rules: Dari aturan ini, kita dapat memperoleh aturan-aturan sekunder:

• Union : If X → Y and X → Z , then X → YZ Uni: Jika X → Y dan X → Z, maka X → YZ
• Decomposition : If X → YZ , then X → Y and X → Z Dekomposisi: Jika X → YZ, maka X → Y dan X → Z
• Pseudotransitivity : If X → Y and WY → Z , then WX → Z Pseudotransitivitas: Jika X → Y dan Z → WY, maka WX → Z

Equivalent sets of functional dependencies are called covers of each other. Set dependensi fungsional setara disebut mencakup satu sama lain. Every set of functional dependencies has a canonical cover . Setiap set dependensi fungsional memiliki cakupan canonical .

 

Functional Dependencies (Contoh)

Contoh ini menggambarkan konsep ketergantungan fungsional. The situation modeled is that of college students visiting one or more lectures in each of which they are assigned a teaching assistant (TA). Situasi dimodelkan adalah bahwa mahasiswa mengunjungi satu atau lebih kuliah di masing-masing mereka diberi asisten dosen (TA). Let's further assume that every student is in some semester and is identified by a unique integer ID. Mari kita lebih lanjut mengasumsikan bahwa setiap mahasiswa pada semester tertentu dan diidentifikasi oleh ID integer unik.

StudentID StudentID	Semester Semester	Lecture Kuliah	TA TA
1234 1234	6 6	Numerical Methods Metode Numerik	John John
2380 2380	4 4	Numerical Methods Metode Numerik	Peter Peter
1234 1234	6 6	Visual Computing Visual Computing	Amina Amina
1201 1201	4 4	Numerical Methods Metode Numerik	Peter Peter
1201 1201	4 4	Physics II Fisika II	Simone Simone

We notice that whenever two rows in this table feature the same StudentID, they also necessarily have the same Semester values. Kami melihat bahwa setiap kali dua baris dalam tabel fitur ini StudentID yang sama, mereka juga tentu memiliki nilai Semester yang sama. This basic fact can be expressed by a functional dependency: Ini fakta dasar dapat dinyatakan dengan ketergantungan fungsional:

• StudentID → Semester. StudentID → Semester.

Other nontrivial functional dependencies can be identified, for example: Lain dependensi fungsional trivial dapat diidentifikasi, misalnya:

• {StudentID, Lecture} → TA {StudentID, Kuliah TA} →
• {StudentID, Lecture} → {TA, Semester} {StudentID, Kuliah} {→ TA, Semester}

The latter expresses the fact that the set {StudentID, Lecture} is a superkey of the relation. Yang terakhir ini mengungkapkan fakta bahwa himpunan {StudentID, Kuliah} adalah superkey dari relasi.

(DI KUTIP DARI WIKIPEDIA) 

kumpulan foto

lypsinc :)

Database Relasional
Database Relasional bekerja dengan menghubungkan data pada file-file yang berbeda dengan menggunakan sebuah kunci atau elemen data yang umum.

Database Jaringan
Konsep database jaringan mirip dengan database hierarkis tetapi setiap record child dapat memiliki lebih dari satu record parent. Selanjutnya setiap record child dapat dimiliki oleh lebih dari satu record parent.
Database jaringan pada dasarnya digunakan dengan mainframe, lebih fleksibel disbanding database hierarkis karena ada hubungan yang berbeda antarcabang data. Akan tetapi strukturnya masih harus didefinisikan lebih dahulu. Pengguna harus sudah terbiasa dengan struktur database. Lagipula jumlah hubungan antar-record juga terbatas, dan untuk menguji sebuah field seseorang harus mendapatkan kembali semua record.

Database Hierarkis
Pada database Hierarkis, field atau record diatur dalam kelompok-kelompok yang berhubungan, menyerupai diagram pohon, dengan record child (level lebih rendah) berada di bawah record parent (level yang lebih tinggi).

contoh database hierarkis
Database hierarkis merupakan model tertua dan paling sederhana dari kelima model database. Dalam model database ini mengakses atau mengupdate data bisa berlangsung sangat cepat karena hubungan-hubungan sudah ditentukan. Tetapi, karena struktur harus didefinisikan lebih dahulu, maka hal ini cukup riskan. Lagipula menambahkan field baru ke sebuah record database membuat semua database harus didefinisikan kembali. Karena itulah diperlukan model database yang baru untuk menunjukkan masalah pengulangan data dan hubungan data yang kompleks

http://blog.ub.ac.id/uniesajo/author/uniesajo/page/2/