Featured 1
Curabitur et lectus vitae purus tincidunt laoreet sit amet ac ipsum. Proin tincidunt mattis nisi a scelerisque. Aliquam placerat dapibus eros non ullamcorper. Integer interdum ullamcorper venenatis. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas.
Featured 2
Curabitur et lectus vitae purus tincidunt laoreet sit amet ac ipsum. Proin tincidunt mattis nisi a scelerisque. Aliquam placerat dapibus eros non ullamcorper. Integer interdum ullamcorper venenatis. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas.
Featured 3
Curabitur et lectus vitae purus tincidunt laoreet sit amet ac ipsum. Proin tincidunt mattis nisi a scelerisque. Aliquam placerat dapibus eros non ullamcorper. Integer interdum ullamcorper venenatis. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas.
Featured 4
Curabitur et lectus vitae purus tincidunt laoreet sit amet ac ipsum. Proin tincidunt mattis nisi a scelerisque. Aliquam placerat dapibus eros non ullamcorper. Integer interdum ullamcorper venenatis. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas.
Featured 5
Curabitur et lectus vitae purus tincidunt laoreet sit amet ac ipsum. Proin tincidunt mattis nisi a scelerisque. Aliquam placerat dapibus eros non ullamcorper. Integer interdum ullamcorper venenatis. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas.
Sabtu, 19 Januari 2013
KUIS 2 BASIS DATA
Kamis, 10 Januari 2013
PENGERTIAN WAN
WAN adalah singkatan dari istilah teknologi informasi dalam bahasa Inggris: Wide Area Network merupakan jaringan komputer yang mencakup area yang besar sebagai contoh yaitu jaringan komputer antar wilayah, kota atau bahkan negara, atau dapat didefinisikan juga sebagai jaringan komputer yang membutuhkan router dan saluran komunikasi publik.
WAN digunakan untuk menghubungkan jaringan lokal yang satu dengan jaringan lokal yang lain, sehingga pengguna atau komputer di lokasi yang satu dapat berkomunikasi dengan pengguna dan komputer di lokasi yang lain.
Selasa, 08 Januari 2013
Senin, 07 Januari 2013
Coding Tambah
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text1.SetFocus
On Error Resume Next
Dim nob As Long
Dim nol As String
If Data4.Recordset.BOF And Data4.Recordset.EOF Then
nob = 1
Else
Data4.Recordset.MoveLast
nob = Val(Data4.Recordset!nokembali) + 1
End If
Text1.Text = Left("00000", 6 - Len(Trim(Str(nob)))) & Trim(Str(nob))
Text2.SetFocus
End Sub
Coding Simpan
Data4.Recordset.AddNew
Data4.Recordset!nokembali = Text1.Text
Data4.Recordset!nopinjam = Text2.Text
Data4.Recordset!kodeanggota = Text3.Text
Data4.Recordset!nama = Text4.Text
Data4.Recordset!kodebuku = Text5.Text
Data4.Recordset!judul = Text6.Text
Data4.Recordset!tglpinjam = Text7.Text
Data4.Recordset!jumlah = Text8.Text
Data4.Recordset.Update
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text1.SetFocus
MsgBox "Data Telah Tersimpan", vbOKOnly + vbInformation, "info"
Coding Edit
Data1.Recordset.Edit
Data4.Recordset!nokembali = Text1.Text
Data4.Recordset!nopinjam = Text2.Text
Data4.Recordset!kodeanggota = Text3.Text
Data4.Recordset!nama = Text4.Text
Data4.Recordset!kodebuku = Text5.Text
Data4.Recordset!judul = Text6.Text
Data4.Recordset!tglpinjam = Text7.Text
Data4.Recordset!jumlah = Text8.Text
Data4.Recordset.Update
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text1.SetFocus
MsgBox "Data Telah Di Edit", vbOKOnly + vbInformation, "info"
Coding Hapus
Dim Hapus As String
Hapus = MsgBox("Yakin Akan Dihapus?", vbYesNo + vbQuestion, "konfirmasi")
If Hapus = vbYes Then
Data1.Recordset.Delete
MsgBox "Data Telah Dihapus", vbOKOnly + vbInformation, "info"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text1.SetFocus
End If
Kamis, 03 Januari 2013
2. Analisis Informasi ( Information )
3. Analisis Ekonomi ( Economy )
5. Analisis Efisiensi ( Efficiency )
6. Analisis Pelayanan ( Service )
2. Analisis Informasi ( Information )
3. Analisis Ekonomi ( Economy )
5. Analisis Efisiensi ( Efficiency )
6. Analisis Pelayanan ( Service )