Cara membuat penjualan Obat

Form OBat.

Ada sebuah pemesan buat stock obat, penjualan, dan pembelian pada penyedia obat-obatan di medan, sebenarna saya belum siap, tapi karna penasaran di coba deh buat program walau pun harganya standart tapi untuk pengerjaan ini mencapai 1 bulan, karna belum pernah membuat progrram sebelumnya dan berhasil jadi programnya.


Imports MySql.Data.MySqlClient
Public Class fsublier

Private Sub fsublier_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
bukadb()
bersih()
tabel()
End Sub

Sub aktiv(ByVal a As Boolean, ByVal b As Boolean, ByVal c As Boolean, ByVal d As Boolean, ByVal e As Boolean, ByVal f As Boolean, ByVal g As Boolean, ByVal h As Boolean, ByVal i As Boolean, ByVal j As Boolean, ByVal k As Boolean, ByVal l As Boolean, ByVal m As Boolean, ByVal n As Boolean, ByVal o As Boolean, ByVal p As Boolean, ByVal r As Boolean)
txtNama.Enabled = a
txtAlamat.Enabled = b
txtEmail.Enabled = c
txtNmRek.Enabled = d
txtNoHp.Enabled = e
txtNoRek.Enabled = f
cmbStatusKerja.Enabled = g
txtTLahir.Enabled = h
txtWebsite.Enabled = i
cmbAgama.Enabled = j
cmbBank.Enabled = k
cmbGolDarah.Enabled = l
cmbkawin.Enabled = m
cmbKelamin.Enabled = n
dTglLahir.Enabled = o
dTglMasuk.Enabled = p
txtKet.Enabled = r
End Sub

Sub tombol(ByVal a As Boolean, ByVal b As Boolean, ByVal c As Boolean)
Button1.Enabled = a
Button2.Enabled = b
Button3.Enabled = c
End Sub

Sub bersih()
txtNama.Text = ""
txtAlamat.Text = ""
txtEmail.Text = ""
txtNmRek.Text = ""
txtNoHp.Text = ""
txtNoRek.Text = ""
cmbStatusKerja.Text = ""
txtTLahir.Text = ""
txtWebsite.Text = ""
cmbAgama.Text = ""
cmbBank.Text = ""
cmbGolDarah.Text = ""
cmbkawin.Text = ""
cmbKelamin.Text = ""
dTglLahir.Text = ""
dTglMasuk.Text = ""
txtKet.Text = ""
tombol(True, False, True)
aktiv(False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False)
Button1.Text = "Tambah"
Button3.Text = "Keluar"
End Sub

Sub tabel()
lv.Columns.Add("Id", 50, HorizontalAlignment.Left)
lv.Columns.Add("Nama", 150, HorizontalAlignment.Left)
lv.Columns.Add("Tempat Lahir", 150, HorizontalAlignment.Left)
lv.Columns.Add("Tanggal Lahir", 150, HorizontalAlignment.Left)
lv.Columns.Add("Jenis Kelamin", 150, HorizontalAlignment.Left)
lv.Columns.Add("Gol Darah", 150, HorizontalAlignment.Left)
lv.Columns.Add("Alamat", 150, HorizontalAlignment.Left)
lv.Columns.Add("Agama", 150, HorizontalAlignment.Left)
lv.Columns.Add("Status Kawin", 150, HorizontalAlignment.Left)
lv.Columns.Add("Bank", 150, HorizontalAlignment.Left)
lv.Columns.Add("Nama DI Rek", 150, HorizontalAlignment.Left)
lv.Columns.Add("No Rek", 150, HorizontalAlignment.Left)
lv.Columns.Add("No Hp", 150, HorizontalAlignment.Left)
lv.Columns.Add("Email", 150, HorizontalAlignment.Left)
lv.Columns.Add("Website", 150, HorizontalAlignment.Left)
lv.Columns.Add("Tanggal Masuk", 150, HorizontalAlignment.Left)
lv.Columns.Add("Status Kerja", 150, HorizontalAlignment.Left)
lv.Columns.Add("Keterangan", 150, HorizontalAlignment.Left)
lv.GridLines = True
lv.FullRowSelect = True
lv.View = View.Details
isi()
isicari()
End Sub
Sub isi()
lv.Items.Clear()
sql = "select *from suplier"
mcd = New MySqlCommand(sql, mc)
mdr = mcd.ExecuteReader
While mdr.Read
Dim a As New ListViewItem
a.Text = mdr("id")
a.SubItems.Add(mdr("nama"))
a.SubItems.Add(mdr("tmptlahir"))
a.SubItems.Add(mdr("tgllahir"))
a.SubItems.Add(mdr("kelamin"))
a.SubItems.Add(mdr("goldarah"))
a.SubItems.Add(mdr("alamat"))
a.SubItems.Add(mdr("agama"))
a.SubItems.Add(mdr("kawin"))
a.SubItems.Add(mdr("bank"))
a.SubItems.Add(mdr("namarek"))
a.SubItems.Add(mdr("norek"))
a.SubItems.Add(mdr("hp"))
a.SubItems.Add(mdr("email"))
a.SubItems.Add(mdr("website"))
a.SubItems.Add(mdr("tglmasuk"))
a.SubItems.Add(mdr("status"))
a.SubItems.Add(mdr("keterangan"))
lv.Items.Add(a)
End While
mdr.Close()
End Sub


Private Sub txtcari_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtCari.KeyPress
sql = "select *from suplier where " & cmbcari.Text & " like '%" & txtCari.Text & "%'"
mcd = New MySqlCommand(sql, mc)
mdr = mcd.ExecuteReader
Try
lv.Items.Clear()
While mdr.Read
Dim a As New ListViewItem
a.Text = mdr("id")
a.SubItems.Add(mdr("nama"))
a.SubItems.Add(mdr("tmptlahir"))
a.SubItems.Add(mdr("tgllahir"))
a.SubItems.Add(mdr("kelamin"))
a.SubItems.Add(mdr("goldarah"))
a.SubItems.Add(mdr("alamat"))
a.SubItems.Add(mdr("agama"))
a.SubItems.Add(mdr("kawin"))
a.SubItems.Add(mdr("bank"))
a.SubItems.Add(mdr("namarek"))
a.SubItems.Add(mdr("norek"))
a.SubItems.Add(mdr("hp"))
a.SubItems.Add(mdr("email"))
a.SubItems.Add(mdr("website"))
a.SubItems.Add(mdr("tglmasuk"))
a.SubItems.Add(mdr("status"))
a.SubItems.Add(mdr("keterangan"))
lv.Items.Add(a)
End While
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.MsgBoxHelp, "Ada Kesalahan ")
End Try
mdr.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Button1.Text = "Tambah" Then
Dim tom As String = Text = ""
aktiv(True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True)
tombol(True, False, True)
Button3.Text = "Batal"
Button1.Text = "Simpan"
txtNama.Focus()
ElseIf Button1.Text = "Simpan" Then

If txtNama.Text = "" And dTglLahir.Text = "" And cmbKelamin.Text = "" And cmbGolDarah.Text = "" And txtAlamat.Text = "" And cmbAgama.Text = "" And cmbkawin.Text = "" And cmbBank.Text = "" And txtNmRek.Text = "" And txtNoRek.Text = "" And txtNoHp.Text = "" And txtEmail.Text = "" And txtWebsite.Text = "" And dTglMasuk.Text = "" And cmbStatusKerja.Text = "" Then
MsgBox("Maaf Data tidak Boleh Kosong", MsgBoxStyle.Information, " Pesan")
Else
sql = "insert into suplier(id,nama,tmptlahir,tgllahir,kelamin,goldarah,alamat,agama,kawin,bank,namarek,norek,hp,email,website,tglmasuk,tglkeluar,status,keterangan)" & _
"values('" & lblID.Text & "','" & _
txtNama.Text & "','" & _
txtTLahir.Text & "','" & _
Format(dTglLahir.Value, "yyyy-MM-dd") & "','" & _
cmbKelamin.Text & "','" & _
cmbGolDarah.Text & "','" & _
txtAlamat.Text & "','" & _
cmbAgama.Text & "','" & _
cmbkawin.Text & "','" & _
cmbBank.Text & "','" & _
txtNmRek.Text & "','" & _
txtNoRek.Text & "','" & _
txtNoHp.Text & "','" & _
txtEmail.Text & "','" & _
txtWebsite.Text & "','" & _
Format(dTglMasuk.Value, "yyyy-MM-dd") & "','" & _
cmbStatusKerja.Text & "','" & _
txtKet.Text & "')"
mcd = New MySqlCommand(sql, mc)
mcd.ExecuteNonQuery()
MsgBox("Data Tersimpan", MsgBoxStyle.Information, "Data Tersimpan")
bersih()
isi()
End If

