Cara Cepat Simpan,Edit,Hapus,Cari

 Assalamualaikum Wr. Wb.

        Selamat siang teman-teman semoga dalam keadaan selahat selalu, kali ini saya akan membagikan tutorial Cara Cepat Simpan,Edit,Hapus,Cari Data di VB 6, walaupun ini cara cepat namun tidak terlalu banyak coding-coding yg di dibuat. Caranya sangat mudah simple dan mudah di pahami. ok langsung ke tutorialnya.

Buat Project baru, silahkan dengan form sesuai  dengan gambar di bawah ini :

kemudian koneksi database dengan menggunakan Adodc, bagi yang belum paham cara koneksi database dengan Adodc Silahkan Baca tutorial Koneksi Database dengan ADODC , tuliskan coding di bawah ini :

Private Sub Command1_Click()

With Me.Adodc1.Recordset

    .AddNew

    !kode_barang = Text1.Text

    !nama_barang = Text2.Text

    !satuan = Text3.Text

    !harga_jual = Text4.Text

    !stok = Text5.Text

    .Update

End With

HapusTxt

MsgBox "Data Tersimpan  ", vbInformation, ""

End Sub

Sub HapusTxt()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text1.SetFocus

End Sub

Private Sub Command2_Click()

With Me.Adodc1.Recordset

    !kode_barang = Text1.Text

    !nama_barang = Text2.Text

    !satuan = Text3.Text

    !harga_jual = Text4.Text

    !stok = Text5.Text

    .Update

End With

HapusTxt

MsgBox "Data Diperbaharui  ", vbInformation, ""

End Sub

Private Sub Command3_Click()

HapusTxt

End Sub

Private Sub Command4_Click()

Me.Adodc1.Recordset.Delete

Me.Adodc1.Recordset.MoveNext

MsgBox "Data Terhapus   ", vbInformation, ""

HapusTxt

End Sub

Private Sub DataGrid1_dblClick()

Text1.Text = Me.DataGrid1.Columns(0).Text

Text2.Text = Me.DataGrid1.Columns(1).Text

Text3.Text = Me.DataGrid1.Columns(2).Text

Text4.Text = Me.DataGrid1.Columns(3).Text

Text5.Text = Me.DataGrid1.Columns(4).Text

End Sub

Private Sub Text6_Change()

On Error GoTo Kembali

Me.Adodc1.Recordset.Filter = "nama_barang like '" & Text6.Text & "*'"

Set Me.DataGrid1.DataSource = Me.Adodc1

Exit Sub

Kembali:

    Me.Adodc1.Refresh

Exit Sub

End Sub

Sekarang Jalankan Program....

selamat Mencoba, Semoga berhasil....

Koneksi Database dengan ADODC

    Assalamualaikum Wr. Wb.

        Kali saya akan membuat tutorial Koneksi Datagrid dengan komponen ADODC, bagi teman-teman yang baru belajar atau belum tau apa itu ADODC ?, ADODC yaitu Komponen untuk mengkoneksikan database.Sepertinya koneksi akan sangat sulit ini, tapi tenang dengan adanya Komponen ini akan lebih mudah mengkoneksikan ke database, tidak seperti tutorial Program Penjualan dengan VB 6 #Step1 dan Program Penjualan dengan VB 6 #Step2 , dengan menggunakan coding, kali ini untuk tidak mennggunakan coding. gimana caranya langsung saja ke tkp....

Perlu di ketahui Komponen ADODC ini tidak ada dalam Toolbox VB, maka dari itu perlu menyimak langkah-langkahnya :

1. Klik Project pada Menu Bar kemudian klik Component seperti gambar berikut ini :

2. Kemudian Pilih atau ceklis Microsoft ADO Data Control 6.0 (OLEDB) kemudian akan muncul        Komponen ADODC 

3. Apply 

4. OK

Kemudian tambahkan juga Komponen Datagrid seperti langkah yang pertama kemudian Pilih Microsoft Datagrid Control 6.0 (OLEDB) kemudian Apply dan OK maka akan muncul Komponen Datagrid di Toolbox. Setelah Adodc dan Datagrid muncul, kemudian tambahkan kedalam form, seperti gambar berikut :

