DATABASE DATA PENJUALAN DENGAN VB 6.0

DATA PENJUALAN dengan VB 6.0

Assalamu'alaikum gan & sist..
Ane mau share lagi nih, cara membuat database dengan  VisualBasic..
ini dia langkah-langkahnya gan, chekibroot..
1. langkah pertama, pastikan komputer / laptop anda sudah terinstal Microsoft Visual Studio
 (Visual Basic) disini saya memakai VB 6.0. Start - All program - Ms Visual Studio 60 -
 Microsoft Visual Basic 6.0
 jika sudah file - New project - StandarEXE - OK.
 pada menu pilih Add-Ins - Visual Data Manager..
 klik File - New - Microsoft Acces - version 7.0 MDB
 buat folder baru: (WARUNG) save dengan nama: (Data Penjualan)
 pada Table Database window pilih properties (klik kanan) - New Table
 pada Table Structure isi Table Name : (Data Penjualan) kemudian klik Add Field
 pada Table Add Field isi Name : (ID Barang) Enter
(Nama Barang) Enter
(Harga Satuan) Enter
(Jumlah Barang) Enter
(Jumlah Bayar) Enter
(Uang kembali) Enter & Close
 kemudian pada Table Structure pilih Build the Table, klik 2 kali from Data Penjualan
 Pilih ADD dan isikan
 ID barang : 001
 Nama barang : Buku Tulis
 Harga Satuan : 2000
 Jumlah barang : 4
 Jumlah bayar : 10000
 Uang kembali : 2000
 pilih update.maka akan tampil seperti ini:

setelah selesai, close semua tab kecuali tab Visual Basic yang anda buka tadi.

Buka Tab Visual Basic yg tadi telah terbuka, 

klik kanan pada tampilan yg kosong,  Pilih components

lalu cheklist Microsoft Data Bound Grid Control 5.0 (SP3) kemudian klik OK

   jika sudah pilih data:

 dan buat seperti ini:

Lihat properties Pada Database Name pilih di folder yg telah dibuat Warung - klik data penjualan 

pada EOFAction pilih: 2-Add New

pada RecordSource plih: Data Penjualan

jika sudah pilih DbGrid:

dan buatlah seperti ini:

pada properties ubah datasource: Data1

jika sudah, pada from1 buatlah teble menjadi seperti ini:

perhatikan pada text1 ubah DataSource : Data1 & DataField: ID Barang

text2 ubah DataSource : Data1 & Datafield: Nama Barang

  text3 ubah Datasource : Data1 & Datafield: Harga Satuan

  text4 ubah Datasource : Data1 & Datafiled: Jumlah Barang

text5 ubah Datasource : Data1 & Datafield: Jumlah Bayar

text6 ubah Datasource : Data1 & Datafield: Uang kembali

pada commandbutton COUNT, ADD, CANCEL, DELETE, DAN EXIT, Berikut Code-nya:

Jika sudah selesai semua save as..  di folder yg telah dibuat tadi (Warung) - save - save

Hasil akan tampak seperti ini: 

Hasil Dari D'Base Ms Acces:

Bagaimana? Mudah Bukan? ^_^ hehehehe 

Semoga Bermanfaat ya 

Terimakasih ?^_^

_Mujay_

CARA MEMBUAT DATABASE "DATA MAHASISWA" MENGGUNAKAN VB 6.0

Database Data Mahasiswa
Visual Basic  6.0

Haiiii... :)
Saya mau sharring nih bagaimana sih menghubungkan untuk database dari VB ke Ms.Acces..
ini dia gan cara termudah membuatnya, chekibrot ^_^.

1. langkah pertama anda pastika Visual Basic sudah terinstal, disini saya menggunakan VB 6.0. setelah anda buka dan tampil layar visual basic pilih standar EXE kemudian klik open.

2. lalu klik pada menu Add-Ins dan pilih Visual data Manager... dan muncul tampilan seperti berikut:

3. kemudian pilih VisData pilih menu File - New - Microsoft Acces - Version 7.0 MDB. buat folder baru  "data mahasiswa"setelah itu save dengan "nama mahasiswa". kemudian Pilih properties klik kanan lalu klik New Table, hingga muncul tampilan seperti berikut: 

