Program Sistem Informasi Penjualan

Program Sistem Informasi Penjualan
kali ini saya akan memberikan program sistem informasi penjualan kepada sahabat blogger semua dimanapun anda berada baik yang ada di indonesia maupun di luar indonesia. sebelum kita memulai lebih baik kita niat yang ihklas agar dalam mempelajari program ini lancar.. cikidot mari lihat bagaimana cara membuatnya langsung saja ke TKP... 
Sebelum kita membuat program kita terlebih dahulu membuat sebuah modul pada
program. Kegunaan modul ini yaitu untuk mempersingkat program yang kita ketikkan nantinya.
Anda tambahkan sebuah modul dengan cara :
Click Project | Add Module, kemudian click Open. Akan muncul sebuah Module1 yang
masih kosong. Dan disini akan kita buat modul-modul program yang dapat di panggil melalui
Form Penjualan Barang. Cara mengetikkan program pada modul harus diketik secara lengkap.
 Anda ketikkan Program Berikut ini.
Function DBFind(Rs As Recordset, cIndex As String, cText As String) As Boolean
 DBFind = False
 Rs.Index = cIndex
 Rs.Seek "=", cText
 If Not Rs.NoMatch Then DBFind = True
End Function
Function DBFind2(Rs As Recordset, cIndex As String, cText As String, cText2 As
String) As Boolean
 DBFind2 = False
 Rs.Index = cIndex
 Rs.Seek "=", cText, cText2
 If Not Rs.NoMatch Then DBFind2 = True
End Function
Sub Add2List(Rs As Recordset, cField As Field, cbo As ComboBox)
 cbo.Clear
 If Rs.RecordCount = 0 Then Exit Sub
 Rs.MoveFirst
 Do While Not Rs.EOF
 cbo.AddItem cField
 Rs.MoveNext
 Loop
 cbo.Text = cbo.List(0)
End Sub
Sub AddSatuan(cbo As Object)
 cbo.AddItem "Unit"
 cbo.AddItem "Kg"
 cbo.AddItem "Mtr"
 cbo.AddItem "Ons"
 cbo.AddItem "Pc"
 cbo.AddItem "Set"
 cbo.AddItem "Sak"
 cbo.AddItem "Lembar" 
cbo.AddItem "Kaleng"
End Sub
Sub CenterFORM(f As Form)
 f.Move (Screen.Width - f.Width) / 2, (Screen.Height - f.Height) / 4
End Sub
Function CheckENTER(ckey As Integer, cTXT As String) As Boolean
 CheckENTER = False
 If ckey = 13 Then
 If cTXT = "" Then Exit Function
 CheckENTER = True
 End If
End Function
Sub PINDAH(ckey As Integer, cObj As Object)
 If ckey = 13 Then cObj.SetFocus
End Sub
Sub MoveTO(KeyAscii As Integer)
 If KeyAscii = 13 Then
 KeyAscii = 0
 SendKeys "{Tab}"
 End If
End Sub
Terakhir anda click Icon Disket. Pada File Name tertulis myModul anda click Save. 

Bila berita ini bermanfaat silahkan share Ini Program Sistem Informasi Penjualan ini dengan teman anda, Terima kasih sebelumnya

0 Response to "Program Sistem Informasi Penjualan"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel