Memunculkan Nama Bulan Pada Crystal Report

Pada Tutorial kali ini, akan kami bahas bagaimana cara memunculkan nama Bulan pada pembuatan Laporan dengan Crystal Report. Yakni anda bisa melihatnya sebagai contoh kami ambil pada laporan Bulanan Peminjaman koperasi (anda bisa download pada download Gratis kami)

Lihat gambar diatas, Nama bulan otomatis muncul pada laporan yang kita buat diatas. Cara nya sangat mudah, anda bisa mengikuti seperti langkah dibawah ini :

Buka Design Crystal Report
Klik Insert
Field Object
Klik Kanan Formula Fields :
Klik New
Masukan Nama : (COntoh : Bulan)
Ketikan Coding Seperti dibawah :

*Keterangan
Pinjam.TglPinjam adalah nama tabel dan nama field, silahkan sesuaikan dengan nama tabel yang anda buat

Jika sudah selesai, anda bisa klik Save
Masukan Formula "Bulan" tersebut sesuai dan masukan pada Crystal Report yang anda buat :)

Bahaya Menggunakan Laptop Tanpa Baterai

Di jaman modern ini, laptop sudah menjadi perangkat penting dan tak terpisahkan untuk mendukung aktivitas kita. Di saat kita sedang beraktivitas dengan laptop dan kemudian baterai habis, tentu akan repot jika kita harus menghentikan aktivitas kita di laptop untuk mencharge baterainya. Kebanyakan orang mencharge laptopnya sambil mengoperasikan laptop.

Tetapi di samping itu, banyak sekali timbul opini dari orang-orang bahwa bermain laptop sambil charge dapat membuat baterai cepat drop dan kembung. Tetapi ada juga pendapat yang mengatakan justru kalau bermain laptop lansung dari listrik tanpa menggunakan baterai justru merusakkan perangkat-perangkat laptop.

Sebenarnya keduanya tidak salah, tetapi perlu di ketahui kalau bermain laptop tanpa menggunakan baterai dan lansung dari listrik justru berdampak lebih fatal. Jika menghidupkan laptop lansung dari listrik dan tanpa baterai, listrik akan lansung menuju ke hardware tanpa melakukan penyesuaian tenaga, sehingga hardware menerima tegangan listrik yg berlebihan dan mempercepat kerusakan. Selain menyimpan daya, baterai juga menyesuaikan arus yang masuk ke komponen agar tidak terlalu tinggi.

Selain itu, jika terjadi mati lampu dan listrik PLN yang tidak stabil, tentu sangat membahayakan motherboard dan hardisk. Lebih baik baterai laptop yang mengalami kerusakan dari pada motherboard ataupun hardisk yang harganya lebih mahal di bandingkan baterai. Lagi pula kinerja baterai latop biasanya akan menurun di usia 2-3 tahun.

Sumber http://www.ceritaciijail.com/2013/07/bahaya-menggunakan-laptop-tanpa-baterai.html#ixzz2aUM7CR2T

VB6 Database: Listview Code Generator Source Code

