Ini adalah tutorial ketiga atau saya sebut Part 3 dalam membuat Aplikasi Penjualan Menggunakan Visual Basic .NET Database MySQL. di Part 3 ini kita akan mebuat tabel pelanggan yang mempunyai fungsi sebagai data yang akan membeli produk barang yang akan kita jual. selain membuat tabel kita juga akan membuat form master pelanggan beserta kodingnya:
Jika anda baru join di tutorial kali ini, pastikan anda telah mengikuti tutorial sebelumnya
Mari kita lanjutkan kembali. Buatlah tabel dengan nama : tbl_pelanggan
design tabel pelanggan adalah sebagai berikut :
Jika sudah, mari kita lanjut ke Project aplikasi penjualannya..
silahkan klik Project –> Add Form
Buatlah form dengan nama : FormMasterPelanggan
Buatlah design Form Pelanggan seperti gambar diatas
kemudian masukan koding dibawah ini :
Imports System.Data.Odbc
Public Class FormMasterPelanggan
Sub KondisiAwal()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
TextBox4.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_pelanggan", Conn)
Ds = New DataSet
Da.Fill(Ds, "tbl_Pelanggan")
DataGridView1.DataSource = Ds.Tables("tbl_pelanggan")
DataGridView1.ReadOnly = True
End Sub
Sub SiapIsi()
TextBox1.Enabled = True
TextBox2.Enabled = True
TextBox3.Enabled = True
TextBox4.Enabled = True
End Sub
Private Sub FormMasterPelanggan_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_pelanggan values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.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_pelanggan where kodepelanggan='" & TextBox1.Text & "'", Conn)
Rd = Cmd.ExecuteReader
Rd.Read()
If Not Rd.HasRows Then
MsgBox("Kode Pelanggan tidak Ada")
Else
TextBox1.Text = Rd.Item("KodePelanggan")
TextBox2.Text = Rd.Item("NamaPelanggan")
TextBox3.Text = Rd.Item("AlamatPelanggan")
TextBox4.Text = Rd.Item("telppelanggan")
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_pelanggan where kodepelanggan='" & TextBox1.Text & "'"
Cmd = New OdbcCommand(HapusData, Conn)
Cmd.ExecuteNonQuery()
MsgBox("Hapus Data Berhasil")
Call KondisiAwal()
End If
End If
End Sub
End Class
Demikian Tutorial Membuat Aplikasi Penjualan VB .NET Database MySQL – #Part 3, ikuti terus tutorial selanjutnya
Cialis Generico Compra Segura
You have kept away from conversation
Cialis 5 mg prezzo prezzo cialis 5 mg originale in farmacia cialis 5 mg prezzo
Aviator Spribe играть на деньги казино
Instead of criticising write the variants is better.
Ваша удача ждет вас в игре Aviator Spribe казино играть с друзьями!
Авиатор Спрайб играть бесплатно
In no event
Добро пожаловать в захватывающий мир авиаторов! Aviator – это увлекательная игра, которая позволит вам окунуться в атмосферу боевых действий на небе. Необычные графика и захватывающий сюжет сделают ваше путешествие по воздуху неповторимым.
Захватывайте крупные выигрыши с автоматом Aviator Spribe играть бесплатно уже сегодня!
Aviator игра позволит вам почувствовать себя настоящим пилотом. Вам предстоит совершить невероятные маневры, выполнять сложные задания и сражаться с противниками. Улучшайте свой самолет, чтобы быть готовым к любым ситуациям и становиться настоящим мастером.
Основные особенности Aviator краш игры:
1. Реалистичная графика и физика – благодаря передовой графике и реалистичной физике вы почувствуете себя настоящим пилотом.
2. Разнообразные режимы игры и миссии – в Aviator краш игре вы сможете выбрать различные режимы игры, такие как гонки, симулятор полетов и захватывающие воздушные бои. Кроме того, каждая миссия будет предлагать свои собственные вызовы и задачи.
3. Улучшение и модернизация самолетов – в игре доступны различные модели самолетов, которые можно покупать и улучшать. Вы сможете устанавливать новое оборудование, улучшать двигательность и мощность своего самолета, а также выбирать различные варианты окраски и декорации.
Aviator краш игра – это возможность испытать себя в роли авиатора и преодолеть все сложности и опасности воздушного пространства. Почувствуйте настоящую свободу и адреналин в Aviator краш игре онлайн!
Играйте в «Авиатор» в онлайн-казино Pin-Up
Aviator краш игра онлайн предлагает увлекательную и захватывающую игровую атмосферу, где вы становитесь настоящим авиатором и сражаетесь с самыми опасными искусственными интеллектами.
В этой игре вы должны показать свое мастерство и смекалку, чтобы преодолеть сложности многочисленных локаций и уровней. Вам предстоит собирать бонусы, уклоняться от препятствий и сражаться с врагами, используя свои навыки пилотирования и стрельбы.
Каждый уровень игры Aviator краш имеет свою уникальную атмосферу и задачи. Будьте готовы к неожиданностям, так как вас ждут захватывающие повороты сюжета и сложные испытания. Найдите все пути к победе и станьте настоящим героем авиатором!
Авиатор игра является прекрасным способом провести время и испытать настоящий адреналиновый разряд. Готовы ли вы стать лучшим авиатором? Не упустите свой шанс и начните играть в Aviator краш прямо сейчас!
Aviator – играй, сражайся, побеждай!
Aviator Pin Up (Авиатор Пин Ап ) – игра на деньги онлайн Казахстан
Aviator игра предлагает увлекательное и захватывающее разнообразие врагов и уровней, которые не оставят равнодушными даже самых требовательных геймеров.
Враги в Aviator краш игре онлайн представлены в самых разных формах и размерах. Здесь вы встретите группы из маленьких и быстрых врагов, а также огромных боссов с мощным вооружением. Разнообразие врагов позволяет игрокам использовать разные тактики и стратегии для победы.
Кроме того, Aviator игра предлагает разнообразие уровней сложности. Выберите легкий уровень, чтобы насладиться игровым процессом, или вызовите себе настоящий вызов, выбрав экспертный уровень. Независимо от выбранного уровня сложности, вы получите максимум удовольствия от игры и окунетесь в захватывающий мир авиаторов.
Играйте в Aviator и наслаждайтесь разнообразием врагов и уровней, которые позволят вам почувствовать себя настоящим авиатором.
Please let me know if you’re looking for a writer for your blog. You have some really great articles and I believe I would be a good asset. If you ever want to take some of the load off, I’d love to write some articles for your blog in exchange for a link back to mine. Please send me an email if interested. Thank you!
btc