Crystal Report VB2008 Laporan Periodik

Source Code Transaksi

Public Class PO
    Dim baris, kolom As Integer
    Dim data1, data2, data3, data4, data5 As String

    Private Sub PO_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated


    End Sub
    Private Sub PO_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call koneksi()
        Call data_pemasok()
        Call data_karyawan()
        Call isiDG1()



    End Sub
    Private Sub data_pemasok()
        ComboBox1.Items.Clear()
        Call koneksi()
        Tampil.Connection = Dtbase
        Tampil.CommandType = CommandType.Text
        Tampil.CommandText = "select * from Pemasok"
        Tampilkan = Tampil.ExecuteReader

        If Tampilkan.HasRows = True Then
            While Tampilkan.Read
                ComboBox1.Items.Add("" & Tampilkan("kd_pemasok") & "")
            End While
        End If
    End Sub
    Private Sub data_karyawan()
        ComboBox2.Items.Clear()
        Call koneksi()
        Tampil.Connection = Dtbase
        Tampil.CommandType = CommandType.Text
        Tampil.CommandText = "select * from Karyawan"
        Tampilkan = Tampil.ExecuteReader

        If Tampilkan.HasRows = True Then
            While Tampilkan.Read
                ComboBox2.Items.Add("" & Tampilkan("kd_karyawan") & "")
            End While
        End If
    End Sub

    Private Sub simpandata()
        If Tambah.Text = "Simpan" Then
            If TextBox1.Text = "" Then Exit Sub
            If ComboBox1.Text = "" Then Exit Sub
            If TextBox2.Text = "" Then Exit Sub
            If ComboBox2.Text = "" Then Exit Sub
            If TextBox3.Text = "" Then Exit Sub


            Try
                Call koneksi()
                Tampil2.Connection = Dtbase 'tampil2=variabel public class untuk memberikan perintah
                Tampil2.CommandType = CommandType.Text 'tipe commant berbentuk text

                Tabel = "Insert Into PO(no_po,tgl,kd_pemasok,total,kd_karyawan,ket)"
                Tabel = Tabel + "values ('" & Trim(TextBox1.Text) & "',"
                Tabel = Tabel + "'" & Trim(DateTimePicker1.Text) & "',"
                Tabel = Tabel + " '" & Trim(ComboBox1.Text) & "',"
                Tabel = Tabel + " '" & Trim(TextBox2.Text) & "',"
                Tabel = Tabel + " '" & Trim(ComboBox2.Text) & "',"
                Tabel = Tabel + " '" & Trim(TextBox3.Text) & "')"



                Tampil2.CommandText = Tabel
                Tampil2.ExecuteNonQuery() 'perintah untuk mengeksekusi


                Call bersih()
                TextBox1.Focus()

            Catch ex As Exception
                MsgBox(ex.ToString())
            End Try

        Else

            If Ubah.Text = "Simpan" Then
                If TextBox1.Text = "" Then Exit Sub
                If DateTimePicker1.Value = "" Then Exit Sub
                If ComboBox1.Text = "" Then Exit Sub
                If TextBox2.Text = "" Then Exit Sub
                If ComboBox2.Text = "" Then Exit Sub
                If TextBox3.Text = "" Then Exit Sub


                Try
                    Call koneksi()

                    Tampil2.Connection = Dtbase
                    Tampil2.CommandType = CommandType.Text
                    Tabel = "update PO set tgl='" & Trim(DateTimePicker1.Value) & "',kd_pemasok='" & Trim(ComboBox1.Text) & "',total='" & (TextBox2.Text) & "',kd_karyawan='" & Trim(ComboBox2.Text) & "',ket='" & Trim(TextBox3.Text) & "'"

                    Tabel = Tabel + " where no_po='" & Trim(TextBox1.Text) & "'"

                    Tampil2.CommandText = Tabel
                    Tampil2.ExecuteNonQuery()


                    Call bersih()
                    TextBox1.Focus()

                Catch ex As Exception
                    MsgBox(ex.ToString())
                End Try
            Else
                If Hapus.Text = "Ok" Then
                    If TextBox1.Text = "" Then Exit Sub
                    If DateTimePicker1.Value = "" Then Exit Sub
                    If ComboBox1.Text = "" Then Exit Sub
                    If TextBox2.Text = "" Then Exit Sub
                    If ComboBox2.Text = "" Then Exit Sub
                    If TextBox3.Text = "" Then Exit Sub


                    Try
                        Call koneksi()
                        Tampil2.Connection = Dtbase
                        Tampil2.CommandType = CommandType.Text
                        Tabel = "Delete from PO where no_po='" & Trim(TextBox1.Text) & "'"
                        Tampil2.CommandText = Tabel
                        Tampil2.ExecuteNonQuery()


                        Call bersih()
                        TextBox1.Focus()

                    Catch ex As Exception
                        MsgBox(ex.ToString())


                    End Try
                End If
            End If
        End If


    End Sub

    Private Sub normal() 'untuk menormalkan kondisi button'
        Tambah.Text = "Tambah"
        Ubah.Text = "Ubah"
        Hapus.Text = "Hapus"
        Keluar.Text = "Keluar"
        Tambah.Enabled = True
        Ubah.Enabled = True
        Hapus.Enabled = True
        Keluar.Enabled = True
    End Sub
    Private Sub bersih() 'untuk membersihkan objek entry data'
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""

    End Sub
    Private Sub caridata()
        Call koneksi()
        Tampil.Connection = Dtbase
        Tampil.CommandType = CommandType.Text
        Tampil.CommandText = "select * from PO where no_po='" & Trim(TextBox1.Text) & "'"
        Tampilkan = Tampil.ExecuteReader 'tampilkan=menyimpan hasil pembacaan data

        If Tampilkan.HasRows = True Then 'klw ada record(data)maka akan bertipe true
            While Tampilkan.Read() 'membaca data 1 per 1
                If IsDBNull(Tampilkan("no_po")) Then '
                    TextBox1.Focus()
                Else
                    DateTimePicker1.Value = Tampilkan("tgl")
                    ComboBox1.Text = Tampilkan("kd_pemasok")
                    TextBox2.Text = Tampilkan("total")
                    ComboBox2.Text = Tampilkan("kd_karyawan")
                    TextBox3.Text = Tampilkan("ket")

                    TextBox1.Focus()

                End If
            End While
        End If
    End Sub
    Private Sub Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah.Click
        If Tambah.Text = "Tambah" Then 'jk button1 d klik,mka button 1 berubah jd simpan & button4 jd batal
            TextBox1.Focus()
            Tambah.Text = "Simpan"
            Ubah.Enabled = False
            Hapus.Enabled = False
            Keluar.Text = "Batal"

        Else
            Call simpandata()   'jk tdak maka call simpan data, call bersih,call normal
            Call bersih()
            Call normal()

        End If
    End Sub

    Private Sub Ubah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ubah.Click
        If Ubah.Text = "Ubah" Then
            TextBox1.Focus() 'akan kembali pada textbox6
            Ubah.Text = "Simpan"
            Tambah.Enabled = False
            Hapus.Enabled = False
            Keluar.Text = "Batal"
        Else
            Call simpandata()   'jk tdk maka call simpan data dan call bersih
            Call bersih()

        End If
    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click
        If Hapus.Text = "Hapus" Then
            TextBox1.Focus() 'jk button3 d klik maka akn mulcul 'simpan
            Hapus.Text = "Ok"
            Tambah.Enabled = False
            Ubah.Enabled = False
            Keluar.Text = "Batal"

        Else
            Call simpandata()
            Call bersih()

        End If
    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        If Keluar.Text = "Batal" Then
            Call normal()
            TextBox2.Focus()
        Else
            Me.Close() 'untuk menutup form diri sendiri'
        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 caridata()

        End If
    End Sub

    Private Sub DG1_CellBeginEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellCancelEventArgs) Handles DG1.CellBeginEdit
        baris = DG1.CurrentRow.Index

        If DG1.Columns(e.ColumnIndex).Name = "Kode Barang" Then
            kolom = 1
        Else
            If DG1.Columns(e.ColumnIndex).Name = "Nama Barang" Then
                kolom = 2
            Else
                If DG1.Columns(e.ColumnIndex).Name = "Harga" Then
                    kolom = 3
                Else
                    If DG1.Columns(e.ColumnIndex).Name = "Qty" Then
                        kolom = 4
                    Else
                        kolom = 5

                    End If
                End If


            End If
        End If
    End Sub
    Private Sub DG1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DG1.CellClick
      


    End Sub
    Private Sub simpan()
        Call koneksi()

        If kolom = 1 Then
            Tampil.Connection = Dtbase
            Tampil.CommandType = CommandType.Text
            Tampil.CommandText = "insert into detail_PO (no_po,kdbrg) values ('" & Trim(TextBox1.Text) & "', '" & Trim(data1) & "')"
            Tampil.ExecuteNonQuery()
        Else
          
            If kolom = 3 Then
                Tampil.Connection = Dtbase
                Tampil.CommandType = CommandType.Text
                Tampil.CommandText = "update detail_PO set harga='" & Trim(data3) & "'where kdbrg='" & Trim(data1) & "' and no_PO='" & Trim(TextBox1.Text) & "'"
                Tampil.ExecuteNonQuery()

                If kolom = 4 Then
                    Tampil.Connection = Dtbase
                    Tampil.CommandType = CommandType.Text
                    Tampil.CommandText = "update detail_PO set qty='" & Trim(data4) & "'where kdbrg='" & Trim(data1) & "' and no_PO='" & Trim(TextBox1.Text) & "'"
                    Tampil.ExecuteNonQuery()
                Else

                    If kolom = 5 Then
                        Tampil.Connection = Dtbase
                        Tampil.CommandType = CommandType.Text
                        Tampil.CommandText = "update detail_PO set sub_total='" & Trim(data5) & "'where kdbrg='" & Trim(data1) & "' and no_PO='" & Trim(TextBox1.Text) & "'"
                        Tampil.ExecuteNonQuery()
                    End If
                End If

            End If
        End If




    End Sub

    Private Sub DG1_CellValueChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DG1.CellValueChanged
        'untuk mengambil nilai dari cell
        If IsDBNull(DG1.Item(0, baris).Value) Then
        Else
            data1 = DG1.Item(0, baris).Value

        End If
        If IsDBNull(DG1.Item(1, baris).Value) Then
        Else
            data2 = DG1.Item(1, baris).Value
        End If
        If IsDBNull(DG1.Item(2, baris).Value) Then
        Else
            data3 = DG1.Item(2, baris).Value
        End If
        If IsDBNull(DG1.Item(3, baris).Value) Then
        Else
            data4 = DG1.Item(3, baris).Value
        End If
        If IsDBNull(DG1.Item(4, baris).Value) Then
        Else
            data5 = DG1.Item(4, baris).Value

        End If

        'Call simpan()
        ' Call pencarian()
        ' Call tampil_nopo_D()
        'Call isi_detail()




    End Sub
    Private Sub isiDG1()
        DS = New DataSet
        Tabel = "SELECT detail_PO.kdbrg as [Kode Barang], Barang.nmbrg as [Nama Barang], detail_PO.harga as [Harga], detail_PO.qty as [Qty], detail_PO.sub_total as [Sub Total] FROM detail_PO INNER JOIN  Barang ON detail_PO.kdbrg = Barang.kdbrg WHERE  detail_PO.no_PO = '" & Trim(TextBox1.Text) & "'"
        ' Tabel = "select kdbrg as [Kode Barang],nmbrg as [Nama Barang],harga as [Harga],qty as [Qty],sub_total as [Sub Total] FROM detail_PO  "

        '"SELECT Pembayaran.no_ktw, Pembayaran.npm, Pembayaran.semester FROM Pembayaran"
        Grid = New OleDb.OleDbDataAdapter(Tabel, Dtbase)
        Grid.Fill(DS, "detail_PO,Barang")

        Dim Gridview As New DataView(DS.Tables("detail_PO,Barang"))
        DG1.DataSource = Gridview
        DG1.Columns(0).Width = 150 'untuk menentukan lebar kolom
        DG1.Columns(1).Width = 150
        DG1.Columns(2).Width = 100
        DG1.Columns(3).Width = 100
        DG1.Columns(4).Width = 100


    End Sub
    Private Sub CaridataBarang()

        Call koneksi()
        Tampil2.Connection = Dtbase
        Tampil2.CommandType = CommandType.Text
        Tampil2.CommandText = "select* from Barang where kdbrg ='" & Trim(data1) & "'"
        Tampilkan = Tampil2.ExecuteReader
        If Tampilkan.HasRows = True Then
            While Tampilkan.Read()
                If IsDBNull(Tampilkan("kdbrg")) Then
                Else
                    DG1.Item(1, baris).Value = Tampilkan("nmbrg")
                End If

            End While
        Else
            MsgBox("Data tidak ditemukan", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Tambah data")

        End If




    End Sub
  

    Private Sub DG1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles DG1.Enter
      
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Call isiDG1()
    End Sub

    Private Sub DG1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DG1.CellContentClick

    End Sub

    Private Sub DG1_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DG1.CellEnter
        If kolom = 1 Then
            Call simpan()
            Call CaridataBarang()
            kolom = 0
        End If
        If kolom = 3 Then
            Call simpan()
            kolom = 0
        End If
        If kolom = 4 Then
            Call simpan()
            kolom = 0
        End If
        If kolom = 5 Then
            Call simpan()
            kolom = 0
        End If
    End Sub
End Class

Query Analyzer In SQL Server

create database Akademik_Maya

create table Mahasiswa
(nim char (15)primary key,nama varchar (30) not null,thn_lulus char (4),kd_jur char (2) not null
)

create table Matakuliah
(kd_mk char (5)primary key,nama_mk varchar (20)not null,sks char (2) not null
)

create table Dosen
(nid char (15) primary key,nama varchar (30) not null
)

create table Jurusan
(kd_jur char (2) primary key,nm_jur varchar (30),nm_kajur varchar (35)
)

Alter table Mahasiswa
add constraint fkjurusan foreign key (kd_jur)
references Jurusan (kd_jur)

select * from Mahasiswa

create table Nilai
(nim char (15) constraint fknik foreign key (nim) references Mahasiswa (nim),
kd_mk char (5) constraint fkmk foreign key (kd_mk) references Matakuliah (kd_mk),
nid char (15) constraint fknid foreign key (nid) references Dosen (nid)
)

SOAL
1. menambahkan field di tabel mhs,gdr type char length =2
alter table Mahasiswa
add gdr char (2)
2.menambahkan field di tabel mhs,st,type char length =10
alter table Mahasiswa
add st char (10)

3.menanbahkan field kota_t type varchar length =20
alter table Mahasiswa
add kota_t varchar (20)

4.ubah field gdr menjadi Gol_darah
alter table Mahasiswa
Drop column gdr

alter table Mahasiswa
add Gol_darah char (2)


5.Ubah field st menjadi St_nikah char length =9 tdk boleh kosong
alter table Mahasiswa
drop column st

alter table Mahasiswa
add st_Nikah char (9)

6.hapus field kota_t
alter table Mahasiswa
drop column kota_t
select*from Mahasiswa
select*from Jurusan

INPUT
sp_help
insert into Jurusan values ('67','Komputerisasi Akuntansi','Primadina')
insert into Jurusan values ('26','Manajemen Informatika','Primadina')
insert into Jurusan values ('05','Teknik Komputer','Kikim')
insert into Jurusan values ('07','Teknik Informatika','Kikim')
insert into Jurusan values ('06','Sistem Informasi','Budi')
select * from Dosen
sp_help
insert into Dosen Values ('D001','Satria')
insert into Dosen values ('D002','Sapto')
insert into Dosen values ('D003','Hadi Prayitno')
insert into Dosen Values ('D004','Widiyawati')
insert into Dosen values ('D005','Baik')

select * from Matakuliah
sp_help
insert into Matakuliah Values ('M001','Akuntansi','3')
insert into Matakuliah values ('M002','Pemrograman','3')
insert into Matakuliah values ('M003','Basis Data','3')
insert into Matakuliah Values ('M004','SIM','4')
insert into Matakuliah values ('M005','Manajement','2')
select * from Mahasiswa
sp_help
insert into Mahasiswa values ('43A87067120411','Maya Puspita','2015','67','B','Belum')
insert into Mahasiswa values ('43A87007120300','Dewi','2015','07','A','Belum')
insert into Mahasiswa values ('43A87067120401','Bariyah','2015','67','0','Belum')
insert into Mahasiswa values ('43A87006120411','Budi','2013','06','B','Belum')
insert into Mahasiswa values ('43A87005120411','Deni','2012','05','AB','Belum')
select*from Nilai
SP_HELP
insert into Nilai values ('43A87067120411','M001','D001')
insert into Nilai values ('43A87007120300','M002','D002')
insert into Nilai values ('43A87067120401','M003','D003')
insert into Nilai values ('43A87006120411','M004','D004')
insert into Nilai values ('43A87005120411','M005','D005')

SOAL
1.tampilkan semua data mhs yg semua golongan darahnya "A"
 select * from Mahasiswa Where Gol_darah ='A'
2.Tampilkan nama mhs,kd jurusan yg sudah menikah
select nama,kd_jur,st_Nikah from Mahasiswa where st_Nikah='Sudah'
3.Tampilkan semua data dosen
select * from Dosen
4.Tampilkan data matkul yg sks >3
select * from Matakuliah where sks >3
5.Tampilkan nama matkul dan sks
select nama_mk,sks from Matakuliah
6.Tampilkan Semua dat nilai
select * from Nilai
7.tampilkan nim,nm mhs,tahun llus yg tahun lulus antara 2010-2013
select nim,nama,thn_lulus from Mahasiswa where thn_lulus between 2010 and 2013
8.tampilkan smua mhs yg namanya diakhiri huruf 'A' dan gol darah 'A'
select *from Mahasiswa where nama like ('&A') or Gol_darah = 'B'
9.tampilkan semua data dosen namanya diawali huruf 'A'
select * from Dosen where nama like ('A&')
10.ubah nama database menjadi AKADEMIK _MAYA_411
SP_RENAMEDB "Akademik_Maya","AKADEMIK_MAYA_411"
11.tambah field alamat type data char(20) dapa table dosen
alter table Dosen
add alamat char(20)
select * from Dosen
12.Input data alamat pada table dosen yaitu "bekasi" menggunakan update
update Dosen set alamat = 'Bekasi'
13.Ubah data alamat dosen yg kode=D001 dan D003 menjadi "Pondok Gede"
update Dosen set alamat ='Pondok Gede' where nid in ('D001','D003')

9.tampilkan nama mhs ,thn lulus,gol drah,dan nama jurusan yg blm menikah
select*from Mahasiswa
select * from Jurusan
select A.nama,A.thn_lulus,A.Gol_darah,B.nm_jur
from Mahasiswa A,Jurusan B
where A.kd_jur=B.kd_jur and A.st_Nikah='Belum'

10.tampilkan nilai.nim,nm mhs,nm matkul dan nm dosen
select*from Nilai
select*from Dosen
select*from Matakuliah
select A.nim,B.nama,C.nama_mk,D.nama
FROM Nilai A,Mahasiswa B,Matakuliah C,Dosen D
where A.nim=B.nim and A.kd_mk=C.kd_mk and A.nid=D.nid

How to Insert record in DataGridView

Public Class Entry_data
    Dim baris, kolom As Integer
    Dim data1, data2, data3, data4 As String


    Private Sub DG1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DG1.CellClick
        baris = DG1.CurrentRow.Index
        If DG1.Columns(e.ColumnIndex).Name = "Kode Barang" Then
            kolom = 1
        Else
            If DG1.Columns(e.ColumnIndex).Name = "Nama Barang" Then
                kolom = 2
            Else
                If DG1.Columns(e.ColumnIndex).Name = "Satuan" Then
                    kolom = 3
                Else
                    kolom = 4
                   
                End If
                End If
            End If

    End Sub
    Private Sub simpan()
        If kolom = 1 Then
            Tampil.Connection = Dtbase
            Tampil.CommandType = CommandType.Text
            Tampil.CommandText = "insert into Barang (kdbrg) values ( '" & Trim(data1) & "')"
            Tampil.ExecuteNonQuery()
        Else
            If kolom = 2 Then
                Tampil.Connection = Dtbase
                Tampil.CommandType = CommandType.Text
                Tampil.CommandText = "update Barang set nmbrg='" & Trim(data2) & "'where kdbrg='" & Trim(data1) & "'"
                Tampil.ExecuteNonQuery()
            Else
                If kolom = 3 Then
                    Tampil.Connection = Dtbase
                    Tampil.CommandType = CommandType.Text
                    Tampil.CommandText = "update Barang set satuan='" & Trim(data3) & "'where kdbrg='" & Trim(data1) & "'"
                    Tampil.ExecuteNonQuery()
                End If
                If kolom = 4 Then
                    Tampil.Connection = Dtbase
                    Tampil.CommandType = CommandType.Text
                    Tampil.CommandText = "update Barang set harga='" & Trim(data4) & "'where kdbrg='" & Trim(data1) & "'"
                    Tampil.ExecuteNonQuery()
                End If
            End If
        End If
    End Sub

    Private Sub DG1_CellValueChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DG1.CellValueChanged
        'untuk mengambil nilai dari cell
        If IsDBNull(DG1.Item(0, baris).Value) Then
        Else
            data1 = DG1.Item(0, baris).Value

        End If
        If IsDBNull(DG1.Item(1, baris).Value) Then
        Else
            data2 = DG1.Item(1, baris).Value
        End If
        If IsDBNull(DG1.Item(2, baris).Value) Then
        Else
            data3 = DG1.Item(2, baris).Value
        End If
        If IsDBNull(DG1.Item(3, baris).Value) Then
        Else
            data4 = DG1.Item(3, baris).Value
        End If
        Call simpan()


    End Sub

    Private Sub Entry_data_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call koneksi()
        Call isiDG11()


    End Sub
    Private Sub isiDG11()
        DS = New DataSet

        Tabel = "select kdbrg as [Kode Barang],nmbrg as [Nama Barang],satuan as [Satuan],harga as [Harga] FROM Barang "

        '"SELECT Pembayaran.no_ktw, Pembayaran.npm, Pembayaran.semester FROM Pembayaran"
        Grid = New OleDb.OleDbDataAdapter(Tabel, Dtbase)
        Grid.Fill(DS, "Barang")

        Dim Gridview As New DataView(DS.Tables("Barang"))
        DG1.DataSource = Gridview
        DG1.Columns(0).Width = 150 'untuk menentukan lebar kolom
        DG1.Columns(1).Width = 150
        DG1.Columns(2).Width = 100
        DG1.Columns(3).Width = 100

    End Sub
End Class

Koneksi VB.Net dengan SQL Server

Imports System.Data

Imports System.Data.Sql

Module Module1

    Public Dtbase As New OleDb.OleDbConnection

    Public Tampil As New OleDb.OleDbCommand

    Public Tampil2 As New OleDb.OleDbCommand

    Public Tampil3 As New OleDb.OleDbCommand

    Public Tampil4 As New OleDb.OleDbCommand

    Public Tampil5 As New OleDb.OleDbCommand

    Public Tampil6 As New OleDb.OleDbCommand

    Public Tampil7 As New OleDb.OleDbCommand

    Public Tampil8 As New OleDb.OleDbCommand

    Public Tampil9 As New OleDb.OleDbCommand

    Public Tampilkan As OleDb.OleDbDataReader

    Public Grid As New OleDb.OleDbDataAdapter

    Public DS As New DataSet

    Public Tabel, hasilcek As String

    Public Sub koneksi()

        Try

            Dtbase.Close()

Dtbase.ConnectionString = "Provider=SQLOLEDB.1:Integrated Security=SSPI;Persist Security info=False;Initial Catalog=Penjualan_komputer;Data Source=;User ID=sa"

            Dtbase.Open()

        Catch ex As Exception

            MsgBox(ex.ToString())

        End Try

    End Sub

End Module

Kata Bijak

Kata Bijak

Bhagavad Gita
Manusia dibentuk dari keyakinannya. Apa yang ia yakini, itulah dia.

Jack Trout
Bekerja lebih keras tidak lebih efektif dari bekerja lebih pintar.

Thomas Stanley
Kebanyakan milyuner mendapat nilai B atau C di kampus. Mereka membangun kekayaan bukan dari IQ semata, melainkan kreativitas dan akal sehat.

Albert Einstein
Imajinasi lebih penting daripada pengetahuan.

Walt Disney
Jika Anda dapat memimpikannya, Anda dapat melakukannya.

Eleanor Roosevelt
Masa depan adalah milik mereka yang percaya pada indahnya mimpi-mimpi mereka.

Peter F. Drucker
Cara terbaik meramalkan masa depan Anda adalah dengan menciptakan masa depan itu sendiri.

Mahatma Gandhi
Kita harus menjadi perubahan yang ingin kita lihat di dunia.
Thomas J. Watson
Jangan mencari kawan yang membuat Anda merasa nyaman, tetapi carilah kawan yang memaksa Anda terus berkembang.

Henry Ford
Bila Anda berpikir Anda bisa,maka Anda benar. Bila Anda berpikir Anda tidak bisa, Anda pun benar… karena itu ketika seseorang berpikir tidak bisa, maka sesungguhnya dia telah