Senin, 23 April 2012

MEMBUAT NOMOR URUT OTOMATIS VB 6.0


MEMBUAT NOMOR URUT OTOMATIS
‘Buat deklarasi

Dim Rst As New ADODB.Recordset
Dim N As String
'-------------------------------------------------------------------
'mengambil 4 karakter dari kanan (yg merupakan nomer) dari field NOMOR, kemudian dicari ‘nilai yg paling besar (max)   jika anda membuat nya lebih dari 4 karakter anda bisa ganti sesuai keperluan
‘'kemudian hasilnya d tampung d field buatan dgn nama Nomor

Rst.Open "select max(right(NO,4)) as Nomor from NamaTabel", Conn, adOpenKeyset
    ''jika kosong atau tdk ada data
    If IsNull(Rst!Nomor) Then   
        N = "A0001" 'member nilai awal
    Else  
        N = "A" & Format(Rst!Nomor + 1, "0000")
    End If 
Text1.Text = N 

Conn adalah variable  Conection ke database  contoh:

On Error GoTo Ero
Dim Conn As New ADODB.Connection

    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\databade.mdb;"


Conn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER="localhost ";DATABASE="Database ";UID="root";PWD="password";PORT="3306";OPTION=3"





MEMBUAT NONOR URUT OTOMATIS DAN KEMBALI KE 0001 (NO AWAL ) SETIAP TAHUN
Sub AutoNoTahunan()
Dim Rst As New ADODB.Recordset
Dim N As String


Rst.Open "select max(right(NO,6)) as Nomor from NamaTabel where Year(Tanggal) = " & Year(Now), Conn, adOpenKeyset, adLockOptimistic

    'jika berisi null atau tdk ditemukan
    If IsNull(Rst!NOMOR) Then             
        N = "M-000001" 'member nilai awal
    Else
        N = "M-" & Format(Rst!NOMOR + 1, "000000")
    End If
    Text1.Text = N
   Rst.Close
End Sub

‘anda tinggal memanggil procedure di atas pada setiap roses simpan contoh
 AutoNoTahunan
Bisa juga
Call AutoNoTahunan
Format nomor urut yang di hasilakn adalah “M-000001” dst
Jika anda hanya angka saja anda tinggal  rubah

N = Format(Rst!NOMOR + 1, "00000")





MEMBUAT NO URUT OTOMATIS KEMBALI KE SATU  0001 SETIAP BULAN

Sub AotuNoBulanan()
Dim Rst As New ADODB.Recordset
Dim N As String

Rst.Open "select max(right(NO,4)) as Nomor from NamaTabel where Year(Tanggal) = " & Year(Now) & " and Month(Tanggal) = " & Month(Now), Conn, adOpenKeyset, adLockOptimistic

    ''jika tidak berisi null atau data kosong
    If IsNull(Rst!NOMOR) Then
        N= "0001" 'member nilai awal
    Else
        N = Format(Rst!NOMOR + 1, "0000")
    End If
    Text1.Text = N
    Rst.Close
End Sub


‘anda tinggal memanggil procedure di atas pada setiap roses simpan contoh
 AotuNoBulanan
Bisa juga
Call AotuNoBulanan



SOURCE CODE FILTER DATA Adodc dgn MySQL



MEMFILTER DATA DENGAN TEXTBOX 
Adodc1.Recordset.Filter = "NamaKolom  like '%" + Me.Text1.Text + "%'"
‘jika anda mengetik huruf A maka data-data yang ada huruf A akan di tampilkan

MEMFILTER DATA DENGN 2 KRETERIA
Adodc1.Recordset.Filter = "Kolom1 like '%" + Me.Text1.Text + "%'and Kolom2 like '%" + Me.Text2.Text + "%'"

Perintah SQL pada ADODC yang cocok SQL ODBC Driver 3.51


MENAMPILKAN SEMUA DATA
Adodc1.RecordSource = "select * from NamaTabel order by KolomTabel"
‘jika order  by Nomor  makan komom nomor di urutkan

MENAMPILKAN DATA TAHUN 2011
    Adodc1.RecordSource = "select * from NamaTabel where Year(Tanggal) = 2011  order by Tanggal"
    Adodc1.Refresh
‘jika pada table anda nama kolom tanggal , jika TGL anda tinggal ganti 
Adodc1.RecordSource = "select * from NamaTabel  where Year(TGL) = 2011  order by TGL"

