Membuat Menu Login VB.Net 2008 white DB. Acses

MEMBUAT MENU LOGIN DENGAN DATABASE DI VB.NET ( VB 2008 )

Selamat datang kembali di ican icank

kali ini gw akan membahas mengenai pembuatan menu login di vb.net ( vb 2008). Ok untuk mempersingkat waktu kita mulai saja tutorialnya yah..

1. Anda Buka Ms. Access 2007 anda, seperti gambar berikut ini

2. Setelah terbuka Ms. Access 2007 anda, maka langkah selanjutnya tentukan penyimpanannya, biar sama kita simpan saja di Drive D dan nama databasenya kita beri nama data kemudian click ok dan setelah itu click create, seperti gambar berikut ini
3. Setelah itu pilih di menubar yang tulisan create, kemudian pilih table design, seperti gambar berikut.
4. Setelah itu isikan field 1, dengan nama user dan data type text, serta field 2, dengan nama pass dan data type text. seperti gambar berikut ini:

Dan setelah itu tekan di keyboard (ctrl + s) atau menyimpan.. kita beri nama tabelnya dengan nama log.. dan jika muncul seperti gambar berikut ini, maka jawab no.
5. Setelah itu coba anda isikan beberapa data di Database. dengan cara klik view > datasheet view, atau seperti gambar berikut :

contoh kita isikan data seperti berikut

6. Setelah siap membuat database di Access 2007, maka langkah selanjutnya anda buka Microsoft Visual Studio ( Visual Basic 2008 ), setelah itu pilih file > New > project . seperti gambar berikut.
Kemudian akan muncul jendela new project. setelah itu anda pilih Visual Basic > Windows form Applications, setelah itu berinama project : login , dan disimpan di drive D saja.. Seperti gambar berikut:
7. Dan Saatnya kita design tampilan programnya..
* Masukan 1 buah label dan isi text di properties dengan kata Username
* Masukan 1 buah textbox dan isi name di properties dengan kata Vuser
* Masukan 1 buah label dan isi text di properties dengan kata Password
* Masukan 1 buah textbox dan isi name di properties dengan kata Vpass
* Masukan 1 buah command button dan isi text di properties dengan kata LOGIN
Dan tampilannya kurang lebih seperti berikut :
8. Setelah siap design form, maka langkah selanjutnya anda buka jendela explore ( klik kanan di start > Explorer ). dan nanti akan muncul jendela start menu.

Jika sudah muncul jendela Start menu, seperti gambar diatas. maka anda buka drive D dan copy database yang kita buat tadi kemudian di paste ke bin debug project vb kita yang dengan nama Login, seperti gambar berikut ini :

9. Setelah itu saatnya kembali ke Laptop, eh salah kembali ke vb.net yang kita rancang tadi... Nah disini saatnya kita pusing. ehehehehehe ( santaiaja.com ), setelah itu double click di form'a dan ketikan syntax seperti ini, harap gambar di bawah ini di klik yah.. dan ketikan syntaxnya :
setelah itu buat syntax sebuah sub ( procedure ) , seperti berikut..harap gambar di bawah ini di klik yah.. dan ketikan syntaxnya
Setelah itu Double click di Tombol login, harap gambar di bawah ini di klik yah.. dan ketikan syntaxnya
Ok... Saatnya di coba tekan F5


Sekian tutorial dari saya. Semoga bermanfaat untuk anda sekalian

okey gan,,,!! god luck ye... jangan lupa banyak minum kalo lgi dpan komputer,,!! key,,,!! :)

walaikumsalam.

Read more »

Nggawe Menu Login Di VB.Net 2008

Nyok Lah Bikin ikutin cara2'nya :
• Membuat login pada VB.net
• Klik kanan pada project yang dibuat
• Add -> New item-> login form ( edit desain Form Login semau lu aje,,,, )



• Klik 2x pada tombol ok
• Masukan sintax
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If UsernameTextBox.Text = "ican" And PasswordTextBox.Text = "iclik" Then
Form1.Show()
Me.Visible = False
Else
MsgBox("login gagal,coba ulangi lagi")
End If
End Sub
* Lalu jalankan / running program tersebut
* Masukan username “ariel” dan password “iclik”



• Jika sudah bisa login dan muncul MDI Parent Form maka Login telah selesai.
• Selamat mencoba……



--------------------------------------------------------------
tambahan untuk bikin login dengan cara manual >>
berikut sourchnye :