1. Kemudian Atur Komponen Adodc dengan cara Klik kanan ADODC Properties pilih Build 

2. Kemudian muncul Data Link Properties pilih Microsoft Jet 4.0 OLE DB Provider klik Next

3. Pilih database name cari database yang ingin di Koneksikan klik database - Open, Klik Test                    Conection untuk mencoba Koneksi jika Sukses muncul pemberitahuan Sukses

4. OK

5. Buka Tab RecordSource pilih Command Type  2-adCmdTable

6. Pilih Tabel yg akan di tampilkan

7. Apply

8. OK

koneksi adodc selesai, 

Mengatur pada Datagrid, dengan cara Klik datagrid pilih Datasource Adodc1 pada Properties

sekarang jalankan program kemudian data akan muncul pada Datagrid,sekian tutorial dari saya Selamat Mencoba

Program Penjualan dengan VB 6 #Step2

 Assalamualaikum Wr. Wb.

         selamat siang teman2, selamat menjalankan ibadah Puasa Ramadan bagi teman-teman yg menjalankanya. Ditengah cuaca panas ini, enaknya tiduran, sambil tiduran yuk kita ngoding, Kali ini saya melanjutkan tutorial Program Penjualan dengan VB 6 #Step2,karena Step1 sudah saya buat, silahkan kunjungi turorial Program Penjualan dengan VB 6 #Step1.oke kita langsung saja ke tutorialnya.

buka projek penjualan kemudian buka form baru seperti ini 

ketikan code di bawah ini :

Sub NoOtomatis()

Dim Urut As String

Dim Hitung As Long

Set RsPenjualan = New ADODB.Recordset

    RsPenjualan.Open "select * from penjualan where no_penjualan in(select max(no_penjualan) from penjualan) order by no_penjualan desc", Conn, adOpenDynamic, adLockOptimistic

    

    With RsPenjualan

        If .EOF Then

            Urut = "00001"

            Text1.Text = Urut

        Else

            Hitung = Right(!no_penjualan, 5) + 1

            Urut = Right("0000" & Hitung, 5)

        End If

        Text1.Text = Urut

    End With

End Sub

Sub DataTemp()

Set RsTemp = New ADODB.Recordset

    RsTemp.Fields.Append "Kode_Barang", adVarChar, 10, adFldIsNullable

    RsTemp.Fields.Append "Nama_Barang", adVarChar, 100, adFldIsNullable

    RsTemp.Fields.Append "Satuan", adVarChar, 50, adFldIsNullable

    RsTemp.Fields.Append "Harga", adCurrency, , adFldIsNullable

    RsTemp.Fields.Append "Jml", adInteger, , adFldIsNullable

    RsTemp.Fields.Append "Total", adCurrency, , adFldIsNullable

    RsTemp.Open

Set DataGrid1.DataSource = RsTemp

End Sub

Private Sub Command1_Click()

Form3.Show 1

End Sub

Private Sub Command2_Click()

Set RsPenjualan = New ADODB.Recordset

    RsPenjualan.Open "select * from penjualan where no_penjualan='" & Text1.Text & "'", Conn, adOpenDynamic, adLockOptimistic, adCmdText

    

    With RsPenjualan

        .AddNew

        !no_penjualan = Text1.Text

        !tgl_penjualan = Text2.Text

        !total_bayar = Text9.Text

        !dibayar = Text10.Text

        !kembali = Text11.Text

        .Update

    End With

    If RsTemp.EOF Then

        RsTemp.MoveFirst

    

    Set RsPenjualanDetail = New ADODB.Recordset

        RsPenjualanDetail.Open "select * from penjualan_detail", Conn, adOpenDynamic, adLockOptimistic, adCmdText

        

        Do Until RsTemp.EOF

            With RsPenjualanDetail

                .AddNew

                    !no_penjualan = Text1.Text

                    !kode_barang = RsTemp!kode_barang

                    !nama_barang = RsTemp!nama_barang

                    !satuan = RsTemp!satuan

                    !harga_jual = RsTemp!harga

                    !jumlah = RsTemp!jml

                    !total_harga = RsTemp!total

                .Update

            End With

            

    Set RsBarang = New ADODB.Recordset

        RsBarang.Open "select * from barang where kode_barang='" & RsTemp!kode_barang & "'", Conn, adOpenDynamic, adLockOptimistic

        

            With RsBarang

                    !stok = !stok - Val(RsTemp!jml)

                .Update

            End With

            RsTemp.MoveNext

        Loop

    End If

    MsgBox "Data Tersimpan    ", vbInformation

    CetakNota

    NoOtomatis

    HapusGridTemp

