Progam Inventory Toko

Selamat pagi dan selamat datang di blog saya. Pada hari ini saya akan membagi ilmu saya kepada para pembaca khususnya para programmer vb 6.0. Pada kesempatan kali ini saya akan membuat program tentang inventory barang toko yang sederhana. Progam ini terdiri dari beberapa bagian atau menu yaitu :

1. Form utama yang adalah form tempat semua menu berada dan dapat diakses.
2. Form data barang adalah form untuk melakukan penambahan dan editing data barang.
3. Form data service adalah form untuk melakukan penambahan dan editing data tempat service barang.
4. Form service barang adalah form untuk melakukan penambahan dan editing data service barang yang terjadi.
5. Form pembelian barang adalah form untuk melakukan penambahan dan editing data pembelian barang yang terjadi.
6. Form laporan adalah kumpulan laporan dari semua data dan proses yang tersimpan.

Saya menggunakan VB 6.0 sebagai program development, SQL Server 2000 sebagai Data Base Management System (DBMS) dan Crystal Report 8.5 sebagai reporting.

Mari kita bahas satu persatu form yang ada di dalam program ini

1. Form utama program
   Form utama adalah form untuk meletakkan segala menu yang akan digunakan dalam program.
   

Gambar form utama program

Gambar design form utama program

Yang diperlukan adalah :

Object	Property	Setting
Form	Name	Form_Utama
	Border Style	0-None
	WindowState	2-Maximized
Timmer	Name	Timmer
	Interval	60
Timmer	Name	Timmer2
	Interval	60
Timmer	Name	Timmer3
	Interval	60
CommandButton	Name	Tombol
	Index	0
CommandButton	Name	Tombol
	Index	0
CommandButton	Name	Tombol
	Index	0
CommandButton	Name	Tombol
	Index	0
CommandButton	Name	Tombol
	Index	0
StatusBar	Name	Statusbar1
	Panels	6
Image	Name	Image1
	Strech	True
Image	Name	Img_Close
Label	Name	Label1
	Caption	Nama Toko

 

Di dalam design dan pada saat di jalankan pasti berbeda karena setiap object ditempatkan dengan coding jadi perlu ada coding yang mengatur tampilan. Menu berupa tombol ada di sebelah kiri semua. Dan lambang Close ada di kanan atas dan status bar ada di bawah. Dan saat akan keluar program maka form akan mengecil dan menghilang. Untuk membuatnya mari kita bahas codingnya.

 

 

 

Dim Panjang, Lebar As Integer

Dim Counter As Integer

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

 

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Declare Function CreateEllipticRgn Lib "gdi32" _ (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _ByVal Y2 As Long) As Long

Private Declare Function SetWindowRgn Lib "user32" _ (ByVal hwnd As Long, ByVal hRgn As Long, _ByVal bRedraw As Boolean) As Long

 

 

Public Sub ChangeScreenSettings(lWidth As Integer, _lHeight As Integer, lColors As Integer)

Dim tDevMode As DEVMODE, lTemp As Long, lIndex As Long

lIndex = 0

Do

lTemp = EnumDisplaySettings(0&, lIndex, tDevMode)

If lTemp = 0 Then Exit Do

lIndex = lIndex + 1

With tDevMode

If .dmPelsWidth = lWidth And .dmPelsHeight = lHeight _

And .dmBitsPerPel = lColors Then

lTemp = ChangeDisplaySettings(tDevMode, CDS_UPDATEREGISTRY)

Exit Do

End If

End With

Loop

Select Case lTemp

'Case DISP_CHANGE_SUCCESSFUL

' MsgBox "Untuk penyesuaian Program Heicle Simulasi Sistem Operasi, maka resolusi grafik anda kami ambil alih. Terima kasih atas perhatian anda", _

vbInformation, "Heicle Dss Ms"

Case DISP_CHANGE_RESTART

MsgBox "Komputer anda harus di-restart agar mode grafik dapat berfungsi!", vbQuestion, "Heicle Dss Ms"

Case DISP_CHANGE_FAILED

MsgBox "Driver Tidak Mendukung Grafik Anda Tidak Bisa Dirubah! Maka Kami Akan Mengeluarkan Program Ini", vbCritical, "Heicle Dss Ms"

Case DISP_CHANGE_BADMODE

MsgBox "Mode grafik tidak mendukung!", vbCritical, "Heicle Dss Ms"

Case DISP_CHANGE_NOTUPDATED

MsgBox "Tidak dapat menulis setting ke dalam registry", vbCritical, "Heicle Dss MS"

Case DISP_CHANGE_BADFLAGS

