Contoh Program Penjualan Visual Basic 6.0

#CONTOH PROGRAM PENJUALAN VISUAL BASIC 6.0 CODE#

Kemudian buatlah database dengan nama Penjualan. Pastikan Anda sudah mengaktifkan SQL Server Service Manager. cara membuat aplikasi penjualan yang sangat sederhana menggunakan visual basic 6.0 dengan database SQL Server 2000.

#CONTOH PROGRAM PENJUALAN VISUAL BASIC 6.0 CODE#

NET andaДemikian Source Code Contoh From Transaksi Penjualan VB. Membuat Aplikasi Penjualan Sederhana dengan Visual Basic 6.0. Jika sudah silahkan anda Save dan Jalankan Project VB.

Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As ) Handles Me.FormClosed If InStr(tb.Text, '.') Then e.Handled = True Contoh Program Penjualan Visual Basic 6.0 Average ratng: 4,9/5 2615 reviews Di sini saya akan membahas tentang cara membuat aplikasi penjualan yang sangat sederhana menggunakan visual basic 6.0 dengan database SQL Server 2000. Select Case Д¬ase ChrW(Keys.Back) ' backspace allowed for deleting (Delete key automatically overrides)Д®.Handled = True ' and it's just like you never pressed a key at all Private Sub ValidKeyPress(ByVal sender As System.Object, ByVal e As ) RemoveHandler e.Control.KeyPress, AddressOf ValidKeyPressДЄddHandler e.Control.KeyPress, AddressOf ValidKeyPress ' / Can use both ColumeIndex or Field Name Private Sub dgvData_EditingControlShowing(ByVal sender As Object, ByVal e As ) Handles dgvData.EditingControlShowing If IsDBNull(dgvData.Rows(e.RowIndex).Cells(4).Value) Then dgvData.Rows(e.RowIndex).Cells(4).Value = 0.0ДgvData.Rows(e.RowIndex).Cells(4).Value = dgvData.Tag

(Tag Properties)ДgvData.Rows(e.RowIndex).Cells(3).Value = dgvData.Tag If IsDBNull(dgvData.Rows(e.RowIndex).Cells(3).Value) Then dgvData.Rows(e.RowIndex).Cells(3).Value = 0 Private Sub dgvData_CellEndEdit(ByVal sender As Object, ByVal e As ) Handles dgvData.CellEndEditД¬ase 3, 4 ' Column Index = 3 (Quantity), Column Index = 4 (UnitPrice) Private Sub dgvData_CellBeginEdit(ByVal sender As Object, ByVal e As ) Handles dgvData.CellBeginEditДim Quantity As Integer = dgvData.Rows(e.RowIndex).Cells(3).ValueДim UnitPrice As Double = dgvData.Rows(e.RowIndex).Cells(4).ValueДgvData.Rows(e.RowIndex).Cells(5).Value = (Quantity * UnitPrice).ToString('#,#0.00') TxtSumTotal.Text = Format(CDbl(txtSumTotal.Text), '#,#0.00') TxtSumTotal.Text = CDbl(txtSumTotal.Text) + CDbl(dgvData.Rows(i).Cells(5).Value) ' / Calcualte sum of Total (Column Index = 5)ДЇor i As Byte = 0 To dgvData.RowCount - 1 Private Sub btnDelRow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemove.Click Me.Text = 'Contoh Form Transaksi Penjualan - txtSumTotal.Text = '0.00'Дim row As String() = New String() ДgvData.CurrentCell = dgvData.Rows(dgvData.RowCount - 1).Cells(3) Mangaktifkan VB 6.0, dengan cara klik start. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Membuat Nomor Nota Otomatis pada Visual Basic Ahmad Rizal Abidin, M.Kom -Free Shipping and Handling on All Personal Checks with code DWF008 a. Silahkan Masukan Koding pada Form1 dibawah ini : JIka sudah selesai membuat Form seperti gambar diatas, DataGridView yang diganti namanya menjadi : dgvData