Project UAS Applikasi Penjualan Barang Bag.1

Posted: December 31, 2009 in Pemrograman Visual II
Tags: , , , , ,

Semester V ini pada mata kuliah Pemrograman Visual II, UAS nya akan dilaksanakan dengan metode Project yang tiap minggu selalu di update, update itu penambahan dan pengurang program sesuai dengan kebutuhan sehingga pada hari H nya, yaitu hari UAS maka project tersebut akan di uji coba dengan penambahan fitur lain, fitur lain inilah yang akan menjadi “Project” pribadi / diri sendiri yang nantinya semua project yang telah di buat selama sebelum UAS dan pada waktu UAS akan dikumpulkan sebagai nilai dari UAS. Kelas M071 mendapat applikasi penjualan barang, sesuai dengan permintaan dosen yang bersangkutan, kami sebagai mahasiswa menerimanya dengan lapang dada, alasannya karena kelas lain juga mendapatkan project yang sama yaitu applikasi penjualan mungkin fitur dan codingnya yang berbeda. kita cukupkan basa  -basi kita diatas langsung saja kepokok masalahnya.

Visual Studio 2008

Visual Studio 2008

SQL server 2000

SQL server 2000

Sebagai informasi saja, project ini dibuat menggunakan Microsoft Visual Studio [MVS] 2008 dengan Databasenya menggunakan My SQL 2000 Server.  Untuk memulai membuatnya seperti biasa, buka MVS 2008 anda, lalu buat project baru dan simpan dengan nama POS / Terserah anda, usahakan menyimpannya pada direktori selain dari direktori system windows, misalnya D:/.

Pembuatan Database

Pada langkah ini akan dijelaskan pembuatan database yang kita perlukan untuk applikasi penjualan yang akan kita buat, dan hanya akan dilakukan pada Bag.1 saja, sisanya hanya update database  tanpa harus membuatnya dari awal, hanya saja mungkin akan ada penambahan – penambahan tabel2x yang akan diperlukan. Pembuatan database pada sql 2000 server kali ini akan menggunakan Enterprise Manager :

Enterprise Manager

Enterprise Manager

Setelah enterprise manager nya terbuka, silahkan anda membuat Database baru caranya, klik kanan pada folder database lalu pilih new database :

New Database

New Database

Setelah anda melakukan langkah diatas, akan muncul sebuah dialog box yang dimana anda harus mengisikan nama dari database anda :

New Database

New Database

Setelah anda mengisikan nama database nya, silahkan anda klik pada tab “Data Files”, disana anda akan menentukan lokasi penyimpanan database anda :

New Database

New Database

Pilih Lokasi dimana anda akan menyimpan file database, untuk memudahkannya lebih baik anda simpan pada direktori dimana applikasi MVS 2008 anda berada, buat sebuah direktori baru di dalam direktori project anda dengan nama “database” atau “db”:

New Database

New Database

Setelah ini, pindah ke tab “Transaction Log”, simpatn log database anda sama dengan dimana anda menyimpan database anda.

Tahapan berikutnya adalah membuat tabel tambahan sebagai fundamen anda untuk melakukan login administrator, langkahnya adalah sebagai berikut :

1. Masuk kedalam Database yang baru saja anda buat “POS” cari Tabel, pada area kanan, klik kanan lalu pilih New Table:

New Database

New Database

New Database

New Database

Setelah anda melakukan langkah diatas, isikan column name, Data type, Length dan Allow nulls seperti gambar dibawah ini :

New Database

New Database

Jangan lupa isikan “Default Value” dengan = tanda petik spasi tanda petik (‘ ‘) tanpa tanda kurung, berikan primary key pada user_id dan hilangkan semua centang pada allow not nulls. Klik tombol “save” dan berinama tabel yang baru saja anda buat dengan “t_user”.