Dim masuk As Boolean
if me.TextBox1.Text.ToString ="ican" and me.TextBox2.Text.ToString ="katro" then
masuk = True
end if
if masuk = True Then
Me.Hide()
Form2.Show()
Else
msgbox"Periksa Nama atau pasworld",MsgBoxStyle.Information,"Infrmasi"
End If
-----------------------------------------------------------------
so terserah lo mau yang manual atao bawaanye,,,!!
Good Luck,,, jangan lupa banyak2 minum ye kalo lu lagi depan komputer lu di waktu yang lama ,,,,!! key,,,!!
by,,, ican_itan@yahoo.com (Icank.KP)

Read more »

Databases SQL Server 2005 In Visual Basic :)

Tahap2nya adalah :
1. Membuat databases di Sql Server 2005.

create database ican
use ican

create table cln_mhs
(
no_daftar char(6) not null,
tgl_daftar datetime,
nama_cln varchar (50),
tmp_lhr_cln varchar (50),
tgl_lhr_cln datetime,
jkel char (2),
agm_cln varchar(20),
email_cln varchar(100),
hp_cln varchar(12),
tlp_cln varchar(10),
almt_cln varchar(100),
asal_sklh_cln varchar(50)
)
alter table cln_mhs
add constraint pkcln primary key (no_daftar)

Select*From cln_mhs


VB.Net 2005

Buat Class Conection :

Imports System.Data
Imports System.Data.Sql
Module modul_koneksi
Public database As New OleDb.OleDbConnection
Public tampil2 As New OleDb.OleDbCommand
Public tampilkan As OleDb.OleDbDataReader
Public hasilcek As String

Public Sub bukakoneksi()
database.Close()
Try
database.ConnectionString = "provider=sqloledb.1;integrated security=SSPI;persist security info=false; initial catalog=indra;data source=."
database.Open()
MessageBox.Show("Koneksi kedatabase berhasil")
Catch ex As Exception
MessageBox.Show("koneksi gagal")

End

End Try
End Sub
End Module

Buat Form :

Public Class menu_tahu

Sub celrecord()

Call bukakoneksi()

tampil2.Connection = database

tampil2.CommandType = CommandType.Text

tampil2.CommandText = "select * from tahu where kode_th='" & Trim(TextBox1.Text) & "'"

tampilkan = tampil2.ExecuteReader

If tampilkan.HasRows = True Then

hasilcek = True

Else

hasilcek = False

End If

End Sub

Sub bersihkan()

TextBox1.Text = " "

TextBox2.Text = " "

TextBox3.Text = " "

TextBox4.Text = " "

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Call simpan()

End Sub

Sub simpan()

If TextBox1.Text = "" Then Exit Sub

If TextBox2.Text = "" Then Exit Sub

If TextBox3.Text = "" Then Exit Sub

If TextBox4.Text = "" Then Exit Sub

Call celrecord()

Try

If hasilcek = "False" Then

Call bukakoneksi()

tampil2.Connection = database

tampil2.CommandType = CommandType.Text

tampil2.CommandText = " Insert into tahu (kode_th,jenis_th,harga_th,stock_th)values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"

tampil2.ExecuteNonQuery()

Call bersihkan()

Else

MsgBox("Data sudah ada , silahkan cek data yang akan diinput ", MsgBoxStyle.Critical, "Input data") ''critical = ! dalam msgbox

End If

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Dim res As DialogResult

res = MessageBox.Show("Yakin Ingin Keluar ?", "Confirm Dialog", MessageBoxButtons.OKCancel)

If res = DialogResult.OK Then

Me.Close()

Else

Call bersihkan()

End If

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Call bersihkan()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Call ubah()

End Sub

Sub ubah()

If TextBox1.Text = "" Then Exit Sub

If TextBox2.Text = "" Then Exit Sub

If TextBox3.Text = "" Then Exit Sub

If TextBox4.Text = "" Then Exit Sub

Try

Call bukakoneksi()

tampil2.Connection = database

tampil2.CommandType = CommandType.Text

tampil2.CommandText = " Update tahu set jenis_th='" & TextBox2.Text & "', harga_th='" & TextBox3.Text & "', stock_th='" & TextBox4.Text & "'where kode_th='" & TextBox1.Text & "'"

tampil2.ExecuteNonQuery()

Call bersihkan()

TextBox1.Focus()

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Call hapus()

End Sub

Sub hapus()

If TextBox1.Text = "" Then Exit Sub

If TextBox2.Text = "" Then Exit Sub

If TextBox3.Text = "" Then Exit Sub

If TextBox4.Text = "" Then Exit Sub

Try

Call bukakoneksi()

tampil2.Connection = database

tampil2.CommandType = CommandType.Text