End Sub

Sub HapusGridTemp()

Set RsTemp = New ADODB.Recordset

    RsTemp.Fields.Append "Kode_Barang", adVarChar, 10, adFldIsNullable

    RsTemp.Fields.Append "Nama_Barang", adVarChar, 100, adFldIsNullable

    RsTemp.Fields.Append "Satuan", adVarChar, 50, adFldIsNullable

    RsTemp.Fields.Append "Harga", adCurrency, , adFldIsNullable

    RsTemp.Fields.Append "Jml", adInteger, , adFldIsNullable

    RsTemp.Fields.Append "Total", adCurrency, , adFldIsNullable

    RsTemp.Open

If RsTemp.EOF Then

    Do Until RsTemp.EOF

        RsTemp.Delete

        RsTemp.MoveNext

    Loop

Set DataGrid1.DataSource = RsTemp

End If

End Sub

Private Sub Form_Load()

Koneksi

NoOtomatis

DataTemp

Text2.Text = Format(Date, "dd/mm/yyyy")

End Sub

Sub CetakNota()

CrystalReport1.SelectionFormula = "({penjualan.no_penjualan})='" & Text1.Text & "'"

CrystalReport1.ReportFileName = App.Path & "\nota.rpt"

CrystalReport1.RetrieveDataFiles

CrystalReport1.Destination = crptToPrinter

CrystalReport1.Action = 1

End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    If Val(Text9.Text) < Val(Text10.Text) Then

        Text11.Text = Val(Text10.Text) - Val(Text9.Text)

    Else

        MsgBox "Pembayaran Masih Kurang", vbCritical, ""

    End If

End If

End Sub

Private Sub Text7_Change()

Text8.Text = Val(Text6.Text) * Val(Text7.Text)

End Sub

Sub HapusBarang()

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Me.Command1.SetFocus

End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)

Dim TotalBayar As Currency

If KeyAscii = 13 Then

    With RsTemp

        .AddNew

            !kode_barang = Me.Text3.Text

            !nama_barang = Me.Text4.Text

            !satuan = Me.Text5.Text

            !harga = Me.Text6.Text

            !jml = Me.Text7.Text

            !total = Me.Text8.Text

        .Update

    End With

    If Not RsTemp.EOF Then

        RsTemp.MoveFirst

        

        Do Until RsTemp.EOF

            TotalBayar = TotalBayar + Val(RsTemp!total)

            Text9.Text = TotalBayar

            RsTemp.MoveNext

        Loop

    End If

    HapusBarang

End If

End Sub

Selanjutnya buat form3 seperti gambar di bawah ini :

Ketikan Code dibawah ini :

Sub TampilGrid()

Set RsBarang = New ADODB.Recordset

    RsBarang.Open "select * from barang", Conn, adOpenDynamic, adLockOptimistic

Set DataGrid1.DataSource = RsBarang

End Sub

Private Sub DataGrid1_dblClick()

Form2.Text3.Text = DataGrid1.Columns(0).Text

Form2.Text4.Text = DataGrid1.Columns(1).Text

Form2.Text5.Text = DataGrid1.Columns(2).Text

Form2.Text6.Text = DataGrid1.Columns(3).Text

Unload Me

Form2.Text7.SetFocus

End Sub

Private Sub Form_Load()

Koneksi

TampilGrid

End Sub

Private Sub Text6_Change()

Set RsBarang = New ADODB.Recordset

    RsBarang.Open "select * from barang where nama_barang like '" & Text6.Text & "%'", Conn, adOpenDynamic, adLockOptimistic