Tools VB6 Add-Ins yang satu ini digunakan untuk mengenerate source code listview�untuk berinteraksi dengan�database. Cara menggunakan:Registrasikan terlebih dahulu komponen VB6 Listview Generator.dll yang terdapat dalam folder bin.Buka project VB6Klik menu Add-Ins >> VB6 Listview Generator, maka akan muncul form seperti di bawah ini:Gambar - VB6 Listview GeneratorPilih database apa saja (terserah

Install AndroPHP di Hp Android

Berikut ini akan dijelaskan bagaimana cara menginstall aplikasi android yaitu AndroPHP pada Hp Android, AndroPhp Adalah sebuah Aplikasi android untuk membuat localhost di Hp Android tersebut, dengan aplikasi ini, hp android akan dapat mengerjakan atau membuat database seperti layaknya di pc or laptop, kelebihan dari aplikasi ini menurut saya adalah kita bisa membuat aplikasi php di mana pun karena hp mudah di bawa dan sangat di butuhkan orang-orang saat ini. ada pun cara menginstall Aplikasi untuk membuat localhost di hp android adalah sebagai berikut :
1. download dulu aplikasi di play store. buka play store kemudian cari aplikasi dengan nama Androphp.
2. Setelah di download buka aplikasi tersebut dan segera on kan aplikasinya dengan cara menggeser tombol off kekiri menjadi on.
3. setelah on klikkan ip yang ada di bawah tombol on/off tadi (contoh : http://***.**.*.**:8080), untuk langsung masuk ke phpmyadmin (http://***.**.*.**:8080/phpmyadmin) tanpa tanda kurung ya.
4. aplikasi anda selesai di install dan telah bisa di jalankan.

Untuk text editor sangat banyak pilihan di google tentang text editor untuk hp android.
saran saya adalah anda harus mendownload text editor yang bernama "920 text editor" cara mendownloadnya sama dengan cara mendownload AndroPHP di atas yaitu cari di play store dan ketikkan 920 text editor.

setelah di download dan install segera lah membuka text editor baru anda dan kemudian tuliskan script php di bawah ini :

<?php
echo "waw akhirnya berhasil, thank you..";
?>
simpan script berikut dan beri nama testing.php .
setelah sukses menyimpan, segeralah anda ke browser anda dengan mengetikkan "http://***.**.*.**:8080" . itu akan langsung ke index dari pada localhost anda dan akan langsung ada file testing.php yang baru saja anda buat.
klik file tersebut...
jika yang keluar adalah waw akhirnya berhasil, thank you .. itu artinya anda berhasil,,dan selamat anda sekarang telah bisa membuat database di hp android anda, dan juga bisa mengerjakan aplikasi php anda hanya di hp android..
saya menggunakan hp android xperia mini, dan jelas trik di atas 100% berjalan sempoa eh sempurna.

sekian dan terima kasih.

Mengenal Struktur Directory Linux

Mengenal Struktur Directory Linux 

Directory merupakan sebuah istilah yang menggambarkan struktur hirarki, digunakan untuk mengatur file atau folder. Setelah sobat selesai menginstall Linux maka akan terbentuk sistem file yang baku, terdiri atas directory sebagai berikut :

* / = menunjukkan hirarki tertinggi dari sistem ditektori Linux dimana direktori ini membawahi dari direktori /usr, /home, /mnt dan direktori lainya seperti gambar diatas.

*  /bin = Berisi program yang berisi perintah-perintah yang digunakan oleh user biasa seperti perintah ls (menampilkan isi dari suatu direktori, cd (untuk berpindah direktori).

* /sbin = Berisi program yang berisi perintah-perintah yang digunakan oleh super user seperti ifconfig (menampilkan informasi tentang kartu jaringan / network device yang terpasang pada mesin).

* /boot = Berisi informasi yang berkaitan dengan device dan service yang dijalankan ketika komputer melakukan booting (proses komputer dari keadaan mati/off menjadi hidup/on).

* /dev = Berisi file system khusus yang merupakan refleksi device hardware yang dikenali dan digunakan sistem

* /etc = Merupakan direktori tempat file konfigurasi berbagai macam service dan program yang terinstall di dalam sistem.

* /home = Berisi data dari user yang terdaftar dalam komputer / mesin yang bersangkutan.

* /lib = Berisi file-file library yang digunakan untuk mendukung kerja kernel Linux

* /media = Direktori untuk mounting removable media seperi drive CD-ROM, floopy disk dan zip drive.

* /mnt = Berisi informasi device yang terpasang (mount) di dalam komputer.

* /opt = Direktori ini menyimpan file-file tambahan dari vendor-vendor tertentu. Sifatnya hanya optional.

* /proc = Direktori istimewa untuk sistem file virtual. Ia mencakupi informasi mengenai berbagai aspek sistem Linux.

* /root = Merupakan �home� nya superuser / root / administrator.

* /srv = Direktori srv berisikan file-file service yang dibutuhkan oleh sebuah server.

* /sys = Direktori special yang memuatkan informasi mengenai hard disk seperti yang dilihat melalui Linux.

* /tmp = Direktori yang digunakan untuk menyimpan data sementara. Isi dari direktori ini dibersihkan setiap kali sistem boot.

* /usr = berisi paket program, dokumentasi, konfigurasi, aplikasi, library dan source aplikasi linux.

* /usr/bin = Berisi file yang dapat diakses untuk pelbagai perintah Linux yang bukan merupakan sebahagian dari OS Linux.

* /usr/include = Berisi file � file header dari bahasa program C dan C++.

* /usr/lib = Berisi file � file library untuk bahasa C dan C++.

* /usr/local = Berisi data lokal. Ia mengadungi direktori yang sama seperti /usr.

*  /usr/sbin = Berisi perintah � perintah administration.

* /usr/share = Berisi data yang digunakan oleh banyak user sekaligus, seperti file konfigurasi default, gambar dan dokumen.

* /usr/src = Berisi source code untuk Linux kernel.

* /var = Berisi pelbagai sistem file seperti log, direktori mail, print dan lain � lain. Yang sering kali berubah kandungannya.

* /var/cache = Area penyimpanan untuk cache data berbagai aplikasi.

* /var/lib = Berisi informasi tentang status aplikasi � aplikasi yang ada. Aplikasi memodifikasi direktori ini semasa melakukan sesuatu kerja.

* /var/lock = Berisi file yang dikunci supaya ia hanya boleh diguna oleh satu aplikasi saja.

* /var/log = Berisi log dari aplikasi yang berbeza.

* /var/mail = Berisi email pemilik.

* /var/opt = Berisi data variable untuk pakej yang disimpan di direktori /opt. 

* /var/run = Berisi data yang menjelaskan sistem sejak pertama kali dijalankan.

* /var/spool = Memuatkan data yang menunggu untuk diproses.

* /var/tmp =Berisi file sementara, isi direktori ini tidak dihapus semasa sistem dimatikan.

Itu saja yang saya dapat berikan mengenai Mengenal Struktur Directory Linuxsemoga dapat memberikan mamfaat bagi sobat...

Sumber : http://semukan.blogspot.com/2013/03/mengenal-struktur-directory-linux.html

Panduan Lengkap Install openSUSE 12.3 KDE

OpenSUSE adalah sistem operasi komputer yang dibangun diatas kernel Linux. OpenSUSE dikembangkan dengan dukungan komunitas melalui Proyek OpenSUSE yang disponsori oleh SUSE dan sejumlah perusahaan lain. Setelah Novell mengakuisisi SUSE Linux pada bulan Januari 2004, Novell memutuskan untuk melepaskan produk SUSE Linux Profesional sebagai 100% proyek open source. Pada tahun 2011 The Attachmate Grup mengakuisisi Novell dan membagi Novell dan SUSE menjadi dua anak perusahaan yang berdiri sendiri. SUSE menawarkan produk dan jasa sekitar SUSE Linux Enterprise - yang dibangun dengan dasar OpenSUSE Linux.

Rilis awal dari proyek komunitas OpenSUSE adalah versi beta dari SUSE Linux 10.0. Versi stabil saat ini adalah openSUSE 12.3 yang telah dirilis pada tanggal 13 Maret 2013.OpenSUSE merupakan distribusi linux yang dikembangkan oleh komunitas dan disponsori oleh Novell. Panduan dibawah ini akan menjelaskan cara install openSUSE 12.3 KDE, yang sudah rilis baru-baru ini.

Tahap Persiapan

Sebelum melakukan instalasi, terlebih dulu anda menyiapkan persiapan atau dapat disebut tahap pra.

Syarat minimal sistem:
- CPU : Pentium 4 2.4 GHz atau yang lebih tinggi
- RAM : 1 GB RAM atau yang lebih tinggi
- Ruang Hardisk: Minimal 5 GB yang tersedia.

Download OpenSUSE 12.3 KDE:
- Direct Download   : openSUSE-12.3-KDE-Live-i686.iso
- Torrent Download : openSUSE-12.3-KDE-Live-i686.iso.torrent

Membuat media installasi (Installer):
1. Burning iso file ke DVD
2. Membuat installer dengan media flashdisk

Tahap Installasi

1. Booting komputer anda melalui media DVD atau Flashdisk

2. Untuk melihat-lihat seperti apa sistem operasi ini sebelum melakukan installasi, anda pilih openSUSE 12.3 KDE Live. Jika anda ingin langsung melakuan installasi, pilihInstallation.

3. Memilih Bahasa dan membaca lisensi, disini saya memilih bahasa inggris sebagai bahasa default sistem.

4. Mengatur zona waktu, karena saya tinggal di Jakarta - Indonesia, saya memilih regional Asia dengan zona waktu Jakarta (WIB).

5. Tahap membuat partisi. 

Secara default openSUSE akan menyarankan kepada anda untuk membuat 3 partisi, yaitu partisi / root (untuk file sistem), partisi /home (partisi untuk menyimpan data), danpartisi swap. Anda juga dapat mengubah ukuran dan pengaturan lanjutan dengan memilih menu Edit Partitions Setup.

Bagi anda yang akan melakukan dualboot anda harus hati-hati disini. 

Kesalahan dalam mem-partisi akan menyebabkan hilangnya data anda pada hardisk. Pastikan anda mengetahui setiap tahapan yang talah anda lakukan.

 6. Membuat User baru. Masukkan nama anda dan buatlah kata sandi sistem ada.

7. Setelah anda melakukan pengaturan diatas, maka akan muncul dialog berikut. Anda dapat mengubah pengaturan sebelumnya sebelum benar-benar melakukan installasi.

8. Konfirmasi instalasi dengan klik tombol 'Install'. Setelah anda klik tombol Install, anda tidak dapat membatalkannya sebelum proses installasi selesai.

9. Instalasi berlangsung dan memakan waktu beberapa saat. Tunggu hingga proses ini selesai.

10. Setelah proses installasi diatas selesai, komputer akan reboot. Lalu sistem akan melakukan Automatic Configuration.

11. Setelah selasai semua, reboot lagi komputer anda.

Semoga Artikel ini dapat bermanfaat..,^_^

Sumber : http://tulis123.blogspot.com/2013/04/panduan-lengkap-install-opensuse-123-kde.html

Cara Mengistall Ubuntu

Kali ini jakainfo akan sharing informasi ttg cara menginstall linux ubuntu ke komputer/laptop, Ok langsung saja berikut langkah-langkah mengistall linux ubuntu :

1.Masukkan CD Installer ke perangkat CD / DVD-ROM dan reboot komputer untuk boot dari CD.
Tunggu sampai CD termuat ...

2.Anda akan melihat wallpaper dan jendela instalasi. Pilih bahasa dan klik tombol "Install Ubuntu 10.04
LTS" untuk melanjutkan ..

3.Layar kedua akan menampilkan peta bumi. Setelah pemilihan lokasi, waktu sistem akan menyesuaikan.
Klik tombol "Forward" setelah Anda memilih lokasi yang Anda inginkan ..

4.Pada layar ketiga, Anda dapat memilih layout keyboard yang diinginkan.
Klik tombol "Forward" bila Anda telah selesai dengan konfigurasi keyboard ...

5.Anda memiliki empat pilihan di sini:

  Jika Anda memiliki sistem operasi lain (misalnya Windows XP) dan Anda ingin sistem dual boot, pilih :

1. Pilihan pertama : "Instal mereka berdampingan, memilih di antara mereka pada setiap startup."
2. Pilihan Kedua : "Jika Anda ingin menghapus sistem operasi yang ada, atau hard drive sudah kosong dan Anda ingin agar installer secara otomatis mempartisi hard drive Anda, pilih pilihan kedua, "Gunakan seluruh disk (Use entire disk)"
3. Pilihan Ketiga : "Gunakan ruang terbesar bebas terus-menerus" dan akan menginstal Ubuntu 10.04 di ruang unpartitioned pada hard drive yang dipilih.
4. Pilihan Keempat : "Tentukan partisi secara manual" dan dianjurkan HANYA untuk pengguna tingkat lanjut, untuk membuat partisi khusus atau memformat hard drive dengan filesystem lain dari yang default. Tetapi juga dapat digunakan untuk menciptakan partisi / home, yang sangat berguna jika Anda menginstal ulang seluruh sistem.

6.Tabel partisi akan terlihat seperti gbr di atas. Klik tombol "Forward" untuk melanjutkan instalasi ...

7.Pada layar ini, isi kolom dengan nama asli Anda, nama yang ingin Anda gunakan untuk login di Ubuntu
OS (juga dikenal sebagai username yang akan diminta untuk log in ke sistem), password dan nama
komputer (secara otomatis, tetapi bisa ditimpa).

8.Juga pada langkah ini, ada sebuah opsi bernama "Login secara otomatis". Jika Anda mencentang kotak
pada pilihan ini, Anda akan secara otomatis login ke desktop Ubuntu. Klik tombol "Forward" tombol
untuk melanjutkan ...

9.Ini adalah langkah akhir instalasi. Klik tombol �Install�.

10.Ubuntu 10.04 LTS (Lucid Lynx) akan terinstall...

11.Setelah beberapa menit (tergantung spesifikasi komputer Anda), sebuah jendela pop-up akan muncul,
yang memberitahukan bahwa instalasi selesai, dan Anda harus me-restart komputer untuk
menggunakan sistem operasi Ubuntu yang baru diinstal. Klik tombol "Restart Now"...

12.CD tersebut akan keluar otomatis; keluarkan dan tekan "Enter" untuk reboot. Komputer akan direstart
dan dalam beberapa detik, Anda akan melihat boot splash Ubuntu ...

13.Pada layar login, klik nama pengguna Anda dan masukan password Anda.
Klik "Log In" atau tekan Enter ...

14.Tampilan Desktop Ubuntu 10.04 LTS (Lucid Lynx).

 Sekian dan Terima Kasih.


Semoga dapat bermanfaat..,^_^ 

Cara Membuat Hak Akses Pada User VB.net

Setelah saya membuat artikel  Cara Membuat StatusBar atau StatusStrip Di VB.NET
kali ini saya ingin membuat hak akses pada user , misal nya seorang kasir dia hanya bisa transaksi saja dan tidak bisa entry data dan sedangkan admin bisa entry data . ini masih ada hubungan nya dengan status bar , bagi yang belum buat, bisa baca di CARA MEMBUAT STATUSBAR ATAU STATUSSTRIP DI VB.NET .

setelah status bar nya sudah di buat ,saya menggunakan menu strip , mari kita masuk codingan nya .

Nah codingan ini di taro di form load

If statusBarUser.Text = "kasir" Then
            MasterToolStripMenuItem.Enabled = False
            TransaksiToolStripMenuItem.Enabled = True
        End If


Cara Kedua taro di button ok form login

Call opendb()
        Dim aa As String = ""
        aa = " select * from tlogin where userop ='" & txtusername.Text & "' " & _
            " And jabatan ='" & "kasir" & "' "
        cmd = New OleDb.OleDbCommand(aa, conn)
        Dim rs As OleDb.OleDbDataReader

        rs = cmd.ExecuteReader()
        If  rs.Read Then
            Form2.Show()
            Form2.MasterToolStripMenuItem.Enabled = False
            Form2.TransaksiToolStripMenuItem.Enabled = True
            Form2.mdilogin.Enabled = False
            Me.Hide()
'Form2 adalah Fmenu
        End If

Semoga bermanfaat .

Cara Membuat StatusBar atau StatusStrip Di VB.NET

Berikut Cara Membuat StatusBar atau StatusStrip Di VB.NET Saya Menggunakan Visual Studio 2010
Saya Membuat nya langsung dengan coding tanpa bantuan toolbox , codingan taro di form load

Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Membuat Status bar nya
        Dim statusBarMain As New StatusBar
        statusBarMain.Name = "StatusBar"
        statusBarMain.ShowPanels = True

'MEMBUAT PANEL USER LOGIN

        Dim statusBarUser = New StatusBarPanel
        statusBarUser.Name = "StatusBarUser"
        statusBarUser.Text = flogin.txtusername.Text
        statusBarUser.AutoSize = StatusBarPanelAutoSize.Contents
        statusBarMain.Panels.Add(statusBarUser)

'MEMBUAT PANEL TANGGAL

        Dim statusBarDate = New StatusBarPanel
        statusBarDate.Name = "StatusBarDate"
        statusBarDate.Text = FormatDateTime(Now(), DateFormat.ShortDate)
        statusBarDate.AutoSize = StatusBarPanelAutoSize.Contents
        statusBarMain.Panels.Add(statusBarDate)

'MEMBUAT PANEL JAM

        Dim statusBarTime = New StatusBarPanel
        statusBarTime.Name = "StatusBarTime"
        statusBarTime.Text = FormatDateTime(Now(), DateFormat.LongTime)
        statusBarTime.AutoSize = StatusBarPanelAutoSize.Contents
        statusBarMain.Panels.Add(statusBarTime)

'MEMBUAT PANEL CAPS LOCK ON/OFF

        Dim statusBarCAPS = New StatusBarPanel
        statusBarCAPS.Name = "StatusBarCAPS"

        If My.Computer.Keyboard.CapsLock = 1 Then
            statusBarCAPS.Text = "CAPS ON"
        Else
            statusBarCAPS.Text = "CAPS OFF"
        End If

        statusBarCAPS.AutoSize = StatusBarPanelAutoSize.Contents
        statusBarMain.Panels.Add(statusBarCAPS)

'MEMBUAT PANEL NUM LOCK ON/OFF

        Dim statusBarNUMS = New StatusBarPanel
        statusBarNUMS.Name = "StatusBarNUMS"

        If  My.Computer.Keyboard.NumLock = 1 Then
            statusBarNUMS.Text = "NumLock ON"
        Else
            statusBarNUMS.Text = "NumLock OFF"
        End If

        statusBarNUMS.AutoSize = StatusBarPanelAutoSize.Contents
        statusBarMain.Panels.Add(statusBarNUMS)

        ' TAMBAHKAN SEMUA KONTROL KE FORM
        Me.Controls.Add(statusBarMain)

'REFRESH STATUSBAR NYA DENGAN TIMER
Timer1.Start()
    End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim status As StatusBar = CType(Me.Controls.Find("statusBar", True)(0), StatusBar)

        status.Panels("statusBarDate").Text = FormatDateTime(Now(), DateFormat.ShortDate)
        status.Panels("statusBarTime").Text = FormatDateTime(Now(), DateFormat.LongTime)

        If My.Computer.Keyboard.NumLock = 1 Then
            status.Panels("statusBarNUMS").Text = "NumLock ON"
        Else
            status.Panels("statusBarNUMS").Text = "NumLock OFF"
        End If

        If My.Computer.Keyboard.CapsLock = 1 Then
            status.Panels("statusBarCAPS").Text = "CAPS ON"
        Else
            status.Panels("statusBarCAPS").Text = "CAPS OFF"
        End If

    End Sub

Cara Menyimpen tanda kutip(') di VB.Net

Berikut adalah codingan cara menyimpen tanda kutip(') di vb.net atau visual studio 2010

 Public Function SQLdenganKutip(ByVal sText)

        Dim sTemp

        If Not IsNothing(sText) Then sTemp = Replace(sText, "'", "''")

        SQLdenganKutip = sTemp

    End Function

   

Lalu taro fungsi sqldengankutip seperti codingan yang berwarna merah .

            Dim bb As String

            bb = "Insert into tamu " & _

                 "( kode_tamu " & _

            ",No_kartuidentitas " & _

",Nama_tamu " & _

                  ",Kewarganegaraan) " & _

                  " Values " & _

                  " ('" & txtkodetamu.Text & "' " & _

            " ,'" & txtnoktp.Text & "' " & _

                  " ,'" & SQLdenganKutip(txtnamalengkap.Text) & "' " & _

                  " ,'" & txtkewarganegaraan.Text & "') "

            cmd = New OleDb.OleDbCommand(bb, conn)

            cmd.ExecuteNonQuery()

            cmd.Dispose()

Cara agar tidak ada data yang sama di listview vb.net

Berikut codingan nya agar tidak ada data yang sama di listview .

For Each item As ListViewItem In lvpesen.Items
            If item.Text = txtkode.Text Then
                MessageBox.Show("Data Ini Sudah Ada pada Baris Ke " + (item.Index + 1).ToString, "Warning", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                Exit Sub
            End If
        Next
       
semoga bermanfaat

Cara Mengatasi Crystal report database minta login ketika pindah komputer

Hal ini saya alamin ketika saya pindah komputer . awal nya saya membuat laporan/crystal report nya di tempat temen , nah ketika saya jalankan di komputer saya , ternyata database nya minta login , padahal di server sql saya sudah ada database nya , eh ternyata sql server bukan database yang portable kata nya sih . jadi harus di update lagi koneksi nya . berikut cara nya saya menggunakan visual studio 2010 :

Nah buka Crystal report nya > di situ ada database field , lalu klik kanan dan pilih set datasource location .

Lalu pilih Create new Connection > bikin seperti biasa > kalo udah selesai tinggal di klik lambang database update .

selesai .

Cara Mengtahui jumlah data/row yg ada di database VB.net

ini codingan bagaimana cara menghitung atau mengtahui jumlah data yang di tabel kamar
saya menggunakan visual studio 2010
Call opendb()
        Dim cc As String
        cc = " Select count(*) from kamar "
        cmd = New OleDb.OleDbCommand(cc, conn)
        Dim rs As Integer

        rs = cmd.ExecuteScalar

        Label1.Text = rs

Nah kalo ini menghitung atau mengetahui jumlah data di tabel kamar yang berfasilitas AC

Dim dd As String

        dd = " Select count(*) from kamar where fasilitas = '" & "AC" & "' "

        cmd = New OleDb.OleDbCommand(dd, conn)

        Dim rsu As Integer

        rsu = cmd.ExecuteScalar

        Label5.Text = rsu

Semoga bermanfaat .

Membuat Laporan Tahunan Dengan Crystal Report Pada VB 6.0

 
Untuk mengikuti Tutorial Pembuatan Laporan Tahunan kali ini, kami menyarankan anda melihat Postingan kami sebelumnya yaitu cara membuat Laporan Harian, Mingguan dan Bulanan agar anda bisa tahu Perbedaannya.

Baiklah jika anda sudah mengikuti pembuatan laporan kita dari awal, langsung saja Fungsi Laporan Tahunan ini adalah Untuk melihat Semua Transaksi yang terjadi di Tahun tertentu. Sebagai contoh kita akan melihat semua Transaksi yang Terjadi di Tahun 2013 baik banyaknya akumulasi Barang, Banyaknya transaksi Supplier atau Pelanggan anda.

Disini akan kami bahas cara pemanggilan pada Crystal Report yang sudah anda buat tersebut.
Syntaq dasarnya adalah :

CrystalReport1.SelectionFormula = "year({NamaTabel.NamaField})=" & Val(Combo1) & "' "

Pada syntaq diatas kita asumsikan kita akan memanggil data pada database dengan Nama Tabel dan di Field tersebut. dan pemilihan tanggal kita menggunakan Combo yaitu pada Combo1 yang akan diambil tahunnya

Dan berikut adalah contoh pemanggilan dari beberapa Program yang telah dibuat Oleh PintarVB

Private Sub Combo1_Click()
    CrystalReport1.SelectionFormula = "year({Pembelian.TanggalBeli})=" & Val(Combo1) & "' "
    CrystalReport1.ReportFileName = App.Path & "\LaporanBeliTahunan.rpt"
    CrystalReport1.WindowState = crptMaximized
    CrystalReport1.RetrieveDataFiles    CrystalReport1.Action = 1
End Sub

Semoga bisa membantu Belajar VB 6.0 anda :)

Membuat Laporan Dari Bulan 1 Ke Bulan 2 Dengan Crystal Report

Pada Tutorial kali ini adalah lanjutan pembuatan laporan Bulanan pada sebelumnya. Jika sebelumnya telah kita bahas bagaimana cara membuat Laporan Bulanan Dengan Crystal Report, kini saatnya kita buat Laporan Dari Bulan 1 ke Bulan 2 atau Dari Bulan A ke Bulan B pada VB 6.0.

Fungsi ini banyak digunakan pada Laporan Triwulan, Laporan Caturwulan, atau Laporan PerSemester dengan Crystal Report.

Disini akan kami bahas cara pemanggilan pada Crystal Report yang sudah anda buat tersebut.
Syntaq dasarnya adalah :
CrystalReport1.SelectionFormula = "Month({NamaTabel.NamaField})=" & (Combo1) & " to " & (Combo2) & " and Year({NamaTabel.NamaField})=" & Val(Combo3.Text)

Pada syntaq diatas kita asumsikan kita akan memanggil data pada database dengan Nama Tabel dan di Field tersebut. dan pemilihan Bulan 1 Pada Combo1, Bulan 2 pada Combo2 dan Tahun Pada Combo3

Dan berikut adalah contoh pemanggilan dari beberapa Program yang telah dibuat Oleh PintarVB

Private Sub Combo1_Click()
    CrystalReport1.SelectionFormula = "Month({Pembelian.TanggalBeli})=" & (Combo1) & " to " & (Combo2) & " and Year({Pembelian.TanggalBeli})=" & Val(Combo3.Text)
    CrystalReport1.ReportFileName = App.Path & "\LaporanPembelianBulanKeBulan.rpt"
    CrystalReport1.WindowState = crptMaximized
    CrystalReport1.RetrieveDataFiles
    CrystalReport1.Action = 1
End Sub

Semoga bisa membantu Belajar VB 6.0 anda :)

Membuat Laporan Bulanan Dengan Crystal Report Pada VB 6.0

Jika anda belum belajar pada Postingan kami sebelumnya tentang Cara Pembuatan Laporan Harian dan Mingguan, kami sarankan anda lihat terlebih dahulu karena pada postingan kali ini adalah lanjutan dari pembuatan laporan harian dan mingguan.

Pada Tutorial kali akan kita bahas Pembuatan Laporan Bulanan dengan Crystal Report pada VB 6.0.
Laporan harian dibutuhkan biasanya untuk melihat Transaksi pada Bulan tertentu sesuai dengan kebutuhan kita. sebagai contoh Klien kita meminta laporan semua transaksi yang terjadi pada Bulan Juli 2013. Dengan belajar pada Tutorial kali ini diharapkan anda mengetahui caranya.

Disini akan kami bahas cara pemanggilan pada Crystal Report yang sudah anda buat tersebut.
Syntaq dasarnya adalah :

CrystalReport1.SelectionFormula = "Month({NamaTabel.NamaField})=" & (Combo1) & " and Year({NamaTabel.NamaField})=" & Val(Combo2.Text)

Pada syntaq diatas kita asumsikan kita akan memanggil data pada database dengan Nama Tabel dan di Field tersebut. dan pemilihan bulan pada Combo1 dan Tahun pada Combo2

Dan berikut adalah contoh pemanggilan dari beberapa Program yang telah dibuat Oleh PintarVB

Private Sub Combo1_Click()
    CrystalReport1.SelectionFormula = "Month({Pembelian.TanggalBeli})=" & (Combo1) & " and Year({Pembelian.TanggalBeli})=" & Val(Combo2.Text)
    CrystalReport1.ReportFileName = App.Path & "\LaporanBeliBulanan.rpt"
    CrystalReport1.WindowState = crptMaximized
    CrystalReport1.RetrieveDataFiles
    CrystalReport1.Action = 1
End Sub

Semoga bisa membantu Belajar VB 6.0 anda :)

Membuat Laporan Mingguan Dengan Crystal Report Pada VB 6.0

Pada Tutorial kali yaitu Lanjutan dari Postingan kami sebelumnya tentang pembuatan Laporan harian dan untuk kali ini kita akan belajar Pembuatan Laporan Mingguan dengan Crystal Report pada VB 6.0.
Laporan Mingguan adalah untuk melihat dari tanggal A ke tanggal B. sebagai contoh kita ingin melihat transaksi yang terjadi pada tanggal 1 sampai tanggal 7 Juli 2013.

Disini akan kami bahas cara pemanggilan pada Crystal Report yang sudah anda buat tersebut.
Syntaq dasarnya adalah :
CrystalReport1.SelectionFormula = "{NamaTabel.NamaField} in date (" & Combo1 & ") to date (" & Combo2 & ")"

Pada syntaq diatas kita asumsikan kita akan memanggil data pada database dengan Nama Tabel dan di Field tersebut. dan pemilihan tanggal kita menggunakan Combo yaitu pada Combo1 dan Combo2

Dan berikut adalah contoh pemanggilan dari beberapa Program yang telah dibuat Oleh PintarVB

Private Sub Combo2_Click()

   CrystalReport1.SelectionFormula = "{Pembelian.TanggalBeli} in date (" & Combo1 & ") to date (" & Combo2 & ")"

    CrystalReport1.ReportFileName = App.Path & "\LaporanMingguanBeli.rpt"
    CrystalReport1.WindowState = crptMaximized
    CrystalReport1.RetrieveDataFiles
    CrystalReport1.Action = 1

End Sub

Semoga bisa membantu Belajar VB 6.0 anda :)

Membuat Laporan Harian Dengan Crystal Report Pada VB 6.0

Pada Tutorial kali kita sudah memasuki Pembuatan Laporan harian dengan Crystal Report pada VB 6.0.
Laporan harian dibutuhkan biasanya untuk melihat Transaksi pada Hari atau tanggal tertentu baik itu banyaknya Transaksi, Jumlah akumulasi barang yang terjual/terbeli dll.

Disini akan kami bahas cara pemanggilan pada Crystal Report yang sudah anda buat tersebut.
Syntaq dasarnya adalah :

CrystalReport1.SelectionFormula = "totext({NamaTabel.NamaField})='" & CDate(Combo1) & "' "

Pada syntaq diatas kita asumsikan kita akan memanggil data pada database dengan Nama Tabel dan di Field tersebut. dan pemilihan tanggal kita menggunakan Combo yaitu pada Combo1

Dan berikut adalah contoh pemanggilan dari beberapa Program yang telah dibuat Oleh PintarVB

Private Sub Combo1_Click()
    CrystalReport1.SelectionFormula = "totext({Pembelian.TanggalBeli})='" & CDate(Combo1) & "' "
    CrystalReport1.ReportFileName = App.Path & "\LaporanHarianBeli.rpt"
    CrystalReport1.WindowState = crptMaximized
    CrystalReport1.RetrieveDataFiles
    CrystalReport1.Action = 1
End Sub

Semoga bisa membantu Belajar VB 6.0 anda :)

?

VB6 DataGrid: Mengatur Tinggi Listitem Dropdown

Membahas hal yang kurang penting mengenai cara mengatur tinggi Listitem pada dropdown datagrid. Seperti biasa menggunakan fungsi API SendMessage yang bisa dilihat penjelasannya disini, kemudian beberapa konstanta ListBox yang bisa Anda lihat penjelasannya disini, serta konstanta ComboBox yang bisa Anda lihat penjelasannya disini. Option Explicit Private Declare Function SendMessage Lib "user32"

Gratis Aplikasi Koperasi Dengan VB 6.0

Pada Download Aplikasi Gratis kali ini adalah Aplikasi Koperasi dengan VB 6.0
Aplikasi ini di requestkan oleh rekan kami Andi yang ada di Sumatra yang sudah merequestkan melalui Email :)