tampil2.CommandText = " Delete from tahu where kode_th='" & Trim(TextBox1.Text) & "'"

tampil2.ExecuteNonQuery()

Call bersihkan()

TextBox1.Focus()

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Call cari()

End Sub

Sub cari()

Call bukakoneksi()

tampil2.Connection = database

tampil2.CommandType = CommandType.Text

tampil2.CommandText = " select* from tahu where kode_th='" & Trim(TextBox5.Text) & "'"

tampilkan = tampil2.ExecuteReader

If tampilkan.HasRows = True Then

While tampilkan.Read()

If (IsDBNull(tampilkan("kode_th"))) Then

Else

TextBox1.Text = tampilkan("kode_th")

TextBox2.Text = tampilkan("jenis_th")

TextBox3.Text = tampilkan("harga_th")

TextBox4.Text = tampilkan("stock_th")

End If

End While

Else

MsgBox("Data tidak diketemukan", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Tambah Data")

End If

End Sub

Private Sub menu_tahu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'TODO: This line of code loads data into the 'IndraDataSet.tahu' table. You can move, or remove it, as needed.

Me.TahuTableAdapter.Fill(Me.IndraDataSet.tahu)

End Sub

End Class

Okey lah Tutorial dari saya smoga bermanfaat,,,!! key,,,!! Good Luck,, jangan lupa perbanyak minum ... :)

salam to anak2 KP.Corporation. ( Icank KP )

-----------------------------------------------------------------------------------------

sekedar tambahan >>>>

Imports System.Data

Imports System.Data.Sql

Module koneksi_database

Public database As New OleDb.OleDbConnection

Public tampil2 As New OleDb.OleDbCommand

Public tampilkan As OleDb.OleDbDataReader

Public hasilcek As String

Public Sub bukakoneksi()

database.Close()

Try

database.ConnectionString = "provider=sqloledb.1;integrated security=SSPI;persist security info=false; initial catalog=ican;data source=."

database.Open()

MessageBox.Show("Koneksi kedatabase berhasil")

Catch ex As Exception

MessageBox.Show("Koneksi gagal")

End

End Try

End Sub

End Module

Source yang ada di Form >>>>>>>>>>

Public Class Form2

Sub cekrecord()

Call bukakoneksi()

tampil2.Connection = database

tampil2.CommandType = CommandType.Text

tampil2.CommandText = "select *from pmb where no_daftar='" & Trim(TextBox1.Text) & "'"

tampilkan = tampil2.ExecuteReader

If tampilkan.HasRows = True Then

hasilcek = True

Else

hasilcek = False

End If

End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'TODO: This line of code loads data into the 'IcankDataSet1.pmb' table. You can move, or remove it, as needed.

Me.PmbTableAdapter.Fill(Me.IcankDataSet1.pmb)

'TODO: This line of code loads data into the 'IcankDataSet.mhs' table. You can move, or remove it, as needed.

Me.MhsTableAdapter.Fill(Me.IcankDataSet.mhs)

'TODO: This line of code loads data into the 'IcankDataSet1.pmb' table. You can move, or remove it, as needed.

Me.PmbTableAdapter.Fill(Me.IcankDataSet1.pmb)

End Sub

Sub bersih()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Call bersih()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim res As DialogResult

res = MessageBox.Show("You Really To exit", "Confirm Dialog", MessageBoxButtons.OKCancel)

If res = DialogResult.OK Then

Me.Close()

Else

Call bersih()

End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Call nyimpan()

End Sub

Sub nyimpan()

If TextBox1.Text = "" Then Exit Sub ''then exit sub = keluar dari sub class dgan syarat textbox harus diisi/pengecekan validasi

Call cekrecord()

Try

If hasilcek = "False" Then

Call bukakoneksi()

tampil2.Connection = database

tampil2.CommandType = CommandType.Text

tampil2.CommandText = " Insert into pmb (no_daftar,nama_mhs,jlh_byr,tgl_byr) values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text& "')"

tampil2.ExecuteNonQuery()

Call bersih()

Else

MsgBox("Data sudah ada , silahkan cek data yang akan diinput ", MsgBoxStyle.Critical, "Input data") ''critical = ! dalam msgbox

End If

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub

End Class

................................................................................................................................

okey,,,, thxs..!! salam cuy,,!!!

Read more »

Cara Bikin Bootable XP White Flash Disk ( ? )

Langkah langkah membuat Boootable Windows XP dengan Flash Disk.