MENAMPILKAN DATA TAHUN SEKARANG
 Adodc1.RecordSource = "select * from NamaTabel  where Year(Tanggal) = " & Year(Now) & " order by Tanggal"
Adodc1.Refresh

MENAMPILKAN DATA BILAN  INI
Adodc1.RecordSource = "select * from NamaTabel  where Year(Tanggal) = " & Year(Now) & " and Month(Tanggal) = " & Month(Now) & " order by Tanggal"
 Adodc1.Refresh

MENAMPILKAN DATA BULAN DAN TAHUN TERTENTU
Adodc1.RecordSource = "select * from NamaTabel where Year(Tanggal) = 2012 and Month(Tanggal) =   4 order by Tanggal"
 Adodc1.Refresh

MENAPILKAN DATA DARI 2  BULAN  TERTENTU
Adodc1.RecordSource = "select * from NamaTabel where Year(Tanggal) = 2012 and Month(Tanggal) between 1 and 4 order by Tanggal"
  Adodc1.Refresh
‘angka 1 dan 4 (warna biru) adalah bulan yang kita tentukan

MENAMPILKAN DATA SESUAI TEXT BOX (BERISI ANGKA)
Adodc1.RecordSource = "Select * from NamaTabel  where kolom = " & Text3.Text & " order by kolom1"
Adodc1.Refresh



ARTIKEL

Cara / Trik merubah mana bulan (MountName) versi Bahasa Inggris ke Bahasa Indonesia  Baca Selengkapnya 
-------------------------------------------------------------------------------------------------------------
Bagai mana memfilter data yang tentunya untuk Visula Basic dengan database My SQL Baca Selengkapnya 
-------------------------------------------------------------------------------------------------------------
Perintah dasar My SQL yang  dikoneksikan dengan toll Adodc yang merupakan kode dasar pemograma visual basic dangan database My SQL server Baca Selengkapnya
-------------------------------------------------------------------------------------------------------------
Cara membuat nomor urut otomatis disertakan kode tertentu sesuai kepeluan anda bisa di gunakan untuk Vb My Sql atau Vb acces Baca selengkpnya
---------------------------------------------------------------------------------------------------------------
Cara penulisan kose dsar Visual Basic 6.0 untuk Pemograman database dasar yang bisa di gunakan untuk Pemograman VB DB Acces atau VB MySql meliputi simpan, cari, ubah dan hapus data dengan menggunakan Data Control, ADODC, dan ADODB. (codenya basic/pemula) baca selengkanya
-----------------------------------------------------------------------------------------------------------------
Cara membuatb program aplikasi mencari tahu Zosiak anda menggunakan bahasa pemograman Delphi 7untuk lebih jelasnya kunjungi halaman berikut ini Zodiak by Delphi7
-----------------------------------------------------------------------------------------------------------------
Bagi para pemula untuk mengenal bahasa pemograman biasanya merekan belajar dulu bahasa PASCAl tentunya Bagi mereka yang baru Semeste 1 bagi yang kuliah untul lebih jelasnya go to peg
-----------------------------------------------------------------------------------------------------------------
Membuat package installer (SETUP) merupakan bagian akhir dalam membuat program agar program yang kita buat bisa dijalankan di kmputer lain (di Instal) untuk lebih jelasnya Go to page  
-----------------------------------------------------------------------------------------------------------------
Membuat database dengan Microsoft Acces Berpassword dan Merancang Laporanya Dengan Cristal Report 8.5 Go to Page
-----------------------------------------------------------------------------------------------------------------
Kemarin saya sempat bingung bagaiman menyaring lapran dengan cristal report, agar anda tidak mengalami yang saya alami maka pada kesempatan kali ini saya menulis tentang cara filter Cristal report Go to Page

Sabtu, 21 April 2012

TEKNIK PERANCANGAN ANTAR MUKA

Tampilan Program merupakan hal yang paling terpenting untuk membuat kesan mewah pada Interface yang kita buat pada kesempatan kali saya menulits tentang teknik permainan picture pada bacgroun form agar bisa di ganti

trik nya adalah

mengambil picture ada form lain yang kita sembunyikan besic kode nya adalah:

me.Picture1.Picuture = Form2.Picture1.Picutre

Dapatkan saple Projectnya : SIMPUS Software Desain by Rahman

Selamat Belajar