Untuk menDownloadnya silahkan KLIK DISINI

Kode Admin : ADM001
Password : admin

Untuk menjalankan Aplikasi ini pastikan :
1. Anda sudah menginstal VB 6.0
2. Anda suda instal Crystal Report

Jika aplikasi Koperasi ini bermanfaat untuk anda, mohon untuk berkomentar dibawah agar PintarVB bisa menjadi Partner yang baik untuk belajar pemograman VB anda :)

Cara Left Join Dengan Php

Hari ini Senin tanggal 22 Juli 2013, di sini saya bersama rekan saya, yang mana mereka ini bergerak di bidang animasi, tepatnya animator blender, saat ini kami sedang membahas seputaran skripsi karena saat ini kami sedang menjalani semester 9. itu artinya jika tidak ada hambatan tahun ini juga bisa langsung lulus hohoho..amien..
yang penting usaha dulu..
baiklah, di malam yang penuh gemerlap bintang ini saya akan membahas tentang script php yaitu cara menggunakan left join di php yang mana ini menurut saya sangat penting karena memang left join sangat berperan penting dalam kehidupan script php, yang mana left join berfungsi untuk menampilkan data dari beberapa tabel, beberapa tabel maksudnya mulai dari 2 tabel dan selanjutnya, adapun malam ini saya hanya akan membahas tentang menampilkan data dari 2 tabel yaitu seperti ini contohnya...