• Siapkan Flash Disk, Menurut sumbernya, flash disk yang di gunakan jangan lebih dari 2 Gb, di kwatirkan akan bermasalah pada file sistem nya. ( Saya menggunakan Flash Disk 4 Gb Merk Transcend, dan tidak ada masalah. Saya sarankan pake flashdisk jangan kurang dari 1 Gb, untuk menyalin CD windows XP nya )
• Lakukan Back Up pada flash disk, Copy dan pindahkan seluruh datanya ke harddisk.
• Masukkan CD windows XP kedalam CD atau DVD Rom.
• Setelah di download, silahkan extract folder Bootable USB Flash Disk menggunakan winrar atau winzip.
• Setelah di Extract, Jalankan File bat dengan nama Bootable USB Flash Disk. Akan tampil gambar seperti dibawah ini. “Pres any key to continue….” silahkan tekan sembarang tombol untuk melanjutkan proses.

• Ada 3 opsi pilihan yaitu P, H dan N seperti gambar di bawah. Ketik huruf P pada command prompt lalu enter

• Akan tampil gambar PeToUSB seperti dibawah ini (Jendela command Promt nya jangan di close), silahkan beri nama flash disk pada kolom drive label. Langsung Klik start. Muncul jendela Pop Up “Continue?” tekan “Yes”. Muncul jendela Pop Up lagi “Are You Sure You Want To Continue?” tekan “Yes”. Proses format flashdisk akan berjalan. Setelah proses format flash disk selesai, Selanjutnya silahkan close Software PeToUSB.

• Klik lagi pada jendela command prompt, tampilan gambarnya seperti dibawah ini, dengan beberapa opsi perintah angka dan huruf. Silahkan tekan angka 1 kemudian enter untuk memilih dimana meletakkan CD windows XP, sebagai contoh DVD Rom saya letaknya di F. Pada jendela “Browse For Folder” Pilih F kemudian tekan OK.

Lalu akan muncul jendela pop up seperti ini

Tekan No, dengan tujuan agar instalasi windows xp nanti akan berjalan tanpa harus memasukkan lagi Serial number, settingan tanggal, waktu, user name, password dan sebagainya. Tahu-tahu instalasi sudah sampai pada layar welcome screen.

• Langkah selanjutnya setelah memilih No, akan tampil beberpa jendela pop up yang harus di isi. Isi nama pada jendela Give Owner Full Name, Isi nama organisasi, Isi Serial Number Windows XP dan jangan sampai keliru, Isi nama Komputer, Isi Administrator Password atau di kosongkan, Isi format waktu misalnya untuk asia isi dengan angka 205, Isi Workgroup atau biarkan saja, terakhir klik oke.

• Kembali pada jendela Command Promt, ketik angka 3 dan enter, selanjutnya proses copy instalasi windows XP ke USB Flashdisk, ini akan memakan waktu kurang lebih 15 menit.

• Setelah proses copy selesai, akan muncul jendela pop up seperti dibawah ini. Klik Yes. Kemudian pada jendela Command Promt “Pres any key to continue….” silahkan tekan sembarang tombol, jendela command prompt akan keluar dengan sendirinya. Artinya, Flash disk sudah siap dengan file-file instalasi windows xp didalamnya. Silahkan lepas USB Flash disk nya Im, selanjutnya kita akan memulai proses instalasi windows XP di NetBook mu.

Proses Instalasi Windows XP

Laptopnya (Net Book) di matiin dulu Im. Ini untuk menghindari flash disknya kemasukan virus dari NetBook mu. Kan Net Book mu terkenal tempat nongkrongnya virus. Setelah Mati, baru tancepin flash Disknya. Selanjutnya, hidupkan NetBook, tekan tombol Del atau F2 (tergantung tipe/BIOS Komputer, laptop, NetBook nya) untuk masuk ke menu Bios. Cari settingan untuk menentukan pilihan booting. Set USB FlashDisk untuk booting pertama. Save and exit. NetBook akan restart, kemudian akan tampil menu seperti gambar dibawah.

Silahkan pilih TXT Mode, lalu tekan enter. Masuk ke menu instalasi Windows XP seperti biasa. Setelah Proses formatting dan copy file ke harddisk, netbook akan restart. Biarkan saja proses booting berjalan pada Menu GUI Mode no 2, jangan pilih mode TXT lagi. Sampai di sini proses instalasi akan berjalan dengan sendirinya. Bila proses instalasi telah selesai, silahkan restart dan kembalikan settingan pada BIOS, Set Hard Disk untuk booting pertama. Selesai Im. Selanjutnya terserah, mau di apain tu NetBook.

Referensi :

http://gocoding.com/page.php?al=petousb dan berbagai sumber

Gambar WindowsXP USB : http://photobucket.com/images/windows xp usb/

Read more »