FajarYusuf

Laporan Dengan Data Report Salah satu fasilitas Visual Basic ialah menyediakan Data Report untuk membuat Laporan. seperti halnya kontrol data yang digunakan sebagai penghubung dengan database, Data Report pula membutuhkan Data Environment yang berfungsi sebagai penghubung antara database yang ada dengan Data Report. 1.Buat Data Evironment Klik Project pada MenuBar, Klik Data Add Environment Akun tampil jendela Data Environment, klik kanan pada connection1,pilih properties Akan tampil jendela Data Link Properties (untuk menghubungkan dengan database) Pilih Microsoft Jet 4.0 OLE DB PROVIDER , klik next Muncul tab Connection keudian pada select or enter a database name pilih nama database klik tombol cari penyimpanan database yang akan di hubungkan latihanDBVb.mdb Klik Test Connection, jik koneksi berhasil (database telah terkoneksi), klik ok  Untuk mewakili tabel, tambahkan command pada Connection1 dengan cara klik kanan pada command1, pilih add command ...

Transaksi One To One  Setelah latihan membuat Form Barang dan Form Kasir, Selanjutnya adalah membuat Form Transaksi. Ada 2 Jenis transaksi yang pertama adalah transaksi One To One dan Transaksi One To Many. Untuk latihan form transaksi yang kita buat sekarang adalah One To One. Struktur Tabel Transaksi Buatlah sebuah form baru dengan format sebagai berikut Name     : FTransaksi Caption  : Form Transaksi Properties koneksi Untuk menambahkan objek yang digunakan untuk membuat Data Combo, caranya adalah : 1.ctrl+t 2.Ceklist->Microsoft DataList Control 6.0 (OLEDB) -> Klik OK Listing programnya : Sub nomor() Dim Urutan As String Dim Hitung As Integer adotrans.Refresh With adotrans.Recordset If .RecordCount = 0 Then Urutan = "TRS" & Format(Date, "YY") & Format(Date, "mm") & "001" txtnotrans.Text = Urutan Else .MoveLast Hitung = Val(Right(!notrans, 3)) + 1 Urutan = "TRS" & Format(Date,...

Database & Form Kasir  Buatlah sebuah Form Kasir dengan desain sepert dibawah ini Form ini dibuat untuk mengelola data baik kasir atau petugas yang melayani transaksi penjualan barang. Namun Sebelum merancang form buka terlebih dahulu database penjualan yang pernah kita buat sebelumnya lalu tambahkan tabel kasir sebagai berikut : Berikut adalah tampilan rancangan form data barang yang akan dibuat Form Kasir diatas logika programnya hampir sama dengan Form Barang, bedanya pada Form Kasir Kode Kasirnya dapat tampil otomatis sesuai format tertentu. Setting Properties Objeknya seperti berikut : Listing programnya : Sub nomor() Dim urutan As String Dim hitung As Integer With adokasir.Recordset If .RecordCount = 0 Then urutan = "KSR01" txtkdkasir.Text = urutan Else .MoveLast hitung = Val(Right(!kdkasir, 2)) + 1 urutan = "KSR" & Right("00" & hitung, 2) txtkdkasir.Text = urutan End If End With End Sub Sub ...

Database Pengertian Database dan Hirarki Database Hirarki Database Character Satuan Data Terkecil dalam database, dapat berupa karakter numerik (angka 0 s.d 9), huruf (A - Z, a - z) ataupun karakterkarakter khusus, seperti *, &. %, # dan lain-lain Field Merupakan bagian dari record yang menunjukkan suatu item data yang sejenis Record kumpulan data value dari attribute yang berkaitan sehingga dapat menjelaskan sebuah entity secara lengkap File/Tabel File merupakan sesuatu yang dapat diidentifikasi dari suatu sistem database, bisa berupa objek, orang, tempat, kejadian atau konsep yang informasinya akan disimpan dalam database Database Kumpulan dari tabel-tabel yang saling berelasi, disusun secara logis, sehingga menghasilkan informasi yang bernilai guna dalam proses pengambilan keputusan Latihan Yuk! Buatlah Tabel sesuai struktur dibawah ini dengan menggunakan Microsoft Access Buka microsoft access kalian lalu pilih new blank database d...

Effect Form Dan Kontrol Komponen Form membuka dari kiri ke kanan Animasi ini untuk membuka form mulai dari kiri ke kanan ketika program dijalankan. Buatlah rancangan form dibawah ini : Isi interval Timer1 dengan :1 masukkan listing program seperti berikut pada form : Private Sub Timer1_Timer() Me.Width = Me.Width + 20 If Me.Width >= 9000 Then Timer1.Enabled = False End If End Sub maka yang terjadi form akan perlahan terbuka dari kiri kekanan , kecepatannya tergantung +20 jika lebih besar angkanya kecepatannya pun makin cepat , dan lebar form 9000 .  Text Muncul Berjalan Pada form ini, kita akan membuat animasi text berjalan. Caranya kita rancang dulu form dibawah ini kemudian ikuti langkah-langkah selanjutnya :  masukkan listing program seperti berikut pada form : Dim Strl As String Dim i Private Sub Form_Load() Strl = "SELAMAT DATANG DI FAJARYUSUF.COM" i = 0 End Sub Private Sub Timer1_Timer() Timer1.Interval = 100 i = i + 1 Label1 ...

Array Pengertian Koleksi Objek Objek-objek yang digunakan dalam form biasanya berdiri sendiri. Dengan demikian jika anda ingin mengubah property ke semua objek tersebut, hal tersebut menyebabkan listing menjadi panjang. Untuk itu digunakan koleksi dan array yang dapatmenghemat penulisan listing program. Koleksi adalah suatu kumpulan kompenen yang dapat berfungsi sejalan. Hal ini sangat berguna saat akun mendefinisikan sebuah proses yang menyangkut kontrol-kontrol yang ada pada form. Cara Mengakses Koleksi Objek Koleksi Sementara : Dapat dilakukan dengan mengklik kontrol-kontrol pada form yang akan dijadikan sebagai satu grup koleksi sambil menekan tombol Ctrl . Koleksi sementara biasanya digunakan untuk memindahkan objek secara bersamaan hanya pada saat tersebut. Koleksi dengan Controls : Untuk mempermudah koleksi semua objek dalam satu form digunakan property controls. sintaknya : [objek].controls . Dimana [objek] lebih umum dinyatakan sebagai nama form yang kontrol-...

Module Pengenalan Modul Standar Visual Basic menyediakan module yang dapat digunakan untuk memuat fungsi, subrutin, konstanta, variabel dan type ciptaan yang akan disediakan bagi keseluruhan project. Untuk membuat dalam project anda dapat menggunakan perintah Project, Add Module. Sesaat setelah anda menambahkan module, maka pada jendela Project Explorer akan nampak Module1 Untuk melakukan koding, anda dapat melakukan double klik pada Module tersebut. Pengunaan Modul Standar Untuk contoh silakan kalian buka aplikasi Visual Basic 6.0 kalian pada desktop ataupun startprogram. Pilihlah Standard Exe - Open . Buat tampilan form seperti dibawah ini :   Settinglah nama objek dan caption objek dengan Fomat di bawah ini: textbox3 = txthasil Ketentuan Program : *Luas alas dan tinggi diinput, Button Hitung diklik tampil hasil pada txthasil didapat dari alas x tinggi/2, gunakan fungsi untuk menyelesaikan dan tempatkan pada module *Button Be...