Ini adalah tutorial keempat atau saya sebut Part 4 dalam membuat Aplikasi Penjualan Menggunakan Visual Basic .NET Database MySQL. di Part 4 ini kita akan membuat Tabel Barang yang mempunyai fungsi sebagai data barang yang akan dijual kepada pelanggan. Selain membuat Tabel barang kita juga akan membuat form Barang beserta kodingnya
Mari kita lanjut :
Silahkan buat tabel dengan nama : tbl_barang
Design tabel barang adalah sebagai berikut
Jika sudah membuat tbl_barang
mari kita lanjut ke project aplikasi penjualan yang telah kita buat
Klik Project –> Add Windows Form
Buatlah Form dengan nama : FormMasterBarang.vb
design form seperti gambar paling atas
kemudian masukan koding dibawah ini :
Imports System.Data.Odbc
Public Class FormMasterBarang
Sub KondisiAwal()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ComboBox1.Text = ""
TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
TextBox4.Enabled = False
ComboBox1.Enabled = False
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button1.Text = "Input"
Button2.Text = "Edit"
Button3.Text = "Hapus"
Button4.Text = "Tutup"
Call Koneksi()
Da = New OdbcDataAdapter("Select * From tbl_barang", Conn)
Ds = New DataSet
Da.Fill(Ds, "tbl_barang")
DataGridView1.DataSource = Ds.Tables("tbl_barang")
DataGridView1.ReadOnly = True
End Sub
Sub SiapIsi()
TextBox1.Enabled = True
TextBox2.Enabled = True
TextBox3.Enabled = True
TextBox4.Enabled = True
ComboBox1.Enabled = True
End Sub
Private Sub FormMasterBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call KondisiAwal()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Input" Then
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
Call SiapIsi()
Else
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or Textbox4.Text = "" Then
MsgBox("Silahkan isi semua Field")
Else
Call Koneksi()
Dim InputData As String = "insert into tbl_barang values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & ComboBox1.Text & "')"
Cmd = New OdbcCommand(InputData, Conn)
Cmd.ExecuteNonQuery()
MsgBox("Input Data Berhasil")
Call KondisiAwal()
End If
End If
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
Call Koneksi()
Cmd = New OdbcCommand("Select * From tbl_barang where kodebarang='" & TextBox1.Text & "'", Conn)
Rd = Cmd.ExecuteReader
Rd.Read()
If Not Rd.HasRows Then
MsgBox("Kode barang tidak Ada")
Else
TextBox1.Text = Rd.Item("Kodebarang")
TextBox2.Text = Rd.Item("Namabarang")
TextBox3.Text = Rd.Item("hargabarang")
TextBox4.Text = Rd.Item("jumlahbarang")
ComboBox1.Text = Rd.Item("satuanbarang")
End If
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "Tutup" Then
Me.Close()
Else
Call KondisiAwal()
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button3.Text = "Hapus" Then
Button3.Text = "Delete"
Button1.Enabled = False
Button2.Enabled = False
Button4.Text = "Batal"
Call SiapIsi()
Else
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or Textbox4.Text = "" Then
MsgBox("Silahkan isi semua Field")
Else
Call Koneksi()
Dim HapusData As String = "Delete from tbl_barang where kodebarang='" & TextBox1.Text & "'"
Cmd = New OdbcCommand(HapusData, Conn)
Cmd.ExecuteNonQuery()
MsgBox("Hapus Data Berhasil")
Call KondisiAwal()
End If
End If
End Sub
Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
End Sub
Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
End Sub
End Class
Link Video Tutorial diatas, bisa anda lihat di Link dibawah :
Demikian Cara Membuat Aplikasi Penjualan VB .NET Database MySQL – #Part 4, semoga bermnfaat dan ikuti terus tutorial selanjutnya.
Para Que Sirve La Cialis 5 Mg
Where I can find it?
Cialis 5 mg prezzo cialis 5 mg prezzo cialis 5 mg prezzo
Aviator Spribe казино играть на телефоне
It is remarkable, very valuable information
Играйте в Aviator Spribe казино играть по стратегии и получайте удовольствие от игры уже сейчас!
Aviator Spribe играть на Mac
You are not right. I am assured. I can defend the position.
Добро пожаловать в захватывающий мир авиаторов! Aviator – это увлекательная игра, которая позволит вам окунуться в атмосферу боевых действий на небе. Необычные графика и захватывающий сюжет сделают ваше путешествие по воздуху неповторимым.
Играйте в Aviator Spribe играть на турнире и погрузитесь в мир азарта вместе с нами!
Aviator игра позволит вам почувствовать себя настоящим пилотом. Вам предстоит совершить невероятные маневры, выполнять сложные задания и сражаться с противниками. Улучшайте свой самолет, чтобы быть готовым к любым ситуациям и становиться настоящим мастером.
Основные особенности Aviator краш игры:
1. Реалистичная графика и физика – благодаря передовой графике и реалистичной физике вы почувствуете себя настоящим пилотом.
2. Разнообразные режимы игры и миссии – в Aviator краш игре вы сможете выбрать различные режимы игры, такие как гонки, симулятор полетов и захватывающие воздушные бои. Кроме того, каждая миссия будет предлагать свои собственные вызовы и задачи.
3. Улучшение и модернизация самолетов – в игре доступны различные модели самолетов, которые можно покупать и улучшать. Вы сможете устанавливать новое оборудование, улучшать двигательность и мощность своего самолета, а также выбирать различные варианты окраски и декорации.
Aviator краш игра – это возможность испытать себя в роли авиатора и преодолеть все сложности и опасности воздушного пространства. Почувствуйте настоящую свободу и адреналин в Aviator краш игре онлайн!
Играйте в «Авиатор» в онлайн-казино Pin-Up
Aviator краш игра онлайн предлагает увлекательную и захватывающую игровую атмосферу, где вы становитесь настоящим авиатором и сражаетесь с самыми опасными искусственными интеллектами.
В этой игре вы должны показать свое мастерство и смекалку, чтобы преодолеть сложности многочисленных локаций и уровней. Вам предстоит собирать бонусы, уклоняться от препятствий и сражаться с врагами, используя свои навыки пилотирования и стрельбы.
Каждый уровень игры Aviator краш имеет свою уникальную атмосферу и задачи. Будьте готовы к неожиданностям, так как вас ждут захватывающие повороты сюжета и сложные испытания. Найдите все пути к победе и станьте настоящим героем авиатором!
Авиатор игра является прекрасным способом провести время и испытать настоящий адреналиновый разряд. Готовы ли вы стать лучшим авиатором? Не упустите свой шанс и начните играть в Aviator краш прямо сейчас!
Aviator – играй, сражайся, побеждай!
Aviator Pin Up (Авиатор Пин Ап ) – игра на деньги онлайн Казахстан
Aviator игра предлагает увлекательное и захватывающее разнообразие врагов и уровней, которые не оставят равнодушными даже самых требовательных геймеров.
Враги в Aviator краш игре онлайн представлены в самых разных формах и размерах. Здесь вы встретите группы из маленьких и быстрых врагов, а также огромных боссов с мощным вооружением. Разнообразие врагов позволяет игрокам использовать разные тактики и стратегии для победы.
Кроме того, Aviator игра предлагает разнообразие уровней сложности. Выберите легкий уровень, чтобы насладиться игровым процессом, или вызовите себе настоящий вызов, выбрав экспертный уровень. Независимо от выбранного уровня сложности, вы получите максимум удовольствия от игры и окунетесь в захватывающий мир авиаторов.
Играйте в Aviator и наслаждайтесь разнообразием врагов и уровней, которые позволят вам почувствовать себя настоящим авиатором.
zeolite heavy equipment llc is a company specializing in the supply and servicing of high-quality industrial equipment. We offer a wide range of equipment for various industries, including construction, mining, agriculture, and more. Our goal is to provide our customers with reliable and efficient solutions for their businesses.
ZAHRY MACHINERY EQUIPMENT LLC Zeolite Heavy Equipment LLC Zeolite Heavy Equipment LLC zahry machinery equipment llc Zahry Machinery Equipment ZAHRY MACHINERY EQUIPMENT LLC zeolite heavy equipment llc zeolite heavy equipment llc 80e6976