Project UAS Applikasi Penjualan Bag.2

Posted: January 9, 2010 in Pemrograman Visual II
Tags: , ,

Pada project sebelumnya tentang applikasi penjualan bag. 1 sudah di posting beberapa minggu lalu, sekarang ini adalah updater dari applikasi penjualan tersebut, ada beberapa penambahan tabel, dan form. pertama anda harus menambahkan tabel bernama t_kategori didalam database POS anda, lihat gambar:

Tabel Kategori

Tabel Kategori

Yang perlu diganti adalah identity diubam menjadi “Yes” Setelah anda membuat tabel diatas, langkah selanjutnya adalah membuat sebuah form baru bernama formUser.vb, tambahkan 4 buah command button, 3 buah label, 3 buah textbox, 2 buah grop, lalu ubah properti name menjadi :

textbox1 = txtUserId

textbox2 = txtNama

textbox3 = txtPassword

button1 = btnSimpan

button2 = btnHapus

button3 = btnBatal

button4 = btnKeluar

Designlah form user tersebut menjadi seperti ini :

Master User

Master User

Lalu masukkan koding dibawah ini :

Imports System.Data
Imports System.Data.SqlClient
Public Class Form_User
Sub LoadData(ByVal lv As ListView)
With lv
.Items.Clear()
.Columns.Clear()
.Columns.Add(“User ID”, 120, HorizontalAlignment.Left)
.Columns.Add(“Nama”, 200, HorizontalAlignment.Left)
.Columns.Add(“”, 0, HorizontalAlignment.Left)
.GridLines = True
.FullRowSelect = True
.Activation = ItemActivation.TwoClick
.View = View.Details
.MultiSelect = False
End With
Dim sSql As String
sSql = “Select * From t_user”
Dim comm As New SqlCommand(sSql, Koneksi)
Try
Koneksi.Open()
Dim MyReader As SqlDataReader = comm.ExecuteReader
If MyReader.HasRows Then
Do While MyReader.Read
Dim new_item As New ListViewItem(MyReader.Item(“user_id”).ToString)
new_item.SubItems.Add(MyReader.Item(“nm_user”))
new_item.SubItems.Add(MyReader.Item(“password”))
LVUser.Items.Add(new_item)
Loop
End If
MyReader.Close()
Catch ex As Exception
MsgBox(ex.Message)
Finally
Koneksi.Close()
End Try
End Sub
Sub ClearAll()
txtUserId.Clear()
txtNama.Clear()
txtPassword.Clear()
txtUserId.Focus()
End Sub
Private Sub Form_User_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call SetMdi(Me)
Call LoadData(LVUser)
Call ClearAll()
End Sub
Private Sub LVUser_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LVUser.MouseClick
Try
txtUserId.Text = Trim(LVUser.SelectedItems(0).SubItems(0).Text)
txtNama.Text = Trim(LVUser.SelectedItems(0).SubItems(1).Text)
txtPassword.Text = Trim(LVUser.SelectedItems(0).SubItems(2).Text)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, “Error!”)
End Try
End Sub
End Class
—————————————————————–
Males Ngetik ? Download aja disini
Comments
  1. arik lelaki_hebat says:

    cacad,,,sintaknya dibenerin apa,,,
    biar yang liat ngerti,,,

  2. Hendra Wijaya says:

    Arik..

    Sulit benerin tempat sintaknya.. kalo bingung download aja deh.. thanks

  3. Saty@ says:

    hooii.. kasi tow dg apl. penjualan yg lebih lengkap darii database,, desain program mpek kodenyaa ..
    biar bner jdee programnyaa Hhe😛 ..•*˚*•


    Hendra :
    wah, ilmu saya belum segitu satya.. yang ada aja deh dulu ya.. ok