ElseIf Button1.Text = "Hapus" Then
sql = "delete from suplier where id='" & lblID.Text & "'"
mcd = New MySqlCommand(sql, mc)
mcd.ExecuteNonQuery()
MsgBox("Data Terhapus")
bersih()
isi()
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button3.Text = "Batal" Then
bersih()
Button3.Enabled = True
Button3.Text = "Keluar"
ElseIf Button3.Text = "Keluar" Then
Me.Close()
End If
End Sub

Private Sub lv_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.Click
lblID.Text = lv.SelectedItems(0).Text
txtNama.Text = lv.SelectedItems(0).SubItems(1).Text
txtTLahir.Text = lv.SelectedItems(0).SubItems(2).Text
dTglLahir.Text = lv.SelectedItems(0).SubItems(3).Text
cmbKelamin.Text = lv.SelectedItems(0).SubItems(4).Text
cmbGolDarah.Text = lv.SelectedItems(0).SubItems(5).Text
txtAlamat.Text = lv.SelectedItems(0).SubItems(6).Text
cmbAgama.Text = lv.SelectedItems(0).SubItems(7).Text
cmbkawin.Text = lv.SelectedItems(0).SubItems(8).Text
cmbBank.Text = lv.SelectedItems(0).SubItems(9).Text
txtNmRek.Text = lv.SelectedItems(0).SubItems(10).Text
txtNoRek.Text = lv.SelectedItems(0).SubItems(11).Text
txtNoHp.Text = lv.SelectedItems(0).SubItems(12).Text
txtEmail.Text = lv.SelectedItems(0).SubItems(13).Text
txtWebsite.Text = lv.SelectedItems(0).SubItems(14).Text
dTglMasuk.Text = lv.SelectedItems(0).SubItems(15).Text
cmbStatusKerja.Text = lv.SelectedItems(0).SubItems(16).Text
txtKet.Text = lv.SelectedItems(0).SubItems(17).Text
aktiv(True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True)
tombol(True, True, True)
Button2.Text = "Ubah"
Button1.Text = "Hapus"
Button3.Text = "Batal"
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "Ubah" Then
sql = "update suplier set nama='" & txtNama.Text & "'," & _
"tmptlahir='" & txtTLahir.Text & "'," & _
"tgllahir='" & Format(dTglLahir.Value, "yyyy-MM-dd") & "'," & _
"kelamin='" & cmbKelamin.Text & "'," & _
"goldarah='" & cmbGolDarah.Text & "'," & _
"alamat='" & txtAlamat.Text & "'," & _
"agama='" & cmbAgama.Text & "'," & _
"kawin='" & cmbkawin.Text & "'," & _
"bank='" & cmbBank.Text & "'," & _
"namarek='" & txtNmRek.Text & "'," & _
"norek='" & txtNoRek.Text & "'," & _
"hp='" & txtNoHp.Text & "'," & _
"email='" & txtEmail.Text & "'," & _
"website='" & txtWebsite.Text & "'," & _
"tglmasuk='" & Format(dTglMasuk.Value, "yyyy-MM-dd") & "'," & _
"status='" & cmbStatusKerja.Text & "'," & _
"keterangan='" & txtKet.Text & "'" & _
"where id='" & lblID.Text & "'"
mcd = New MySqlCommand(sql, mc)
mcd.ExecuteNonQuery()
bersih()
MsgBox(" Data Ter Ubah")
bersih()
Button1.Focus()
isi()
End If
End Sub

Private Sub fsatuan_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If Button1.Text = "Simpan" Then
MsgBox("Anda harus membatalkan Proses Penambahan terlebih dahulu")
e.Cancel = True
End If
End Sub