Langkah selanjutnya adalah mengisi tabel user diatas dengan user id, nama dan password hal ini akan digunakan untuk proses login pada applikasi yang akan kita buat nantinya, langkahnya klik kanan pada t-user yang telah kita buat pilih Open Table, Klik Return All rows :

New Database

New Database

Masukan user id = admin, user_nm = Administator, password = 123456, anda boleh bebas menentukan user id, nama dan password anda sesuai dengan selera.

New Database

New Database

Pembuatan Applikasi

Setelah Pembuatan database selesai, selanjutnya kita akan membuat sebuah design applikasinya, untuk bag.1 ini hanya akan mendesign form login dan form utama. Pertama tambahakan 2 form dengan nama “form_Login” dan “form_Utama”, Design Form Loginya sebagai berikut :

Form Login

Tambahkan kedalam Form Login : 2 Buah Group Container, 2 Buah Label, 2 Buah Textbox, 2 Buah Button.

ubah property name dari 2 buah textbox  tersebut menjadi : txtUser, txtPass

ubah property name dari 2 buah button tersebut menjadi : btnLogin, btnExit

Login

Login

Codingnya :

Imports System.Data
Imports System.Data.SqlClient
Public Class Form_login

Sub Login(ByVal user As String, ByVal pass As String)
Dim sSql As String
sSql = “select * from t_user where user_id = ‘” & user & “‘” & ” and password ='” & pass & “‘”
Dim Comm As New SqlCommand(sSql, Koneksi)
Try
Koneksi.Open()
Dim MyReader As SqlDataReader = Comm.ExecuteReader
If MyReader.HasRows Then
MyReader.Read()
p_userid = MyReader.Item(“user_id”)
p_nama = MyReader.Item(“nm_user”)
MyReader.Close()
Else
MsgBox(“User atau Password Masih Salah !”, MsgBoxStyle.Exclamation, “Perhatian!”)
Exit Sub
End If
Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
Finally
Koneksi.Close()
End Try
Me.Hide()
Form_Utama.Show()
End Sub

Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
If txtUser.Text = “” Or txtpass.Text = “” Then
MsgBox(“User Atau Password Belum Lengkap!”, MsgBoxStyle.Exclamation, “Perhatian!”)
Else
Call Login(txtUser.Text, txtpass.Text)
End If
End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
End Class

Form Utama

Langkah selanjutnya adalah membuat Form Utama, Tambahkan sebuah Menu strip lalu Masukan Data sebagai berikut :

File [Log Off, Exit]

Master [Master User, Master Kategori, Master Barang]

Form Utama

Form Utama

Codingnya :

Public Class Form_Utama

Private Sub Form_Utama_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
With Form_login
.txtpass.Clear()
.Show()
End With
End Sub

Private Sub LogOffToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogOffToolStripMenuItem.Click
Me.Dispose()
End Sub

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
Form_login.Dispose()
End Sub

Private Sub MasterUserToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MasterUserToolStripMenuItem.Click
Form_User.Show()
End Sub

Private Sub MasterKategoriToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MasterKategoriToolStripMenuItem.Click
Form_Kategori.Show()
End Sub

Private Sub Form_Utama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

Pembuatan Module

Langkah selanjutnya adalah membuat sebuah module, tambah kan modul kedalam applikasi yang anda buat, lalu masukan coding nya :

Imports System.Data
Imports System.Data.SqlClient
Module Module1
Dim strKoneksi As String = “Data Source = localhost;” & ” Initial Catalog= POS;Integrated Security = True”
Public Koneksi As New SqlConnection(strKoneksi)

Public p_userid As String
Public p_nama As String

Sub SetMdi(ByVal frm As Form)
frm.MdiParent = Form_Utama
frm.FormBorderStyle = FormBorderStyle.FixedDialog
End Sub
End Module

Males Buat ??? Silahkan Download Disini

Selamat Mencoba dan Semoga Bermanfaat

Bersambung..

Wassalam

Comments are closed.