MsgBox "Anda memasukkan data yang tidak valid!", vbCritical, "Heicle Heicle Dss Ms"

End Select

End Sub

 

Private Sub Form_Activate()

(Pengaturan letak dan ukuran gambar utama)

Image1.top = Me.top ( posisi atas gambar=posisi atas form)

Image1.left = 3000 + Me.left ( posisi kiri gambar=posisi kiri form + 3000 point ke kanan)

Image1.Width = Me.Width ( panjang gambar=panjang form)

Image1.Height = Me.Height ( lebar gambar=lebar form)

 

(Pengaturan letak dan ukuran tombol close)

Img_Close.left = Me.left + Me.Width – 500 ( posisi kiri gambar=posisi kiri form - 3000 point ke kiri)

Img_Close.top = Me.top + 100 ( posisi atas gambar=posisi atas form + 100 point ke bawah)

 

Timer1.Enabled = False ß mematikan fungsi timmer1

 

    (Pengaturan letak dan ukuran label nama toko)

Label1.left = (Me.left + Me.Width) – 15500 ( posisi kiri gambar = (posisi kiri gambar + posisi kiri form )-15500 )

Label1.top = (Me.top + 100) ( posisi atas gambar di sebelah atas )

(Semua nilai ukuran di atas dapat dirubah sesuai dengan kebutuhan masing-masing programer)

 

 

End Sub

 

Private Sub Form_Load()

 

ChangeScreenSettings 1280, 800, 32 – Bit ( prosedur untuk mengganti resolusi)

(Pengaturan panel-panel pada status bar)

StatusBar1.Panels(2).Text = "Aplikasi Mechanic Shop © 2011"

StatusBar1.Panels(2).ToolTipText = "Program"

StatusBar1.Panels(2).MinWidth = 3000

 

StatusBar1.Panels(3).Text = "NIL Company"

StatusBar1.Panels(3).ToolTipText = "Developer"

 

StatusBar1.Panels(1).Style = sbrCaps

StatusBar1.Panels(4).MinWidth = 10000

StatusBar1.Panels(4).Enabled = False

StatusBar1.Panels(5).Style = sbrDate

(Pengaturan letak tombol-tombol untuk menu utama)

With Tombol(0)

.Caption = "&Data Barang"

.left = 60

.Width = 2800

.top = 150

.Height = 550

End With

 

With Tombol(1)

.Caption = "&Data &Service"

.left = 60

.top = 150 + 650

.Width = 2800

.Height = 550

End With

 

With Tombol(2)

.Caption = "Se&rvice Barang"

.left = 60

.top = 150 + 650 * 2

.Width = 2800

.Height = 550

End With

 

With Tombol(3)

.Caption = "&Pembelian Barang"

.left = 60

.top = 150 + 650 * 3

.Width = 2800

.Height = 550

End With

 

With Tombol(4)

.Caption = "&Laporan"

.left = 60

.top = 150 + 650 * 4

.Width = 2800

.Height = 550

End With

 

End Sub

 

 

Private Sub Img_Close_Click()

Me.WindowState = 0

Me.Width = Panjang

Me.Height = Lebar

Timer1.Enabled = True

End Sub

 

Private Sub Timer1_Timer()

( Coding untuk mengecilkan form saat unload)

While Me.Height > 0 And Me.Width > 0

Me.left = Me.left + 30

Me.Width = Me.Width - 60

Me.top = Me.top + 30

Me.Height = Me.Height - 60

 

Wend

If Me.Height = 0 And Me.Width = 7200 Then Unload Me

End Sub

 

 

 

Private Sub Timer3_Timer()

( Coding untuk menampilkan waktu pada panel status bar sesuai dengan aslinya )

StatusBar1.Panels(6).Text = DateTime.Time

StatusBar1.Panels(6).MinWidth = 2000

StatusBar1.Panels(6).Alignment = sbrRight

End Sub

 

Private Sub Tombol_Click(Index As Integer)

(Pengaturan menu utama saat ditekan)

Select Case Index

Case 0: FrmDataBarang.Show , Frm_Utama

End Select

End Sub

 

 

Private Sub CloseAllForms()

(coding untuk menutup semua form yang aktif secara bersamaan)

Dim frm As Form

'First we want to loop through all the

'Forms and close them (We close the current Form last)

For Each frm In Forms

'Make sure we arent looking at the current Form

If frm.hwnd <> Me.hwnd Then

'Unload this Form

Unload frm

Set frm = Nothing

End If

'Now get the next Form

Next frm

 

'Now unload the current Form

Unload Me

End Sub

Untuk mempermudah pengerjaannya silahkan download link dibawah ini  
Frm_Utama.frm
Frm_Utama.frx