Private Sub tcari_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtCari.KeyPress
sql = "select *from suplier where " & cmbcari.Text & " like '%" & txtCari.Text & "%'"
mcd = New MySqlCommand(sql, mc)
mdr = mcd.ExecuteReader
Try
lv.Items.Clear()
While mdr.Read
Dim a As New ListViewItem
a.SubItems.Add(mdr("nama"))
a.SubItems.Add(mdr("tmptlahir"))
a.SubItems.Add(mdr("tgllahir"))
a.SubItems.Add(mdr("kelamin"))
a.SubItems.Add(mdr("goldarah"))
a.SubItems.Add(mdr("alamat"))
a.SubItems.Add(mdr("agama"))
a.SubItems.Add(mdr("kawin"))
a.SubItems.Add(mdr("bank"))
a.SubItems.Add(mdr("namarek"))
a.SubItems.Add(mdr("norek"))
a.SubItems.Add(mdr("hp"))
a.SubItems.Add(mdr("email"))
a.SubItems.Add(mdr("website"))
a.SubItems.Add(mdr("tglmasuk"))
a.SubItems.Add(mdr("status"))
a.SubItems.Add(mdr("keterangan"))
lv.Items.Add(a)
End While
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.MsgBoxHelp, "Ada Kesalahan ")
End Try
mdr.Close()
End Sub

Sub isicari()
btncari(False, False)
cmbcari.Items.Clear()
sql = "show fields from suplier"
mcd = New MySqlCommand(sql, mc)
mdr = mcd.ExecuteReader
Try
While mdr.Read
cmbcari.Items.Add(mdr("Field"))
End While
Catch ex As Exception
MsgBox(ex.Message)
End Try
mdr.Close()
End Sub
Sub btncari(ByRef a As Boolean, ByVal b As Boolean)
cmbcari.Enabled = a
txtCari.Enabled = b
End Sub
Private Sub cmbcari_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbcari.SelectedIndexChanged
If cmbcari.Text = "" Then
btncari(True, False)
Else
btncari(False, True)
label6.ForeColor = Color.Red
End If
End Sub


Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
btncari(True, False)
Button4.ForeColor = Color.Yellow
End Sub

Private Sub ComboBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmbKelamin.KeyDown

e.SuppressKeyPress = True

End Sub

Private Sub ComboBox2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmbBank.KeyDown

e.SuppressKeyPress = True

End Sub
Private Sub ComboBox3_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmbkawin.KeyDown

e.SuppressKeyPress = True

End Sub
Private Sub ComboBox4_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmbGolDarah.KeyDown

e.SuppressKeyPress = True

End Sub
Private Sub ComboBox5_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmbAgama.KeyDown

e.SuppressKeyPress = True

End Sub

Private Sub ComboBox6_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmbStatusKerja.KeyDown

e.SuppressKeyPress = True

End Sub
Private Sub ComboBox7_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmbGolDarah.KeyDown

e.SuppressKeyPress = True

End Sub


End Class

PENGERTIAN BRAINWARE

Apa itu brainware? Pengertian Brainware adalah orang yang menggunakan atau mengoperasikan sebuah perangkat komputer. Sedangkan beberapa contoh brainware adalah programer, netter, dan para pengguna komputer lainnya.

Brainware sering juga disebut sebagai perangkat intelektual yang memakai dan menjelajahi kemampuan hardware (perangkat keras) ataupun software (perangkat lunak). Pengguna komputer biasa disebut dengan user, mereka dibagi menjadi beberapa macam,

Berikut ini adalah contoh brainware:

1.      Programer: orang yang punya kemampuan dalam bahasa pemorograman, sering berperan sebagai membuat program yang diperlukan pada sistem komputerisasi.

2.      Administrator: orang yang bertugas mengelola sebuah sistem operasi dan program yang digunakan pada komputer atau jaringan komputer.

3.      Operator: orang yang menjalankan sistem operasi dan program dalam perangkat komputer, misalnya merawat sistem operasi komputer, menyiapkan data untuk diakses, dan lain-lain.

Dalam sistem komputer, brainware menjadi hal yang sangat penting dan tidak dipisahkan dari hardware dan software. Mengapa demikian? Hardware di dalam komputer tidak bisa dijalankan tanpa adanya software, sedangkan tanpa adanya brainware maka software dan hadware tidak bisa berjalan.

Jadi, ketiga komponen tersebut saling membutuhkan satu dengan yang lain.

Pengertian Brainware dan Perannya dalam Manajemen Informasi Perusahaan

Pengertian brainware dalam dunia komputerisasi dikenal sebagai seseorang yang terlibat dalam pengoperasian serta pengaturan sistem yang ada dalam perangkat komputer.

Namun, dalam dunia Bisnis dan pengembangan perusahaan, brainware adalah seseorang maupun sekelompok orang yang memiliki kemampuan intelektual untuk mengeksplorasi jaringan sistem informasi manajemen.

