membuat sistem penjualan

 MEMBUAT SISTEM PENJUALAN

Buatlah Database penjualan.mdb simpanlah pada drive C:/, dan buatlah Tabel pertama dengan nama Tabel Pelanggan, isilah table tersebut dengan property sebagai berikut :

Field	Size	Property
kodeplgn	10	Number
nmplgn	30	Text
alamat	50	Text
tlp	12	Number

1.         Buatlah form 1 dengan caption Tabel Pelanggan, seperti berikut :

2.         Klik Project à Refernces … setting seperti di bawah ini

3.         Double Klik pada command Buton Simpan, ketik kode berikut :

Public kon As New ADODB.Connection

Public rs1 As New ADODB.Recordset

Private Sub Command1_Click()

If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Then

MsgBox "Data Belum Lengkap...!", vbInformation, "Informasi"

Else

Dim SQLTambah As String

SQLTambah = "insert into pelanggan (kodeplgn,nmplgn,alamat, tlp) values ('" _

& Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "')"

kon.Execute SQLTambah

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Activate()

Set kon = New ADODB.Connection

Set rs1 = New ADODB.Recordset

kon.Open "provider=Microsoft.jet.oledb.4.0;data source=" & App.Path & "\penjualan.mdb"

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

    If Text1 <> "" And KeyCode = 13 Then

        Text2.SetFocus

    End If

End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)

    If Text2 <> "" And KeyCode = 13 Then

        Text3.SetFocus

    End If

End Sub

Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)

    If Text3 <> "" And KeyCode = 13 Then

        Text4.SetFocus

    End If

End Sub

5.         Simpan dan jalankan

 

Selamat Mengikuti Ulangan Tengah Semester Ganjil

 

Untuk yang mau mencoba latihan soal-soal ulangan saya kasih bocorannya, eiiiiit tapi ingat hanya dibaca trus dihapalin besoknya di praktekan dah....
oke deh jangan panjang-panjang ngomongnya, nih linknya boleh juga sih disedot (download) ampe abis semua juga ga apa-apa...
kalau dah di download jangan lupa Like-nya atau
ini alamat soalnya : http://soalmtsku.wordpress.com/ klik aja langsung

Tip and Trik Membuat Password

Sering kali orang yang membuat sebuah password terlalu pendek atau bisa juga kepanjangan, bahkan ada kata yang dijadikan password mudah diketahui orang lain, seperti 

1. Aaaaaaa
2. 1234567
3. 0813…………… (No. Hp)
4. 021 …………… (No Telpon)
5. 09121998      (Tanggal Lahir)
6. Ilove
7. Cayang
8. Cuantik2010

Kata di atas sangat mudah dikenali orang, oleh karena itu ada baiknya dalam membuat password ada coba terlebih dahulu kekuatan sebuah password tersebut bisa jadi password yang anda buat bernilai :

1. Very Strong
2. Strong
3. Very Good
4. Good
5. Weak
6. Very Weak
7. Too Short

Oke deh .. coba anda Link ke alamat ini : http://pengukur.com/mengukur-kekuatan-password.htm selamat mencoba.

Fungsi tanggal

FUNGSI TANGGAL

Fungsi tanggal digunakan untuk memanifulasi data tanggal. data tanggal dapat dimanifulasi atau diolah dengan fungsinya sebagai berikut :

a. =Date(Tahun,Bulan,Hari) untuk memasukan data tanggal

b. =Year(Data Tanggal) untuk mengambil tahun dari data tanggal

c. =Month(Data Tanggal) untuk mengambil bulan dari data tanggal

d. =Day(Data Tanggal) untuk mengambil hari dari data tanggal

e. =TODAY() untuk mengetahui data tanggal sekarang

Perhatikan Contoh Berikut : misalnya kita akan memasukan data tanggal berikut “12 Februari 1999, langkah yang kita akan lakukan adalah :

MEMBUAT GRAFIK

Grafik adalah merupakan Rangka untuk membentuk suatu Objek visualisasi table. Table yang berupa angka angka dapat disajikan / ditampilkan ke dalam bentuk gambar,bisa berbentuk garis, batang,lingkaran dan yang lainnya.

TUGAS KELAS 9 SISWA MTsN 1 KOTA TANGERANG

Buatlah 5 slide lengkap dengan effect seperti dibawah ini dengan ketentuan

1. Judul Wisata Danau Toba
2. Silahkan download tentang gambar danau toba
3. Susunan kalimat bebas
4. Jika sudah simpan dengan nama file 9... Wisata Danau

Tugas Kelas IX Hari Sabtu, 11-02-2012