Imports System.Data.SqlClient
Public Class FormMasterPenjualan
Sub Invoice_Otomatis()
Call koneksi()
cmd = New SqlCommand("select * from tbl_penjualan where no_invoice in (select max(no_invoice) from tbl_penjualan)", conn)
rd = cmd.ExecuteReader
rd.Read()
If Not rd.HasRows Then
'tampil pola yymmdd+001
Label_Invoice.Text = Format(Now, "yyMMdd") + "001"
Else
If Microsoft.VisualBasic.Left(rd.Item("no_invoice"), 6) <> Format(Now < "yymmdd") Then
Label_Invoice.Text = Format(Now, "yymmdd") + "001"
Else
Label_Invoice.Text = rd.Item("no_invoice") + 1
End If
End If
End Sub
Private Sub FormMasterPenjualan_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call koneksi()
Call Invoice_Otomatis()
LabelDate.Text = Today
End Sub
Sub bisaisi()
LabelNamaPelanggan.Enabled = True
LabelIdPelanggan.Enabled = True
LabelAlamatPelanggan.Enabled = True
End Sub

Private Sub pilih_pelanggan_Click(sender As Object, e As EventArgs) Handles pilih_pelanggan.Click
Dim Tabel As New FormTabelPelanggan
Call koneksi()
FormTabelPelanggan.ShowDialog()
End Sub
End Class

Imports System.Data.SqlClient
Public Class FormTabelPelanggan

Sub TampilGrid()
Call koneksi()
da = New SqlDataAdapter("select * From tbl_pelanggan", conn)
ds = New DataSet
da.Fill(ds, "tbl_pelanggan")
table = ds.Tables("tbl_pelanggan")
DataGridViewTabelPelanggan.DataSource = table
DataGridViewTabelPelanggan.ReadOnly = True
End Sub

Private Sub FormTablePelanggan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call koneksi()
Call TampilGrid()
End Sub

Sub SearchData()
Call koneksi()
da = New SqlDataAdapter("select * From tbl_pelanggan where nama_pelanggan like'%" + TextBoxPencarian.Text + "%'", conn)
ds = New DataSet
da.Fill(ds, "tbl_pelanggan")
table = ds.Tables("tbl_pelanggan")
DataGridViewTabelPelanggan.DataSource = table
DataGridViewTabelPelanggan.ReadOnly = True
End Sub

Private Sub TextBoxPencarian_TextChanged(sender As Object, e As EventArgs) Handles TextBoxPencarian.TextChanged
Call SearchData()
End Sub

Private Sub DataGridViewTabelPelanggan_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridViewTabelPelanggan.CellDoubleClick
Call koneksi()
Dim i As Integer
i = Me.DataGridViewTabelPelanggan.CurrentRow.Index
cmd = New SqlCommand("Select * from tbl_pelanggan where id_pelanggan='" & DataGridViewTabelPelanggan.Item(0, i).Value & "'", conn)
If DataGridViewTabelPelanggan.Rows.Count > 0 Then
If DialogResult.Yes = MessageBox.Show("Anda yakin?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question) Then
Dim f As New FormMasterPenjualan()
f.LabelNamaPelanggan.Text = DataGridViewTabelPelanggan("nama_pelanggan", e.RowIndex).Value.ToString()
f.LabelIdPelanggan.Text = DataGridViewTabelPelanggan("id_pelanggan", e.RowIndex).Value.ToString()
f.LabelAlamatPelanggan.Text = DataGridViewTabelPelanggan("alamat_pelanggan", e.RowIndex).Value.ToString()
f.ShowDialog()
End If
End If
Me.Close()
End Sub

Private Sub ButtonKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonKeluar.Click
Me.Close()
End Sub
End Class