Secara umum, brainware dalam sistem informasi manajemen bisnis diperlukan untuk menghasilkan informasi yang berguna untuk kelangsungan organisasi atau perusahaan dalam hal kompetisi. Hal ini karena sistem informasi memainkan peranan penting dalam menghadapi persaingan bebas.

Komponen Brainware Bisnis dan Perusahaan

Brainware adalah orang yang memiliki, membangun, mengawasi dan mengendalikan sistem informasi dalam organisasi atau bisnis. Untuk mencapai tujuan dalam sebuah bisnis yang diimplementasikan dalam perusahaan, membutuhkan beberapa komponen berikut ini yang harus ada sebagai pendukung manajemen sistem informasi guna meningkatkan kemampuan untuk bersaing dengan kompetitor.

Komponen-komponen brainware yang harus ada dalam perusahaan mencakup:

1. Sistem Analis

Seseorang yang bertanggung jawab terhadap perencanaan dan penelitian di dalam memilih perangkat lunak beserta dengan kebutuhan yang sesuai dengan organisasi bisnis atau perusahaan. Seorang analis harus memiliki keahlian seperti manajerial, teknis, analisis dan interpersonal.

2. Progammer

Seseorang yang memiliki kemampuan dan keahlian dalam menguasai salah satu atau lebih bahasa pemograman dalam dunia komputerisasi. Progammer bertugas untuk membuat dan mempersiapkan program-program yang dapat mendukung sistem komputer yang akan atau telah dirancang. Progammer penting jika saja terjadi hack terhadap database perusahaan.

3. Administrator

Seseorang yang memiliki tugas dan kemampuan untuk mengelola suatu sistem operasi beserta program yang dijalankan pada sebuah komputer maupun jaringan dalam perusahaan. Ada juga yang disebut dengan database administrator yang bertanggung jawab langsung terhadap sistem database perusahaan yang tugasnya mengatur, mengelola dan menyimpan sebagai arsip perusahaan yang tidak boleh hilang.

4. Konsultan

Seorang brainware yang memiliki pengetahuan dibidang komputerisasi namun biasanya tidak berperan untuk menangani secara langsung, hanya sebagai penasehat yang handal. Bisnis atau perusahaan memerlukan komponen ini untuk mencari solusi terkait cara manajemen sistem informasi yang tepat dan meminimalisir terjadinya data yang tidak dikelola dengan baik.

5. Project Manajer

Seorang komando atau pemimpin dari suatu project tertentu. Biasanya juga disebut sebagai mandor. Dalam sebuah bisnis tentu saja ada beberapa project yang dipimpin oleh seorang project manajer. Komponen ini penting sebagai bentuk pengendalian dan pengawasan.

Braiware memiliki peranan langsung terhadap keoptimalan dalam hal manajemen informasi suatu bisnis yang sedang berkembang. Beberapa peran seorang brainware dalam bisnis antara lain:

·         Sebagai unit manajemen terhadap segala hal yang berkaitan dengan database dalam komputer. Perusahaan atau bisnis harus memiliki komponen brainware sebagai sekelompok orang yang akan mengelola manajemen informasi perusahaan.

·         Sebagai pengendali dan pengawasan terhadap jaringan komputerisasi di dalam perusahaan. Tidak adanya peran brainware dapat berakibat pada kurangnya pengawasan terhadap database perusahaan dan meningkatkan kemungkinan data diretas oleh kompetitor.

·         Seorang pemimpin perusahaan termasuk brainware, yakni sebagai otak atau CPU-nya perusahaan untuk mengendalikan kearah mana perusahaan akan dibawa. Pemimpin yang tidak memiliki kapasitas dibidangnya bisa menyebabkan perusahaan salah arah atau berjalan di tujuan yang menyimpang. Tentu ini akan berakibat buruk bagi kelangsungan perusahaan.

·         Komponen brainware terutama manajer perusahaan berpengaruh paling signifikan terhadap pelaksanaan sistem manajemen untuk menghasilkan sistem informasi yang akurat dan berguna bagi kelangsungan perusahaan.

Dalam sebuah perusahaan bisnis yang sedang berkembang, komponen brainware harus diupayakan untuk dimiliki sebagai langkah untuk menuju keteraturan sistem informasi manajemen. Sistem informasi yang baik menghasilkan informasi-informasi yang bermanfaat secara langsung terhadap perkembangan perusahaan beserta keamanannya.