Tips Menggerakan Kursor Tanpa Mouse
Berikut saya memberikan tips untuk menggerakkan cursor dengan keyboard apabila mouse anda rusak.
Langkah-langkahnya adalah sebagai berikut:
1. Tekan tombol ALT(sebelah kiri)+Shift(sebelah kiri)+NumLock secara bersamaan. Cara ini akan memunculkan windows MouseKeys.
2. Selanjutnya klik tombol Settings, beri tanda centang pada pilihan Use MouseKeys.
Nah sampai disini fungsi mousekeys sudah aktif.
Silahkan coba menggerakkan kursor menggunakan tombol-tombol angka di keypad numerik.
Angka 1, 2, 3, 4, 6, 7, 8, dan 9 digunakan untuk menggerakkan kursor ke atas, bawah, samping kanan/kiri, dan ke arah diagonal.
Sedangkan angka 5 berfungsi seperti tombol “klik” pada mouse.
Untuk “drag & drop” gunakan kombinasi angka dengan tombol “insert”.
Kamis, 05 Mei 2011
Rahasia Google
Tips 1 : (mau nyari file dengan ekstension tertentu)
Pakai keyword ini untuk mencari file-file yang temen2 butuhin, misal cari file mp3,dll :
“parent directory ” /appz/ -xxx -html -htm -php -shtml -opendivx -md5 -md5sums
“parent directory ” DVDRip -xxx -html -htm -php -shtml -opendivx -md5 -md5sums
“parent directory “Xvid -xxx -html -htm -php -shtml -opendivx -md5 -md5sums
“parent directory ” Gamez -xxx -html -htm -php -shtml -opendivx -md5 -md5sums
“parent directory ” MP3 -xxx -html -htm -php -shtml -opendivx -md5 -md5sums
“parent directory ” Nama Penyanyi atau Album -xxx -html -htm -php -shtml -opendivx -md5 -md5sums
NB:keyword ini cukup ditaruh di browser GOOGLE-nya. Abis itu tinggal klik Telusuri…
Tips 2 : (mau nyari lagu)
?intitle:index.of? mp3
kamu hanya nambahin jenis file-nya, trus penyanyinya, atau artis
Contoh: ?intitle:index.of? mp3 padi
Tips 3 : (mau nyari ebook, document, dll)
intitle:”index of” “google hacks” ebook
disesuaikan dengan kebutuhan temen2..
Tips 4 : (mau nyari dokumen dengan mengetahui direktori tertentu)
directory.google.com
hasilnya direktori2…tinggal nyari link yang diinginkan
Tips 5 : (nyari file)
yang ini lebih mantab..
-. “xxxx” / google akan menampilkan kata yang mengandung “xxxx”, misal “tejo” berarti GOOGLE akan menampilkan hasil searchingnya yang menganfung kata “tejo”
-. filetype: xxx / hanya file dengan ekstension yang diinginkan yang akan ditampilkan. Misal: .exe, .mp3, .etc
-. allinurl: x / mencari URL yang diinginkan. Misal “x saya ganti dengan setiawan”, maka GOOGLE akan menampilkan URL yang mengandung kata tersebut = ‘www.google.com/tejo
-. allintext: x / idem (teks)
-. allintitle: x / judul dari suatu page html
-. allinanchor: x / menampilkan link
Tips 6 : (nyari crack)
keywordnya:
crack: app name
Tips 1 : (mau nyari file dengan ekstension tertentu)
Pakai keyword ini untuk mencari file-file yang temen2 butuhin, misal cari file mp3,dll :
“parent directory ” /appz/ -xxx -html -htm -php -shtml -opendivx -md5 -md5sums
“parent directory ” DVDRip -xxx -html -htm -php -shtml -opendivx -md5 -md5sums
“parent directory “Xvid -xxx -html -htm -php -shtml -opendivx -md5 -md5sums
“parent directory ” Gamez -xxx -html -htm -php -shtml -opendivx -md5 -md5sums
“parent directory ” MP3 -xxx -html -htm -php -shtml -opendivx -md5 -md5sums
“parent directory ” Nama Penyanyi atau Album -xxx -html -htm -php -shtml -opendivx -md5 -md5sums
NB:keyword ini cukup ditaruh di browser GOOGLE-nya. Abis itu tinggal klik Telusuri…
Tips 2 : (mau nyari lagu)
?intitle:index.of? mp3
kamu hanya nambahin jenis file-nya, trus penyanyinya, atau artis
Contoh: ?intitle:index.of? mp3 padi
Tips 3 : (mau nyari ebook, document, dll)
intitle:”index of” “google hacks” ebook
disesuaikan dengan kebutuhan temen2..
Tips 4 : (mau nyari dokumen dengan mengetahui direktori tertentu)
directory.google.com
hasilnya direktori2…tinggal nyari link yang diinginkan
Tips 5 : (nyari file)
yang ini lebih mantab..
-. “xxxx” / google akan menampilkan kata yang mengandung “xxxx”, misal “tejo” berarti GOOGLE akan menampilkan hasil searchingnya yang menganfung kata “tejo”
-. filetype: xxx / hanya file dengan ekstension yang diinginkan yang akan ditampilkan. Misal: .exe, .mp3, .etc
-. allinurl: x / mencari URL yang diinginkan. Misal “x saya ganti dengan setiawan”, maka GOOGLE akan menampilkan URL yang mengandung kata tersebut = ‘www.google.com/tejo
-. allintext: x / idem (teks)
-. allintitle: x / judul dari suatu page html
-. allinanchor: x / menampilkan link
Tips 6 : (nyari crack)
keywordnya:
crack: app name
Install Windows XP dari USB Flash Disk
Sebenarnya Installasi Windos tidak hanya dengan CD, tapi ada juga cara installasi dengan USB FLASH DISK, cara ini mempunyai keuntungan yaitu installasi lebih cepat daripada menggunakan CD. MUngkin Langsung saja kita mulai tutorialnya….
Yang anda perlu siapkan:
1. USB_MultiBoot_10 yang bisa anda download di sini
2. Sebuah Flash Disk berkapasitas minimal 1GB
3. Sebuah CD installasi XP
Nah jika sudah lengkap persiapan kita yang perlu anda lakukan
1. Extrak file yang anda download
2. Jalankan USB_MultiBoot_10.cmd
3. Anda bisa tekan ENTER
4. Kemudia akan muncul pilihan seperti ini
5. Pilih yang H dan tekan enter maka akan muncul kotak seperti iniP Pada pilihan File System Pilih NTFS dan centang Quick Format , dan tekan Start
6. Setelah selesai memFormat anda bisa menutup BOX Format
7. Setelah itu anda akan menemui Menu dalam kotak CMD Keterangan: 0> untuk merubah Tipe Driver , 1> Letak Source Setup XP, 2> Lokasi USB flash anda 3> Memulai mengkopy installasi xp ke USB Flash anda
8. Nah pilih no 1 dan tekan Enter (tujukan ke dalam CD XP anda) sebelum nya masukkan dulu CD Installasi Xp anda.
9. Setelah anda memilih source XP anda maka akan muncel BOX pilih NO maka anda akan disuruh mengisi UsrXP, SerialNumber, Nama Komputer dan lain sebagainya
10. Setelah itu pilih no 2 dan tujukan ke USB anda
11. Setelah itu pilih no 3 untuk memulai mengcopy installasi Xp ke USB
12. Pada pertengahan proses copy akan muncul box Pilih Yes
13. Nah pada box yang terakhir muncul pilih NO
14. Nah Proses copy Sudah selesai. anda bisa mengunakan USB anda untuk Install Windows Xp.
Proses Install
• Pada saat booting anda bisa tekan DELETE
• maka akan muncul pilihan dg latar belakang biru
• pilih Advanced Bios Features, kalo tidak salah letaknya no2 menu kiri
• pilih lalau pilih HardDisk Boot Priority
• nah disana ada nama harddisk yang anda pakai dan nama USB Flash anda
• Geser USB anda pada urutan pertama menggunakan Page UP
• setelah itu Save dan Exit
• Nah saat computer anda booting dengan flashdisk anda akan disuguhi beberapa pilihan, pilih no 1( 1. Begin TXT Mode Setup Windows XP)
• nah setelah itu anda akan setup windows seperti biasa.
Sebenarnya Installasi Windos tidak hanya dengan CD, tapi ada juga cara installasi dengan USB FLASH DISK, cara ini mempunyai keuntungan yaitu installasi lebih cepat daripada menggunakan CD. MUngkin Langsung saja kita mulai tutorialnya….
Yang anda perlu siapkan:
1. USB_MultiBoot_10 yang bisa anda download di sini
2. Sebuah Flash Disk berkapasitas minimal 1GB
3. Sebuah CD installasi XP
Nah jika sudah lengkap persiapan kita yang perlu anda lakukan
1. Extrak file yang anda download
2. Jalankan USB_MultiBoot_10.cmd
3. Anda bisa tekan ENTER
4. Kemudia akan muncul pilihan seperti ini
5. Pilih yang H dan tekan enter maka akan muncul kotak seperti iniP Pada pilihan File System Pilih NTFS dan centang Quick Format , dan tekan Start
6. Setelah selesai memFormat anda bisa menutup BOX Format
7. Setelah itu anda akan menemui Menu dalam kotak CMD Keterangan: 0> untuk merubah Tipe Driver , 1> Letak Source Setup XP, 2> Lokasi USB flash anda 3> Memulai mengkopy installasi xp ke USB Flash anda
8. Nah pilih no 1 dan tekan Enter (tujukan ke dalam CD XP anda) sebelum nya masukkan dulu CD Installasi Xp anda.
9. Setelah anda memilih source XP anda maka akan muncel BOX pilih NO maka anda akan disuruh mengisi UsrXP, SerialNumber, Nama Komputer dan lain sebagainya
10. Setelah itu pilih no 2 dan tujukan ke USB anda
11. Setelah itu pilih no 3 untuk memulai mengcopy installasi Xp ke USB
12. Pada pertengahan proses copy akan muncul box Pilih Yes
13. Nah pada box yang terakhir muncul pilih NO
14. Nah Proses copy Sudah selesai. anda bisa mengunakan USB anda untuk Install Windows Xp.
Proses Install
• Pada saat booting anda bisa tekan DELETE
• maka akan muncul pilihan dg latar belakang biru
• pilih Advanced Bios Features, kalo tidak salah letaknya no2 menu kiri
• pilih lalau pilih HardDisk Boot Priority
• nah disana ada nama harddisk yang anda pakai dan nama USB Flash anda
• Geser USB anda pada urutan pertama menggunakan Page UP
• setelah itu Save dan Exit
• Nah saat computer anda booting dengan flashdisk anda akan disuguhi beberapa pilihan, pilih no 1( 1. Begin TXT Mode Setup Windows XP)
• nah setelah itu anda akan setup windows seperti biasa.
Rabu, 26 Mei 2010
belajar membuat web
PANDUAN GRATIS BUAT WEBSITE/SITUS SENDIRI
Naah….langkah-langkah ini buat memandu Kamu untuk buat Situs….
Pada langkah PERTAMA, kite-kite nih…..akan mempelajari bagaimana cara akses ke internet menggunakan ISP beserta setup software dan hardware-nya. Walaupun sebenarnya tidak bisa dikatakan benar-benar gratis, akan tetapi Ane memasukkannya dalam kelompok perkenalan awal kita.
Pada langkah KEDUA, diajarkan bagaimana caranya mendapatkan e-mail gratis berbasis web dan POP3 serta cara setup agar Anda bisa membukanya baik melalui browser maupun melalui Outlook Express. Alamat e-mail adalah satu-satunya gudang yang sah di internet untuk mendapatkan segala hal yang berbau gratisan. Anda akan sangat memerlukannya pada langkah-langkah selanjutnya, bukan hanya sekedar untuk gengsi! Cobalah gengsi itu dibuang dulu…Ok ?
Pada langkah KETIGA, Anda akan mulai mempelajari html, bahasa inti yang dipakai untuk menulis halaman-halaman web. Namun sebelum anda memulai mempelajarinya, pastikan anda harus menjawab beberapa pertanyaan penting sebelum membuat Homepage. Setelah memahami langkah ketiga ini, Anda akan memiliki kemampuan untuk membuat homepage off-line. Yaitu situs homepage yang hanya bisa diakses dari komputer karena file-file yang membentuk homepage tersebut masih berada didalam harddisk.
Pada langkah KEEMPAT, Anda akan mempelajari bagaimana cara mendaftar ke situs-situs penyedia layanan spasi web gratis (free webspace) baik dari dalam negeri maupun luar negeri . Bagaimana memilihnya dan bagaimana cara
setup-nya. Jika kebetulan Anda memiliki alamat e-mail di Yahoo!Mail, maka sebetulnya Anda juga memiliki web server siap pakai sebesar 15MB. Pada langkah keempat ini juga diajarkan bagaimana caranya memanfaatkan web server
ini. Setelah Anda terdaftar pada salah satu web server gratis.
Pada langkah KELIMA akan dibahas cara upload file dari harddisk ke web server agar filefile html Anda bisa diakses oleh semua orang dari seluruh dunia. Pembahasan pada langkah kelima ini meliputi tata cara upload file menggunakan program
client FTP (File Transfer Protokol), browser, file manager dan Ms. FrontPage 2000. Setelah melaksanakan langkah kelima ini, Anda akan langsung memiliki homepage on-line sendiri yang bisa diakses dari seluruh dunia oleh siapapun dan kapanpun!
Pada langkah KEENAM akan dibahas mengenai tata cara mendapatkan counter pengunjung dan buku tamu (Guest Book) gratis dari internet, juga tentang tata cara penyisipan kode-kodenya kedalam halaman utama situs web kita agar tampilan situs web menjadi lebih professional. Setelah memiliki homepage sendiri dengan tampilan dan isi yang sangat bagus, tentu tidak ada gunanya jika tidak ada yang mengetahuinya!
pada langkah KETUJUH, akan dibahas mengenai bagaimana cara mempromosikan situs web baru kita keseluruh dunia, baik melalui pemasangan iklan gratis di internet, melalui banner exchange, melalui portal lokal maupun melalui pendaftaran ke situs-situs search engine internasional seperti Alta Vista, HotBot, Excite, WebCrawler, InfoSeek, Lycos dan lain sebagainya.
Akhirnya, pada kesempatan ini Ane ingin mengucapkan banyak terima kasih kepada seluruh Cyber Community atas ilmunya yang telah memungkinkan bisa terwujudnya tulisan ini. Ane juga ngucapin terima kasih Ane kepada istri tercinta yang telah merelakan berkali-kali pulsa telepon di rumah membengkak tidak karuan!
Naah….langkah-langkah ini buat memandu Kamu untuk buat Situs….
Pada langkah PERTAMA, kite-kite nih…..akan mempelajari bagaimana cara akses ke internet menggunakan ISP beserta setup software dan hardware-nya. Walaupun sebenarnya tidak bisa dikatakan benar-benar gratis, akan tetapi Ane memasukkannya dalam kelompok perkenalan awal kita.
Pada langkah KEDUA, diajarkan bagaimana caranya mendapatkan e-mail gratis berbasis web dan POP3 serta cara setup agar Anda bisa membukanya baik melalui browser maupun melalui Outlook Express. Alamat e-mail adalah satu-satunya gudang yang sah di internet untuk mendapatkan segala hal yang berbau gratisan. Anda akan sangat memerlukannya pada langkah-langkah selanjutnya, bukan hanya sekedar untuk gengsi! Cobalah gengsi itu dibuang dulu…Ok ?
Pada langkah KETIGA, Anda akan mulai mempelajari html, bahasa inti yang dipakai untuk menulis halaman-halaman web. Namun sebelum anda memulai mempelajarinya, pastikan anda harus menjawab beberapa pertanyaan penting sebelum membuat Homepage. Setelah memahami langkah ketiga ini, Anda akan memiliki kemampuan untuk membuat homepage off-line. Yaitu situs homepage yang hanya bisa diakses dari komputer karena file-file yang membentuk homepage tersebut masih berada didalam harddisk.
Pada langkah KEEMPAT, Anda akan mempelajari bagaimana cara mendaftar ke situs-situs penyedia layanan spasi web gratis (free webspace) baik dari dalam negeri maupun luar negeri . Bagaimana memilihnya dan bagaimana cara
setup-nya. Jika kebetulan Anda memiliki alamat e-mail di Yahoo!Mail, maka sebetulnya Anda juga memiliki web server siap pakai sebesar 15MB. Pada langkah keempat ini juga diajarkan bagaimana caranya memanfaatkan web server
ini. Setelah Anda terdaftar pada salah satu web server gratis.
Pada langkah KELIMA akan dibahas cara upload file dari harddisk ke web server agar filefile html Anda bisa diakses oleh semua orang dari seluruh dunia. Pembahasan pada langkah kelima ini meliputi tata cara upload file menggunakan program
client FTP (File Transfer Protokol), browser, file manager dan Ms. FrontPage 2000. Setelah melaksanakan langkah kelima ini, Anda akan langsung memiliki homepage on-line sendiri yang bisa diakses dari seluruh dunia oleh siapapun dan kapanpun!
Pada langkah KEENAM akan dibahas mengenai tata cara mendapatkan counter pengunjung dan buku tamu (Guest Book) gratis dari internet, juga tentang tata cara penyisipan kode-kodenya kedalam halaman utama situs web kita agar tampilan situs web menjadi lebih professional. Setelah memiliki homepage sendiri dengan tampilan dan isi yang sangat bagus, tentu tidak ada gunanya jika tidak ada yang mengetahuinya!
pada langkah KETUJUH, akan dibahas mengenai bagaimana cara mempromosikan situs web baru kita keseluruh dunia, baik melalui pemasangan iklan gratis di internet, melalui banner exchange, melalui portal lokal maupun melalui pendaftaran ke situs-situs search engine internasional seperti Alta Vista, HotBot, Excite, WebCrawler, InfoSeek, Lycos dan lain sebagainya.
Akhirnya, pada kesempatan ini Ane ingin mengucapkan banyak terima kasih kepada seluruh Cyber Community atas ilmunya yang telah memungkinkan bisa terwujudnya tulisan ini. Ane juga ngucapin terima kasih Ane kepada istri tercinta yang telah merelakan berkali-kali pulsa telepon di rumah membengkak tidak karuan!
Minggu, 23 Mei 2010
Membuat Program Penjualan Visual Basic 8 : Membuat Form Laporan
Dengan adanya laporan kita dapat mengetahui seluruh data apa saja yang masuk ke dalam database program penjualan ini. Ada banyak cara untuk membuat sebuah laporan. Dan cara yang saya pakai saat ini adalah dengan menggunakan software tambahan yang bernama Crystal Report. Bagi anda yang tidak punya Crystal Report, anda dapat membaca tutorial yang lain yang judulnya Membuat Laporan Dengan Data Report. Dan bagi anda yang punya Crystal Report, anda dapat melihat cara membuat laporannya pada Tutorial Membuat Laporan Dengan Crystal Report. Pada Tutorial yang ini saya hanya membahas pembuatan form laporan beserta listing programnya saja.
8. Membuat FORM LAPORAN
- Buat form baru lagi lalu isikan dengan isi dan properties dibawah ini:
NAME CAPTION/TEXT KETERANGAN
Flaporan Laporan Form
Label1 Tanggal Label
Label2 Tanggal Awal Label
Label3 Tanggal Akhir Label
Label4 Bulan Label
Label5 Tahun Label
Label7 Tahun Label
Label8 Tekan Preview Label
Cmdexit &exit Command Button
Cmdpreview &preview Command Button
Frame1 Harian Frame
Frame2 Mingguan Frame
Frame3 Bulanan Frame
Frame4 Tahunan Frame
Data1 - Data
CR - Crystal Report
Combo1 - Combo
Combo2 - Combo
Combo3 - Combo
Combo4 - Combo
Combo5 - Combo
Combo6 Keseluruhan Combo
Combo7 - Combo
Adapun Listing Program dari Form Login ini adalah:
Private Sub CMDEXIT_Click()
Unload Me
End Sub
Private Sub Combo6_Click()
If Combo6.Text = "HARIAN" Then
Frame1.Visible = True
Frame2.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Label8.Visible = False
Combo1.Text = ""
Else
If Combo6.Text = "MINGGUAN" Then
Frame2.Visible = True
Frame1.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Label8.Visible = False
Combo2.Text = ""
Else
If Combo6.Text = "BULANAN" Then
Frame3.Visible = True
Frame2.Visible = False
Frame1.Visible = False
Frame4.Visible = False
Label8.Visible = False
Combo3.Text = ""
Else
If Combo6.Text = "TAHUNAN" Then
Frame4.Visible = True
Frame2.Visible = False
Frame1.Visible = False
Frame3.Visible = False
Label8.Visible = False
Combo7.Text = ""
Else
If Combo6.Text = "KESELURUHAN" Then
Label8.Visible = True
Frame4.Visible = False
Frame2.Visible = False
Frame1.Visible = False
Frame3.Visible = False
End If
End If
End If
End If
End If
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "/buku.mdb"
Data1.RecordSource = "select * from Table_transaksi"
Data1.RecordSource = "Select Distinct Tgl_faktur From table_transaksi order By 1"
Data1.Refresh
Do Until Data1.Recordset.EOF
Combo1.AddItem Data1.Recordset!Tgl_faktur
Combo2.AddItem Format(Data1.Recordset!Tgl_faktur, "YYYY ,MM, DD")
Combo3.AddItem Format(Data1.Recordset!Tgl_faktur, "YYYY ,MM, DD")
Data1.Recordset.MoveNext
Loop
For i = 1 To 12
Combo4.AddItem i
Next i
For i = 1 To 20
Combo5.AddItem 2000 + i
Next i
For i = 1 To 20
Combo7.AddItem 2000 + i
Next i
End Sub
KETERANGAN 1:
-Combo1 diisi dengan semua field Tanggal faktur yang ada di database.
-Combo2 juga diisi dengan semua field Tanggal faktur yang ada di database tapi dengan memakai format Tahun, Bulan, Hari contoh: 2009/03/20
-Combo3 juga diisi dengan semua field Tanggal faktur yang ada di database dan dengan memakai format seperti pada combo2.
-Combo4 diisi dengan angka dari 1 sampai 12
-Combo5 diisi dengan angka 2001 sampai 2020
-Combo7 diisi dengan angka 2001 sampai 2020
Private Sub CMDPREVIEW_Click()
On Error Resume Next
If Frame1.Visible = True Then
cr.SelectionFormula = "Totext({table_transaksi.Tgl_faktur})=’" & Combo1 & "’"
cr.ReportFileName = App.Path & "\Transaksi.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
Else
If Frame2.Visible = True Then
cr.SelectionFormula = "{table_transaksi.Tgl_faktur} in date (" & Combo2.Text & ") to date (" & Combo3.Text & ")"
cr.ReportFileName = App.Path & "\Transaksi.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
Else
If Frame3.Visible = True Then
Data1.RecordSource = "select * from table_transaksi where month(Tgl_faktur)=’" & Val(Combo4) & "’ and year(Tgl_faktur)=’" & (Combo5) & "’"
cr.SelectionFormula = "Month({table_transaksi.Tgl_faktur})=" & Val(Combo4.Text) & " and Year({table_transaksi.Tgl_faktur})=" & Val(Combo5.Text)
cr.ReportFileName = App.Path & "\Transaksi.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
Else
If Frame4.Visible = True Then
Data1.RecordSource = "select * from table_transaksi where year(Tgl_faktur)=’" & (Combo7) & "’"
cr.SelectionFormula = "Year({table_transaksi.Tgl_faktur})=" & Val(Combo7.Text)
cr.ReportFileName = App.Path & "\Transaksi.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
Else
cr.ReportFileName = App.Path & "\Transaksi.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
End If
End If
End If
End If
End Sub
KETERANGAN 2 :
-Selection Formula disini berfungsi untuk menyeleksi suatu data tertentu saja.
-Report File Name adalah nama dari Report/laporan yang kita buat dengan Crystal Report.
-Window State berguna untuk pengaturan besarnya layar laporan. Jika Crpt maximezed berarti layar laporan diperbesar sampai maximal.
-Retrieve Data Files dipakai agar apabila data yang ada di program penjualan berubah, maka data yang ada di laporan juga ikut berubah.
-Action disini adalah perintahnya.
KETERANGAN 3 :
-Frame1 mengambil data dari Table Transaksi yang Tanggal Faktur nya sama dengan yang dipilih di Combo1. Tapi sebelumnya Type data Tanggal Faktur dirubah menjadi Text (aslinya adalah Date/Time).
-Frame2 mengambil data dari Table Transaksi yang Tanggal Faktur nya adalah antara Tanggal yang dipilih di Combo2 dan Combo3.
– Frame3 mengambil data dari Table Transaksi yang Bulan faktur nya sama dengan yang dipilih di Combo4 dan Tahun faktur nya sama dengan yang dipilih di Combo5.
-Frame4 mengambil data dari Table Transaksi yang Tahun Faktur nya sama dengan yang dipilih di Combo7.
-Jika Tidak ada frame yang muncul berarti tidak memakai rumus Selection Formula, sehingga data akan ditampilkan semuanya dari awal hingga akhir.
- Jangan lupa untuk mengganti Name dari form ini di properties menjadi ”Flaporan” dan menyimpannya dengan nama ”Laporan.frm”.
- Sekali lagi saya ingatkan agar anda membaca juga cara Membuat Laporan Dengan Data Report dan cara Membuat Laporan Dengan Crystal Report.
Dengan adanya laporan kita dapat mengetahui seluruh data apa saja yang masuk ke dalam database program penjualan ini. Ada banyak cara untuk membuat sebuah laporan. Dan cara yang saya pakai saat ini adalah dengan menggunakan software tambahan yang bernama Crystal Report. Bagi anda yang tidak punya Crystal Report, anda dapat membaca tutorial yang lain yang judulnya Membuat Laporan Dengan Data Report. Dan bagi anda yang punya Crystal Report, anda dapat melihat cara membuat laporannya pada Tutorial Membuat Laporan Dengan Crystal Report. Pada Tutorial yang ini saya hanya membahas pembuatan form laporan beserta listing programnya saja.
8. Membuat FORM LAPORAN
- Buat form baru lagi lalu isikan dengan isi dan properties dibawah ini:
NAME CAPTION/TEXT KETERANGAN
Flaporan Laporan Form
Label1 Tanggal Label
Label2 Tanggal Awal Label
Label3 Tanggal Akhir Label
Label4 Bulan Label
Label5 Tahun Label
Label7 Tahun Label
Label8 Tekan Preview Label
Cmdexit &exit Command Button
Cmdpreview &preview Command Button
Frame1 Harian Frame
Frame2 Mingguan Frame
Frame3 Bulanan Frame
Frame4 Tahunan Frame
Data1 - Data
CR - Crystal Report
Combo1 - Combo
Combo2 - Combo
Combo3 - Combo
Combo4 - Combo
Combo5 - Combo
Combo6 Keseluruhan Combo
Combo7 - Combo
Adapun Listing Program dari Form Login ini adalah:
Private Sub CMDEXIT_Click()
Unload Me
End Sub
Private Sub Combo6_Click()
If Combo6.Text = "HARIAN" Then
Frame1.Visible = True
Frame2.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Label8.Visible = False
Combo1.Text = ""
Else
If Combo6.Text = "MINGGUAN" Then
Frame2.Visible = True
Frame1.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Label8.Visible = False
Combo2.Text = ""
Else
If Combo6.Text = "BULANAN" Then
Frame3.Visible = True
Frame2.Visible = False
Frame1.Visible = False
Frame4.Visible = False
Label8.Visible = False
Combo3.Text = ""
Else
If Combo6.Text = "TAHUNAN" Then
Frame4.Visible = True
Frame2.Visible = False
Frame1.Visible = False
Frame3.Visible = False
Label8.Visible = False
Combo7.Text = ""
Else
If Combo6.Text = "KESELURUHAN" Then
Label8.Visible = True
Frame4.Visible = False
Frame2.Visible = False
Frame1.Visible = False
Frame3.Visible = False
End If
End If
End If
End If
End If
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "/buku.mdb"
Data1.RecordSource = "select * from Table_transaksi"
Data1.RecordSource = "Select Distinct Tgl_faktur From table_transaksi order By 1"
Data1.Refresh
Do Until Data1.Recordset.EOF
Combo1.AddItem Data1.Recordset!Tgl_faktur
Combo2.AddItem Format(Data1.Recordset!Tgl_faktur, "YYYY ,MM, DD")
Combo3.AddItem Format(Data1.Recordset!Tgl_faktur, "YYYY ,MM, DD")
Data1.Recordset.MoveNext
Loop
For i = 1 To 12
Combo4.AddItem i
Next i
For i = 1 To 20
Combo5.AddItem 2000 + i
Next i
For i = 1 To 20
Combo7.AddItem 2000 + i
Next i
End Sub
KETERANGAN 1:
-Combo1 diisi dengan semua field Tanggal faktur yang ada di database.
-Combo2 juga diisi dengan semua field Tanggal faktur yang ada di database tapi dengan memakai format Tahun, Bulan, Hari contoh: 2009/03/20
-Combo3 juga diisi dengan semua field Tanggal faktur yang ada di database dan dengan memakai format seperti pada combo2.
-Combo4 diisi dengan angka dari 1 sampai 12
-Combo5 diisi dengan angka 2001 sampai 2020
-Combo7 diisi dengan angka 2001 sampai 2020
Private Sub CMDPREVIEW_Click()
On Error Resume Next
If Frame1.Visible = True Then
cr.SelectionFormula = "Totext({table_transaksi.Tgl_faktur})=’" & Combo1 & "’"
cr.ReportFileName = App.Path & "\Transaksi.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
Else
If Frame2.Visible = True Then
cr.SelectionFormula = "{table_transaksi.Tgl_faktur} in date (" & Combo2.Text & ") to date (" & Combo3.Text & ")"
cr.ReportFileName = App.Path & "\Transaksi.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
Else
If Frame3.Visible = True Then
Data1.RecordSource = "select * from table_transaksi where month(Tgl_faktur)=’" & Val(Combo4) & "’ and year(Tgl_faktur)=’" & (Combo5) & "’"
cr.SelectionFormula = "Month({table_transaksi.Tgl_faktur})=" & Val(Combo4.Text) & " and Year({table_transaksi.Tgl_faktur})=" & Val(Combo5.Text)
cr.ReportFileName = App.Path & "\Transaksi.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
Else
If Frame4.Visible = True Then
Data1.RecordSource = "select * from table_transaksi where year(Tgl_faktur)=’" & (Combo7) & "’"
cr.SelectionFormula = "Year({table_transaksi.Tgl_faktur})=" & Val(Combo7.Text)
cr.ReportFileName = App.Path & "\Transaksi.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
Else
cr.ReportFileName = App.Path & "\Transaksi.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
End If
End If
End If
End If
End Sub
KETERANGAN 2 :
-Selection Formula disini berfungsi untuk menyeleksi suatu data tertentu saja.
-Report File Name adalah nama dari Report/laporan yang kita buat dengan Crystal Report.
-Window State berguna untuk pengaturan besarnya layar laporan. Jika Crpt maximezed berarti layar laporan diperbesar sampai maximal.
-Retrieve Data Files dipakai agar apabila data yang ada di program penjualan berubah, maka data yang ada di laporan juga ikut berubah.
-Action disini adalah perintahnya.
KETERANGAN 3 :
-Frame1 mengambil data dari Table Transaksi yang Tanggal Faktur nya sama dengan yang dipilih di Combo1. Tapi sebelumnya Type data Tanggal Faktur dirubah menjadi Text (aslinya adalah Date/Time).
-Frame2 mengambil data dari Table Transaksi yang Tanggal Faktur nya adalah antara Tanggal yang dipilih di Combo2 dan Combo3.
– Frame3 mengambil data dari Table Transaksi yang Bulan faktur nya sama dengan yang dipilih di Combo4 dan Tahun faktur nya sama dengan yang dipilih di Combo5.
-Frame4 mengambil data dari Table Transaksi yang Tahun Faktur nya sama dengan yang dipilih di Combo7.
-Jika Tidak ada frame yang muncul berarti tidak memakai rumus Selection Formula, sehingga data akan ditampilkan semuanya dari awal hingga akhir.
- Jangan lupa untuk mengganti Name dari form ini di properties menjadi ”Flaporan” dan menyimpannya dengan nama ”Laporan.frm”.
- Sekali lagi saya ingatkan agar anda membaca juga cara Membuat Laporan Dengan Data Report dan cara Membuat Laporan Dengan Crystal Report.
Langganan:
Postingan (Atom)
