Program dengan database

ga' perlu basa basi.., langsung aja belajar..

Ketentuan Form :
1. Dianjurkan membuat 6 buah sub(Bersih, Nonaktif, Aktif, Combo_Pelanggan, Combo_barang, penomoran otomatis).
2. Nomor Invoice dibuat denga Format “INV001”.
3. Jika jenis Penjualan Tunai Mendapat potongan sebesar 5%, jika Kredit sebesar 2%.
4. Subtotal = Jumlah Beli * Harga Jual (KeyPress)
5. Proses Penyimpanan dilakukan hanya untuk menyimpan semua field yang ada dalam table Penjualan.

Adapun ketentuan dalam membangun database:

Table Barang

Field Name      Type data    Size
ID_Barang       * Text          5
Nm_Barang       Text           30
Harga_beli        Currency 
Harga_Jual        Currency 
Stok                  Number 

Table Pelanggan

Field Name        Type data     Size
ID_pel               * Text          3
Nm_pel              Text            30
Alamat               Text             50
Kota                  Text             10
No_telp             Text             15

Table Penjualan

Field Name        Type data      Size
Invoice              * Text             6
Tanggal             Date/Time
ID_pel              Text                 3
ID_Barang        Text                 5
Jumlah_Beli       Number
Jns_penjualan    Text                 6


Setelah kalian selesai, Silahkan buat program tersebut dengan ketentuan yang sudah ditentukan oleh saya.

Source Code Latihan VB

Mungkin kalian sedang kebingungan membuat program tersebut. Dipostingan ini saya akan besertakan source codenya juga dengan form yang bisa kalian download.
Input Kode Dibawah ini...Semoga kalian tidak bingung maksud dari kode ini:

Private Sub cbaru_Click()
bersih
aktif
nomat
End Sub

Private Sub cbatal_Click()
bersih
nonaktif
End Sub

Private Sub cbobar_Click()
a1.RecordSource = "select * from barang where nm_barang='" & cbobar.Text & "'"
a1.Refresh
Text2.Text = a1.Recordset!id_barang
tharga.Text = a1.Recordset!harga_jual
End Sub

Private Sub cbopel_Click()
a2.RecordSource = "select * from pelanggan where nm_pel='" & cbopel.Text & "'"
a2.Refresh
Text1.Text = a2.Recordset!id_pel
End Sub

Private Sub ckeluar_Click()
Unload Me
End Sub

Private Sub csimpan_Click()
a3.RecordSource = "select * from penjualan"
a3.Refresh
a3.Recordset.AddNew
a3.Recordset!invoice = tinvoice.Text
a3.Recordset!tanggal = dp1.Value
a3.Recordset!id_pel = Text1.Text
a3.Recordset!id_barang = Text2.Text
a3.Recordset!jumlah_beli = tjumlah.Text
If opttunai.Value = True Then
a3.Recordset!jns_penjualan = "Tunai"
Else
a3.Recordset!jns_penjualan = "Kredit"
End If
a3.Recordset.Update
bersih
nonaktif
End Sub

Private Sub Form_Load()
combo_barang
combo_pelanggan
bersih
nonaktif
End Sub

'pembuatan sub ini terlebih dahulu agar database dapat terkoneksikan
Sub combo_barang()
a1.RecordSource = "select nm_barang from barang order by nm_barang"
a1.Refresh
If a1.Recordset.RecordCount = 0 Then
Exit Sub
Else
a1.Recordset.MoveFirst
Do While Not a1.Recordset.EOF
cbobar.AddItem a1.Recordset!nm_barang
a1.Recordset.MoveNext
Loop
End If
End Sub

Sub combo_pelanggan()
a2.RecordSource = "select nm_pel from pelanggan order by nm_pel"
a2.Refresh
If a2.Recordset.RecordCount = 0 Then
Exit Sub
Else
a2.Recordset.MoveFirst
Do While Not a2.Recordset.EOF
cbopel.AddItem a2.Recordset!nm_pel
a2.Recordset.MoveNext
Loop
End If
End Sub

Sub nomat()
Dim a, b As String
a3.RecordSource = "select * from penjualan order by invoice"
a3.Refresh
If a3.Recordset.RecordCount = 0 Then
b = "INV001"
Else
a3.Recordset.MoveLast
a = Right(a3.Recordset!invoice, 3) + 1
b = "INV" & Right("00" & a, 3)
End If
tinvoice.Text = b
End Sub

Sub aktif()
Dim a As Control
For Each a In Me
If TypeOf a Is TextBox Then a.Enabled = True
If TypeOf a Is ComboBox Then a.Enabled = True
If TypeOf a Is OptionButton Then a.Enabled = True
If TypeOf a Is DTPicker Then a.Enabled = True
Next
End Sub

'untuk membuat sub penonaktifan atas semua textbox, combobox, datapicker, dan option button
Sub nonaktif()
Dim a As Control
For Each a In Me
If TypeOf a Is TextBox Then a.Enabled = False
If TypeOf a Is ComboBox Then a.Enabled = False
If TypeOf a Is OptionButton Then a.Enabled = False
If TypeOf a Is DTPicker Then a.Enabled = False
Next
End Sub


' untuk membuat sub pembersihan atas semua textbox dan combobox
Sub bersih()
Dim a As Control
For Each a In Me
If TypeOf a Is TextBox Then a.Text = ""
If TypeOf a Is ComboBox Then a.Text = ""
Next
End Sub

'Masukan kode ini pada command button dengan nama jumlah
Private Sub tjumlah_KeyPress(KeyAscii As Integer)
Dim potongan As Single
If KeyAscii = 13 Then
If opttunai.Value = True Then
potongan = (tharga.Text * tjumlah.Text) * 0.05
Else
potongan = (tharga.Text * tjumlah.Text) * 0.02
End If
tsubtotal.Text = (tharga.Text * tjumlah.Text) - potongan
Else
End If
End Sub 

Setelah Kalian selesai dengan kode diatas, jangan lupa untuk melakukan pemanggilan beberapa sub tersebut. Yang mana hayooo?? Tentunya kalian tahu yang harus dilakukan, saya tidak akan memberitahukannya. ^,..,^

Bagi kalian yang membutuhkan form beserta databasenya, bisa kalian dapatkan sekarang juga, tinggal download melalui browser kalian.


download contoh programnya di sini 

Read more »

MEMBUAT BEL SEKOLAH OTOMATIS

 hay sobat ktemu lagi di blog anak vb.., di postingan kali ini saya punya source code bel sekolahdari
dari pada tinggal di komputer jadi basikan...,
Source code ini merupakan source code program untuk membunyikan bel sekolah secara otomotis sesuai dengan jam yang di ketikkan, kemudian komputer akan mati sendiri jika udah jam yang ditentukan sehingga orang seorang Tata Usaha yang biasa melakukan bel tidak usah bingung-bingung dalam pengoperasiannya. Program ini dibuat secara otomatis jalan dan hanya orang yang tertentu aja yang bisa mematikan program ini (hehe kecuali komputernya di matikan atau ga ada sambungan listriknya).
nich buat yang mau ,,.
langsung sedot aja.., atau bahasa lainnya di unduh...,

download di sini

Read more »