Set DataGrid1.DataSource = RsBarang

End Sub

Jalankan Program....

Selamat Mencoba

Program Penjualan dengan VB 6 #Step1

 Assamualaikum Wr. Wb.

                Kali ini saya membuat tutorial penjualan sederhana step by step, supaya dapat di mengerti teman-teman sekalian yg masih pemula seperti saya hehehe ☺. Langsung saja kita keturorialnya.

Pertama kita buat database dulu tentunya dengan Ms. Access dengan nama dbJual , Buat tabel dengan nama Barang seperti gambar dibawah ini :

 

 

Setelah selesai kemudian buka project Vb 6, buat form baru dengan desain seperti di bawah ini :

Ketikan code di bawah ini :

 

Private Sub Command1_Click()

Set RsBarang = New ADODB.Recordset

    RsBarang.Open "select * from barang where kode_barang='" & Text1.Text & "'", Conn, adOpenDynamic, adLockOptimistic

  

   If RsBarang.EOF Then

    Set RsBarang = New ADODB.Recordset

        RsBarang.Open "select * from barang", Conn, adOpenDynamic, adLockOptimistic

       

        With RsBarang

            .AddNew

                !kode_barang = Text1.Text

                !nama_barang = Text2.Text

                !satuan = Text3.Text

                !harga_jual = Text4.Text

                !stok = Text5.Text

            .Update

        End With

        MsgBox "Data Tersimpan   ", vbInformation, ""

        Hapustxt

        TampilGrid

    Else

        MsgBox "Kode Barang Sudah ada  ", vbCritical, ""

    End If

End Sub

Sub Hapustxt()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text1.SetFocus

End Sub

Sub TampilGrid()

Set RsBarang = New ADODB.Recordset

    RsBarang.Open "select * from barang", Conn, adOpenDynamic, adLockOptimistic

Set DataGrid1.DataSource = RsBarang

End Sub

 

Private Sub Command2_Click()

Set RsBarang = New ADODB.Recordset

    RsBarang.Open "select * from barang where kode_barang='" & Text1.Text & "'", Conn, adOpenDynamic, adLockOptimistic

   

        With RsBarang

                !kode_barang = Text1.Text

                !nama_barang = Text2.Text

                !satuan = Text3.Text

                !harga_jual = Text4.Text

                !stok = Text5.Text

            .Update

        End With

        MsgBox "Data Tersimpan   ", vbInformation, ""

        Hapustxt

        TampilGrid

End Sub

 

Private Sub Command3_Click()

Hapustxt

End Sub

 

Private Sub Command4_Click()

Set RsBarang = New ADODB.Recordset

    RsBarang.Open "select * from barang where kode_barang='" & Text1.Text & "'", Conn, adOpenDynamic, adLockOptimistic

   

    RsBarang.Delete

    RsBarang.MoveNext

    Hapustxt

    TampilGrid

    MsgBox "Berhasil Di hapus  ", vbInformation, ""

End Sub

 

Private Sub DataGrid1_dblClick()

Text1.Text = DataGrid1.Columns(0).Text

Text2.Text = DataGrid1.Columns(1).Text

Text3.Text = DataGrid1.Columns(2).Text

Text4.Text = DataGrid1.Columns(3).Text

Text5.Text = DataGrid1.Columns(4).Text

End Sub

 

Private Sub Form_Load()

Koneksi

TampilGrid

End Sub

 

Private Sub Text6_Change()

Set RsBarang = New ADODB.Recordset

    RsBarang.Open "select * from barang where nama_barang like '" & Text6.Text & "%'", Conn, adOpenDynamic, adLockOptimistic

Set DataGrid1.DataSource = RsBarang

 

End Sub

 

Kemudian buat modul untuk menjalankan koneksi ketikan code dibawah ini :

Public Conn As New ADODB.Connection

Public RsBarang As New ADODB.Recordset

Public RsPenjualan As New ADODB.Recordset

Public RsPenjualanDetail As New ADODB.Recordset

Public RsTemp As New ADODB.Recordset

'buka koneksi database

Sub Koneksi()