<?php
        include ("koneksi.php");
        $no=1;
echo '<table border="1">';
echo '<tr><th>NO<th>NIS<th width="100">Nama<th>Nama Kursus<th width="" align="center">Aksi';
        $result=mysql_query("select a.id,a.nis,a.nama,b.nmMp        from siswa a
         LEFT JOIN mp b on a.kdMp=b.kdMp");
         while($obj=mysql_fetch_object($result))
        {
              echo '<tr><td>'.$no++.'<td>'.$obj->nis.'<td>'.$obj->nama.'<td>'.$obj->nmMp.
              echo '<td align="center"><a href="siswa/edit.php?id='.$obj->id.'">Edit</a> ';
              echo '<a href="siswa/delete.php?id='.$obj->id.'">Hapus</a> ';
    }
        ?>
        </table>
Perintah left join berada di
         $result=mysql_query("select a.id,a.nis,a.nama,b.nmMp from siswa a
         LEFT JOIN mp b on a.kdMp=b.kdMp");
     

dimana perintah select adalah untuk menampilkan, yang di tampilkan adalah id, nis,nama dan nmMp.
apa arti a dan b pada a.id dan seterusnya  kan gitu? itu adalah untuk menunjukkan bahwa tabel a adalah tabel pertama yang akan kita tampilkan dan b tabel kedua.
from siswa a ... itu untuk menunjukkan bahwa tabel pertama yaitu a adalah tabel siswa dan Left Join mp b adalah tabel kedua.
on a.kdMp=b.kdMp ; nah, ini yang penting ini, karena apa yang akan di tampilkan harus sama dan sesuai dengan apa yang ada di tabel, untuk namanya bisa saja berbeda seperti on a.kdMp=b.kdMataPelajaran asalkan apa yang akan di tampilkan yang sesuai dengan kdMp adalah benar dengan mata pelajaran..
wah susah ya kalimatnya, itu lah kekurangan saya, kurang bisa menjelaskan..
gini aja.
misalkan pada tabel siswa ada nama dan kdMp, dimana pada field kdMp isinya hanya lah berupa id atau pun kode dari mata pelajaran, sedangkan pada tabel mp ada kdMp dan nmMp.
nah agar perintah ini berlangsung sukses maka kita harus mencocokkan apa yang sama pada tabel tersebut.
yaitu kdMp pada tabel pertama dan kdMp juga pada tabel kedua.
mudah-mudahan paham lah.
karena sekarang sudah waktunya tidur.
sekian dan terima kasih.
mungkin dengan rekan-rekan bertanya saya bisa menjelaskan lebih lagi. hehe.