Senin, 19 Desember 2011

Membuat Database Menggunakan Command Prompt

Diposting oleh di Tidak ada komentar:
Label:

Minggu, 18 Desember 2011

MEMBUAT DATABASE 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
Diposting oleh di Tidak ada komentar:
Label:

Sabtu, 29 Oktober 2011

data base koperasi

CREATE table anggota (idanggota text (5) primary key,nmanggota text(20),alamat text (20),notlp text (15));
INSERT into anggota
values("101","karisma","semarang","081223355671")
INSERT into anggota
values("102","indra","ungaran","081223355672")
INSERT into anggota
values("103","riska","pekalongan","081223355673")
INSERT into anggota
values("104","shasa","semarang","081223355674")
INSERT into anggota
values("105","guntur","pemalang","081223355675")
anggota
idanggota nmanggota alamat notlp
101 karisma semarang 081223355671
102 indra ungaran 081223355672
103 riska pekalongan 081223355673
104 shasa semarang 081223355674
105 guntur pemalang 081223355675
2.table petugas
CREATE table petugas(nippetugas text (5)primary key,nmpetugas text (20),jabatan text (20));
INSERT into petugas
values("201","ranti","ketua")
 INSERT into petugas
values("202","rima","wakil ketua")
INSERT into petugas
values("203","bagus","sekertaris")
INSERT into petugas
values("204","indah","bendahara")
INSERT into petugas
values("205","vino","seksi keamanan")
petugas
nippetugas nmpetugas jabatan
201 ranti ketua
202 rima wakil ketua
203 bagus sekertaris
204 indah bendahara
205 vino seksi keamanan

3.table transaksi
CREATE table transaksi(notransaksi text (5) primary key,nmanggota text (20),tglpinjam date,jmlhpnjm currency,jmlhansuran currency)
INSERT into transaksi
values("001","karisma","02/20/2011","13000000","1300000")
INSERT into transaksi
values("002","indra","06/27/2011","20000000","2000000")
INSERT into transaksi
values("003","riska","03/05/2011","25000000","2500000")
INSERT into transaksi
values("004","shasa","10/10/2011","1500000","150000")
INSERT into transaksi
values("005","guntur","09/10/2011","30000000","3000000")

transaksi
notransaksi nmanggota tglpinjam jmlhpnjm jmlhansuran
001 karisma 20/02/2011 Rp13,000,000.00 Rp1,300,000.00
002 indra 27/06/2011 Rp20,000,000.00 Rp2,000,000.00
003 riska 05/03/2011 Rp25,000,000.00 Rp2,500,000.00
004 shasa 10/10/2011 Rp1,500,000.00 Rp150,000.00
005 guntur 10/09/2011 Rp30,000,000.00 Rp3,000,000.00
Diposting oleh di Tidak ada komentar:
Label:

Senin, 24 Oktober 2011

Functional Dependency (FD)

Functional Dependency (FD) adalah ketergantungan yang terjadi antara atribut-atribut dalam suatu entiti.
Basis data yang baik, dalam satu entiti/tabel hanya ada 1 ketergantungan fungsional (KF) atau disebut dengan Basis data normal
 
Notasi KF  :   A à B
Artinya       :  atribut B tergantung pada A
Contoh   :
KodeMk à NamaMk       (artinya  atribut NamaMk tergantung pada atribut KodeMk)
NIM à Nama,Alamat,Telp 
            (artinya  atribut Nama,Alamat, Telp tergantung pada atribut NIM)

Diposting oleh di 1 komentar:

Senin, 10 Oktober 2011

1.Database hirarkis adalah database model tertua dari lima model database.Dalam database hirarkis field atau record di atur dalam kelompok-kelompok yang berhubungan menyerupai pohon, dengan record child(level lebih rendah) berada di bawah record parent(level lebih tinggi).
Model ini di gunakan pada tahun 1970-an pada mainframe untuk sisem penyimpanan pita(tape storage) dan masih digunakan di beberapa tipe sistem reservasi penumpang.



2.
2.Database Jaringan adalah perkembangan dari model database hirarkis.database jaringan sama dengan database hirarkis, namun setiap record childnya bisa memiliki lebih dari satu record parent dan sebaliknya(satu record child bisa memilki beberapa parent).database jaringan pada dasarnya digunakan dengan mainframe.



3,Database Rasional menghubungkan data pada file-file berbeda dengan menggunakan sebuah kunci atau elemen data yang umum.Contoh program DBMS mikrokomputer, yang semuanya rasional, adalah paradox dan Access. Model rasional yang di gunakan dalam sistem komputer yang besar adalah Oracle, Informix, dan Sybase.