Set Conn = New ADODB.Connection

    Conn.CursorLocation = adUseClient

    Conn.Provider = "microsoft.jet.oledb.4.0"

    Conn.Open "data source=" & App.Path & "\dbjual.mdb" 'database satu folder dengan project

End Sub

 

Form barang selesai di buat, sekarang jalankan project.

 selmat mencoba

Sekian dulu tutorial kali ini ……….

Buat Hurup Kapital dengan VBA Excel

 

Assalamualaikum Wr. Wb

                Kali ini saya membuat tutorial cara membuat hurup Kapital  di Ms. Excel, ehmm…. kenapa harus ada tutorilnya …

                Kan mudah tinggal pencet tombol Caps Lock beres……,

Yang jadi masalahnya data sudah di buat bahkan jumlah banyak, udah ratusan, ribuan, apa mungkin kita mengetiknya ulang satu persatu, artinya sama saja harus ketik ulang. Capek Dehhhh !!!!`

                Mungkin tutorialnya sederhana tapi sangat berguna bagi teman-teman pengguna Excel Pemula seperti saya. Oke kita mulai saja tutorialnya

Cara :

Menggunakan Rumus Excel  UPPER (Hurup Kapital/Besar),LOWER (Hurup Kecil )

• Fungsi  UPPER

 

• Fungsi  LOWER

            

      Menggunakan Fungsi VBA Macro                                           

Buka dahulu jendela VBA nya (Alt+F11)

 

Buat modul baru seperti gambar berikut :

 

• Fungsi UPPER

Ketikan Code di bawah ini :

 

Sub HurupKapital()

For Each x In Range("c3:c10")

    x.Value = UCase(x.Value)

Next

End Sub

Kemudian jalankan dengan menekan tombol RUN, maka hurup menjadi Kapital

• Fungsi LOWER

Ketikan Code di bawah ini :

 

Sub HurupKecil()

For Each x In Range("c3:c10")

    x.Value = LCase(x.Value)

Next

End Sub

 

Kemudian jalankan dengan menekan tombol RUN, maka hurup menjadi Kapital

 

Semoga tutorial ini berguna untuk teman-teman semua, jangan lupa kunjungi artikel lainya, sekalian tutorial dari ini saya ucapkan Terimakasih……

 

 

 

Software Pembayaran SPP

Assalamualaikum Wr. Wb

Kali ini saya akan memperkenalkan Software Pembayaran SPP untuk sekolah, software ini simple dan mudah di gunakan. Software ini terdiri dari menu :

• Profil Sekolah, silahkan di atur sendiri nama sekolah yg bersangkutan. 
• Siswa
• Kelas
• Petugas
• Transaksi Pembayaran
• Laporan
• Backup Database
• Restore Database

* Untuk menambah data pada siswa, kelas, petugas double klik pada tabel maka akan muncul form lalu klik ikon (x) maka akan muncul ikon (+), jika ingin menedit data maka lagsung saja klik gambar lembar list maka akan mengedit. Silahkan download Softwarenya Disini

Screenshot :

Silahkan Download Disini

Software Rumah Makan

 Assalamu'alaikum Wr. Wb

Kali ini saya mau memperkenalkan Software Rumah Makan, Software ini ukuran kecil tidak bikin ribet dan enteng di komputer spek rendah, seperti komputer saya yg masih menggunakan windows XP hehehe...dan sangat berguna bagi teman2 sekalian. 

Software terdiri beberapa menu seperti :

Menu Master

Profil Usaha

• Penggunaan
• Menu Makanan
• Meja Makan
• Sales/Pelayanan

Menu Transaksi

• Transaksi Pesanan Makanan
• Transaksi Pengeluaran

Menu Laporan

• Menu Makanan
• Meja Makanan
• Sales/Pelayanan
• Transaksi2

Utility

• Backup Database
• Restore Database

Statistik

• Penjualan
• Rating Menu Makanan

Untuk screenshot gambar

Silakan Download Softwarenya Disini

Untuk mendapatkan passwordnya silahkan tonton video ini sampai habis disini https://youtu.be/1MwY2IAso4c