4. isi tabel dengan nama Data Mahasiswa, kemudian pilih Add Field.

Pada kolom "Name:" Tulis NIM kemudian tekan Enter.
Tulis lagi pada kolom yang sama Nama  kemudian tekan Enter
Tulis lagi pada kolom yang sama Alamat kemudian tekan Enter. lalu kilik tombol close. hasilnya akan tampak seperti ini:

5. jika sudah seperti itu pilih Build Table.pada from data mahasiswa kilik 2 kali. kemudian pilih ADD, lalu

pada NIM tulis : 1111010205  (nim anda)

pada Nama : Mujahidah Syafiah Shaumayya (nama anda)

pada Alamat : Tangerang (alamat anda)

setelah selesai pilih "update" kemudian close semua tabel Visdata kecuali visual basic.

6. Beralilah ke Visual Basic anda yang sudah terbuka tadi. lalu anda buat tabel seperti berikut ini:

Perhatikan pada NIM, Nama, Alamat menggunakan Label

Perhatikan pada kolom putih dibawah NIM, Nama, Alamat menggunakan Textbox

Perhatikan pada tombol ADD, DELETE, EXIT menggunakan Command Button

7. jika sudah , pada kiri general box cari yang kosong kemudian klik kanan dan pilih Components lalu cheklist Microsoft data Bound grid Control 5.0 sp3. klik OK. Pilih data

 kemudian buatlah seperti ini:

lihat pada properties databasename pilih file Ms. Acces yg tadi sudah dibuat "Mahasiswa"

EOFAction pilih 2-Add New, dan RecordSource pilih Tableh yg tadi dibuat "Mahasiswa"

 

8. jika sudah, lalu anda buat seperti ini dengan menggunakan:

Buatlah seperti ini:

perhatikan pada properties, DataSource pilih "Data 1"

9. jika sudah kemudian beralih ke:

text1 lihat properties ubah Data source : Data1, Data Field : NIM

text2 lihat properties ubah Data source : Data1, Data Field : Nama

text3 lihat properties ubah Data source : Data1, Data Field: Alamat

kemudian pada ADD, DELETE, EXIT.

klik2 kali tombol ADD /command1 tuliskan 

Private Sub Command1_Click()

Data1.Recordset.AddNew

Text1.SetFocus

End Sub

klik2 kali tombol DELETE / command2 tuliskan

Private Sub Command2_Click()

Data1.Recordset.Delete

Data1.Recordset.MoveNext

End Sub

klik2 kali tombol EXIT / command3 tuliskan

Private Sub Command3_Click()

Unload Me

End Sub

lihat di code hasil akan seperti ini

jika sudah selesaisemua File - Save as - folder yg tadi dibuat "data mahasiswa"- save - save

hasil dalam Visual Basic akan seperti ini:

Dan Hasil Pada Ms. Acces akan seperti ini:

Selesai deh, Mudah Bukan? ^_^

Semoga Bermanfaat ya

_Mujay_

http://www.facebook.com/mujahidah.shaumayya?ref=tn_tnmn

TIGA LANGKAH CEPAT MENAMPILKAN HIDDEN FILE

Tiga Langkah Cepat Menampilkan Hidden File

Ketika kita menghubungkan flashdisk orang lain ke komputer kita, atau setelah flashdisk kita terhubung di computer lain yang beresiko menularkan virus, seringkali was-was dan kemudian shock di tengah proses checking data. Ya, data penting kita menjadi tidak nampak, terhapus atau hilang. Apalagi kita masih menggunakan sistem operasi windows 7, vista, XP yg notabene sekuritasnya menjadi dipertanyaan jika tidak memiliki aplikasi anti virus yang ter-update. Sudah ter-update saja terkadang virus masih bisa membobol komputer kita.

Memang secara kasat mata,  data tersebut hilang atau tetap tidak nampak meskipun sudah kita check show hidden file di menu view pada taskbar di windows explorer (jika memakai windows XP) kita. atau bahkan, file yang tadinya tersimpan .doc,.docx berubah menjadi shorcut atau .ink .exe dan sejenisnya. Kerjaan sapa lagi klo bukan virus menjengkelkan. Tapi…jangan panik, jangan risau, tenangkan hati dan pikiran lalu cobalah rumus singkat berikut ini  :

