 |
| Tampilan Interface Situs Seva 2021, /Seva.id |
SEVA Tempat Mobil Online merupakan situs platform digital marketplace otomotif berkualitas dan sangat terpercaya yang dikelola oleh PT Astra Digital Internasional, sebuah group dari perusahaan-perusahaan terkemuka Astra Internasional Tbk. Selain otomotif, platform ini juga menampilkan berbagai produk pembiayaan konsumen hingga asuransi dari jual dan beli mobil.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.CenterToScreen()
Me.Text = "Contoh Form Transaksi Penjualan - www.javanetmedia.com"
txtSumTotal.Text = "0.00"
SetupGridView()
Dim row As String() = New String() {1, "BRG0001", "Nama Barang 1", 1, 0.0, 0.0}
' Add First Row
dgvData.Rows.Add(row)
' Focus
dgvData.Focus()
dgvData.CurrentCell = dgvData.Rows(dgvData.RowCount - 1).Cells(3)
' / Summary Cell Index = 5
CalSumTotal()
End Sub
' / --------------------------------------------------------------------------------
Private Sub SetupGridView()
With dgvData
.RowHeadersVisible = False
.AllowUserToAddRows = False
.AllowUserToDeleteRows = False
.AllowUserToResizeRows = False
.MultiSelect = False
.ReadOnly = False
' Columns Specified
dgvData.ColumnCount = 6
dgvData.Columns(0).Name = "No"
'dgvData.Columns(0).Visible = False ' Don't show Primary Key
dgvData.Columns(1).Name = "Kode_Barang"
dgvData.Columns(2).Name = "Nama_barang"
dgvData.Columns(3).Name = "Jumlah"
dgvData.Columns(3).ValueType = GetType(Integer)
dgvData.Columns(4).Name = "Harga"
dgvData.Columns(4).ValueType = GetType(Double)
dgvData.Columns(5).Name = "Total"
dgvData.Columns(5).ValueType = GetType(Double)
' Hidden column index 0 ... It's Primary Key for DataBase
.Columns("No").Visible = True ' False
.Columns("Kode_Barang").HeaderText = "Kode_Barang"
.Columns("Nama_Barang").HeaderText = "Nama_Barang"
.Columns("Jumlah").HeaderText = "Jumlah"
.Columns("Harga").HeaderText = "Harga"
' Total Column
With .Columns("Total")
.HeaderText = "Total"
.ReadOnly = True
.DefaultCellStyle.BackColor = System.Drawing.Color.LightGoldenrodYellow
.DefaultCellStyle.ForeColor = System.Drawing.Color.Red
.DefaultCellStyle.Font = New Font(dgvData.Font, FontStyle.Bold)
End With
' Adjust Column width
.Columns(0).Width = 35
.Columns(1).Width = dgvData.Width \ 5
.Columns(2).Width = dgvData.Width \ 5
.Columns(3).Width = dgvData.Width \ 5 - 20
.Columns(4).Width = dgvData.Width \ 5 - 20
.Columns(5).Width = dgvData.Width \ 5 ' + 2
' Header Own Style
With .ColumnHeadersDefaultCellStyle
.BackColor = Color.Navy
.ForeColor = Color.White
.Font = New Font(dgvData.Font, FontStyle.Bold)
End With
' Alignment only columns 3 to 5
For i As Byte = 3 To 5
' Header Alignment
.Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
' Cell Alignment
.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
Next
End With
End Sub
' / --------------------------------------------------------------------------------
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
With dgvData
.Width = Me.Width - 22
End With
txtSumTotal.Left = Me.Width - (txtSumTotal.Width + 20)
Label1.Location = New Point(txtSumTotal.Left - Me.Label1.Width, txtSumTotal.Top + 3)
End Sub
' / --------------------------------------------------------------------------------
' / Add new row
Private Sub btnAddRow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Dim Position As Integer = dgvData.Rows.Count - 1
Dim LastRow = (From Items In dgvData.Rows.Cast(Of DataGridViewRow)() Select Items).ElementAt(Position)
Dim PK As Long = LastRow.Cells(0).Value + 1
Dim row As String() = New String() {PK, "BRG000" & PK, "Nama Barang " & PK, 1, 0.0, 0.0}
dgvData.Rows.Add(row)
' Focus
dgvData.CurrentCell = dgvData.Rows(dgvData.RowCount - 1).Cells(3)
dgvData.Focus()
' /
CalSumTotal()
End Sub
' / --------------------------------------------------------------------------------
' / Remove selected row
Private Sub btnDelRow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemove.Click
If dgvData.RowCount = 1 Then Exit Sub
dgvData.Rows.Remove(dgvData.CurrentRow)
dgvData.Refresh()
' /
CalSumTotal()
End Sub
' / --------------------------------------------------------------------------------
' / Calcualte sum of Total (Column Index = 5)
Private Sub CalSumTotal()
txtSumTotal.Text = "0.00"
For i As Byte = 0 To dgvData.RowCount - 1
' CDbl = Convert to Double
txtSumTotal.Text = CDbl(txtSumTotal.Text) + CDbl(dgvData.Rows(i).Cells(5).Value)
Next
txtSumTotal.Text = Format(CDbl(txtSumTotal.Text), "#,##0.00")
End Sub
' / --------------------------------------------------------------------------------
' / Before Edit Data
Private Sub dgvData_CellBeginEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellCancelEventArgs) Handles dgvData.CellBeginEdit
Dim Quantity As Integer = dgvData.Rows(e.RowIndex).Cells(3).Value
Dim UnitPrice As Double = dgvData.Rows(e.RowIndex).Cells(4).Value
dgvData.Rows(e.RowIndex).Cells(5).Value = (Quantity * UnitPrice).ToString("#,##0.00")
' /
CalSumTotal()
End Sub
' / --------------------------------------------------------------------------------
' / After you press Enter
Private Sub dgvData_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvData.CellEndEdit
Select Case e.ColumnIndex
Case 3, 4 ' Column Index = 3 (Quantity), Column Index = 4 (UnitPrice)
' Quantity
' If Null Value
If IsDBNull(dgvData.Rows(e.RowIndex).Cells(3).Value) Then dgvData.Rows(e.RowIndex).Cells(3).Value = 0
Dim Quantity As Integer = dgvData.Rows(e.RowIndex).Cells(3).Value
' Keep original value in temporary. (Tag Properties)
dgvData.Tag = Quantity
If Quantity <= 0 Then
dgvData.Rows(e.RowIndex).Cells(3).Value = dgvData.Tag
Quantity = dgvData.Tag
End If
' UnitPrice
' If Null Value
If IsDBNull(dgvData.Rows(e.RowIndex).Cells(4).Value) Then dgvData.Rows(e.RowIndex).Cells(4).Value = 0.0
Dim UnitPrice As Double = dgvData.Rows(e.RowIndex).Cells(4).Value
dgvData.Tag = UnitPrice
If UnitPrice < 0 Then
dgvData.Rows(e.RowIndex).Cells(4).Value = dgvData.Tag
UnitPrice = dgvData.Tag
End If
' Quantity x UnitPrice
dgvData.Rows(e.RowIndex).Cells(5).Value = (Quantity * UnitPrice).ToString("#,##0.00")
CalSumTotal()
End Select
End Sub
' / --------------------------------------------------------------------------------
Private Sub dgvData_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles dgvData.EditingControlShowing
Select Case dgvData.Columns(dgvData.CurrentCell.ColumnIndex).Name
' / Can use both ColumeIndex or Field Name
Case "Quantity", "UnitPrice"
RemoveHandler e.Control.KeyPress, AddressOf ValidKeyPress
AddHandler e.Control.KeyPress, AddressOf ValidKeyPress
End Select
End Sub
' / --------------------------------------------------------------------------------
Private Sub ValidKeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Dim tb As TextBox = sender
Select Case dgvData.CurrentCell.ColumnIndex
Case 3 ' Quantity is Integer
Select Case e.KeyChar
Case "0" To "9" ' digits 0 - 9 allowed
Case ChrW(Keys.Back) ' backspace allowed for deleting (Delete key automatically overrides)
Case ChrW(Keys.Delete) ' Delete key
Case Else ' everything else ....
' True = CPU cancel the KeyPress event
e.Handled = True ' and it's just like you never pressed a key at all
End Select
Case 4 ' UnitPrice is Double
Select Case e.KeyChar
Case "0" To "9"
' Allowed "."
Case "."
' can present "." only one
If InStr(tb.Text, ".") Then e.Handled = True
Case ChrW(Keys.Back)
Case ChrW(Keys.Delete)
Case Else
e.Handled = True
End Select
End Select
End Sub
Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
Me.Dispose()
Application.Exit()
End Sub
End Class
Public Class Form1
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
Label1.Text = ProgressBar1.Value & ("%")
If ProgressBar1.Value = 100 Then
Me.Hide()
Form2.Show()
Timer1.Stop()
End If
End Sub
End Class
use [DBTM]
CREATE TABLE [dbo].[TBL_MAHASISWA](
[NIM] [varchar](6) NOT NULL,
[NamaMahasiswa] [varchar](100) NULL,
[JenisKelamin] [varchar](20) NULL,
[AlamatMahasiswa] [varchar](100) NULL,
[TeleponMahasiswa] [varchar](20) NULL,
CONSTRAINT [PK_TBL_MAHASISWA] PRIMARY KEY CLUSTERED
(
[NIM] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]
GO
Imports System.Data.SqlClient
Public Class Form1
Dim Conn As SqlConnection
Dim Da As SqlDataAdapter
Dim Ds As DataSet
Dim Cmd As SqlCommand
Dim RD As SqlDataReader
Dim LokasiDB As String
Sub Koneksi()
LokasiDB = "data source=JAVANET001;initial catalog=JNM_CRUD;integrated security =true"
Conn = New SQLConnection(LokasiDB)
If Conn.State = ConnectionState.Closed Then Conn.Open()
End Sub
Sub KondisiAwal()
Koneksi()
Da = New SqlDataAdapter("Select * from TBL_MAHASISWA", Conn)
Ds = New DataSet
Ds.Clear()
Da.Fill(Ds, "TBL_MAHASISWA")
DataGridView1.DataSource = (Ds.Tables("TBL_MAHASISWA"))
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ComboBox1.Text = ""
ComboBox1.Items.Clear()
ComboBox1.Items.Add("PRIA")
ComboBox1.Items.Add("WANITA")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call KondisiAwal()
End Sub
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or ComboBox1.Text = "" Then
MsgBox("Silahkan Isi Semua Form")
Else
Call Koneksi()
Dim simpan As String = "insert into TBL_MAHASISWA values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
Cmd = New SqlCommand(simpan, Conn)
Cmd.ExecuteNonQuery()
MsgBox("Input data berhasil")
Call KondisiAwal()
End If
End Sub Private Sub TextBox1_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
TextBox1.MaxLength = 6
If e.KeyChar = Chr(13) Then
Call Koneksi()
Cmd = New SqlCommand("Select * From TBL_MAHASISWA where NIM='" & TextBox1.Text & "'", Conn)
RD = CMD.ExecuteReader
RD.Read()
If Not RD.HasRows Then
MsgBox("NIM Tidak Ada, Silahkan coba lagi!")
TextBox1.Focus()
Else
TextBox2.Text = RD.Item("NamaMahasiswa")
TextBox3.Text = RD.Item("AlamatMahasiswa")
TextBox4.Text = RD.Item("TeleponMahasiswa")
ComboBox1.Text = RD.Item("JenisKelamin")
TextBox2.Focus()
End If
End If
End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call Koneksi()
Dim edit As String = "update TBL_MAHASISWA set NamaMahasiswa='" & TextBox2.Text & "',AlamatMahasiswa='" & TextBox3.Text & "',TeleponMahasiswa='" & TextBox4.Text & "',JenisKelamin='" & ComboBox1.Text & "' where NIM='" & TextBox1.Text & "'"
Cmd = New SqlCommand(edit, Conn)
CMD.ExecuteNonQuery()
MsgBox("Data Berhasil diUpdate")
Call KondisiAwal()
End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If TextBox1.Text = "" Then
MsgBox("Silahkan Pilih Data yang akan di hapus dengan Masukan NIM dan ENTER")
Else
If MessageBox.Show("Yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
Call Koneksi()
Dim CMD As SqlCommand
Dim hapus As String = "delete From TBL_MAHASISWA where NIM='" & TextBox1.Text & "'"
CMD = New SqlCommand(hapus, Conn)
CMD.ExecuteNonQuery()
MsgBox("Data Berhasil diHapus")
Call KondisiAwal()
End If
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
End
End Sub
Imports System.IO
Public Class Form1
Dim s As Integer = 0
Dim d As Path
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DateTimePicker1.Format = DateTimePickerFormat.Time
Timer2.Enabled = True
TextBox1.Text = ""
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("Silakan Pilih Musik Alarm Dahulu!")
Else
Timer1.Enabled = True
DateTimePicker1.CalendarForeColor = Color.Blue
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
TextBox1.Text = ""
TextBox1.Text = OpenFileDialog1.FileName
s = 1
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
If TimeOfDay = DateTimePicker1.Text Then
If s = 1 Then
AxWindowsMediaPlayer1.URL = TextBox1.Text.ToString
Else
MsgBox(DateTimePicker1.Value)
End If
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Label2.Text = DateTime.Now.ToLongTimeString
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
End Class
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LBL1.Text = Format(Today(), "dd-MMMM-yyyy")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
LBL2.Text = DateDiff(DateInterval.Day, DateTimePicker1.Value, Today()) & " Hari"
LBL3.Text = DateDiff(DateInterval.Month, DateTimePicker1.Value, Today()) & " Bulan"
LBL4.Text = DateDiff(DateInterval.Year, DateTimePicker1.Value, Today()) & " Tahun"
LBL5.Text = Format(DateAdd(DateInterval.Day, 1, DateTimePicker1.Value), "dd-MMMM-yyyy")
LBL6.Text = Format(DateAdd(DateInterval.Month, 2, DateTimePicker1.Value), "dd-MMMM-yyyy")
LBL7.Text = Format(DateAdd(DateInterval.Year, 3, DateTimePicker1.Value), "dd-MMMM-yyyy")
LBL8.Text = DateTimePicker1.Value.ToString("dddd")
LBL9.Text = Hasil(Year(DateTimePicker1.Text), Month(DateTimePicker1.Text))
End Sub
Function Hasil(ByVal MyYear As Integer, ByVal MyMonth As Integer) As Integer
Return DateTime.DaysInMonth(MyYear, MyMonth)
End Function
End Class
Public Class Form1
Private Sub TextBox3_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.Leave
TextBox3.Text = FormatCurrency(TextBox3.Text)
End Sub
End Class
Imports System.Data.OleDb
Public Class Form1
Dim Conn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
Dim Rd As OleDbDataReader
Dim Cmd As OleDbCommand
Dim LokasiDB As String
Sub Koneksi()
LokasiDB = "provider=microsoft.jet.oledb.4.0;data source=DBJNM.mdb"
Conn = New OleDbConnection(LokasiDB)
If Conn.State = ConnectionState.Closed Then Conn.Open()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call KondisiAwal()
End Sub
Sub KondisiAwal()
Koneksi()
da = New OleDbDataAdapter("Select * from BARANG", Conn)
ds = New DataSet
ds.Clear()
da.Fill(ds, "BARANG")
DataGridView1.DataSource = (ds.Tables("BARANG"))
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
'-------> Koding dibawah untuk mengatur lebar Grid
'-------> Silahkan ganti angka nya untuk melebarkan atau menyempitkan
DataGridView1.Columns(0).Width = 70
DataGridView1.Columns(1).Width = 150
DataGridView1.Columns(2).Width = 80
DataGridView1.Columns(3).Width = 80
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then
MsgBox("Pastikan semua form terisi data")
Else
Call Koneksi()
Dim simpan As String = "insert into Barang values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
CMD = New OleDbCommand(simpan, Conn)
CMD.ExecuteNonQuery()
MsgBox("Data berhasil di Input", MsgBoxStyle.Information, "Information")
Call KondisiAwal()
End If
End Sub
'Koding Format Rupiah / Mata Uang
Private Sub TextBox3_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.Leave
TextBox3.Text = FormatCurrency(TextBox3.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class
Imports System.Data.OleDb
Public Class Form1
Dim Conn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
Dim LokasiDB As String
Sub Koneksi()
LokasiDB = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DBJNM.accdb"
Conn = New OleDbConnection(LokasiDB)
If Conn.State = ConnectionState.Closed Then Conn.Open()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Koneksi()
da = New OleDbDataAdapter("Select * from TBL_BARANG", Conn)
ds = New DataSet
ds.Clear()
da.Fill(ds, "TBL_BARANG")
DataGridView1.DataSource = (ds.Tables("TBL_BARANG"))
End Sub
End Class 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or ComboBox1.Text = "" Then
MsgBox("Silahkan Isi Semua Form")
Else
Dim CMD As OleDbCommand
Call Koneksi()
Dim simpan As String = "insert into TBL_BARANG values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & ComboBox1.Text & "')"
CMD = New OleDbCommand(simpan, Conn)
CMD.ExecuteNonQuery()
MsgBox("Input data berhasil")
End If
End SubPrivate Sub TextBox1_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
TextBox1.MaxLength = 6
If e.KeyChar = Chr(13) Then
Call Koneksi()
Dim CMD As OleDbCommand
Dim RD As OleDbDataReader
CMD = New OleDbCommand("Select * From TBL_BARANG where KodeBarang='" & TextBox1.Text & "'", Conn)
RD = CMD.ExecuteReader
RD.Read()
If Not RD.HasRows Then
MsgBox("Kode Barang Tidak Ada, Silahkan coba lagi!")
TextBox1.Focus()
Else
TextBox2.Text = RD.Item("NamaBarang")
TextBox3.Text = RD.Item("HargaBarang")
TextBox4.Text = RD.Item("JumlahBarang")
ComboBox1.Text = RD.Item("SatuanBarang")
TextBox2.Focus()
End If
End If
End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call Koneksi()
Dim CMD As OleDbCommand
Dim edit As String = "update TBL_BARANG set NamaBarang='" & TextBox2.Text & "',HargaBarang='" & TextBox3.Text & "',JumlahBarang='" & TextBox4.Text & "',SatuanBarang='" & ComboBox1.Text & "' where KodeBarang='" & TextBox1.Text & "'"
CMD = New OleDbCommand(edit, Conn)
CMD.ExecuteNonQuery()
MsgBox("Data Berhasil diUpdate")
End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If TextBox1.Text = "" Then
MsgBox("Silahkan Pilih Data yang akan di hapus dengan Masukan NIM dan ENTER")
Else
If MessageBox.Show("Yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
Call Koneksi()
Dim CMD As OleDbCommand
Dim hapus As String = "delete From TBL_BARANG where KodeBarang='" & TextBox1.Text & "'"
CMD = New OleDbCommand(hapus, Conn)
CMD.ExecuteNonQuery()
End If
End If
End Sub
Rekomendasi kafe atau tempat cafe untuk bersantai ria bersama kolega serta kerabat kerja harus dibarengan dengan tempat nyaman dan memiliki ...
