DISKRIPSI & PROSEDUR LATIHAN 35

00.05 |

LATIHAN_35_36110030

Deskripsi Latihan_35_36110030

A. Object-object dalam Latihan_35_36110030:

1. Object Label

Terdapat enam label (yang bertuliskan no transaksi, tanggal, jenis transaksi, kode barang, unit, dan harga).

2. Object Textbox

Terdapat lima textbox (semuanya status input) yang digunakan untuk memasukkan nilai: no transaksi, jenis transaksi, kode barang, unit, dan harga.

3. Object Button

Terdapat dua object button (Tambah dan Simpan). Tombol tambah digunakan untuk menyimpan data yang telah diinput pada textbox ke dalam datatabel (yang ditampilkan pada datagridview). Tombol simpan digunakan untuk menyimpan data yang telah diinput ke dalam database (DATA MAJEMUK).

4. Object DateTimePicker

Terdapat satu object datetimepicker yang digunakan untuk menentukan tanggal transaksi.

5. Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan data yang sudah diinput pada textbox.

B. Script Unique

Untuk script, silahkan lihat selengkapnya pada Langkah-LangkahLatihan_35_36110030.

C. Even

TAMBAH_36110030_Click

Latihan_35_36110030_Load

SIMPAN_36110030_Click

PROSEDUR PENYELESAIAN LATIHAN 35

1.KLIK STAR KEMUDIAN PILIH MICROSOFT VISUAL STUDIO 2008

2.KEMUDIAN KLIK NEW PROJECT PADA FILE

3.KEMUDIAN KLIK ADD UNTUK MENAMBAHKAN PROJECT

. KEMUDIAN BUATLAH FORM SEPERTI DIBAWAH INI :

5.KEMUDIAN MASUKAN RUMUS :

Public Class Latihan_35_3611030

'DEKLARASI CONECTION

Dim CONECT As NewOleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath &"\datamajemuk.accdb;Jet OLEDB:Database Password=26")

'deklarasi data tabel

Dim DT As New DataTable

Dim cari As New ByIskandar.CariKeDataBaseByIskandar

Private Sub Latihan_35_36110030_Load(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

'deklarasi adapter

Dim yhuya As New OleDb.OleDbDataAdapter

yhuya = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & KODE_36110030.Text & "'", CONECT)'memunculkan semua data dari tabel barang dlm acces

DT.Rows.Clear() 'membersihkan data table

yhuya.Fill(DT) 'mengisi database ke dlm data table

DGV_36110030.DataSource = DT 'memunculkan dlm datagridview

yhuya.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

End Sub

Private Sub TAMBAH_36110030_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesTAMBAH_36110030.Click

'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap

If KODE_36110030.Text.Length = 0 Then 'untuk pencarian yang bersifat angka

MsgBox("kode barang belum terisi")

Exit Sub 'jgn lanjut ke proses berikutnya

End If

If Val(UNIT_36110030.Text) = 0 Then 'untuk pencarian yang bersifat angka

MsgBox("UNIT belum terisi")

Exit Sub 'jgn lanjut ke proses berikutnya

End If

If Val(HARGA_36110030.Text) = 0 Then 'untuk pencarian yang bersifat angka

MsgBox("HARGA belum terisi")

Exit Sub 'jgn lanjut ke proses berikutnya

End If

'UNTUK MENYMPAN DATA YG DIMASUKKAN KE DALAM DATAGRIDVIEW

Dim YY As DataRow

YY = DT.NewRow ' menambah baris

YY("KODEBARANG") = KODE_36110030.Text

YY("UNIT") = UNIT_36110030.Text

YY("HARGA") = HARGA_36110030.Text

DT.Rows.Add(YY)

KODE_36110030.Text = ""

UNIT_36110030.Text = ""

HARGA_36110030.Text = ""

End Sub

Private Sub SIMPAN_36110030_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesSIMPAN_36110030.Click

'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap

If NO_36110030.Text.Length = 0 Then 'untuk pencarian yang bersifat angka

MsgBox("no.transaksi belum terisi")

Exit Sub 'jgn lanjut ke proses berikutnya

End If

If JENIS_36110030.Text.Length = 0 Then 'untuk pencarian yang bersifat angka

MsgBox("jenis transaksi belum terisi")

Exit Sub 'jgn lanjut ke proses berikutnya

End If

'untuk mencari jgn sampai data yg akan dimasukkan sudah ada

cari.AturPencarianDataBase("mastertransaksi","notrans", NO_36110030.Text, 1, CONECT)

If cari.JumlanBaris > 0 Then

MsgBox("NO.TRANS sudah ada")

Exit Sub

End If

If DT.Rows.Count = 0 Then

MsgBox("data tidak tersedia")

End If

'untuk memasukkan data dari visual basc ke dlm acces

Dim com As New OleDb.OleDbCommand

com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & NO_36110030.Text & "',#" & DATE_36110030.Value.Date & "#," & Val(JENIS_36110030.Text) & ")", CONECT)

CONECT.Open()

com.ExecuteNonQuery()

CONECT.Close()

For Each r As DataRow In DT.Rows

com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & NO_36110030.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)

CONECT.Open()

com.ExecuteNonQuery()

CONECT.Close()

com.Dispose()

DT.Rows.Clear()

NO_36110030.Text = ""

JENIS_36110030.Text = ""

End Sub

End Class

6. KEMUDIAN UJI PROGRAM

7. JIKA SUDAH BERHASIL Save program anda

8. selesai