1. Klik run pada menu start (jika computer atau laptop menggunakan windows XP, Vista, 7),

2. Ketikkan cmd dan ok (ketikkan cmd di search programs and files pada menu start (jika computer atau laptop menggunakan windows 7)

3. Masukkan flashdisk di computer dan cek di directory manakah flashdisk anda.

Misalnya di E, F atau G.
Setelah jendela cmd terbuka, ketikkan perintah di bawah ini:

f: attrib -r -a -s -h /s /d

CARA MUDAH MICROSOFT WORD TANPA MENGGUNAKAN MOUSE

Berawal dari rusaknya mouse pada saat ketikan seabrek-abrek, akhirnya ane pake PC ga pake mouse, lama-lama malah praktisan ga pake mouse gan..

Ane idupin komputernya, trus ane pencet tombol Windows, trus pake panah, ane pilih Word trus enter.. Word langsung kebuka..

Nah.. yg mau ane share ne, tips ngetik pake word tapi all shortcut

Klo mau buat halaman baru, pencet CTRL + N, ato agan mau buka file yg udah ada pencet CTRL + O trus dihalaman browse file pencet-pencet TAB sampai terpilih direktori, ato pencet ALT + I biar list LOOK IN terbuka, trus pencet TAB lalu pilihlah dokumen yg mau dibuka Enter

KURSOR
Untuk menggerakkan Kursor bisa menggunakan tanda panah atau cara-cara sbb:
CTRL + panah kanan => memindahkan kursor satu kata ke kanan
CTRL + panah kiri => memindahkan kursor satu kata ke kiri
HOME => memindahkan kursor ke awal baris
END => memindahkan kursor ke akhir baris
PageUp => memindahkan kursor satu layar ke atas
PageDown => memindakhan kursor satu layar ke bawah
CTRL + PageUp => memindahkan kursor ke awal halaman sebelumnya
CTRL + PageDown=> memindahkan kursor ke awal halaman berikutnya
CTRL + Home => memindahkan kursor ke awal halaman pertama
CTRL + END => memindahkan kursor ke akhir halaman terakhir
CTRL + G => Go To memindahkan kursor sesuai keinginan kita (ke halaman X atau ke baris X dll)


Nb. Untuk Laptop ato Netbook yang Tombol Home, End, PageUp nd PageDown nya warna Biru ato merah (sesuai Warna Tombol Fn), maka tambahkan tombol Fn untuk penggunaan tombol tersebut.
Contoh : CTRL + PageUp jadi CTRL + Fn + PageUp


MENGHAPUS
CTRL + DEL => Menghapus satu kata di depan Kursor
CTRL + BackSpace => Menghapus satu kata di belakang kursor

BLOCKING
CTRL + A => Blok semuanya
SHIFT + Panah Kanan(Kiri) => memblok per huruf
SHIFT + CTRL + Panah Kanan(kiri) => memblok per kata
SHIFT + END => memblok dari posisi kursor ke akhir baris
SHIFT + Home => memblok dari posisi kursor ke awal baris
CTRL + SHIFT + HOME => memblok dari posisi kursor sampai ke awal halaman pertama
CTRL + SHIFT + END => memblok dari posisi kursor sampai ke akhir halaman terakhir
SHIFT + PageUp => memblok dari posisi kursor ke satu layar ke atas
SHIFT + PageDown => memblok dari posisi kursor ke satu layar ke bawah


Nah setelah yang dimaksud udah di blok, cobain yg ini ni :

SPASI
CTRL + 1 => 1 spasi
CTRL + 2 => 2 spasi
CTRL + 5 => 1,5 spasi
CTRL + 0 => Menambahkan / Menghilangkan spasi sebelum Paragraph atau

FONT
CTRL + SHIFT + .(>) => membesarkan ukuran font (sesuai list FontSize)
CTRL + SHIFT + ,(<) => mengecilkan font (sesuai list FontSize)
CTRL + ] => membesarkan ukuran font (+1)
CTRL + [ => mengecilkan font (-1)

SHIFT + F3 => mengubah case jadi "HURUF BESAR", "huruf kecil" atau "Huruf Besar Di Awal Kata" (bisa juga pake ALT + O + E)

untuk mengganti jenis tulisan tekan CTRL + SHIFT + F trus langsung ketik arial trus ENTER

CTRL + B => Bold (cetak Tebal)
CTRL + I => Italic (cetak miring)
CTRL + U => Underline(garis bawah) keseluruhan yang diblok
CTRL + SHIFT + W => menggaris bawahi seluruh yang diblok tapi terputus-putus per kata

CTRL + SHIFT + = => menulis pangkat dalam matematika (font mengecil dan posisi tulisan diatas normal)
CTRL + = => menulis rumus kimia (font mengecil dan posisi tulisan dibawah normal)

Atau mau modifikasi Font yang lengkap pake CTRL + D


ALIGN
CTRL + L => Left (Rata kiri)
CTRL + R => Right (Rata Kanan)
CTRL + E => Center (Rata Tengah)
CTRL + J => Justify (Rata Kiri-Kanan)


TABULASI
Untuk menggerakkan semua jam pasir (Indent)
CTRL + M untuk memajukan
CTRL + SHIFT + M untuk memundurkan
kalau hanya menggerakkan atas jam pasir aja (First Line Indent) ->
CTRL + T untuk memajukan,
CTRL + SHIFT + T untuk memundurkan

CTRL + Q => mengembalikan tabulasi ke left margin (batas pengetikan paling kiri) atau dengan kata lain me-reset tabulasi

TAMPILAN
CTRL + ALT + I => Print Preview (Esc untuk kembali) ato bisa juga pake CTRL + F2
CTRL + ALT + O => Outline View (Tampilan Outline)
CTRL + ALT + N => Draft View (Tampilan Draft seperti Notepad)
CTRL + ALT + P => Print Layout (Default Word) Tampilan yang biasa kita gunakan untuk mengetik

LAINNYA
CTRL + ALT + F => membuat Kutipan

CTRL + C => Copy (mencopy tulisan yang diseleksi ke memori)
CTRL + X => Cut (mencopy tulisan yang diseleksi ke memori dan menghapus dari layar)
CTRL + V => Paste (menampilkan tulisan yang telah dicopy atau di cut)

CTRL + Z => Undo (membatalkan aksi terakhir)
CTRL + Y => Redo (membatalkan pembatalan terakhir)

CTRL + F => Find (mencari kata tertentu)
CTRL + H => Replace (mencari kata tertentu dan mengganti keseluruhan atau satu persatu sesuai dengan keinginan)

CTRL + K => membuat Hyperlink

CTRL + S => Save (menyimpan dokumen)
F12 => Save As (menyimpan dolumen dengan nama atau tempat yang berbeda)

CTRL + F4 => menutup dokumen (tapi tidak menutup Word) bisa juga pake CTRL + W
ALT + F4 => menutup Word


CTRL + P => Print (mencetak dokumen)

CTRL + F10 => Maximize ato Restore Down Layar kerja (Window)

CTRL + ALT + . => Memunculkan 3 titik yang langsung menyesuaikan dengan panjang baris yang Biasanya digunakan untuk membuat Daftar Isi.

Cara menambah baris tabel; Letakkan kursor di kolom paling kanan baris terakhir, lalu tekan TAB. Maka tabel akan ditambahkan otomatis 1 baris mengikuti format sebelumnya.

Sebenarnya Semuanya bisa dilakukan dengan Kombinasi ALT dan huruf yang bergaris bawah pada tulisan setiap menu. Contoh: Untuk Word 2003 ke bawah untuk mengeklik File cukup ketik ALT + F lalu panah untuk pindah menu atau tekan huruf yang bergaris bawah untuk memilih menunya. Untuk Word 2007 tekan az ALT ntar hurufnya langsung nongol sendiri..

Untuk navigasi di Windowsnya sendiri, kita cukup mainan Tab az trus enter ato shortcut dibawah juga bisa dipake. (Untuk balik ke Tab sebelumnya kita bisa pake SHIFT + TAB)

Windows + E => membuka Windows Explorer
Windows + R => membuka Run (Untuk menjalankan program tertentu seperti dxdiag, services.msc, regedit, cmd, ping, atau explorer dan lain-lain dah)
Windows + D => meminimize semua layar yang terbuka sehingga yang tampil hanya walpaper desktop az
ALT + TAB => berpindah aplikasi
Untuk ShutDown XP cukup tekan Windows trus U trus U lagi, ntar windowsnya langsung shutdown.. ato klo settingan tombol powernya default, pencet az tombol power.. pasti langsung otomatis shutdown

CARA MEMBUAT KOMPONEN DATA DENGAN VISUAL BASIC VB.6.0

VISUAL BASIC 6.0

Membuat Komponen Data

Langkah awal anda pasitkan Sudah ter Instal Microsoft Visual Basic. Disini saya memakai Microsoft Visual Basic 6.0, Lalu Buatlah form baru, dan Bualah skemanya dahulu seperti dibawah ini:

Pada "Jenis komponen, Jumlah barang, Harga satuan, Sifat komponen, Masa operasi, Tanggal Operasi dan Total"  Itu saya menggunakan Textbox berikutnya juga pada kotak disamping kanan. Anda juga bisa menggunakan label.

Pada "Data baru, Laporan dan Selesai" menggunakan Command Button, Sedangkan pada "Tugas Mujahidah" Menggunakan Label.

Jika sudah Buat form baru (form 2) pada menu "ADD FORM" dan buat tabelnya seperti ini:

Buatlah dengan menggunakan "Textbox, Command Button dan Label" Seperti gambar di atas

Pada textbox anda dapat merubah warna Pada properties di sebelah kanan lalu klik Bagian Backcolor dan pilihlah warna sesuai selera anda.

Setelah selesai membuat tabel Pastikan bahwa pada text8 dirubah (name) menjadi txtjk

ubah pada form 1 dan form 2 (nama harus sama pada form 1 dan form 2) :

jenis komponen ubah (name) pada properties menjadi "txtjk"

jumlah barang ubah (name) pada properties menjadi "txtjb"

harga satuan ubah (name) pada properties menjadi "txths"

Sifat komponen ubah (name) pada properties menjadi "txtsk"

masa operasi ubah (name) pada properties menjadi "txtmo"

tanggal produksi ubah (name) pada properies menjadi "txttp"

total ubah (name) pada properties menjadi "txttt"

jika sudah semuanya buka tampilan code, View - code. dan tulislah code dibawah seperti tampilan dibawahnya :

CODE :

Dim n1 As Integer

Dim jumlah As Single

Private Type Datakusendiri

        

Jnskomponen As String

jmlbarang As Integer

hrgsatuan As Integer

Sftkomponen As String

MasaOpkomponen As String

TglProdkomponen As Date

total As Integer

    

    End Type

    Dim Info As Datakusendiri

    Sub datakomponen()

    Info.Jnskomponen = txtjk

    Info.jmlbarang = txtjb

    Info.hrgsatuan = txths

    Info.Sftkomponen = txtsk

    Info.Masaopdkomponen = txtmo

    Info.TglProdkomponen = txttp

    Info.total = txttt

    End Sub

Private Sub Command1_Click()

txtjk = ""

txtjb = ""

txths = ""

txtsk = ""

txtmo = ""

txttp = ""

txttt = ""

txtjb.SetFocus

End Sub

Private Sub Command2_Click()

Form2.Show

Form1.Hide

Beep

Form2.txtjk.Text = txtjk

Form2.txtjb.Text = txtjb

Form2.txths.Text = txths

Form2.txtsk.Text = txtsk

Form2.txtmo.Text = txtmo

Form2.txttp.Text = txttp

n1 = txtjb.Text

n2 = txths.Text

jumlah = Val(n1 * n2)

txttt.Text = jumlah

Form2.txttt.Text = txttt

End Sub

Private Sub Command3_Click()

End

Beep

Beep

End Sub

Tampilan code sebagai berikut:

jika sudah anda dapat menjalankannya dengan menklik tombol start, berikut tampilannya:

Selamat mengerjakan, Semoga bermanfaat,

Terimakasih

#mujayshaumayya