Cara Kerja Database Rasional
Dalam database rasional, tidak ada akses yang berjalan menurun seperti sebuah hirarki. Elemen-elemen data disimpan dalam tabel yang berbentuk tabel dan kolom. Dalam istilah database, tabel di sebut relasi(file), baris di sebut tuples(record),dan kolomnya di sebut atribut(field). Dalam model database hirarkis dan jaringan, data di atur menurut alamat fisik, tetapi dalam model rasional data justru diatur secara logis yaitu berdasarkan isi.


Diposting oleh di Tidak ada komentar:
Label:

Minggu, 25 September 2011

database

DATA BASE

1.



·        DAFTAR KARYAWAN PT.MULIA SENTOSA

No
Nama Karyawan
Golongan
Alamat
Status
Jumlah Anak
1
ANDRI
1
Jl. Apel
Kawin
3
2
KEVIN
2
Jl. Dukuh 
Kawin
2
3
AKBAR
1
Jl. Merkis
Belum
-
4
RADIT
3
Jl. Durian
Kawin
2
5
SULTAN
1
Jl. Kita
Belum
-
6
FREDY
2
Jl. Sama
Belum
-
7
AHMAD
2
Jl. Jeruk
Belum
-
8
ALFONS
2
Jl. Singgah
Belum
-
9
FIKRI
1
Jl. Sana
Kawin
1
10
ROMMY
1
Jl. Sini
Kawin
2
11
HANDRI
3
Jl. Mana
Belum
-
12
ROLAN
3
Jl. Ajah
Kawin
3
13
ANWAR
2
Jl. Dukuh 
Kawin
3
14
RISKIYAH
3
Jl. Apel
Kawin
2
15
NISSA
2
Jl. Merkis
Kawin
4
16
KUSUMAWATI
1
Jl. Kita
Belum
-
17
EDI MARUDI
3
Jl. Lama
Kawin
2
18
RICKIWIYANSYAH
2
Jl. Durian
Belum
-
19
PANJAITAN
1
Jl. Singgah
Kawin
2
20
ZINEDINE
3
Jl. Kita 
Kawin
1

2.
DAFTAR GAJI PEGAWAI PT.MULIA SENTOSA
Golongan
Gaji Pokok
Tunjangan Istri
Tunjangan Anak
Tunjangan Transport
Tunjangan Makan
1
Rp 1.500.000
Rp 100.000
Rp 75.000
Rp 80.000
Rp 150.000
2
Rp 1.750.000
Rp 100.000
Rp 75.000
Rp 80.000
Rp 150.000
3
Rp 2.000.000
Rp 100.000
Rp 75.000
Rp 80.000
Rp 150.000

      3.
Tabel Data Karyawan 
Nama Tabel                  : karyawan
Media Penyimpanan : Harddisk
Primary Key                : NIPPOS
Foreign Key                  : Kopang, Kojab
Atribut Tipe Ukuran Keterangan
*NIPPOS C 10 No Induk Karyawan PT. Pos
Nama C 25 Nama karyawan
Alamat C 100 Alamat karyawan
Tmpt_Lahir C 20 Tempat lahir karyawan
Tgl_Lahir D - Tanggal lahir karyawan
Jenis_Kelamin C 10 Jenis kelamin karyawan
(Laki-laki / Perempuan)
Agama C 10 Agama yang dianut karyawan
Status C 10 Status karyawan
(Kawin / Belum Kawin)
No_Tlp C 15 No telepon yang bisa dihubungi
**Kopang C 10 Kode pangkat karyawan
**Kojab C 10 Kode jabatan karyawan
Keterangan Tipe Data :
C : Character (karakter)
D : Date (tanggal)
N : Numeric (numerik/angka)
T : Time (waktu/jam)
4.
Nama Tabel                  : karyawan
Media Penyimpanan  : Harddisk
Primary Key                : NIPPOS
Foreign Key                  : Kopang, Kojab
Atribut Tipe Ukuran Keterangan
NIPPOS C 10 No Induk Karyawan PT. Pos
Nama C 25 Nama karyawan
Alamat C 100 Alamat karyawan
Tmpt_Lahir C 20 Tempat lahir karyawan
Tgl_Lahir D - Tanggal lahir karyawan
Jenis_Kelamin C 10 Jenis kelamin karyawan
(Laki-laki / Perempuan)
Agama C 10 Agama yang dianut karyawan
Status C 10 Status karyawan
(Kawin / Belum Kawin)
No_Tlp C 15 No telepon yang bisa dihubungi
Kopang C 10 Kode pangkat karyawan
Kojab C 10 Kode jabatan karyawan
Keterangan Tipe Data :
C : Character (karakter)
D : Date (tanggal)
N : Numeric (numerik/angka)
T : Time (waktu/jam)
5.

Diposting oleh di 1 komentar:
Label:
Langganan: Postingan (Atom)