STEP BY STEP MENJADI PROGRAMMER HANDAL DENGAN VB.NET

Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com

STEP BY STEP MENJADI PROGRAMMER HANDAL DENGAN VB.NET Lisensi Dokumen: Copyright © 2003 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.

Junindar Blog : http://junindar.blog.com E-Mail : [email protected] [email protected]

STEP I DASAR PEMROGRAMAN DATA BASE BERBASIS WINDOW (Study Kasus Access 2003) I.

Pengantar Mungkin sebagian besar pembaca artikel ini satu pendapat dengan saya. buku – buku tentang VB.Net yang beredar pada saat ini kurang memuaskan. Rata-rata

Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar


banyak menghabiskan kertas hanya dengan menjelaskan teori dari .Net. Framework. Sehingga kita sebagai pembaca lebih cepat bosan dengan membaca buku seperti itu (Sebelumnya mohon maaf kepada para penulis buku .Net, tapi itulah kenyataan yang saya alami). Oleh karena itu saya ingin membagikan ilmu yang saya miliki kepada para pembaca. Artikel ini saya buat berseri, belum tau lagi sampai berapa seri, doain aja biar tetap bisa nulis. Insya Allah dengan berjalannya waktu mudah-mudahan ilmu yang saya miliki juga bertambah, sehingga isi dari artikel-artikel yang akan saya tulis semakin bagus dan bermanfaat. Artikel ini berisi tentang contoh-contoh program dan fungsi yang ada pada source code. Dan program yang saya berikan berstandar basis data. Jadi para pemula yang belum sama sekali kenal VB.Net hendaknya membaca teorinya di buku-buku tentang pemrograman Vb.Net. Jika program yang diberikan tidak jalan, silahkan hubungi ke email saya. II.

Pada saat ini sudah sangat dipastikan bahwa pemrograman database memang lagi marak-maraknya. Karena sesuai dengan kebutuhan, setiap informasi yang akan diproses sebaiknya disimpan di sebuah basis data (Database). Pada artikel yang saya buat ini, untuk tingkat awal kita menggunakan Access sebagai penampung data. Dalam artikel yang saya buat ini, saya tidak membuat program untuk kasus yang besar, tetapi program-program itu saya pecah, sehingga pembaca juga dapat merasa puas akan artikel ini. Yang jelas isi dari materi yang ada pada artikel ini semua hampir berkaitan dengan pemrograman Database.

III. A TIME TO MAKE PROGRAM 3.1 Desain Form



Gambar Flash Form

Gambar Form Login

Untuk membuat program seperti diatas, mari ikuti langkah-langkah dibawah ini. Sebelum kita masuk dalam pembuatan program, terlebih dahulu kita buat database pada Access. Diasumsikan bahwa pembaca sudah mengetahui pembuatan database dan table pada access 2003. Buatlah database dengan nama “Coba.mdb” & buat table pada file Coba.mdb dengan nama “Users” dan “TbUsaha”. Seperti gambar dibawah ini.

Gambar Desain Table Users

Gambar Desain Table TbUsaha

Setelah selesai dalam pembuatan database, sekarang kita masuk dalam pembuatan program.



Buka Aplikasi Visual Studio.Net, dan pilih New Project. Ketikan nama project sesuai dengan keinginan anda. Simpan di drive pada PC anda (Untuk drive bebas juga, sekarang jamannya hak asasi manusia, tidak ada pemaksaan). Setelah itu copy file Coba.mdb ke dalam Folder “Bin” dimana aplikasi anda disimpan. Contoh, anda menyimpan aplikasi di “D:\NamaAplikasi”. Perluas folder NamaAplikasi, dan letakkan file Coba.mdb ke dalam folder Bin yang ada di dalam folder NamaAplikasi. Ngerti ga ??????????????????????????????????????????? 3.1.1 Membuat StartUp Form. Untuk pertama kali, .Net akan memberikan Default sebuah form, dengan nama Form1. Sekarang tugas kita adalah merubah tampilan Form1 tersebut menjadi seperti tampilan Flash Form seperti diatas.

Ubah properties Form1 seperti dibawah ini. BackColor

White

FormBorderStyle

FixedToolWindow

Text

(Kosongkan)

Name

StartUp

StartPosition

CenterScreen

ControlBox

False

ShowInTaskbar

False

Setelah selesai melakukan perubahan Form1 seperti diatas. Sekarang kita tambah aksesoris pada form StartUp. Tambahkan dua (2) buah label, 1 ProgressBar dan 1 buah PictureBox. Sehingga tampilan seperti pada gambar dibawah ini.



Desain Splash Form

Untuk gambar diatas silahkan ganti dengan gambar yang anda suka dan jika anda tidak suka dengan tampilan ini, anda dapat merubah sesuai dengan keinginan anda. Setelah selesai mendesain form, tambahkan sebuah timer dan beri nama Splash_Timer. 3.1.2 Membuat Login Form. Tambahkan sebuah Form ke dalam aplikasi. Caranya Klik Kanan Pada Project anda Pilih Add>Add Windows Form. Ganti properties Form baru tersebut seperti dibawah ini.



BackColor

LightBlue

Font+

Microsoft Sans Serif, 8.25pt, style=Bold

FormBorderStyle

Fixed3D

Text

Login

Name

FrmLogin

StartPosition

CenterScreen

ControlBox

False

ShowInTaskbar

False

Tambahkan 2 buah label, 2 buah TextBox dan 2 buah Button Ubah properties dari masing-masing component seperti dibawah ini. Label 1 BackColor

LightBlue

Font+


Text

Username

Label 2 BackColor

LightBlue

Font+


Text

Password

Textbox 1 BorderStyle

Fixed3D

Name

txtUser


Fixed3D

Name

txtPassword

PasswordChar

*



Button1 BackColor

LightBlue

Font+


Flatstyle

Flat

Text

Login

Name

btnlogin

Button2 BackColor

LightBlue

Font+


Flatstyle

Flat

Text

Cancel

Name

btnbatal

Setelah selesai merubah properties seperti di atas, susun dan disain form seperti dibawah ini.

Gambar Desain Form Login

3.1.3 Membuat Menu Utama Sekarang kita akan membuat Form Utama, tapi untuk sementara jangan di modifikasi. Untuk saat ini kita ganti Form Name menjadi MainMenu



3.2 Source Code 3.2.1

Source Code Form Splash

Setelah kita selesai mendesain 2 buah form, sekarang waktunya kita bermain dengan source code. Pada Form splash, klik 2 kali (Double Click) component Splash_Timer . Dan ketikkan listing seperti dibawah ini. Private Sub Splash_Timer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Splash_Timer.Tick Dim cur As New frmLogin ProgressBar1.Value += 4 If ProgressBar1.Value = 100 Then Splash_Timer.Dispose() Me.Visible = False cur.Show() End If End Sub

Note : anda dapat mencoba mengubah nilai value pada progressbar. Dengan menaikkan atau mengurangi nilai value maka anda melihat perubahan progessbar berjalan, apakah semakin cepat atau lambat. Itu semua tergantung pada anda. Coba jalankan program, gmana? apakah sudah sesuai dengan yang anda inginkan ???????? 3.2.2

Source Code Form Login

Sebelum kita mulai membuat listing pada form login, terlebih dahulu kita membuat koneksi pada database. Sekarang kita akan membuat koneksi dengan memanggil Class lain untuk koneksi ke database. Sebelumnya Buat folder pada project yang anda buat (Klik kanan project>Add>New Folder) dan beri nama “AccessData”. Selanjutnya didalam Folder tersebut tambahkan Class

dengan

nama

“DataBaseConnection.vb”

(Klik

kanan

Folder

“AccessData”>Add>Add Class). Ketikan listing di bawah ini pada class yang baru anda buat.


Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com Imports System.Data Imports System.Data.OleDb Namespace AccessData Public Class DatabaseConnection Dim conect As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Coba_Data.mdb;Jet OLEDB:Database Password=90210; ") Public Function open() As OleDbConnection conect.Open() Return conect End Function Public Function close() As OleDbConnection conect.Close() Return conect End Function End Class End Namespace

Note :Dengan membuat koneksi menggunakan Class, untuk setiap proses yang berhubungan dengan database anda cukup dengan memanggil nama Class tersebut, dengan mendeklarasikan Class tersebut. Contoh : Dim MyConnection As New AccessData.DatabaseConnection Setelah selesai membuat Class, selanjutnya kita akan membuat module untuk menyimpan Variable global yang sering kita gunakan dalam pembuatan program. Buat satu module caranya sama dengan membuat Class, dan beri nama “module.vb”. (Klik kanan Folder “AccessData”>Add>Add Module). Ketikan listing di bawah ini pada module yang baru anda buat. Imports System.Data.OleDb Module _Module Public cur As New Form Public Msg As Integer Public intResponse As Integer Public objCommand As OleDbCommand Public objDataAdapter As OleDbDataAdapter Public objDataReader As OleDbDataReader Public StrSQL as String Public Username, Password, mProcess As String Public objDataSet As New DataSet Public objDataTable As New DataTable End Module



Setelah selesai sekarang kita kembali pada Form Login. Untuk pertama kali ketikkan listing dibawah ini pada baris paling atas. Imports System.Data Imports System.Data.OleDb

Note : Fungsi dari listing diatas adalah mengambil (imports) fungsi yang ada pada .Net. jika anda menggunakan SQL Server sebagai database anda tinggal menganti “OleDb” menjadi “SqlClient”. Fungsi diatas wajib kita ketik untuk form yang menggunakan OleDb. Dan buat variable global untuk form Login ini, seperti dibawah ini. Dim f_utama As New MainMenu Dim MyConnection As New AccessData.DatabaseConnection

Ketikkan listing ini dibawah

Inherits System.Windows.Forms.Form

Selanjutnya kita buat listing untuk mencari apakah Username ada pada table Users Sub CheckUsers() objDataTable.Clear() StrSQL = ("SELECT * FROM [Users] WHERE [UserName] = '" & Trim(txtuser.Text) & "' ") objCommand = New OleDbCommand objCommand.Connection = Connect objCommand.CommandType = CommandType.Text objCommand.CommandText = StrSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "MDT_user") objDataTable = objDataSet.Tables("MDT_user") Connect.Close() End Sub

Fungsi dari listing adalah, mencari Username apakah ada pada table Users. Syntax SQL

("SELECT

*

FROM

[Users]

WHERE

[UserName]

=

'"

&

Trim(txtuser.Text) & "' "), Maksudnya adalah menampilkan data user dengan

criteria Username. Dan jumlah banyaknya data akan disimpan pada ObjDataTable. Kemudian ketikkan listing untuk menampilkan data users (Username,Password).



Sub Find_User() objCommand = MyConnection.open.CreateCommand objCommand.CommandText = ("Select [UserName],[Password] from [Users] where [UserName]='" & Trim(txtuser.Text) + "' ") objDataReader = objCommand.ExecuteReader objDataReader.Read Username = objDataReader.Item("Username") Password = objDataReader.Item("Password") MyConnection.close() End Sub

Untuk sekilas sepertinya listing antara Sub CheckUser sama dengan Sub Find_User. Tapi pada kenyataannya fungsi dari kedua listing ini berbeda. Untuk Sub Find_User disini kita menampilkan value dari username & Password. Mungkin anda pasti merasa bingung, dari mana ObjCommand, ObjDatareader, username, password. Mungkin kalau anda teliti, variable tersebut telah kita letakkan pada Module.vb. Kita tidak perlu membuat variable pada setiap form, karena variable global yang kita buat pada Modul dapat diakses oleh setiap Form. Bayangkan jika kita mempunyai 100 Form, maka pada setiap Form kita harus mendeklarasikan variable yang sering kita gunakan seperti diatas. Jika anda sudah mengerti dengan yang saya maksud, mari lanjutkan pelajaran kita. Sekarang Double Click Button Login. Ketikan Listing seperti dibawah ini.


Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click ‘untuk mengaktifkan fungsi CheckUsers CheckUsers ‘mengharuskan user memasukkan username dan password If txtuser.Text.Trim() = "" And _ txtpassword.Text.Trim() = "" Then Msg = MsgBox("Masukan Username dan Password", MsgBoxStyle.OKOnly, "Pesan") txtuser.Focus() ElseIf txtuser.Text = "" Then Msg = MsgBox("Masukan Username ", MsgBoxStyle.OKOnly, "Pesan") txtuser.Focus() ElseIf txtpassword.Text = "" Then Msg = MsgBox("Masukan password ", MsgBoxStyle.OKOnly, "Pesan") txtpassword.Focus() Else Try ‘Menghitung jumlah baris yang ada pada ObjDataTable If objDataTable.Rows.Count <= 0 Then ‘Jika jumlah baris = 0 / username tidak ada pada table Msg = MsgBox("Username tidak ada ", MsgBoxStyle.OKOnly, "Pesan") txtuser.Focus() 3.3 Else ‘Jika username ada pada table / jumlah baris ObjdataTable > 0 IV. ‘Mengaktifkan fungsi mencari nilai value Username & Password Find_User()

Setelah ini Double button Cancel, danpada ketikkan listing seperti berikut ‘Jika Click Password yang diketik TextBox tidak sama pada

Database If Password <> Trim(txtPassword.Text) Then Msg = MsgBox("Password salah!", MsgBoxStyle.OKOnly, "Pesan") txtPassword.Focus() Exit Sub Else ‘Jika Sama Me.Hide() f_utama.ShowDialog() txtuser.Text = "" txtPassword.Text = "" End If End If Catch When Err.Number <> 0 MsgBox("Tidak dapat melakukan proses" _ & vbCrLf & Err.Description) End Try End If End Sub


Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click intResponse = MessageBox.Show("Are you sure want to quit ?", Me.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) If intResponse = MsgBoxResult.Yes Then End Else Exit Sub End If End Sub

Sekarang anda telah selesai membuat aplikasi yang sangat sederhana. Kalau berhasil jangan senang dulu, karena masih banyak sekali rintangan yang akan kita hadapi untuk kasus-kasus berikutnya. Bagi yang gagal jangan berkecil hati, jangan ragu dan sungkan silahkan E-Mail ke saya. Jika program yang anda buat tidak ada masalah, kita lanjutkan pelajaran kita. Sekarang mari kita modif form utama kita yang masih polos, menjadi seperti berikut :

Ubah Properties pada form utama seperti di bawah ini.



BackColor

White

FormBorderStyle

Fixed3D

BackGroundImage

Bebas mau gambar apa

Text

MainMenu

Name

MainMenu

StartPosition

CenterScreen

Icon

Bebas juga

Anda dapat memodif form sesuai dengan keinginan anda. Dan kita tambah komponen MainMenu1 dan StatusBar1 pada Form MainMenu. Buat seperti dibawah ini. File>>Exit

Inputan>>Input Usaha



Ketik listing seperti dibawah ini. Public Sub BuatPanelStatusBar() 'Membuat panel dan mengatur properti teks. StatusBar1.Panels.Add("Ready..") StatusBar1.Panels.Add("") StatusBar1.Panels.Add("") 'Mengatur properti panel StatusBar. 'Mengatur properti panel AutoSize. StatusBar1.Panels(0).AutoSize = _ StatusBarPanelAutoSize.Spring StatusBar1.Panels(1).Width = 200 StatusBar1.Panels(2).Width = 200 ' Mengatur properti panel BorderStyle. StatusBar1.Panels(0).BorderStyle = _ StatusBarPanelBorderStyle.Raised StatusBar1.Panels(1).BorderStyle = _ StatusBarPanelBorderStyle.Sunken StatusBar1.Panels(2).BorderStyle = _ StatusBarPanelBorderStyle.Sunken ' Mengatur perataan panel StatusBar1.Panels(0).Alignment = _ HorizontalAlignment.Left StatusBar1.Panels(1).Alignment = _ HorizontalAlignment.Center StatusBar1.Panels(2).Alignment = _ HorizontalAlignment.Center 'Menambahkan properti teks pada panel ketiga dengan 'tanggal(sekarang) StatusBar1.Panels(1).Text = "Selamat Datang" & " " & Username StatusBar1.Panels(2).Text = _ System.DateTime.Today.ToLongDateString() 'Mengatur properti icon pada panel ketiga StatusBar1.ShowPanels = True End Sub

Double_Click Form Utama BuatPanelStatusBar()



Setelah itu Double Click menu item Exit dan ketik listing seperti dibawah ini : End

Lalu Double Click menu item Inputan dan ketikan listing seperti dibawah ini : Dim f_usaha As New Frm_Usaha f_usaha.ShowDialog() f_usaha.Dispose()

Setelah selesai kita mendesain Form Utama (MainMenu), sekarang kita akan membuat Form Untuk Penginputan Usaha. Sekarang tambahkan sebuah form baru pada project yang kita buat. Ubah properties form seperti dibawah ini.

BackColor

LightBlue

FormBorderStyle

Fixed3D

Text

Form Usaha

Name

Frm_usaha

StartPosition

CenterScreen

ControlBox

False

ShowInTaksbar

False

Dan tambahkan 11 Button, 1 GroupBox dan 2 TextBox. Susun semua komponen seperti dibawah ini. 16 15 14

12 13 4

1

5

6

7

2


8

3

9

1

11


Dan ubah properties masing-masing komponen seperti dibawah ini : 1. BackColor

Transparent

FlatStyle

Flat

ForeColor

Black

Text

<<

TextAlign

MiddleCenter

Name

btnAwal

ShowInTaksbar

False

Untuk menghemat waktu dan tempat, properties setiap button hamper sama yang beda Cuma di nama dan text. 2. Text

<

Name

btnMundur

Text

>

Name

btnMaju

Text

>>

Name

btnAkhir

Text

F1 Add

Name

btnAdd

Text

F2 Delete

Name

btnDelete

3.

4.

5.

6.



7. Text

F3 Edit

Name

btnEdit

Text

F4 Find

Name

btnCari

Text

Save (Ctrl+S)

Name

btnSave

Text

F5 Cancel

Name

BtnCancel

Text

F6 Close

Name

btnClose

BorderStyle

Fixed3D

Name

txtID

Text

“” (Kosong)

BorderStyle

Fixed3D

Name

txtNama

Text

“”(Kosong)

8.

9.

10.

11.

12.

13.

Untuk Nomor 14-16 ganti Text pada properties sesuai pada gambar.



Jika sudah selesai mendesain form tersebut, kita akan lanjutkan membuat class untuk pemrosesan data. Buat satu class didalam folder AccessData dengan nama AccessUsaha. Dan ketikkan listing seperti dibawah ini. Imports System.Data Imports System.Data.OleDb Namespace AccessData Public Class AccessUsaha Public Function AccessUsahaInsert(ByVal IDUsaha As String, ByVal NamaUsaha As String) Dim myCmd As New OleDbCommand Dim myconnection As New AccessData.DatabaseConnection myCmd.CommandText = "Insert Into [TbUsaha]" _ & " (IDUsaha,NamaUsaha) Values (" _ & "'" & IDUsaha & "', '" & NamaUsaha & "');" myCmd.Connection = myconnection.open myCmd.ExecuteNonQuery() myconnection.close() End Function Public Function AccessUsahaUpdate(ByVal IDUsaha As String, ByVal NamaUsaha As String) Dim myCmd As New OleDbCommand Dim myconnection As New AccessData.DatabaseConnection myCmd.CommandText = "Update [TbUsaha] Set " _ & " NamaUsaha='" & NamaUsaha & "'" _ & " Where IDUsaha='" & IDUsaha & "' ; " myCmd.Connection = myconnection.open myCmd.ExecuteNonQuery() myconnection.close() End Function Public Function AccessUsahaDelete(ByVal IDUsaha As String) Dim myCmd As New OleDbCommand Dim myconnection As New AccessData.DatabaseConnection myCmd.CommandText = "Delete From [TbUsaha] where IDUsaha='" & IDUsaha & "' " myCmd.Connection = myconnection.open myCmd.ExecuteNonQuery() myconnection.close() End Function End Class End Namespace

Jika sudah selesai, mari kita lanjutkan membuat program di dalam Form Usaha. Dan buat variable global form seperti dibawah ini. Dim MyConnection As New AccessData.DatabaseConnection Dim mPosition As Integer



Lalu ketikan fungsi-fungsi berikut : Private Sub clear() 'Mengkosongkan isi TextBox txtID.Text = "" txtNama.Text = "" End Sub

Private Sub enabled_off() 'Menonaktifkan Textbox txtID.Enabled = False txtNama.Enabled = False End Sub Private Sub enabled_on() 'Mengaktifkan TextBox txtID.Enabled = True txtNama.Enabled = True End Sub Private Sub ViewData() Try

'Menampilkan Data IDUsaha dan Nama Usaha dengan Criteria “IDUsaha” pada masing-masing Textbox objCommand = MyConnection.open.CreateCommand objCommand.CommandText = "select * from TbUsaha Where IDUsaha = '" & Trim(txtID.Text) & "';" objDataReader = objCommand.ExecuteReader objDataReader.Read() txtID.Text = objDataReader.Item("IDUsaha") txtNama.Text = objDataReader.Item("NamaUsaha") MyConnection.close() Catch ex As Exception MsgBox("Tidak dapat membuat hubungan ke database" _ & vbCrLf & Err.Description) MyConnection.close() End Try End Sub Private Sub Displaydata() Try

'Menyimpan jumlah baris Tabel “TbUsaha” pada Objdatatable objDataTable.Clear() StrSQL = "select * from TbUsaha" objCommand = New OleDbCommand objCommand.Connection = MyConnection.open objCommand.CommandType = CommandType.Text objCommand.CommandText = StrSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "MDT_Usaha") MyConnection.close() objDataTable = objDataSet.Tables("MDT_Usaha") Catch ex As Exception MsgBox("Tidak dapat membuat hubungan ke database" _ & vbCrLf & Err.Description) MyConnection.close()

End Try End Sub Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar

Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com Sub displaydata2() Try

'Menampilkan Data “IDUsaha” dan “NamaUsaha” berdasarkan posisi Baris yang dicari StrSQL = "select * from TbUsaha" objCommand = New OleDbCommand objCommand.Connection = MyConnection.open objCommand.CommandType = CommandType.Text objCommand.CommandText = StrSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "MDT_Usaha") MyConnection.close() objDataTable = objDataSet.Tables("MDT_Usaha") mPosition = BindingContext(objDataTable).Position With objDataTable.Rows(mPosition) txtID.Text = .Item("IDUsaha") txtNama.Text = .Item("NamaUsaha") End With Catch When Err.Number <> 0 MsgBox("Tidak dapat membuat hubungan ke database" _ & vbCrLf & Err.Description) MyConnection.close() End Try End Sub

Sub cari() Try

'untuk mengecek apakah IDUsaha yang diinputkan ada pada Tabel “TbUsaha” objDataTable.Clear() StrSQL = "select * from [TbUsaha] where IDUsaha = '" & Trim(txtID.Text) + "'" MyConnection.open() objCommand.CommandText = StrSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "MDT_Usaha") MyConnection.close() objDataTable = objDataSet.Tables("MDT_Usaha") Catch When Err.Number <> 0 MsgBox("Tidak dapat melakukan proses simpan" _ & vbCrLf & Err.Description) MyConnection.close() End Try End Sub

Double Click “btnclose” dan ketik seperti dibawah ini : objDataTable.Clear() Me.Close()

Double Click “btncancel” dan ketik seperti dibawah ini : enabled_off() clear() mProcess = "" btnsave.Enabled = False btnsave.Text = "Save"



Double Click “btnadd” dan ketik seperti dibawah ini : mProcess = "ADD" btnsave.Text = "Save Add" enabled_on() btnsave.Enabled = True txtID.Focus() clear()

Double Click “btnEdit” dan ketik seperti dibawah ini : If mProcess <> "View" Or txtNama.Text = "" Then MsgBox("Lakukan pencarian terlebih dahulu, sebelum proses edit") Else enabled_on() txtNama.Focus() mProcess = "EDIT" btnsave.Text = "Save Edit" btnsave.Enabled = True End If

Pilih ClassName = txtNama, Seperti dibawah ini



Dan Pilih Method Name = Leave. Untuk selanjutnya penulis hanya menyebutkan ClassName dan MethodName saja, untuk visual tidak akan diberikan.

Lalu ketik seperti dibawah ini. btnsave.Focus()

Double Click Form Usaha, dan ketik seperti berikut : Try StrSQL = "Select * From TbUsaha" objCommand = New OleDbCommand objCommand.Connection = MyConnection.open objCommand.CommandType = CommandType.Text objCommand.CommandText = StrSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "MDT_Usaha") MyConnection.close() objDataTable = objDataSet.Tables("MDT_Usaha") Catch When Err.Number <> 0 MsgBox("Tidak dapat membuat hubungan ke database" _ & vbCrLf & Err.Description) End Try clear() enabled_off()

Double Click btncari, dan ketik seperti berikut : mProcess = "View" txtID.Enabled = True txtID.Focus()



Double Click btnSave, dan ketik seperti berikut : If btnsave.Text = "Save Add" Then Try cari() If objDataTable.Rows.Count >= 1 Then MsgBox(" Kode " & "" & txtID.Text & "" & " sudah ada") txtID.Focus() ElseIf txtID.Text = "" Or txtNama.Text = "" Then MsgBox("Isikan data yang mau di Input terlebih dahulu") txtID.Focus() Else Dim mYes_No As String = MsgBox("Anda yakin data mau disimpan ?", vbYesNo) If mYes_No = vbYes Then myconnectionUsaha.AccessUsahaInsert(txtID.Text, txtNama.Text) enabled_off() btnsave.Enabled = False btnsave.Text = "Save" btnadd.Focus() Displaydata() clear() Else enabled_off() clear() btnadd.Focus() End If End If Catch When Err.Number <> 0 MsgBox("Tidak dapat melakukan proses simpan" _ & vbCrLf & Err.Description) End Try Else Try cari() If objDataTable.Rows.Count = 0 Then MsgBox(" Kode : " & "" & txtID.Text & "" & " tidak ada pada table") Else Dim mYes_No As String = MsgBox("Anda yakin data mau diupdate ?", vbYesNo) If mYes_No = vbYes Then myconnectionUsaha.AccessUsahaUpdate(txtID.Text, txtNama.Text) enabled_off() btnsave.Text = "Save" btnsave.Enabled = False btnadd.Focus() clear() Else enabled_off() clear() btnadd.Focus() End If End If Catch When Err.Number <> 0 MsgBox("Tidak dapat melakukan proses update" _ & vbCrLf & Err.Description) End Try End If objDataTable.Clear()



Pilih ClassName = txtNama Dan Pilih Method Name = KeyUp If e.KeyCode = Keys.Enter Then btnsave.PerformClick() ElseIf e.KeyCode = Keys.Escape Then btncancel.PerformClick() End If

Pilih ClassName = txtNama, Seperti dibawah ini Dan Pilih Method Name = KeyUp If mProcess = "View" Then Try cari() If objDataTable.Rows.Count = 0 Then MsgBox("Data yang dicari tidak ada") Else ViewData() btndelete.Focus() End If Catch When Err.Number <> 0 MsgBox("Tidak dapat melakukan proses pencarian" _ & vbCrLf & Err.Description) MyConnection.close() End Try End If

Double_Click btnakhir BindingContext(objDataTable).Position = objDataTable.Rows.Count - 1 displaydata2()

Double_Click btnmaju BindingContext(objDataTable).Position += 1 displaydata2()

Double_Click btnmundur BindingContext(objDataTable).Position -= 1 displaydata2()

Double_Click btnawal BindingContext(objDataTable).Position -= 1 displaydata2()



Sekarang coba anda jalankan program, apakah program sudah berjalan dengan semestinya, jika belum bisa seperti biasa…… Tentu anda akan merasa heran, kenapa pada button Add, Edit dll ada semacam shortcut. Tetapi jika digunakan shortcut-shortcut tersebut tidak bekerja. Mungkin merupaka suatu kelemahan pada VB.Net tidak menyediakan shortcut untuk component button, tidak seperti Delphi yang menyediakan shortcut untuk button . Tapi jika anda seorang programmer yang memanfaatkan kelebihan dari bahasa pemrograman, masalah itu semua akan bisa diatasi. Ok, sekarang penulis akan memberikan solusi gimana cara membuat shortcut untuk menjalankan perintah pada suatu button. Tambahkan komponen MainMenu pada Form Usaha. Lalu buat seperti berikut :

Pada masing-masing Properties MenuItem, buat Visible=False. Dan shortcut sesuai dengan button. Contoh : Untuk Button dengan Text : F1 Add, pada menu item add properties>Shortcut = F1. Dan selanjutnya..Buat sendiri ya…… ???????. Lalu coba Double_Click menu item add, dan ketik listing seperti dibawah. btnadd.PerformClick()

Untuk semua menu item buat listing seperti diatas, hanya ubah button apa yang akan diperoses. Coba jalankan program dan gunakan shortcut. Apa sudah jalan ?????? Kalau berhasil, berarti anda sudah bisa proses dasar dari database (Select, Insert, Delete & Update). Dengan begitu anda dapat mengembangkan program ini sesuai dengan keinginan anda.



Penutup Sebagai penutup dari artikel ini saya akan memberitahukan, kelebihan-kelebihan dengan menggunakan metode ini. 1. Pemrograman ini menggunakan metode 3 Layer, ”User Interface, Business Logic dan Connect to DB” (Maintenance lebih gampang, akses data lebih cepat) 2. Banyak menggunakan variable global sehingga, jika kita membuat program yang besar, ini akan membantu dalam menghemat waktu. Kita tidak perlu mengetikkan variable pada setiap form. 3. Program yang dibuat menggunakan shortcut sehingga lebih cepat dalam menggunakan program. 4. Dibalik itu semua saya yakin masih banyak kekurangan. Untuk artikel selanjutnya, kita akan membuat report dengan menggunakan Crystal Report.

Convert

Report

menjadi


PDF

dan

RTF,

untuk

ASP.NET.




STEP I I MEMBUAT LAPORAN MENGGUNAKAN CRYSTAL REPORT BERBASIS WEB (Study Kasus Access 2003) I.

Pangantar Setelah membaca artikel saya Step 1, mudah-mudahan para pembaca sudah dapat mengerti sedikit tentang pemrograman database. Setelah para pembaca sudah mengerti dan dapat di implementasikan, sekarang kita lanjut dengan membuat laporan menggunakan Crystal Report Visual Studio .Net 2003 (CR VS .NET 2003). Seperti kita ketahui, laporan baik berbentuk soft file atau hard file merupakan hasil

Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar


akhir dari data yang telah di olah (informasi). Oleh karena itu semakin baik suatu program, maka program tersebut akan menyediakan banyak laporan yang dibutuhkan oleh pengguna. Salah satu tool yang mendukung untuk membuat laporan menggunakan VB.Net ada Crystal Report. Crystal Report adalah tool untuk membuat laporan yang handal, karena di dalamnya banyak sekali fitur-fitur untuk memudahkan kita dalam membuat laporan. Dan Crystal Report akan otomatis terinstal saat kita menginstall VS.NET.

II.

MEMBUAT DATABASE (TABLE DAN QUERY)

Buat database baru dan letakkan di C:\Inetpub\wwwroot\namaproject\bin Dan beri nama “tes.mdb“. Buat dua buah table, table pertama bernama ”Customers” dengan desain table sebagai berikut :

Dan table kedua bernama “CustomerNames”, dengan desain sebagai berikut :



Setelah selesai membuat kedua table diatas, sekarang buat sebuah Query. Dengan desain sebagai berikut :

Dan simpan dengan nama “Q_Customers”. Sekarang isikan data sesuai dengan keinginan anda pada kedua table diatas. Sekarang anda telah memiliki sebuah database yang datanya akan dibutuhkan untuk laporan yang akan kita buat.

III. Sebelum kita memulai untuk mendesain Report, kita akan mendesain form untuk memanggil report yang akan kita gunakan. Untuk pertama silahkan desain form menurut keinginan anda.

Contoh Desain Form



Tambahkan dua buah datagrid , jika anda ingin mengubah tampilan dari data grid. Klik Auto Format dibawah jendela Properties. Dan akan muncul tampilan sebagai berikut :

Anda dapat memilih desain data grid sesuai dengan kesukaan anda. Setelah itu ganti nama datagrid pada properties name seperti berikut DG1 untuk Datagrid1 dan DG2 untuk Datagrid2. Lalu klik Dg1 dan klik Property Builder dibawah jendela Properties dan kllik Tab Paging.



Dan checklist allow paging dan OK. Lakukan hal yang sama pada Dg2. Tambahkan sebuah Button, Dropdownlist, RadioButtonList dan CrystalReportViewer. Dan susun seperti gambar dibawah ini :

Ubah properties masing-masing komponen sebagai berikut : Button: Text

Report File Text

Name

btnReport

DropDownList ID

ddlReport

Klik Collection pada properties Item, dan buat dua buah members. 1. Selected = True Text =PDF Value =.pdf 2.

Selected = False Text = RTF Value = .rtf



RadioButtonList ID

RBL_Alpha

AutoPostBack

True

RepeatLayout

Table

Klik Collection pada properties Item, dan buat members dari A-Z ditambah satu ALL Selected = False Text =A Value =A

. . . . Selected = False Text = Z Value =Z

Dan ditambah ALL Selected = True Text = ALL Value = * Seperti gambar dibawah ini.



IV. DESAIN REPORT Buat sebuah folder di project anda dan beri nama “Report” . Lalu buat sebuat report di dalam Folder Report Click kanan folder report >Add>Pilih Add New Item



Lalu akan muncul dialog box seperti berikut :

Pilih Crystal Report, Dan ganti nama file menjadi ”CrCustomers.rpt“. Dan akan muncul dialog box seperti berikut . Lalu pilih “As a Blank Report”, dan click OK.



Tampilan Crystal Report



Click kanan pada Report Header (Section 1), dan click “Fit Section”

Click kanan pada Page Header (Section 3), dan click “Format Section”. Lalu akan muncul tampilan seperti berikut :



Click Page Header dan click button Insert . Maka Page Header akan bertambah menjadi Page Header a dan Page Header b. Dan klik button OK. Setelah muncul Page Header a dan b pada tampilan Crystal Report, klik kanan Page Header b dan pilih dan klik Suppress (No Drill-Down).

Membuat hubungan ke DataBase. Click kanan pada Database Fileds>Add/Remove Database

Lalu akan muncul tampilan seperti berikut : Step By Step Menjadi Programmer Handal Dengan VB.Net – Step II Junindar


Click tanda + pada OLE DB (ADO)

Akan muncul tampilan seperti di atas, lalu pilih “Microsoft Jet 4.0 OLE DB Provider”, dan click Next.



Click tanda …pada Database Name dan cari alamat Database anda. Dan click next.



Dan click Finish. Dan akan muncul tampilan seperti berikut :

Click tanda + (Views), maka akan terbuka root yang didalamnya terdapat “Q_Customers”. Dan click button “>”. Maka “Q_Customers” pindah ke “Selected Tables” List. Seperti gambar dibawah ini :



Dan click OK.

Tampilan Database Fields akan berubah seperti gambar diatas (Terdapat Q_Customers beserta field-fieldnya).



Desain Page Header a (Section2) seperti gambar di bawah ini.

Lalu masukkan field-field pada Database field ke Detail (Section 3). Seperti gambar di bawah ini .

Klik kanan pada Report Footer (Section4), klik Fit Section.

Dan terakhir desain Report (Section5) seperti gambar di bawah ini.



Untuk membuat field PrintDate dan PageNumber klik kanan pada area Page Footer (Section5).



V.

A TIME TO MAKE SOURCE CODE Sebelum kita mulai membuat listing pada form, terlebih dahulu

kita membuat

koneksi pada database. Sekarang kita akan membuat koneksi dengan memanggil Class lain untuk koneksi ke database. Sebelumnya Buat folder pada project yang anda buat (Klik kanan project>Add>New Folder) dan beri nama “AccessData”. Selanjutnya didalam Folder tersebut tambahkan Class

dengan

nama


(Klik

kanan

Folder

“AccessData”>Add>Add Class). Ketikan listing di bawah ini pada class yang baru anda buat. Imports System.Data Imports System.Data.OleDb Namespace AccessData Public Class DatabaseConnection Dim conect As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\Inetpub\wwwroot\Ilkom\bin\tes.mdb; ") Public Function open() As OleDbConnection conect.Open() Return conect End Function Public Function close() As OleDbConnection conect.Close() Return conect End Function End Class End Namespace



Pada WebForm1 untuk pertama kali ketikkan listing dibawah ini pada baris paling atas. Imports System.Data Imports System.Data.OleDb

Dan ketikkan listing-listing seperti di bawah ini. #Region "Declaration" Dim objConnection As OleDbConnection Dim objCommand As OleDbCommand Dim objDataAdapter As OleDbDataAdapter Dim objdatareader As OleDbDataReader Dim strConn, strSQL As String Dim objDataSet As New DataSet Dim objDataTable As New DataTable Dim myconnection As New AccessData.DatabaseConnection #End Region

Sub binddatagrid() objDataTable.Clear() strSQL = "SELECT Customers.CompanyName , CustomerNames.ContactName , " _ & " iif(CustomerNames.Phone='NA','',CustomerNames.Phone)AS Phone ,IIF(CustomerNames.Fax='NA','',CustomerNames.Fax) As Fax " _ & " FROM CustomerNames INNER JOIN Customers ON CustomerNames.CustomerID = Customers.CustomerID " _ & " ORDER BY Customers.CompanyName;" objCommand = New OleDbCommand objCommand.Connection = myconnection.open() objCommand.CommandType = CommandType.Text objCommand.CommandText = strSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "mdt_customers") objDataTable = objDataSet.Tables("mdt_customers") myconnection.close() DG1.DataSource = objDataTable DG1.DataBind() End Sub



Sub view() objDataTable.Clear() strSQL = "SELECT Customers.CompanyName , CustomerNames.ContactName , " _ & " iif(CustomerNames.Phone='NA','',CustomerNames.Phone) AS Phone ,IIF(CustomerNames.Fax='NA','',CustomerNames.Fax) As Fax " _ & " FROM CustomerNames INNER JOIN Customers ON CustomerNames.CustomerID = Customers.CustomerID " _ & " WHERE Customers.CompanyName Like '" & RBL_Alpa.SelectedValue & "%' ORDER BY Customers.CompanyName;" objCommand = New OleDbCommand objCommand.Connection = myconnection.open() objCommand.CommandType = CommandType.Text objCommand.CommandText = strSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "mdt_View8D") objDataTable = objDataSet.Tables("mdt_View8D") myconnection.close() DG2.DataSource = objDataTable DG2.DataBind() End Sub

Sub paginggrid(ByVal s As Object, ByVal e As DataGridPageChangedEventArgs) DG1.CurrentPageIndex = e.NewPageIndex CrystalReportViewer1.Visible = False End Sub

Sub paginggrid2(ByVal s As Object, ByVal e As DataGridPageChangedEventArgs) DG2.CurrentPageIndex = e.NewPageIndex view() CrystalReportViewer1.Visible = False End Sub



Sub report_Alpa() Dim rdContacts As New CrCustomers Dim ext As String Dim format As Integer view() Select Case ddlReport.SelectedValue Case ".rtf" ext = ddlReport.SelectedValue Case ".pdf" ext = ddlReport.SelectedValue End Select rdContacts.SetDataSource(objDataTable) CrystalReportViewer1.ReportSource = rdContacts rdContacts.Refresh() Try Dim Dim Dim Dim

t As Integer nomorrandom As String Filename As String diskOpts As New DiskFileDestinationOptions

Filename = "\reports2\" & RBL_Alpa.SelectedValue & "" & ext & "" diskOpts.DiskFileName = Filename With rdContacts .ExportOptions.ExportDestinationType = ExportDestinationType.DiskFile If ext = ".rtf" Then .ExportOptions.ExportFormatType = ExportFormatType.RichText ElseIf ext = ".pdf" Then .ExportOptions.ExportFormatType = ExportFormatType.PortableDocFormat End If .ExportOptions.DestinationOptions = diskOpts .PrintOptions.PaperOrientation = PaperOrientation.Portrait .PrintOptions.PaperSize = PaperSize.PaperA4 .Export() .Refresh() End With CrystalReportViewer1.Visible = False Response.Redirect("http://pcbt1151/Reports2/" & RBL_Alpa.SelectedValue & "" & ext & "") Exit Try Catch ex As Exception CvError.ErrorMessage = ex.Message CvError.IsValid = False myconnection.close() End Try CrystalReportViewer1.Visible = False End Sub



Sub report_ALL()

Dim rdContacts As New CrCustomers Dim ext As String Dim format As Integer binddatagrid() Select Case ddlReport.SelectedValue Case ".rtf" ext = ddlReport.SelectedValue Case ".pdf" ext = ddlReport.SelectedValue End Select rdContacts.SetDataSource(objDataTable) rdContacts.SetDatabaseLogon("", "A2B") CrystalReportViewer1.ReportSource = rdContacts rdContacts.Refresh()

Try Dim Dim Dim Dim

t As Integer nomorrandom As String Filename As String diskOpts As New DiskFileDestinationOptions

Filename = "\reports2\ALL" & "" & ext & "" diskOpts.DiskFileName = Filename With rdContacts .ExportOptions.ExportDestinationType = ExportDestinationType.DiskFile If ext = ".rtf" Then .ExportOptions.ExportFormatType = ExportFormatType.RichText ElseIf ext = ".pdf" Then .ExportOptions.ExportFormatType = ExportFormatType.PortableDocFormat End If .ExportOptions.DestinationOptions = diskOpts .PrintOptions.PaperOrientation = PaperOrientation.Portrait .PrintOptions.PaperSize = PaperSize.PaperA4 .Export() .Refresh() End With CrystalReportViewer1.Visible = True Response.Redirect("http://pcbt1151/Reports2/ALL" & "" & ext & "") Exit Try Catch ex As Exception CvError.ErrorMessage = ex.Message CvError.IsValid = False myconnection.close() End Try CrystalReportViewer1.Visible = False End Sub



Ketikkan listing berikut pada Private Sub Page_Load. Try If Not IsPostBack Then binddatagrid() CrystalReportViewer1.Visible = False DG1.Visible = True DG2.Visible = False End If Catch ex As Exception CvError.ErrorMessage = ex.Message CvError.IsValid = False CrystalReportViewer1.Visible = False End Try

Double Click Rbl_Alpha, dan ketikkan listing seperti di bawah ini : Try If RBL_Alpa.SelectedValue = "*" Then binddatagrid() DG1.Visible = True DG2.Visible = False Else view() If objDataTable.Rows.Count = 0 Then CvError.ErrorMessage = "There are no records for that letters" CvError.IsValid = False DG1.Visible = False DG2.Visible = True Else DG1.Visible = False DG2.Visible = True End If End If Catch ex As Exception CvError.ErrorMessage = ex.Message CvError.IsValid = False CrystalReportViewer1.Visible = False End Try CrystalReportViewer1.Visible = False



Double Click Btn_Report, dan ketikkan listing sebagai berikut : Try If RBL_Alpa.SelectedValue = "*" Then report_ALL() Else view() If objDataTable.Rows.Count = 0 Then CvError.ErrorMessage = "There are no records for that letters" CvError.IsValid = False Exit Try Else report_Alpa() End If End If Catch ex As Exception CvError.ErrorMessage = ex.Message CvError.IsValid = False CrystalReportViewer1.Visible = False End Try CrystalReportViewer1.Visible = False

Setelah selesai membuat listing seperti diatas, langkah selanjutnya adalah membuat folder untuk menyimpan report yang kita buat. Pertama buat folede pada Drive C:\, dan beri nama Report2. Click kanan Folder tersebut Pilih Sharing and Security. Setelah muncul tampilan sebagai berikut :



Pilih Tabs WebSharing, dan pilih Share this folder, dan muncul tampilan seperti dibawah ini.

Klik OK, dan Klik OK pada Properties Form.

VI. PENGGUNAAN PROGRAM Jalan kan program dengan menekan F5, dan muncul tampilan program seperti berikut :



Untuk menampilkan Report, tekan Button Report File Text, dan kita dapat memilih laporan kita berbentuk PDF atau RTF (dengan memilih Drop Down List yang di sebelah Button).

Sedangkan Abjad dari A-Z untuk menampilkan nama Perusahaan berdasarkan Abjad tersebut.

VII. PENUTUP Setelah membuat dan menjalankan program ini, mungkin pembaca dapat mengerti kegunaan dari Crystal Report. Contoh program ini masih sangat sederhana, tetapi akan sangat mungkin sekali di kembangkan menjadi laporan yang handal. Karena basic pemrograman Crystal Report sudah ada pada program ini. Saya yakin masih banyak kekurangan di dalam program ini, dan saya harap artikel ini dapat membantu para pembaca untuk menambah ilmu dalam pemrograman .Net khusus nya VB.Net. Semoga Artikel-artikel tentang VB.Net ini masih tetap saya tulis, seiring dengan berkembangnya ilmu yang saya miliki. Aminnnnnnnnnnnnnnnn





STEP III APLIKASI UNTUK MEMBUAT DATABASE DAN TABEL PADA MS. ACCESS (Study Kasus Access 2003) I.

Pengantar Lazimnya dalam membuat database dan table pada Ms.Access, kita akan menuju ke Start > Program>Microsoft Office>Ms.Access. Dan pada artikel kita tidak perlu lagi melakukan hal tersebut (berinteraksi dengan Ms.Access). Karena di sini kita akan membangun aplikasi untuk meng create database baru beserta table nya. Pada



artikel ini penulis akan memberikan contoh kasus yang simple agar para pembaca dapat dengan mudah memahami nya. II.

File pendukung. File pendukung ini adalah ADOX.dll, file ini yang bekerja untuk mengcreate database dan table pada Ms. Office. File ini akan di sertakan bersama dengan tulisan ini.

III. A TIME TO MAKE PROGRAM 3.1 New Project Buat Project baru, dan beri nama project dan simpan aplikasi sesuai dengan keinginan anda. Eg. Nama Project : Make DB Lokasi : C:\ProgramKu\ 3.2 Adox.dll Pada artikel ini saya sertakan juga file Interop.ADOX.dll. Copy file ini ke “\Namaprogram\Bin\” . eg,C: \Make DB\Bin\. Masukkan file ini kedalam program anda, dengan cara seperti di bawah ini : Click kanan pada Reference dan click Add Reference.



Lalu akan muncul tampilan seperti berikut.

Dan pilih Tab Project. Dan click browse, dan cari file interop yang anda simpan di dalam folder Bin. Dan klik OK.



Maka pada references anda akan bertambah seperti gambar dibawah ini.

3.3 Design Form Ubah properties Form Seperti Dibawah ini : BackColor

224, 224, 224

FormBorderStyle

Fixed3D

Text

Create DB

StartPosition

CenterScreen

MaximizeBox

False

Tambahkan 5 buah button, 2 TextBox, 3 ListBox, 1 ComboBox pada form. Dan desain seperti gambar dibawah ini, jika selera and berbeda bisa design sendiri kok.. tidak ada pemaksaan dari penulis..



Button 1 BackColor

255, 255, 192

FlatStyle

Flat

ForeColor

Navy

Text

Field Name

Enabled

False

Button 2 BackColor

255, 255, 192

FlatStyle

Flat

ForeColor

Navy

Text

Data Type

Enabled

False



Button 3 BackColor

255, 255, 192

FlatStyle

Flat

ForeColor

Navy

Text

Size

Enabled

False

Button 4 Name

btnInsert

FlatStyle

Flat

Text

Insert to Field List

Button 5 Name

BtnCreate

FlatStyle

Flat

Text

Create Database

TextBox 1 Name

txtField

Text

“” (Kosongkan)

TextBox 2 Name

txtSize

Text

“” (Kosongkan)



ComboBox 1 Dropdownstyle

DropDownList

Name

cmbType

Text

“” (Kosongkan)

Pada Properties item buat seperti pada gambar berikut ini :

ListBox 1 Name

lstFieldName

ListBox 2 Name

lstType

ListBox 3 Name

lstSize



3.4 Source Code Ketikkan listing berikut di baris pertama .. Imports ADOX

Dan ketikkan listing di bawah ini pada even Form_Load Me.Opacity = Math.Abs(0.7)

Fungsi dari listing ini adalah untuk membuat form yang transparan.. Pembaca dapat mengatur transparansi form. Dengan mengubah nilai 0.7 pada listing diatas.. Semakin kecil nilainya semakin transparan form yang kita buat. Saya rasa para pembaca dapat mencoba nya sendiri, mana yang menurut anda yang lebih bagus.

Double click pada ComboBox (cmbType). Dan ketikan listing berikut : If Trim(cmbType.Text) = "Text" Then txtSize.Enabled = True Else txtSize.Enabled = False End If

Listing diatas berfungsi pada saat user memilih DataType, jika Type nya adalah Text maka textbox size akan aktif, jika selain dari pada itu maka textbox tidak aktif. Mungkin para pembaca ada yang merasa kenapa demikian. Seperti yang kita ketahui pada Ms Access hanya Type Text yang memiliki size. Selebihnya tidak. Jika tidak kita buat demikian, mungkin saja bisa terjadi error.

Lalu pada txtSize_KeyPress ketikan listing seperti di bawah ini : If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled() = True End If

Listing ini merupakan suatu fungsi agar tidak terjadi Human Error dalam mengcreate size, karena tidak mungkin size berupa huruf jadi jika yang dimasukkan/di inputkan selain 0-9 maka tidak akan bisa. Step By Step Menjadi Programmer Handal Dengan VB.Net Junindar


Double click btnInsert, dan ketikan listing berikut . BntInsert adalah proses untuk memasukkan data dari TextBox dan ComboBox kedalam ListBox. Try If txtField.Text = "" Or cmbType.SelectedIndex = -1 Then MsgBox("Masukkan Field Name atau Pilih Data Type", MsgBoxStyle.Information, "Informasi") Else lstFieldName.Items.Add(txtField.Text) lstType.Items.Add(cmbType.Text) lstSize.Items.Add(txtSize.Text) txtField.Text = "" cmbType.SelectedIndex = -1 txtSize.Text = "" End If Catch ex As Exception MsgBox(ex.Message) End Try

If txtField.Text = "" Or cmbType.SelectedIndex = -1 Then MsgBox("Masukkan Field Name atau Pilih Data

Type",

MsgBoxStyle.Information, "Informasi")

Listing berfungsi untuk memvalidasi proses , jika txt field tidak di isi dan ComboBox pada posisi default (tidak dalam keadaan di pilih). Maka program akan menampilkan informasi agar mengisi textbox text dan memilih size pada ComboBox.

lstFieldName.Items.Add(txtField.Text) lstType.Items.Add(cmbType.Text) lstSize.Items.Add(txtSize.Text)

fungsi nya adalah memasukkan data dari TextBox atau Combobox kedalam Listbox. Dengan menggunakan fungsi Items.Add txtField.Text = "" cmbType.SelectedIndex = -1 txtSize.Text = ""

Setelah data sudah masuk kedalam ListBox, maka textbox dan ComboBox kembali pada keadaan default.



BtnCreate adalah proses dimana kita melakukan proses Create DataBase dan Tabel. Try Dim Dim Dim Dim

i As Integer DataType As Integer ADOXcatalog As New ADOX.Catalog ADOXtable As New Table

ADOXcatalog.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "c:\Coba.mdb") ADOXtable.Name = "Employees" For i = 0 To (lstFieldName.Items.Count - 1) If lstType.Items.Item(i).ToString = "Text" Then DataType = 202 ElseIf lstType.Items.Item(i).ToString = "Memo" Then DataType = 203 ElseIf lstType.Items.Item(i).ToString = "Number" Then DataType = 3 ElseIf lstType.Items.Item(i).ToString = "Date/Time" Then DataType = 7 ElseIf lstType.Items.Item(i).ToString = "Currency" Then DataType = 6 ElseIf lstType.Items.Item(i).ToString = "Yes/No" Then DataType = 11 End If If lstType.Items.Item(i).ToString = "Text" Then ADOXtable.Columns.Append(lstFieldName.Items.Item(i).ToString, DataType, lstSize.Items.Item(i).ToString) Else ADOXtable.Columns.Append(lstFieldName.Items.Item(i).ToString, DataType) End If Next i ADOXcatalog.Tables.Append(ADOXtable) ADOXtable = Nothing ADOXcatalog = Nothing Catch ex As Exception MsgBox(ex.Message) End Try



ADOXcatalog.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "c:\Coba.mdb")

Ini adalah fungsi untuk membuat database, dimana kita menentukan nama dan lokasi dari DataBase. Seperti pada program ini lokasi Database pada Drive C:\, sedangkan nama Database nya “Coba.mdb” ADOXtable.Name = "Employees”

Untuk membuat nama Tabel.



Penutup Sangat banyak kekurangan yang ada pada artikel ini, untuk itu saya butuh kritik dan saran dari pembaca. Kekurangan di dalam program ini adalah. 1. Belum mampu membuat Index, Primary Key dan Relation ship.. Mungkin itu semua menjadi PR buat saya dan para penggemar Vb.Net. 2. Untuk lokasi dan nama Database masih bersifat statis (Kaku), artinya pembuatan lokasi dan nama dari Database masih di lakukan pada listing. Tidak bersifat dinamis, sehingga dilakukan oleh program setelah running. Tetapi tujuan dari artikel ini adalah supaya kita dapat terus berlatih dalam membuat program, dan menemui suatu masalah lalu dapat kita selesaikan masalah tersebut. Itu akan menjadi wawasan baru buat kita. Dan pengalaman kita di dalam dunia pemrograman.


Aminnnnnn




STEP I V MENGAKSES DATA DARI EXCEL DAN MENGIMPORT KE ACCESS (Study Kasus Excel &Access 2003) I.

Pangantar Sering sekali kita menerima data dari user berupa excel file. Dan merupakan pekerjaan yang melelahkan untuk melakukan penginputan yang jumlah nya sangat banyak sekali. Mungkin jika kita bisa mengakses database suatu program akan sangat gampang sekali untuk mentransfer data dari Excel ke Database (Access). Tinggal melakukan import data dan beres. Tapi pada saat ini sangat jarang sekali

Step By Step Menjadi Programmer Handal Dengan VB.Net – Step IV Junindar


program yang memberikan hak kepada user untuk dapat mengakses database secara langsung dan atau database nya di password. Dan ini sebenarnya merupakan tugas dari para programer yang membuat program. Bagaimana membuat program yang memudahkan pekerjaan para user. Jadi di dalam artikel ini bagaimana kita membuat simple program / fasilitas untuk mengimport data dari excel ke access. Dan di dalam artikel ini kita akan membuat bagaimana melakukan koneksi ke Excel file dan data nya kita tampilkan ke dalam Datagrid. Karena ini merupakan artikel ke emapat dari penulis, jadi penulis mengasumsikan para pembaca sudah familiar dengan Vb.Net dan Access. Jadi cara membuat project baru tidak akan dijelaskan secara detail. Jadi bila para pembaca ngerasa tulisan ini tidak di mengerti, silahkan baca artikel penulis Step 1 – 3.

II.

MEMBUAT DATABASE DAN TABLE Buat database baru dan letakkan di dalam folder Bin. Dan beri nama “tes.mdb“. Buat satu buah table, dengan nama ”DataKu” dengan desain table sebagai berikut :

III. DESIGN & CODING Ganti properties form seperti pada tabel dibawah ini. BackColor

AliceBlue

FormBorderStyle

Fixed3D

Text

Import

Name

F_Import

StartPosition

CenterScreen

Size

826, 466



Lalu tambahkan komponen-komponen dibawah ini kedalam form No 1 2 3 4 5

Nama Komponen Label TextBox DataGrid Button OpenFileDialog

Jumlah 2 3 2 6 1

Mengganti properties masing-masing komponen •

Label No 1 2

•

Nama Label Label1 Label2

TextBox No

•

Teks Label Sheet Name Table Name

Nama TextBox

1

TextBox1

2

TextBox2

3

TextBox3

4

TextBox4

Text Name Text Name Text Name Text Name

Properties kosongkan txtFileName Sheet1 txtSheet kosongkan txtAlamat kosongkan txtTable

Button No

Nama Button

1

Button1

2

Button2

3

Button3

4

Button4

BackColor FlatStyle Text Name BackColor FlatStyle Text Name BackColor FlatStyle Text Name BackColor


Properties Transparent Flat Load btnLoad Transparent Flat View Excel Data btnView Transparent Flat Clear Excel Grid btnClear Transparent


•

5

Button5

6

Button6

FlatStyle Text Name BackColor FlatStyle Text Name BackColor FlatStyle Text Name

Flat Import Data btnImport Transparent Flat View Access Data btnView2 Transparent Flat Clear Access Grid btnClear2

OpenFileDialog Properties Filter Microsoft Office Excel|*.xls RestoreDirectory True

Lalu desain form seperti gambar dibawah ini.



Menambahkan Class Pada Project Sebelum kita mulai membuat listing pada form, terlebih dahulu

kita membuat

koneksi pada database. Sebelumnya Buat folder pada project yang anda buat (Klik kanan project>Add>New Folder) dan beri nama “AccessData”. Selanjutnya didalam Folder tersebut tambahkan Class

dengan

nama


(Klik

kanan

Folder

“AccessData”>Add>Add Class). Ketikan listing di bawah ini pada class yang baru anda buat. Imports System.Data Imports System.Data.OleDb Namespace AccessData Public Class DatabaseConnection Dim conect As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tes.mdb;") Public Function open() As OleDbConnection conect.Open() Return conect End Function Public Function close() As OleDbConnection conect.Close() Return conect End Function End Class End Namespace

Sekarang aktifkan form Import, dan masuk ke jendela Code. Ketikkan sintaks dibawah ini di awal baris. Imports System.Data Imports System.Data.OleDb



Dan ketikkan listing-listing seperti di bawah ini. #Region "Deklarasi" Dim MyConnection As New AccessData.DatabaseConnection Dim objConnection As OleDbConnection Dim objCommand As OleDbCommand Dim objDataAdapter As OleDbDataAdapter Dim strSQL As String Dim objDataSet As New DataSet Dim objDataTableExcel As New DataTable Dim objDataTableAccess As New DataTable Dim Field1, Field2, Field3 As String #End Region

Sub DeleteTable() 'Menghapus seluruh data pada table didalam Access strSQL = "Delete From" & "[" & Trim(txtTable.Text) & "]" & " ;" objCommand = New OleDbCommand objCommand.Connection = MyConnection.open() objCommand.CommandType = CommandType.Text objCommand.CommandText = strSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "mdt_Delete") MyConnection.close() End Sub



Sub import() DeleteTable() Dim i As Integer 'Melakukan pengulangan berdasarkan baris 'yang ada pada Excel For i = 0 To (objDataTableExcel.Rows.Count - 1) Try 'Menampilkan data dan di tampung 'Pada Variable berdasarkan baris With objDataTableExcel.Rows(i) Field1 = .Item(0) Field2 = .Item(1) Field3 = .Item(2) End With 'Melakukan penginputan data dari variable 'Kedalam tabel pada Access strSQL = "Insert Into " & "[" & Trim(txtTable.Text) & "]" & "(Field1, Field2, Field3) Values " & _ " (" & Field1 & ",'" & Field2 & "','" & Field3 & "'); " objCommand = New OleDbCommand objCommand.Connection = MyConnection.open objCommand.CommandType = CommandType.Text objCommand.CommandText = strSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "mdt_Import") MyConnection.close() Catch When Err.Number <> 0 MsgBox("Tidak dapat membuat hubungan ke database" _ & vbCrLf & Err.Description) Exit Sub End Try Next i MsgBox("Import Finish", MsgBoxStyle.Information, "Import Data") End Sub

Klik ganda button Load dan ketik sintaks di bawah ini. 'Mencari file (.xls) yang akan dibuka OpenFileDialog1.ShowDialog() If OpenFileDialog1.FileName <> "" Then txtFileName.Text = OpenFileDialog1.FileName End If

Klik ganda button View dan ketik sintaks di bawah ini.



'Jika textbox Sheet = kosong If txtSheet.Text = "" Then MsgBox("Masukkan nama Sheet pada Excel", MsgBoxStyle.Exclamation, "Import Data") Exit Sub End If Dim tbl As String tbl = txtSheet.Text 'Koneksi ke file Excel yang di tunjuk Dim strConn As String = "Provider=Microsoft.Jet.OleDb.4.0;data source=" & txtFileName.Text & ";Extended Properties=Excel 8.0;" Dim objConn As New OleDbConnection(strConn) Try objDataTableExcel.Clear() 'SQL Menampilkan data pada Excel strSQL = "Select * " & " From " & "[" & tbl & "$" & "]" objCommand = New OleDbCommand objCommand.Connection = objConn objCommand.CommandType = CommandType.Text objCommand.CommandText = strSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "mdt_show") objDataTableExcel = objDataSet.Tables("mdt_show") objConn.Close() 'Data di tampung pada Datagrid DataGrid1.DataSource = objDataTableExcel DataGrid1.ReadOnly = True Catch ex As Exception MsgBox(ex.Message) End Try

Klik ganda button Clear, ketik sintaks dibawah ini 'Mengkosongkan Datagrid1 (Data Excel) objDataTableExcel.Clear() DataGrid1.DataSource = objDataTableExcel DataGrid1.ReadOnly = True

Klik ganda button Import, ketik sintaks dibawah ini



If txtTable.Text = "" Then MsgBox("Masukkan nama tabel pada Access", _ MsgBoxStyle.Exclamation, "Import Data") Exit Sub End If If txtSheet.Text = "" Then MsgBox("Masukkan nama Sheet pada Excel", _ MsgBoxStyle.Exclamation, "Import Data") Exit Sub End If Try import() Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Exclamation) MyConnection.close() End Try

Dan klik ganda button View2 dan button Clear2, ketikkan sintaks untuk masing-masing button seperti dibawah ini. Untuk button view2 If txtTable.Text = "" Then MsgBox("Masukkan nama tabel", _ MsgBoxStyle.Exclamation, "Import Data") Exit Sub End If Try 'untuk menampilkan data pada table (access) 'kedalam datagrid2 objDataTableAccess.Clear() strSQL = "Select * " & " From " & "[" & Trim(txtTable.Text) & "]" objCommand = New OleDbCommand objCommand.Connection = MyConnection.open objCommand.CommandType = CommandType.Text objCommand.CommandText = strSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "mdt_show2") objDataTableAccess = objDataSet.Tables("mdt_show2") MyConnection.close() DataGrid2.DataSource = objDataTableAccess DataGrid2.ReadOnly = True Catch ex As Exception MsgBox(ex.Message) End Try End Sub

Untuk button Clear2



objDataTableAccess.Clear() DataGrid2.DataSource = objDataTableAccess DataGrid2.ReadOnly = True

IV. PENGGUNAAN PROGRAM Jalan kan program dengan menekan F5, dan muncul tampilan program seperti berikut :

1. Cari file excel yang mau ditampilkan, dengan menekan button Load. 2. Jika nama Sheet pada Excel adalah Sheet1, maka biarkan saja TextBox Sheet Name, tapi jika tidak ganti Sheet Name sama dengan nama Sheet pada file Excel yang akan ditampilkan. 3. Tekan button View Excel Data



4. Ketikkan nama table pada TextBox Table Name, Lalu tekan button Import Data, button ini berfungsi untuk memindahkan data dari Excel kedalam table didalam Access. Tunggu sampai pesan Import Finish Muncul.

5. Untuk mencoba apakah data sudah di Import, Coba klik button View Access Data, jika data nya muncul sama dengan Datagrid Excel maka proses import sudah benar



V.

ERROR MESSAGE Jika menerima pesan error dari program, lakukan hal-hal seperti berikut:

Cek apakah sudah benar Sheet Name adalah Sheet1...

Cek apakah nama table pada Access sudah benar.. VI. PENUTUP Setelah mencoba program dari artikel yang penulis buat ini, mudah-mudahan para pembaca mendapat ilmu tambahan tentang .Net. Hal-hal yang sederhana memang selalu kita lupakan, sehingga hal yang sederhana itu selalu kita anggap sebagai sesuatu yang sangat susah.. Step By Step Menjadi Programmer Handal Dengan VB.Net – Step IV Junindar


Penulis berharap artikel ini bisa di implementasikan kedalam program-program penulis yang membutuhkan proses seperti didalam artikel ini. Semoga Artikel-artikel tentang VB.Net ini masih tetap saya tulis, seiring dengan berkembangnya ilmu yang saya miliki. Aminnnnnnnnnnnnnnnn





STEP V IMPORT DATA DARI TXT / CSV FILE I.

Pangantar Pada artikel sebelumnya, kita telah membuat program untuk mentransfer data dari Excel ke Access table. Dan pada artikel yang ke 5 ini, penulis mengajak pembaca untuk bermain dengan txt dan csv (comma-separated values) file. Pada artikel ini hampir sama saja, kita akan membuat program mengimport data dari txt / csv file lalu di insert kedalam Access Table.

Step By Step Menjadi Programmer Handal Dengan VB.Net – Step V Junindar


Tetapi pada step ini, cara yang di gunakan berbeda dengan step sebelumnya. Mengingat kembali pada artikel sebelumnya. Untuk mentransfer data, kita melakukan nya baris demi baris . Jadi jika jumlah baris (row) nya sangat banyak maka waktu yang di butuhkan juga lebih panjang durasinya. Tetapi pada artikel ini kita akan mentransfer seluruh data secara langsung. Dan durasi yang di pakai untuk ini jauh lebih singkat, dan caranya pun lebih mudah. Eksperimen yang dilakukan penulis dalam mentransfer data yang berjumlah 100.000 baris, penulis dapat melakukan kurang dari 1 menit. Wauuuuuuuuu, waktu yang sangat fantastis bukan.

II.

MEMBUAT DATABASE DAN TABLE Buat database baru dan letakkan di dalam folder Bin. Dan beri nama “CSV.mdb“. Buat satu buah table, dengan nama ”Absen” dengan desain table sebagai berikut :

III. DESIGN & CODING Ganti properties form seperti pada tabel dibawah ini. FormBorderStyle

Fixed3D

Text

Import

Name

F_Import

StartPosition

CenterScreen

Size

712, 360

Lalu tambahkan komponen-komponen dibawah ini kedalam form No 1 2 3 4

Nama Komponen Label TextBox DataGrid Button


Jumlah 3 3 2 6


5 6 7

OpenFileDialog FolderBrowseDialog ComboBox

1 1 1


Label No 1 2 3

•

Nama Label Label1 Label2 Label3

TextBox No

•

Teks Label Data From TextFile Data From Access File Name

Nama TextBox

1

TextBox1

2

TextBox2

3

TextBox3

Text Name Text Name Text Name

Properties kosongkan txtFilePath kosongkan txtFolderPath kosongkan txtFileName

Button No

Nama Button

1

Button1

2

Button2

3

Button3

4

Button4

5

Button5

BackColor FlatStyle Text Name BackColor FlatStyle Text Name BackColor FlatStyle Text Name BackColor FlatStyle Text Name BackColor FlatStyle


Properties Transparent Flat ... btnOpenFileDlg Transparent Flat ... btnOpenFldrBwsr Transparent Flat Import btnImport Transparent Flat View From TextFile btnView Transparent Flat


6

•

Button6

Text Name BackColor FlatStyle Text Name

OpenFileDialog Properties Name OFD RestoreDirectory True

•

FolderBrowseDialog

Name •

Properties FBD

ComboBox

Name DropDownStyle Collection

Properties CbExt DropDownList - .txt - .csv



View From Access btnView2 Transparent Flat Export btnExport



kita membuat

koneksi pada database. Sebelumnya Buat folder pada project yang anda buat (Klik kanan project>Add>New Folder) dan beri nama “AccessData”. Selanjutnya didalam Folder tersebut tambahkan Class

dengan

nama


(Klik

kanan

Folder

“AccessData”>Add>Add Class). Ketikan listing di bawah ini pada class yang baru anda buat. Imports System.Data Imports System.Data.OleDb Namespace AccessData Public Class DatabaseConnection Dim conect As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=CSV.mdb;") Public Function open() As OleDbConnection conect.Open() Return conect End Function Public Function close() As OleDbConnection conect.Close() Return conect End Function End Class End Namespace

Sekarang aktifkan form Import, dan masuk ke jendela Code. Ketikkan sintaks dibawah ini di awal baris. Imports System.Data Imports System.Data.OleDb Imports System.IO

Dan ketikkan listing-listing seperti di bawah ini. #Region "Declaration" Dim objConnection As OleDbConnection Dim objCommand As OleDbCommand Dim objDataAdapter As OleDbDataAdapter Dim StrSQL As String Dim objDataTableText As New DataTable Dim objDataTableAccess As New DataTable Dim myconnection As New AccessData.DatabaseConnection #End Region Step By Step Menjadi Programmer Handal Dengan VB.Net – Step V Junindar


Klik ganda button Open File Dialog dan ketik sintaks di bawah ini. Try OFD.Filter = "CSV (Comma delimited) (*.csv) |*.csv |Text Documents(*.txt) |*.txt| All Files (*.*) |*.*" OFD.FilterIndex = 0 OFD.FileName = "" Dim result As DialogResult = OFD.ShowDialog() If result = DialogResult.Cancel Then OFD.FileName = Nothing txtFilePath.Text = "" Else txtFilePath.Text = OFD.FileName End If Catch ex As Exception MessageBox.Show(ex.Message) End Try

Klik ganda button Import dan ketik sintaks di bawah ini. Try If txtFilePath.Text.Trim = "" Then MsgBox("Cari file terlebih dahulu", MsgBoxStyle.Information, "Pesan kesalahan") Exit Sub End If Dim TempPath, TempFile As String TempFile = Mid(txtFilePath.Text.Trim, InStrRev(txtFilePath.Text.Trim, "\") + 1, Len(txtFilePath.Text.Trim)) TempPath = Microsoft.VisualBasic.Left(txtFilePath.Text.Trim, (Len(txtFilePath.Text.Trim) - Len(TempFile))) Dim cmd As OleDbCommand = New OleDbCommand cmd.CommandText = "INSERT INTO Absen (EmployeeID, FTime,FDate) " & _ " SELECT * FROM [Text;DATABASE=" & TempPath & ";].[" & TempFile.Trim & "]" cmd.Connection = myconnection.open() cmd.ExecuteNonQuery() myconnection.close() MsgBox("Import Finish", MsgBoxStyle.Information, "Import") Catch ex As Exception MsgBox(ex.Message) myconnection.close() Exit Sub End Try



Klik ganda button View, ketik sintaks dibawah ini Try If txtFilePath.Text.Trim = "" Then MsgBox("Cari file terlebih dahulu", MsgBoxStyle.Information, "Pesan kesalahan") Exit Sub End If Dim TempPath, TempFile As String TempFile = Mid(txtFilePath.Text.Trim, InStrRev(txtFilePath.Text.Trim, "\") + 1, Len(txtFilePath.Text.Trim)) TempPath = Microsoft.VisualBasic.Left(txtFilePath.Text.Trim, (Len(txtFilePath.Text.Trim) - Len(TempFile))) objDataTableText.Clear() DgText.DataSource = Nothing StrSQL = "SELECT * FROM [Text;DATABASE=" & TempPath & ";].[" & TempFile & "]" objCommand = New OleDbCommand objCommand.Connection = myconnection.open() objCommand.CommandType = CommandType.Text objCommand.CommandText = StrSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "mdt_check") objDataTableText = objDataSet.Tables("mdt_check") myconnection.close() DgText.DataSource = objDataTableText TempFile = Nothing TempPath = Nothing Catch ex As Exception MsgBox(ex.Message) myconnection.close() Exit Sub End Try

Klik ganda button Open Folder Browse, ketik sintaks dibawah ini Try FBD.SelectedPath = "" Dim result As DialogResult = FBD.ShowDialog() If result = DialogResult.Cancel Then FBD.SelectedPath = Nothing txtFolderPath.Text = "" Else txtFolderPath.Text = FBD.SelectedPath.Trim() End If Catch ex As Exception MessageBox.Show(ex.Message) End Try



Dan klik ganda button View2, ketikkan sintaks seperti dibawah ini. Try objDataTableAccess.Clear() StrSQL = "SELECT EmployeeId,format(FTime,'hh:mm') " & _ "As Waktu,format(FDate,'dd/mm/yyyy') As Tanggal FROM Absen" objCommand = New OleDbCommand objCommand.Connection = myconnection.open() objCommand.CommandType = CommandType.Text objCommand.CommandText = StrSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "mdt_check2") objDataTableAccess = objDataSet.Tables("mdt_check2") myconnection.close() DgAccess.DataSource = objDataTableAccess Catch ex As Exception MsgBox(ex.Message) myconnection.close() Exit Sub End Try

IV. PENGGUNAAN PROGRAM Jalan kan program dengan menekan F5, dan muncul tampilan program seperti berikut :

1. Cari file txt atau csv yang mau ditampilkan, dengan menekan button Load. (dibawah grid Text File) 2. Tekan button View From Text File



3. Jika sudah yakin dengan data yang di tampilkan pada datagrid, tekan button import untuk mengimport data.

4. Untuk mencoba apakah data sudah di Import, Coba klik button View Access Data, jika data nya muncul sama dengan Datagrid TextFile maka proses import sudah benar



V.

PENUTUP Penulis sadari bahwa cara penyampaian pada artikel ini sangat cepat, tidak menjelaskan secara detail. Itu karena penulis beranggapan para pembaca sudah mengikuti artikel-artikel yang di buat oleh penulis dari awal sampai yang sekarang ini. Jadi jika para pembaca kurang mengerti atau tidak memahaminya penulis anjurkan untuk membaca step 1 terlebih dahulu, baru dilanjutkan dengan step-step berikutnya. Mungkin bagi sebagian pembaca artikel kurang banyak memberi ilmu atau manfaatnya. Tapi jika kita sudah sering bekerja dengan menggunakan external file, maka ini akan sangat membantu pekerjaan kita. Hal ini sangat dirasakan sendiri oleh penulis. Semoga Artikel-artikel tentang VB.Net ini masih tetap saya tulis, seiring dengan berkembangnya ilmu yang saya miliki. Aminnnnnnnnnnnnnnnn





STEP VI EXPORT DATA DARI ACCESS TABLE KE TXT / CSV FILE I.

Pangantar Setelah membaca artikel step 5 pasti para pembaca banyak yang bertanya dan merasa keheranan. Apakah penulis lupa atau tidak tahu cara mengexport data dari txt / csv file. Karena pada artikel tersebut penulis mendesign form dengan menampilkan button export. Sedangkan pada tahap coding tidak di temukan bagaimana cara mengexport data tersebut.

Step By Step Menjadi Programmer Handal Dengan VB.Net – Step VI Junindar


Hal tersebut memang sengaja penulis lakukan, agar para pembaca paham terlebih dahulu cara untuk mengimport data. Jika sudah mengerti maka kita akan memasuki lagi tahap selanjutnya yaitu mengexport data dari access table ke txt /csv file. Bagi para pembaca yang belum membaca step 5 penulis harapkan untuk membaca artikel tersebut terlebih dahulu. Karena antara artikel sebelumnya dan yang saat ini sangat erat sekali hubungan nya. Dan kita masih menggunakan project yang sama. Hasil eksperimen yang dilakukan penulis untuk mengeksport data dengan jumlah baris lebih kurang 100.000 baris durasi yang dibutuhkan adalah sekitar 20 detik. Ini merupakan waktu yang sangat cepat sekali. II.

CODING

Karena kita masih menggunakan form dan project yang sama jadi kita langsung saja masuk ke tahap coding. Sub CheckData() Try objDataTableAccess.Clear() StrSQL = "SELECT EmployeeId,format(FTime,'hh:mm') " & _ "As Waktu,format(FDate,'dd/mm/yyyy') As Tanggal FROM Absen" objCommand = New OleDbCommand objCommand.Connection = myconnection.open() objCommand.CommandType = CommandType.Text objCommand.CommandText = StrSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "mdt_check2") objDataTableAccess = objDataSet.Tables("mdt_check2") myconnection.close() Catch ex As Exception MsgBox(ex.Message) myconnection.close() Exit Sub End Try End Sub

Dan klik ganda pada button export, dan ketik sintaks dibawah ini :



Try If txtFileName.Text.Trim = "" Then MsgBox("Masukkan nama file terlebih dahulu", MsgBoxStyle.Information, "Pesan kesalahan") Exit Sub End If If txtFolderPath.Text.Trim = "" Then MsgBox("Pilih folder terlebih dahulu", MsgBoxStyle.Information, "Pesan kesalahan") Exit Sub End If CheckData() 'mengecek jumlah baris dalam tabel If objDataTableAccess.Rows.Count = 0 Then MsgBox("Data tidak tersedia", MsgBoxStyle.Information, "Pesan kesalahan") Exit Sub End If Dim i As Integer Dim Header1, Header2, Header3, Field1, Field2, Field3 As String Dim fsOutput As FileStream = New FileStream(txtFolderPath.Text + "\" + txtFileName.Text.Trim + CbExt.SelectedItem, FileMode.Create, FileAccess.Write) Dim srOutput As StreamWriter = New StreamWriter(fsOutput) objCommand = myconnection.open.CreateCommand objCommand.CommandText = "Select * From Absen;" objdatareader = objCommand.ExecuteReader objdatareader.Read() Header1 = Replace(objdatareader.GetName(0), "#", ".") Header2 = Replace(objdatareader.GetName(1), "#", ".") Header3 = Replace(objdatareader.GetName(2), "#", ".") srOutput.WriteLine(Header1.ToString() + "," + Header2.ToString() + "," + Header3.ToString()) For i = 0 To objDataTableAccess.Rows.Count - 1 With objDataTableAccess.Rows(i) Field1 = .Item(0).ToString Field2 = .Item(1).ToString Field3 = .Item(2).ToString End With srOutput.WriteLine(Field1.ToString() + "," + Field2.ToString() + "," + Field3.ToString()) Next i srOutput.Close() fsOutput.Close() MsgBox("Export data berhasil", MsgBoxStyle.Information, "Pesan keberhasilan") Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "Pesan kesalahan") myconnection.close() End Try



III. PENUTUP Sekarang pertanyaan-pertanyaan yang ada pada pembaca sudah terjawab, bagaimana cara untuk mengeksport data dari table ke txt / csv file, sangat mudahkan ? Semoga artikel ini membantu para pembaca dalam hal mencari ilmu khusus nya pada bidang pemrograman Vb.Net. Semoga Artikel-artikel tentang VB.Net ini masih tetap saya tulis, seiring dengan berkembangnya ilmu yang saya miliki. Aminnnnnnnnnnnnnnnn





STEP VII MENGOLAH DATA TEXT FILE I.

Pangantar Apakah para pembaca menerima data text file yang tidak terstruktur dan tidak mempunyai header untuk datanya ? Lalu data tersebut harus di masukkan kedalam tabel. Jika pernah apa yang akan pembaca lakukan ? Data yang berbentuk seperti ini biasanya dari sebuah mesin, sebagai contoh penulis memberikan sample data yang tidak

terstrukur

dari

sebuah

mesin

absensi,

Step By Step Menjadi Programmer Handal Dengan VB.Net – Step VII Junindar

contohnya

seperti

ini.“


s0371080021122007“. Sedangkan data yang terstruktur contohnya seperti pada file csv (“s0371,08:00,21/12/2007“). Untuk data yang tidak terstruktur, kita tidak bisa langsung mengimport data mentah tersebut kedalam tabel, karena bentuknya belum beraturan. Kita harus menjadikan data mentah tersebut terstruktur terlebih dahulu, dan sebelumnya kita harus mengetahui bentuk/struktur yang di inginkan. Untuk data diatas struktur nya adalah sebagai berikut : s0371 adalah EmployeeID, 0800 adalah jam, dan 21122007 adalah tanggal. Setelah kita mengetahui strukturnya barulah kita dapat mengolah data tersebut dan akhirnya kita insert ke dalam tabel. Untuk catatan struktur dan jumlah karakter harus sudah permanen (baku).

II.

MEMBUAT DATABASE DAN TABLE Buat database baru dan letakkan di dalam folder Bin. Dan beri nama “CSV.mdb“. Buat satu buah table, dengan nama ”Absen” dengan desain table sebagai berikut :

III. DESIGN & CODING Ganti properties form seperti pada tabel dibawah ini. FormBorderStyle

Fixed3D

Text

Import

Name

Import

StartPosition

CenterScreen

Size

450, 330

Lalu tambahkan komponen-komponen dibawah ini kedalam form No 1 2 4 4

Nama Komponen TextBox DataGrid Button OpenFileDialog


Jumlah 1 1 3 1



TextBox No 1

•

Nama TextBox Text Name

TextBox1

Properties kosongkan txtFilePath

Button No

Nama Button

1

Button1

2

Button3

3

Button4

BackColor FlatStyle Text Name BackColor FlatStyle Text Name BackColor FlatStyle Text Name

Properties Transparent Flat ... btnOpenFileDlg Transparent Flat Import btnImport Transparent Flat View From TextFile btnView



kita membuat

koneksi pada database. Sebelumnya Buat folder pada project yang anda buat (Klik kanan project>Add>New Folder) dan beri nama “AccessData”. Selanjutnya didalam Folder tersebut tambahkan Step By Step Menjadi Programmer Handal Dengan VB.Net – Step VII Junindar


Class

dengan

nama


(Klik

kanan

Folder

“AccessData”>Add>Add Class). Ketikan listing di bawah ini pada class yang baru anda buat. Imports System.Data Imports System.Data.OleDb Namespace AccessData Public Class DatabaseConnection Dim conect As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=CSV.mdb;") Public Function open() As OleDbConnection conect.Open() Return conect End Function Public Function close() As OleDbConnection conect.Close() Return conect End Function End Class End Namespace

Lalu buat Class didalam folder AccessData dan ubah nama class tersebut menjadi “AccessAbsen.vb“. Dan ketik sintak dibawah ini



Imports System.Data Imports System.Data.OleDb Namespace AccessData Public Class AccessAbsen Public Function AccessAbsenInsert(ByVal EmployeeID As String, _ ByVal FTime As String, _ ByVal FDate As String) Dim myconnection As New AccessData.DatabaseConnection Dim SqlString As String = "Insert Into Absen " & _ " (EmployeeID,FTime,FDate) Values (?,?,?)" Dim myCmd As New OleDbCommand(SqlString) myCmd.Connection = myconnection.open myCmd.CommandType = CommandType.Text myCmd.Parameters.Add("EmployeeID", EmployeeID) myCmd.Parameters.Add("FTime", FTime) myCmd.Parameters.Add("FDate", FDate) myCmd.ExecuteNonQuery() myconnection.close() End Function End Class End Namespace

Sekarang aktifkan form Import, dan masuk ke jendela Code. Ketikkan sintaks dibawah ini di awal baris. Imports System.Data Imports System.Data.OleDb Imports System.IO

Dan ketikkan listing-listing seperti di bawah ini. #Region "Declaration" Dim objConnection As OleDbConnection Dim objCommand As OleDbCommand Dim objDataAdapter As OleDbDataAdapter Dim StrSQL As String Dim objDataTableText As New DataTable Dim objDataTableAccess As New DataTable Dim myconnection As New AccessData.DatabaseConnection Protected myConnectionAbsen As New AccessData.AccessAbsen #End Region



Klik ganda button Open File Dialog dan ketik sintaks di bawah ini. Try OFD.Filter = "CSV (Comma delimited) (*.csv) |*.csv |Text Documents(*.txt) |*.txt| All Files (*.*) |*.*" OFD.FilterIndex = 0 OFD.FileName = "" Dim result As DialogResult = OFD.ShowDialog() If result = DialogResult.Cancel Then OFD.FileName = Nothing txtFilePath.Text = "" Else txtFilePath.Text = OFD.FileName End If Catch ex As Exception MessageBox.Show(ex.Message) End Try

Klik ganda button View dan ketik sintaks di bawah ini. Try objDataTable.Clear() strSQL = "SELECT EmployeeId,format(FTime,'hh:mm') " & _ "As Waktu,format(FDate,'dd/mm/yyyy') As Tanggal FROM Absen" objCommand = New OleDbCommand objCommand.Connection = myconnection.open() objCommand.CommandType = CommandType.Text objCommand.CommandText = strSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "mdt_check") objDataTable = objDataSet.Tables("mdt_check") myconnection.close() DgView.DataSource = objDataTable Catch ex As Exception MsgBox(ex.Message) myconnection.close() Exit Sub End TryEnd Try



Klik ganda button Import, ketik sintaks dibawah ini Try Dim oFile As System.IO.File Dim oRead As System.IO.StreamReader Dim EntireFile, LineIn, tempfile As String If txtFilePath.Text.Trim = "" Then MsgBox("Cari file terlebih dahulu", MsgBoxStyle.Information, "Pesan kesalahan") Exit Sub End If oRead = oFile.OpenText(txtFilePath.Text.Trim) While oRead.Peek <> -1 LineIn = oRead.ReadLine() Dim ID As String = LineIn.Substring(0, 5) Dim jam As String = LineIn.Substring(5, 2) & ":" & LineIn.Substring(7, 2) Dim tgl As String = LineIn.Substring(9, 2) & "/" & LineIn.Substring(11, 2) & "/" & LineIn.Substring(13, 4) myConnectionAbsen.AccessAbsenInsert(ID, jam, tgl) End While oRead.Close() MsgBox("Import data berhasil", MsgBoxStyle.Information, "Pesan keberhasilan") Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical) myconnection.close() End Try

IV. PENUTUP Percobaan yang dilakukan oleh penulis untuk mengimport data dalam waktu 1 menit berhasil mengimport sebanyak kurang lebih 1300 baris. Memang lebih lambat dari artikel sebelumnya, karena pada step ini kita harus mengimport data baris demi baris, karena data harus di olah terlebih dahulu. Semoga Artikel-artikel tentang VB.Net ini masih tetap saya tulis, seiring dengan berkembangnya ilmu yang saya miliki. Aminnnnnnnnnnnnnnnn





STEP VIII MEMBUAT JAM DIGITAL DUNIA & RUNNING TEXT I.

Pangantar Mungkin para pembaca pernah di tanya tentang jam brapa pada saat ini di suatu negara. Ya kalau negara dekat seperti Malaysia, Singapura pasti udah pada tau semuanya kan… Ayoo brapa, jangan iya-iya aja… J. Tapi kalau di tanya seperti di Jerman, India, China wah mungkin Cuma sedikit di antara kita yang mengetahui nya.

Step By Step Menjadi Programmer Handal Dengan VB.Net – Step VIII Junindar


Trus penulis kepikiran, kenapa ga kita buat aja program untuk melihat waktu di negara-negara seluruh dunia, yang kita inginkan. Nah sekarang dengan memanfaatkan sedikit coding dengan menggunakan Date and Time > Time Zone kita sudah bisa membuat program jam digital untuk melihat waktu pada seluruh negara di dunia yang kita inginkan.. Lalu pada artikel ini penulis juga memberikan suatu cara untuk membuat running text sederhana, yang akan memperindah form yang kita buat. Udah pada ga sabaran nich?? Ikutin petunjuk yang ada pada artikel ini dengan baik ya….

II.

DESIGN & CODING a. Buat project baru dengan nama “Jam“ Ganti properties form seperti pada tabel dibawah ini. FormBorderStyle

FixedSingle

Text

Jam Digital

StartPosition

CenterScreen

Size

686, 150

BackColor

Desktop

Lalu tambahkan komponen-komponen dibawah ini kedalam form No 1 2 3 4 5

Nama Komponen TextBox Label Timer GroupBox PictureBox

Jumlah 5 11 2 1 1


TextBox No 1

Nama TextBox TextBox1

Properties Text 10 : 10 : 10 Name txtFilePath TextAlign Center ForeColor Chartreuse Name txtTimeBatam



•

2

TextBox2

3

TextBox3

4

TextBox4

5

TextBox5

BackColor Text Name TextAlign ForeColor Name BackColor Text Name TextAlign ForeColor Name BackColor Text Name TextAlign ForeColor Name BackColor Text Name TextAlign ForeColor Name BackColor

Black 10 : 10 : 10 txtFilePath Center Chartreuse txtTimeSingapore Black 10 : 10 : 10 txtFilePath Center Chartreuse txtTimeZhuhai Black 10 : 10 : 10 txtFilePath Center Chartreuse txtTimeIndia Black 10 : 10 : 10 txtFilePath Center Chartreuse txtTimeAustria Black

Label No

Nama Label

1

Label1

2

Label2

3

Label3

4

Label4

5

Label5

BackColor FlatStyle Text Name BackColor FlatStyle Text Name BackColor FlatStyle Text Name BackColor FlatStyle Text Name BackColor

Properties Silver Fixed3D PM Wed lblDayBatam Silver Fixed3D PM Wed lblDaySingpore Silver Fixed3D PM Wed lblDayZhuhai Silver Fixed3D PM Wed lblDayDelhi Silver



•

6 7 8 9 10

Label6 Label7 Label8 Label9 Label10

11

Label11

Fixed3D PM Wed lblDayAustria Batam (Indonesia) Singapore / JB Zhuhai (China) India Austria / Germany lblJalan Kosongkan White OliveDrab

GroupBox No

1

•

FlatStyle Text Name Text Text Text Text Text Name Text ForeColor BackColor

Nama GroupBox GroupBox1

Properties Text ForeColor BackColor

World Timer Watch Desktop AliceBlue

Picture Box No

Nama PictureBox

Properties Image

1

Masukkan gambar yang di sukai StretchImage

PictureBox1 SizeMode

•

Timer No

Nama Timer

1

Timer1

2

Timer2

Name Enabled Interval Name Enabled Interval

Properties tmrWorldClock True 100 TmrText True 200

Setelah itu, masukkan seluruh Text box kedalam groupbox, lalu label 1-10 dan terakhir picturebox. Sehingga bentuk dari form nya seperti pada gambar di bawah ini.



Coding Sekarang saat nya kita melakukan coding pada project ini. Double click pada form, lalu ketikkan code seperti dibawah ini. lblJalan.Text

=

"Ini

adalah

program

untuk

melihat

jam

pada

beberapa negara di dunia...."

Code diatas merupakan kalimat yang akan nantinya menjadi running text pada form. Untuk kasus ini para pembaca dapat mengubah kalimat diatas sesuai dengan keinginan masing-masing. Ketikkan code di bawah pada form. Private Declare Sub GetSystemTime Lib "kernel32" (ByRef lpSystemTime As SYSTEMTIME) Private Structure SYSTEMTIME Public wYear As Short Public wMonth As Short Public wDayOfWeek As Short Public wDay As Short Public wHour As Short Public wMinute As Short Public wSecond As Short Public wMilliseconds As Short End Structure

#Region " World Clock Variables " Dim lpT As SYSTEMTIME Dim dateUTC As Date Dim WTime As Date #End Region



Private Sub getWorldClock() Try Call GetSystemTime(lpT) 'India dateUTC = Date.Today.UtcNow().AddHours(5.5) WTime = CDate(lpT.wHour & " : " & lpT.wMinute & " : " & lpT.wSecond).AddHours(5.5) txtTimeIndia.Text = WTime.ToLongTimeString lblDayDelhi.Text = dateUTC.DayOfWeek().ToString() 'Austria/Germany dateUTC = Date.Today.UtcNow().AddHours(1.0) WTime = CDate(lpT.wHour & " : " & lpT.wMinute & " : " & lpT.wSecond).AddHours(1.0) txtTimeAustria.Text = WTime.ToLongTimeString lblDayAustria.Text = dateUTC.DayOfWeek().ToString() 'Zhuhai dateUTC = Date.Today.UtcNow().AddHours(8.0) WTime = CDate(lpT.wHour & " : " & lpT.wMinute & " : " & lpT.wSecond).AddHours(8.0) txtTimeZhuhai.Text = WTime.ToLongTimeString lblDayZhuhai.Text = dateUTC.DayOfWeek().ToString() 'Indonesia dateUTC = Date.Today.UtcNow().AddHours(7.0) WTime = CDate(lpT.wHour & " : " & lpT.wMinute & " : " & lpT.wSecond).AddHours(7.0) txtTimeBatam.Text = WTime.ToLongTimeString lblDayBatam.Text = dateUTC.DayOfWeek().ToString() 'Singapore/JB dateUTC = Date.Today.UtcNow().AddHours(8.0) WTime = CDate(lpT.wHour & " : " & lpT.wMinute & " : " & lpT.wSecond).AddHours(8.0) txtTimeSingapore.Text = WTime.ToLongTimeString lblDaySingpore.Text = dateUTC.DayOfWeek().ToString() Catch ex As Exception MsgBox(ex.Message) End Try End Sub



Setelah selesai double click pada tmrWorldClock dan ketik code seperti di bawah ini :

getWorldClock()

Dan terakhir double click pada komponen TmrText dan ketik code seperti di bawah ini : Dim s1 As String Dim S2 As String s1 = Microsoft.VisualBasic.Left(lblJalan.Text, 1) S2 = Microsoft.VisualBasic.Right(lblJalan.Text, Len(lblJalan.Text) - 1) lblJalan.Text = S2 + s1

Setelah selesai melakukan petunjun seperti diatas, mari kita lihat hasil nya, tekan F5 pada project. Jika para pembaca mengikuti petunjuk sesuai dengan yang penulis intruksikan maka form yang di running akan seperti gambar di bawah ini :

Keren bukan???? Dan tentunya para pembaca bingung kenapa kalau untuk indonesia Add.Hours = 7.0, untuk hal kita dapat melihat informasinya pada Date and Time > Time Zone, seperti pada gambar di bawah ini :



Jadi jika seandainya para pembaca ingin melihat / mengubah program ini untuk melihat negara yang di inginkan, kita tinggal melihat Time Zone negara tersebut. + (plus) atau – (minus) berapa suatu negara terhadap Greenwich Mean Time (GMT). Dan pada source code tinggal di ubah pada bagian AddHours(nilai). Selamat mencoba ………………………………………… III.

PENUTUP Untuk mendownload source code lengkap nya, dapat di download pada blog penulis, http://junindar.blog.com . Semoga Artikel-artikel tentang VB.Net ini masih tetap saya tulis, seiring dengan berkembangnya ilmu yang saya miliki. Aminnnnnnnnnnnnnnnn





STEP IX MEMBUAT PROGRAM AUTO SHUTDOWN I.

Pengantar Seberapa seringkah para pembaca lupa mematikan PC pada saat selesai bekerja, baik siang maupun malam hari. Jika itu sering terjadi tagihan listrik akan meningkat untuk hal-hal yang tidak berguna atau sia-sia. Oleh karena itu banyak sekali software-software baik yang gratis maupun yang bayar beredar di pasaran untuk mengurus hal semacam ini.

Step By Step Menjadi Programmer Handal Dengan VB.Net – Step IX Junindar


Pada artikel ini penulis mengajak para pembaca untuk berkreasi pada komputer sendiri. Yaitu dengan membuat program auto shutdown yang simple tapi sangat berguna bagi kita. Semoga artikel ini bisa membuat kita lebih kreatif dan sering berkreasi baik untuk diri kita sendiri maupun orang lain. DESIGN & CODING a. Buat project baru dengan nama “MatiPC“ Ganti properties form seperti pada tabel dibawah ini. FormBorderStyle

FixedSingle

Text

Shutdown

StartPosition

CenterScreen

Size

328, 184

BackColor

White

Lalu tambahkan komponen-komponen dibawah ini kedalam form No 1 2 3 4 5 6 7

Nama Komponen DateTimePicker GroupBox Timer Button ContextMenu Notify Icon Label

Jumlah 1 1 1 2 1 1 1


TextBox No

1

Nama DateTimePicker

Properties

Format ShowUpDown Custom DateTimePicker1 Format ForeColor Name


Custom True hh:mm tt Chartreuse DtTime


•

Label No 1

•

Nama Label Label1

1

Button1

2

Button1

GroupBox

1

Nama GroupBox GroupBox1

Properties Text BackColor

Set Timer WhiteSmoke

Timer No 1

•

Text Name Text Name

Properties Disabled btnEnabled Hide btnHide

Nama Button

No

•

Properties Time

Button No

•

Text

Nama Timer Timer1

Name Enabled Interval

Properties TimerShutdown False 60000

ContextMenu

Buat menu dengan cara klik component ContextMenu, dan ketik menuitem dengan nama -

Exit

-

View

Seperti pada gambar



•

Notify Icon No

1

Nama Notify Icon Notify Icon

Properties Text Icon

Shutdown Cari gambar (*.ico) yang di senangi

Setelah itu, masukkan seluruh DtTime, Label kedalam GroupBox dan design form seperti pada gambar diatas.

Coding Sekarang saat nya kita melakukan coding pada project ini. Double click pada “TimerShutdown”, lalu ketikkan code seperti dibawah ini.



Dim P_Time As String P_Time = Format(TimeOfDay, "hh:mm tt") Try If P_Time = Trim(DtTime.Text) Then System.Diagnostics.Process.Start("Shutdown", "/s") ' Untuk shutdown ' System.Diagnostics.Process.Start("Shutdown", "/r") 'Untuk Restart ' System.Diagnostics.Process.Start("Shutdown", "/l") ' Untuk logoff ' System.Diagnostics.Process.Start("Shutdown", "/a") ' untuk abort End If Catch ex As Exception MsgBox(ex.Message) End Try

Code diatas merupakan proses untuk mematikan PC, logika nya jika waktu saat ini sama dengan waktu pada DateTimePicker yang kita setting, maka PC akan mati. Sedangkan code-code di bawah nya yang di kasih comment merupakan proses untuk Restart, Logoff dan abort. Jadi para pembaca dapat memodif program ini sesuai dengan keinginan. Double Click BtnEnabled, dan ketik sintaks seperti di bawah: If btnEnabled.Text = "Disabled" Then DtTime.Enabled = False btnEnabled.Text = "Enabled" TimerShutdown.Enabled = True Else DtTime.Enabled = True btnEnabled.Text = "Disabled" TimerShutdown.Enabled = False End If

Logika dari sintaks diatas adalah, pada saat program dijalankan pertama kali TimerShutdown kita set False untuk enabled, dan text untuk btnEnabled = “Disabled”, dan jika di klik button tersebut maka DateTimePicker menjadi Disabled dan Timer pun dijalankan. Dan proses ini di lakukan sebaliknya.



Double click button Hide, dan ketik sintak berikut Me.Opacity = 0% Me.ShowInTaskbar = False

Sintaks diatas untuk menghilangkan form pada layar dan taskbar. Double click menu item exit dan View, ketik sintaks untuk masing menu item seperti dibawah ini : End

Me.Opacity = 100% Me.ShowInTaskbar = True

Jika sudah selesai melakukan proses-proses diatas, coba jalankan program dengan menekan tombol F5.

Untuk menutup program click kana pada icon, dan klik exit. Sedangkan untuk menghilangkan tampilan pada layar klik button Hide. Untuk menampilkan kembali klik kanan dan klik View. Untuk menjalankan auto shutdown tentukan jam yang di inginkan, lalu klik button Disabled dan klik button Hide. Step By Step Menjadi Programmer Handal Dengan VB.Net – Step IX Junindar


Jika program ini jalan kita bisa mengipelmentasikan pada computer kita masingmasing tanpa perlu mendownload atau membelinya. Yang lebih penting kita sudah membuat suatu kreasi dan membuat kita lebih kreatif. Dan program ini masih bisa di explore lagi sehingga bisa menjadi program auto shutdown yang lebih bagus dan handal. Selamat mencoba ………………………………………… II.

PENUTUP Untuk mendownload source code lengkap nya, dapat di download pada blog penulis, http://junindar.blog.com . Semoga Artikel-artikel tentang VB.Net ini masih tetap saya tulis, seiring dengan berkembangnya ilmu yang saya miliki. Aminnnnnnnnnnnnnnnn



Lisensi Dokumen:

Copyright © 2003 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.


STEP X Library Not Registered I.

Pengantar Artikel kali ini yang penulis buat tidak mengenai pemograman dengan Vb.net, yang seperti biasa nya penulis buat. Tapi kali bagaimana cara kita memperbaiki Visual Studio kita ketika mengalami error. Penulis Pernah ga mengalami error message seperti ini “Library Not Registered”, ketika mau membuat Project baru ,form, class dan sebagainya…

Step By Step Menjadi Programmer Handal Dengan VB.Net – Step X Junindar


Kenapa

hal

itu

bisa

terjadi

?

Seperti

yang

penulis

baca

di

http://support.microsoft.com/kb/823244 karena pada saat kita membuat setup project, kita memasukkan file Extensibility dan VSLangProj, kemudian kita install ke PC kita. Dan ketika kita remove program tersebut dari PC, lalu kita mau membuat project baru maka error “Library Not Registered” muncul. Lalu apakah yang akan kita lakukan???? Sebenarnya ini merupakan pengalaman penulis ketika menghadapi error seperti ini, dengan segala macam cara penulis lakukan untuk memperbaiki Visual Studio penulis. Disini penulis akan menceritakan bagaimana tahap yang penulis lakukan untuk memperbaikinya.. Setelah melakukan pencarian dengan google, penulis menumukan solusi dari Microsoft dengan link diatas. Tapi penulis sangat kaget karena harus Repair atau ReInstal VS.Net. Tapi Itu bukan solusi yang menarik dan baik bagi penulis.. Setelah sedikit kecewa dengan solusi yang diberikan oleh microsoft, maka penulis berusaha mencari lagi solusi lain, yaitu dengan cara Register ulang file vcproj.dll (regsvr32.exe

"C:\Program

Files\Microsoft

Visual

Studio

.NET

2003\Vc7\vcpackages\csproj.dll"). wah penulis sangat bahagia karena ada cara yang sangat gampang untuk memperbaiki. Tetapi setelah melakukan hal diatas penulis mendapatkan pesan seperti dibawah, lalu penulis mencoba melakukan pencarian file tersebut (csproj.dll) didalam folder, ternyata file tersebut tidak ada.

Menurut penulis mungkin hilang sewaktu penulis UnInstall program, lalu penulis mencari file tersebut di internet, syukur alhamdulillah penulis mendapatkan nya. Lalu

file

tersebut

di

copy

kedalam

dan........................................


folder

dan

ulangi

register

file,


Pesan yang sama muncul seperti diatas, penulis sangat kecewa dan kecewa.. Akhir nya udah mentok ya seperti emang harus di Repair VS.Net nya. Lalu penulis melakukan Repair VS.Net yang ada di PC, setelah memakan waktu 5-10 menit, Restart PC lalu buka VS.Net dan buat project apa yang terjadi “LIBRARY NOT REGISTERED“ yang muncul. Semakin putus asa, penulis melakukan searching dimana-mana tapi solusi nya selalu sama saja Register csproj.dll. Dengan prasaan yang putus asa penulis akhirnya memutuskan langkah terakhir yaitu dengan ReInstall.. Penulis UnInstall VS.Net lalu Reboot, Install lalu ReBoot. Lumayan memakan waktu yang lumayan. Akhirnya selesai juga, dengan prasan PEDE penulis buka aplikasi dan buat project baru TETAPI hal paling penulis takutkan muncul lagi yaitu muncul kalimat yang paling penulis takutkan di waktu-waktu ini “LIBRARY NOT REGISTERED“. Betapa kagetnya ketika melihat hal tersebut, sepertinya ini akan menjadi pekerjaan yang paling di takutkan yaitu dengan cara Intall OS…. Wahh TIDAKKKKKKKKKKKKKK….. Lalu dengan prasaan yang tidak semangat penulis mencoba mencari lagi solusi dengan melakukan pencarian dengan google, penulis tidak tau sudah sampai page ke berapa akhir nya penulis membuka sebuah link, yang memberikan solusi dengan mengisntall Windows Script 5.6, lalu hal tersebut pun penulis lakukan, setelah melakukan proses install yang Cuma 1 menit, lalu Reboot. Maka dengan prasaan yang tidak yakin penulis mencoba membuat project baru, lalu apa yang terjadiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii, ternyata dan tak pernah penulis duga project tersebut berhasil dibuat.. itu berarti tidak ada error lagi pada VS.Net penulis.. PENUTUP Sebenarnya dengan sengaja penulis menerangkan dengan panjang lebar solusi untuk menyelesaikan masalah tersebut, karena itu lah yang penulis alami.. penulis juga pengen para pembaca juga ikut merasakan apa yang penulis alami..

..

Semoga Artikel-artikel tentang VB.Net ini masih tetap saya tulis, seiring dengan berkembangnya ilmu yang saya miliki. Aminnnnnnnnnnnnnnnn





STEP XI Membuat Program Stopwatch I.

Pengantar Didalam pemograman sering sekali kita melupakan hal-hal sederhana karena kita selalu saja memikirkan sesuatu yang sangat sulit, sehingga nanti nya hal yang mudah akan kita temui menjadi sangat susah diselesaikan. Untuk itu penulis mengajak para pembaca untuk membuat program yang sederhana dan nantinya bisa kita gunakan atau manfaatkan pada computer kita. Program yang akan kita buat adalah Program Stopwatch. Untuk artikel ke 11 ini saya asumsikan

Step By Step Menjadi Programmer Handal Dengan VB.Net – Step XI Junindar


para pembaca sudah membaca seluruh artikel saya di www.ilmukomputer.com jadi penyampaian dan penyajiannya akan sangat ringkas.

II.

DESIGN & CODING

Gambar Design Form Stopwatch

Buatlah sebuah form seperti pada gambar diatas dengan 3 buah button, 1 buah label, dan 1 buah Timer. Lalu susunlah komponen-komponen tersebut seperti gambar diatas. Untuk komponen timer nya ubah Properties Interval nya menjadi “100”.

Sekarang buka jendela Code untuk form, lalu ketikkan sintaks di bawah, seperti pada gambar. Dim Mili, Sec, Min, hr As Integer Dim Countr As Integer



Lalu double click Form dan ketikkan sintaks di bawah Mili = 0 Sec = 0 Min = 0 hr = 0

Double click button Start Timer1.Enabled = True

Double click button Stop Timer1.Enabled = False

Double click button Reset Dim mYes_No As String = MsgBox("Do you want Reset the Timer ?", vbYesNo) If mYes_No = vbYes Then Mili = 0 Sec = 0 Min = 0 hr = 0 lblTime.Text = "" Timer1.Enabled = False End If

Dan terakhir double click komponen Timer dan ketikkan sintaks berikut.. Dim Mili2, Sec2, Min2, hr2 As String Countr = Countr + 1 Mili2 = Countr If Countr = 10 Then Sec = Sec + 1 Countr = 0 End If If Sec = 60 Then Min = Min + 1 Sec = 0 End If If Min = 60 Then hr = hr + 1 Min = 0 End If Sec2 = Format(Val(Sec), "00") Min2 = Format(Val(Min), "00") hr2 = Format(Val(hr), "00") blTime.Text = hr2 & ":" & Min2 & ":" & Sec2 & ":" & Mili2



Lalu jalankan program, dan coba uji seluruh button yang ada, apakah berjalan seperti Stopwatch pada umumnya……

PENUTUP Seperti yang penulis katakan sebelumnya kita selalu lupa akan hal yang mudah-mudah, seperti hal nya membuat program ini.. mungkin banyak diantara pembaca yang tidak menyangkan begitu simple nya cara membuat program Stopwatch ini.. Mudah-mudah artikel ini bermanfaat dan dapat di kembangkan lebih baik lagi. Semoga Artikel-artikel tentang VB.Net ini masih tetap saya tulis, seiring dengan berkembangnya ilmu yang saya miliki. Aminnnnnnnnnnnnnnnn





STEP XII Mengganti Warna Form Secara Permanen (Color Setting) I.

Pengantar Untuk seorang programmer salah satu hal yang harus di perhatikan adalah dengan memanjakan para pengguna program. Hal itu bisa di lakukan dengan membuat program yang mudah di gunakan, memberikan keleluasan user dalam menggunakan program. Dalam memberikan keleluasan bisa dengan menyediakan suatu fungsi

Step By Step Menjadi Programmer Handal Dengan VB.Net – Step XII Junindar


untuk para pengguna dalam hal melakukan penyetingan program seperti warna, tulisan dan jika memungkinkan dalam hal bahasa. Jika hal itu dapat dilakukan maka seorang programmer dapat dikatakan sebagai programmer yang tidak dictator. Karena biasanya dalam hal pemilihan warna atau tulisan untuk program tidak jarang seorang programmer hanya mengikuti apa yang di sukainya saja. Oleh karena itu dalam era reformasi yang demokratis ini penulis membuat artikel bagaimana kita (programmer) dapat membuat fungsi untuk mensetting warna sesuai dengan apa yang di sukai oleh pengguna.

II.

DESIGN & CODING

Gambar Design Form

Buatlah sebuah form seperti pada gambar diatas dengan 2 buah button, 1 buah ColorDialog. Ubah Properties Name dari ColorDilaog1 Menjadi dlgWarna. Lalu susunlah komponen-komponen tersebut seperti gambar diatas.

Untuk pertama kalu buat module pada project kita, seperti gambar dibawah ini. Ubah nama Module menjadi Module.vb Step By Step Menjadi Programmer Handal Dengan VB.Net – Step XII Junindar


Gambar Cara Membuat Module

Gambar Add New Item



Pada jendela module ketikkan sintaks seperti dibawah ini. Module _Module Public AppPath As String = Replace(Replace(Replace(Application.ExecutablePath, Application.ProductName + ".EXE", ""), Application.ProductName + ".exe", ""), Application.ProductName + ".exe", "") End Module

Sintaks diatas untuk mengambil alamat dari folder dimana file exe disimpan, jadi AppPath ini bersifat Fleksibel. Klik ganda pada Form1. Note : Tulisan berwarna hijau merupakan comment untuk menjelaskan maksud dari code. Try 'jika file setting tidak ada folder Bin, 'maka kita akan membuat file tersebut dengan nama "Setting" 'Proses ini untuk pertama kali program dijalankan If System.IO.File.Exists(AppPath & ("Setting.txt")) = False Then 'mendeklarasikan file Setting yang akan di buat lalu di tulis 'AppPath adalah Nama alamat dimana file exe disimpan Dim sw As New System.IO.StreamWriter(AppPath & ("Setting.txt")) 'Mesetting warna untuk pertama kali di jalankan adalah warna Default Form (Control) Dim c As System.Drawing.Color = System.Drawing.ColorTranslator.FromHtml("Control") 'mengconvert warna menjadi bilangan Hexa,lalu di tulis pada file setting sw.WriteLine("#" & Hex(c.ToArgb)) sw.Close() ' Menutup file yang dibuka Else 'jika File setting sudah ada Dim color As String 'mendklarasikan file Setting yang akan di baca 'AppPath adalah Nama alamat dimana file exe disimpan Dim sr As New System.IO.StreamReader(AppPath & ("Setting.txt")) 'Mengambil text dari file Setting color = sr.ReadLine() 'Menutup File sr.Close() 'Mesetting warna dari file Setting Dim color2 As System.Drawing.Color = System.Drawing.ColorTranslator.FromHtml(color) 'Mengubah Warna untuk Background form sesuai dengan file Setting Me.BackColor = color2 End If Catch ex As Exception MsgBox(ex.Message) End Try



Klik ganda button Show Color, dan ketik sintaks seperti dibawah Try 'Menampilkan Dialog warna.. 'Jika menekan tombol Ok pada Dialog Warna If dlgWarna.ShowDialog() = System.Windows.Forms. _ DialogResult.OK Then 'Background Form sama dengan warna yang di pilih pada dialog warna Me.BackColor = dlgWarna.Color 'mendeklarasikan file Setting2 yang akan di tulis (file ini hanya temporary saja) 'AppPath adalah Nama alamat dimana file exe disimpan Dim sw As New System.IO.StreamWriter(AppPath & ("Setting2.txt")) 'mengconvert warna menjadi bilangan Hexa,lalu di tulis pada file Setting2 Dim a As String = Hex(dlgWarna.Color.ToArgb) 'Memotong 2 digit pertama dari hasil convert a = a.Substring(2) 'Menuliskan hasil convert ke dalam file Setting2 sw.WriteLine("#" & a) sw.Close() 'Menutup file System.IO.File.Delete(AppPath & ("Setting.txt")) 'Mengganti nama File Setting2 menjadi Setting System.IO.File.Move(AppPath & ("Setting2.txt"), AppPath & ("Setting.txt")) End If Catch ex As Exception MsgBox(ex.Message) End Try

Klik ganda button Restore Color, dan ketik sintaks seperti dibawah Try 'mendeklarasikan file Setting2 yang akan di tulis (file ini hanya temporary saja) 'AppPath adalah Nama alamat dimana file exe disimpan Dim sw As New System.IO.StreamWriter(AppPath & ("Setting2.txt")) 'Mesetting warna untuk pertama kali di jalankan adalah warna Default Form (Control) Dim color2 As System.Drawing.Color = System.Drawing.ColorTranslator.FromHtml("Control") 'Mengubah Warna untuk Background menjadi default Me.BackColor = color2 'mengconvert warna menjadi bilangan Hexa,lalu di tulis pada file Setting2 sw.WriteLine("#" & Hex(color2.ToArgb)) sw.Close() 'menutup file Setting2 System.IO.File.Delete(AppPath & ("Setting.txt")) 'Menghapus File Setting dari Drive 'Mengganti nama File Setting2 menjadi Setting System.IO.File.Move(AppPath & ("Setting2.txt"), AppPath & ("Setting.txt")) Catch ex As Exception MsgBox(ex.Message) End Try

Setelah langkah-langkah diatas sudah dilakukan dengan benar, maka jalankan program dengan menekan tombol F5.



Lalu akan muncul form seperti dibawah ini.

Gambar Form Setelah dijalankan

Lalu tekan tombol show color, maka dialog color akan tampil seperti gambar dibawah ini.

Gambar Dialog Warna

Pilih warna yang di sukai, lalau tekan tombol OK. Maka form tadi akan berubah warna seperti yang kita pilih.



Gambar Form Setelah dilakukan perubahan warna

Lalu coba matikan aplikasi dan hidupkan lembali, maka warna form masih seperti dengan warna yang terakhir kali kita pilih. Untuk mengembalikan warna seperti semula (default) tekan tombol Restore Color.

PENUTUP Ini merupakan salah satu cara dalam hal mengubah warna secara permanent. Mungkin masih banyak lagi cara yang lain seperti menyimpan text ke dalam Registry dan lain-lain. Mudah-mudah artikel ini bermanfaat dan dapat di kembangkan lebih baik lagi. Semoga Artikel-artikel tentang VB.Net ini masih tetap saya tulis, seiring dengan berkembangnya ilmu yang saya miliki. Aminnnnnnnnnnnnnnnn





STEP XIII Membuat Aplikasi Database dengan menggunakan Vb.Net 2003 dan SQL Server 2000

Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar


I.

Pengantar Artikel ini saya buat, karena sangat banyak sekali Email yang masuk ke saya untuk membuat artikel Vb.Net dengan Sql Server sebagai database nya. Setelah sekian lama akhir nya pada artikel saya yang ke 13 ini baru dapat saya realisasikan. Untuk studi kasus pada artikel ini saya ambil dari artikel pertama saya (Step 1). Oleh karena itu tata cara penulisan dan penyampaian sangat mirip dengan step 1. Dalam artikel ini para pembaca akan, di bimbing bagaimana membuat program aplikasi sederhana dari mulai membuat Database, Table, Stored procedure pada Sql Server 2000 sampai pada pemogramannya dengan Vb.net 2003.

II.

A TIME TO MAKE PROGRAM 2.1 Desain Form

Gambar Flash Form

Gambar Form Login



Untuk membuat program seperti diatas, mari ikuti langkah-langkah dibawah ini. Sebelum kita masuk dalam pembuatan program, terlebih dahulu kita buat database pada Sql Server. Buatlah database dengan nama Coba. Ikuti langkah-langkah dibawah ini. Pada jendela SQL Server Enterprise Manager, klik kanan pada folder Database lalu pilih New Database.

Lalu akan muncul jendela Database properties. Ketikkan Coba untuk nama database yang akan kita buat. Dan klik button OK.



Setelah itu di bawah folder Database, akan terlihat database yang baru saja kita buat (Coba). Klik tanda + pada database coba, dan klik kanan pada root Table dan pilih New Table.

Gambar Desain Table Users

Buatlah field seperti gambar diatas, untuk membuat Primary Key, klik row Username lalu klik tanda kunci pada toolbar diatas. Setelah selesai klik Save untuk menyimpan design table dengan nama “Users”. Setelah selesai buat satu lagi table dengan nama Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar


TbUsaha, dengan nama field IdUsaha dan NamaUsaha (IdUsaha sebagai Primary Key nya).

Gambar Desain Table TbUsaha

Setelah selesai dalam pembuatan database, sekarang kita masuk dalam pembuatan program. Buka Aplikasi Visual Studio.Net, dan pilih New Project. Ketikan nama project sesuai dengan keinginan anda. Simpan di drive pada PC anda (Untuk drive bebas juga, sekarang jamannya hak asasi manusia, tidak ada pemaksaan). 3.1.1 Membuat StartUp Form. Untuk pertama kali, .Net akan memberikan Default sebuah form, dengan nama Form1. Sekarang tugas kita adalah merubah tampilan Form1 tersebut menjadi seperti tampilan Flash Form seperti diatas. Ubah properties Form1 seperti dibawah ini. BackColor

White

FormBorderStyle

FixedToolWindow

Text

(Kosongkan)

Name

StartUp

StartPosition

CenterScreen

ControlBox

False

ShowInTaskbar

False

Setelah selesai melakukan perubahan Form1 seperti diatas. Sekarang kita tambah aksesoris pada form StartUp. Tambahkan dua (2) buah label, 1 ProgressBar dan 1 buah PictureBox. Sehingga tampilan seperti pada gambar dibawah ini.



Desain Splash Form

Untuk gambar diatas silahkan ganti dengan gambar yang anda suka dan jika anda tidak suka dengan tampilan ini, anda dapat merubah sesuai dengan keinginan anda. Setelah selesai mendesain form, tambahkan sebuah timer dan beri nama Splash_Timer. 3.1.2 Membuat Login Form. Tambahkan sebuah Form ke dalam aplikasi. Caranya Klik Kanan Pada Project anda Pilih Add>Add Windows Form. Ganti properties Form baru tersebut seperti dibawah ini.



BackColor

LightBlue

Font+


FormBorderStyle

Fixed3D

Text

Login

Name

FrmLogin

StartPosition

CenterScreen

ControlBox

False

ShowInTaskbar

False

Tambahkan 2 buah label, 2 buah TextBox dan 2 buah Button Ubah properties dari masing-masing component seperti dibawah ini. Label 1 BackColor

LightBlue

Font+


Text

Username

Label 2 BackColor

LightBlue

Font+


Text

Password


Fixed3D

Name

txtUser


Fixed3D

Name

txtPassword

PasswordChar

*



Button1 BackColor

LightBlue

Font+


Flatstyle

Flat

Text

Login

Name

btnlogin

Button2 BackColor

LightBlue

Font+


Flatstyle

Flat

Text

Cancel

Name

btnbatal

Setelah selesai merubah properties seperti di atas, susun dan disain form seperti dibawah ini.

Gambar Desain Form Login

3.1.3 Membuat Menu Utama Sekarang kita akan membuat Form Utama, tapi untuk sementara jangan di modifikasi. Untuk saat ini kita ganti Form Name menjadi MainMenu



2.2 Source Code 2.2.1

Source Code Form Splash

Setelah kita selesai mendesain 2 buah form, sekarang waktunya kita bermain dengan source code. Pada Form splash, klik 2 kali (Double Click) component Splash_Timer . Dan ketikkan listing seperti dibawah ini. Private Sub Splash_Timer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Splash_Timer.Tick Dim cur As New frmLogin ProgressBar1.Value += 4 If ProgressBar1.Value = 100 Then Splash_Timer.Dispose() Me.Visible = False cur.Show() End If End Sub

Note : anda dapat mencoba mengubah nilai value pada progressbar. Dengan menaikkan atau mengurangi nilai value maka anda melihat perubahan progessbar berjalan, apakah semakin cepat atau lambat. Itu semua tergantung pada anda. Coba jalankan program, gmana? apakah sudah sesuai dengan yang anda inginkan ???????? 2.2.2

Source Code Form Login

Sebelum kita mulai membuat listing pada form login, terlebih dahulu kita membuat koneksi pada database. Sekarang kita akan membuat koneksi dengan memanggil Class lain untuk koneksi ke database. Sebelumnya Buat folder pada project yang anda buat (Klik kanan project>Add>New Folder) dan beri nama “AccessData”. Selanjutnya didalam Folder tersebut tambahkan Class

dengan

nama


(Klik

kanan

Folder

“AccessData”>Add>Add Class). Ketikan listing di bawah ini pada class yang baru anda buat.



Imports System.Data.SqlClient Namespace AccessData Public Class DataBaseConnection Public Function open() As SqlClient.SqlConnection 'Server = Nama dimana kita menginstall SQL server 'Database = Nama database yang akan di akses 'User ID= Account untuk SQL server, sebagai default sa (system administrator) 'Password = Password untuk login ke SQL server Dim conect As New SqlClient.SqlConnection("Server='TESTSERVER';Database='Coba'; " & _ " User ID='sa';Password='testserver'") conect.Open() Return conect End Function Public Function close() As SqlClient.SqlConnection Dim conect As New SqlClient.SqlConnection("Server='TESTSERVER';Database='Coba'; " & _ " User ID='sa';Password='testserver'") conect.Close() Return conect End Function End Class End Namespace

Note :Dengan membuat koneksi menggunakan Class, untuk setiap proses yang berhubungan dengan database anda cukup dengan memanggil nama Class tersebut, dengan mendeklarasikan Class tersebut. Contoh : Dim MyConnection As New AccessData.DatabaseConnection Setelah selesai membuat Class, selanjutnya kita akan membuat module untuk menyimpan Variable global yang sering kita gunakan dalam pembuatan program. Buat satu module caranya sama dengan membuat Class, dan beri nama “module.vb”. (Klik kanan Folder “AccessData”>Add>Add Module). Ketikan listing di bawah ini pada module yang baru anda buat.



Module _Module Public Msg As Integer Public intResponse As Integer Public Username, Password As String End Module

Setelah selesai sekarang kita kembali pada Form Login. Untuk pertama kali ketikkan listing dibawah ini pada baris paling atas. Imports System.Data Imports System.Data.SqlClient

Dan buat variable global untuk form Login ini, seperti dibawah ini. #Region "deklarasi" Dim MyConnection As New AccessData.DataBaseConnection Dim f_utama As New MainMenu Dim objConnection As SqlConnection Dim objCommand As SqlCommand Dim objDataAdapter As SqlDataAdapter Dim objdatareader As SqlDataReader Dim strSQL As String Dim objDataSet As New DataSet Dim objDataTable As New DataTable Dim mProcess As String #End Region

Ketikkan listing diatas dibawah Inherits System.Windows.Forms.Form Selanjutnya kita buat listing untuk mencari apakah Username ada pada table Users Sub CheckUser() objDataTable.Clear() StrSQL = ("SELECT * FROM [Users] WHERE [UserName] " & _ " = '" & Trim(txtuser.Text) & "' ") objCommand = New SqlCommand objCommand.Connection = MyConnection.open objCommand.CommandType = CommandType.Text objCommand.CommandText = StrSQL objDataAdapter = New SqlDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "MDT_user") objDataTable = objDataSet.Tables("MDT_user") MyConnection.close() End Sub



Fungsi dari listing adalah, mencari Username apakah ada pada table Users. Syntax SQL

("SELECT

*

FROM

[Users]

WHERE

[UserName]

=

'"

&

Trim(txtuser.Text) & "' "), Maksudnya adalah menampilkan data user dengan

criteria Username. Dan jumlah banyaknya data akan disimpan pada ObjDataTable. Kemudian ketikkan listing untuk menampilkan data users (Username,Password). Sub Find_User() objCommand = MyConnection.open.CreateCommand objCommand.CommandText = ("Select [UserName],[Password] from [Users] where [UserName]='" & Trim(txtuser.Text) + "' ") objDataReader = objCommand.ExecuteReader objDataReader.Read Username = objDataReader.Item("Username") Password = objDataReader.Item("Password") MyConnection.close() End Sub

Untuk sekilas sepertinya listing antara Sub CheckUser sama dengan Sub Find_User. Tapi pada kenyataannya fungsi dari kedua listing ini berbeda. Untuk Sub Find_User disini kita menampilkan value dari username & Password. Jika anda sudah mengerti dengan yang saya maksud, mari lanjutkan pelajaran kita. Sekarang Double Click Button Login. Ketikan Listing seperti dibawah ini.


Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click ‘untuk mengaktifkan fungsi CheckUsers CheckUsers ‘mengharuskan user memasukkan username dan password If txtuser.Text.Trim() = "" And _ txtpassword.Text.Trim() = "" Then Msg = MsgBox("Masukan Username dan Password", MsgBoxStyle.OKOnly, "Pesan") txtuser.Focus() ElseIf txtuser.Text = "" Then Msg = MsgBox("Masukan Username ", MsgBoxStyle.OKOnly, "Pesan") txtuser.Focus() ElseIf txtpassword.Text = "" Then Msg = MsgBox("Masukan password ", MsgBoxStyle.OKOnly, "Pesan") txtpassword.Focus() Else Try ‘Menghitung jumlah baris yang ada pada ObjDataTable If objDataTable.Rows.Count <= 0 Then ‘Jika jumlah baris = 0 / username tidak ada pada table Msg = MsgBox("Username tidak ada ", MsgBoxStyle.OKOnly, "Pesan") txtuser.Focus() Else ‘Jika username ada pada table / jumlah baris ObjdataTable > 0 ‘Mengaktifkan fungsi mencari nilai value Username & Password Find_User() ‘Jika Password yang diketik pada TextBox tidak sama pada Database If Password <> Trim(txtPassword.Text) Then Msg = MsgBox("Password salah!", MsgBoxStyle.OKOnly, "Pesan") txtPassword.Focus() Exit Sub Else ‘Jika Sama Me.Hide() f_utama.ShowDialog() txtuser.Text = "" txtPassword.Text = "" End If End If Catch When Err.Number <> 0 MsgBox("Tidak dapat melakukan proses" _ & vbCrLf & Err.Description) End Try End2.3 If End Sub

III.

Setelah ini Double Click button Cancel, dan ketikkan listing seperti berikut


Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click intResponse = MessageBox.Show("Are you sure want to quit ?", Me.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) If intResponse = MsgBoxResult.Yes Then End Else Exit Sub End If End Sub

Sekarang anda telah selesai membuat aplikasi yang sangat sederhana. Kalau berhasil jangan senang dulu, karena masih banyak sekali rintangan yang akan kita hadapi untuk kasus-kasus berikutnya. Bagi yang gagal jangan berkecil hati, jangan ragu dan sungkan silahkan E-Mail ke saya. Jika program yang anda buat tidak ada masalah, kita lanjutkan pelajaran kita. Sekarang mari kita modif form utama kita yang masih polos, menjadi seperti berikut :

Ubah Properties pada form utama seperti di bawah ini.



BackColor

White

FormBorderStyle

Fixed3D

BackGroundImage

Bebas mau gambar apa

Text

MainMenu

Name

MainMenu

StartPosition

CenterScreen

Icon

Bebas juga

Anda dapat memodif form sesuai dengan keinginan anda. Dan kita tambah komponen MainMenu1 dan StatusBar1 pada Form MainMenu. Buat seperti dibawah ini. File>>Exit

Inputan>>Input Usaha



Ketik listing seperti dibawah ini. Public Sub BuatPanelStatusBar() 'Membuat panel dan mengatur properti teks. StatusBar1.Panels.Add("Ready..") StatusBar1.Panels.Add("") StatusBar1.Panels.Add("") 'Mengatur properti panel StatusBar. 'Mengatur properti panel AutoSize. StatusBar1.Panels(0).AutoSize = _ StatusBarPanelAutoSize.Spring StatusBar1.Panels(1).Width = 200 StatusBar1.Panels(2).Width = 200 ' Mengatur properti panel BorderStyle. StatusBar1.Panels(0).BorderStyle = _ StatusBarPanelBorderStyle.Raised StatusBar1.Panels(1).BorderStyle = _ StatusBarPanelBorderStyle.Sunken StatusBar1.Panels(2).BorderStyle = _ StatusBarPanelBorderStyle.Sunken ' Mengatur perataan panel StatusBar1.Panels(0).Alignment = _ HorizontalAlignment.Left StatusBar1.Panels(1).Alignment = _ HorizontalAlignment.Center StatusBar1.Panels(2).Alignment = _ HorizontalAlignment.Center 'Menambahkan properti teks pada panel ketiga dengan 'tanggal(sekarang) StatusBar1.Panels(1).Text = "Selamat Datang" & " " & Username StatusBar1.Panels(2).Text = _ System.DateTime.Today.ToLongDateString() 'Mengatur properti icon pada panel ketiga StatusBar1.ShowPanels = True End Sub

Double_Click Form Utama BuatPanelStatusBar()



Setelah itu Double Click menu item Exit dan ketik listing seperti dibawah ini : End

Lalu Double Click menu item Inputan dan ketikan listing seperti dibawah ini : Dim f_usaha As New Frm_Usaha f_usaha.ShowDialog() f_usaha.Dispose()

Setelah selesai kita mendesain Form Utama (MainMenu), sekarang kita akan membuat Form Untuk Penginputan Usaha. Sekarang tambahkan sebuah form baru pada project yang kita buat. Ubah properties form seperti dibawah ini.

BackColor

LightBlue

FormBorderStyle

Fixed3D

Text

Form Usaha

Name

Frm_usaha

StartPosition

CenterScreen

ControlBox

False

ShowInTaksbar

False

Dan tambahkan 11 Button, 1 GroupBox dan 2 TextBox. Susun semua komponen seperti dibawah ini. 16 15

12

14

13 4

1

6

7

2

8


3

9

1

11


5 Dan ubah properties masing-masing komponen seperti dibawah ini : 1. BackColor

Transparent

FlatStyle

Flat

ForeColor

Black

Text

<<

TextAlign

MiddleCenter

Name

btnAwal

ShowInTaksbar

False

Untuk menghemat waktu dan tempat, properties setiap button hamper sama yang beda Cuma di nama dan text. 2. Text

<

Name

btnMundur

Text

>

Name

btnMaju

Text

>>

Name

btnAkhir

Text

F1 Add

Name

btnAdd

Text

F2 Delete

Name

btnDelete

3.

4.

5.

6.



7. Text

F3 Edit

Name

btnEdit

Text

F4 Find

Name

btnCari

Text

Save (Ctrl+S)

Name

btnSave

Text

F5 Cancel

Name

BtnCancel

Text

F6 Close

Name

btnClose

BorderStyle

Fixed3D

Name

txtID

Text

“” (Kosong)

BorderStyle

Fixed3D

Name

txtNama

Text

“”(Kosong)

8.

9.

10.

11.

12.

13.

Untuk Nomor 14-16 ganti Text pada properties sesuai pada gambar.



Jika sudah selesai mendesain form tersebut, kita akan lanjutkan membuat class untuk pemrosesan data. Buat satu class didalam folder AccessData dengan nama AccessUsaha. Tapi sebelum itu kita melakukan coding pada Class itu, hal yang harus kita lakukan adalah dengan membuat Stored Procedures di SQL Server. Ikuti langkah-langkah dibawah ini. Pada jendela Enteprise Manager klik tanda + pada database Coba, lalu di bawah nya akan terlihat Stored Procedures, klik kanan lalu New Stored Procedure. Setelah itu akan muncul jendela Stored Procedure. Dan ketikkan sintaks seperti dibawah ini. Untuk menyimpannya klik button OK, sedangkan untuk mengecek syntak dari SQL nya klik button Check Syantax. CREATE PROCEDURE [SpInsertUsaha] (@IDUsaha [varchar](3), @NamaUsaha [varchar](50)) AS INSERT INTO [TbUsaha] ( [IDUsaha], [NamaUsaha]) VALUES ( @IDUsaha, @NamaUsaha) GO Lalu buat 2 Stored Procedure dan ketikkan sintaks dibawah untuk masing-masing Stored Procedure. CREATE PROCEDURE [SpUpdateUsaha] (@IDUsaha [varchar], @NamaUsaha [varchar](50)) AS UPDATE [TbUsaha] SET [NamaUsaha] WHERE ( [IDUsaha] GO

= @NamaUsaha = @IDUsaha)

CREATE PROCEDURE [SpDeleteUsaha] (@IDUsaha [varchar]) AS DELETE [TbUsaha] WHERE ( [IDUsaha] = @IDUsaha) GO Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar


Setelah melakukan hal diatas dengan benar maka kita akan memiliki 3 Stored Procedures, seperti pada gambar dibawah ini.

Dan kita kembali pada jendela Vb.Net, pada Class AccessUsaha, ketikkan sintaks berikut. Imports System.Data Imports System.Data.SqlClient Namespace AccessData Public Class AccessUsaha Public Function AccessUsahaInsert(ByVal IDUsaha As String, _ ByVal NamaUsaha As String) As SqlDataReader Dim MyConnection As DataBaseConnection = New AccessData.DataBaseConnection Dim myCommand As SqlCommand = New SqlCommand("SpInsertUsaha", MyConnection.open) myCommand.CommandType = CommandType.StoredProcedure Dim parameterIdUsaha As SqlParameter = New SqlParameter("@IDUsaha", SqlDbType.VarChar, 3) parameterIdUsaha.Value = IDUsaha Dim parameterNamaUsaha As SqlParameter = New SqlParameter("@NamaUsaha", SqlDbType.VarChar, 50) parameterNamaUsaha.Value = NamaUsaha With myCommand.Parameters .Add(parameterIdUsaha) .Add(parameterNamaUsaha) End With Dim result As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection) Return result End Function



Public Function AccessUsahaUpdate(ByVal IDUsaha As String, ByVal NamaUsaha As String) Dim MyConnection As DataBaseConnection = New AccessData.DataBaseConnection Dim myCommand As SqlCommand = New SqlCommand("SpUpdateUsaha", MyConnection.open) myCommand.CommandType = CommandType.StoredProcedure Dim parameterIdUsaha As SqlParameter = New SqlParameter("@IDUsaha", SqlDbType.VarChar, 3) parameterIdUsaha.Value = IDUsaha Dim parameterNamaUsaha As SqlParameter = New SqlParameter("@NamaUsaha", SqlDbType.VarChar, 50) parameterNamaUsaha.Value = NamaUsaha With myCommand.Parameters .Add(parameterIdUsaha) .Add(parameterNamaUsaha) End With Dim result As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection) Return result End Function Public Function AccessUsahaDelete(ByVal IDUsaha As String) Dim MyConnection As DataBaseConnection = New AccessData.DataBaseConnection Dim myCommand As SqlCommand = New SqlCommand("SpDeleteUsaha", MyConnection.open) myCommand.CommandType = CommandType.StoredProcedure Dim parameterIdUsaha As SqlParameter = New SqlParameter("@IDUsaha", SqlDbType.VarChar, 3) parameterIdUsaha.Value = IDUsaha

With myCommand.Parameters .Add(parameterIdUsaha) End With Dim result As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection) Return result End Function End Class End Namespace



Jika sudah selesai, mari kita lanjutkan membuat program di dalam Form Usaha. Dan buat variable global form seperti dibawah ini. #Region "deklarasi" Dim MyConnection As New AccessData.DataBaseConnection Dim objConnection As SqlConnection Dim objCommand As SqlCommand Dim objDataAdapter As SqlDataAdapter Dim objdatareader As SqlDataReader Dim strSQL As String Dim objDataSet As New DataSet Dim objDataTable As New DataTable Public mProcess As String Dim mPosition As Integer #End Region

Lalu ketikan fungsi-fungsi berikut : Private Sub clear() 'Mengkosongkan isi TextBox txtID.Text = "" txtNama.Text = "" End Sub

Private Sub enabled_off() 'Menonaktifkan Textbox txtID.Enabled = False txtNama.Enabled = False End Sub Private Sub enabled_on() 'Mengaktifkan TextBox txtID.Enabled = True txtNama.Enabled = True End Sub Sub ViewData()

'Menampilkan Data IDUsaha dan Nama Usaha dengan Criteria “IDUsaha” pada masing-masing Textbox objCommand = MyConnection.open.CreateCommand objCommand.CommandText = "select * from TbUsaha " & _ " Where IDUsaha = '" & Trim(txtID.Text) & "'" objdatareader = objCommand.ExecuteReader While objdatareader.Read txtID.Text = objdatareader.Item("IDUsaha").ToString txtNama.Text = objdatareader.Item("NamaUsaha").ToString End While MyConnection.close End Sub



Sub Displaydata() Try

'Menyimpan jumlah baris Tabel “TbUsaha” pada Objdatatable objDataTable.Clear() StrSQL = "select * from TbUsaha" objCommand = New SqlCommand objCommand.Connection = MyConnection.open objCommand.CommandType = CommandType.Text objCommand.CommandText = StrSQL objDataAdapter = New SqlDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "MDT_Usaha") MyConnection.close() objDataTable = objDataSet.Tables("MDT_Usaha") Catch ex As Exception MsgBox("Tidak dapat membuat hubungan ke database" _ & vbCrLf & Err.Description) MyConnection.close()

End Try End Sub

Sub displaydata2() Try

'Menampilkan Data “IDUsaha” dan “NamaUsaha” berdasarkan posisi Baris yang dicari StrSQL = "select * from TbUsaha" objCommand = New SqlCommand objCommand.Connection = MyConnection.open objCommand.CommandType = CommandType.Text objCommand.CommandText = StrSQL objDataAdapter = New SqlDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "MDT_Usaha") MyConnection.close() objDataTable = objDataSet.Tables("MDT_Usaha") mPosition = BindingContext(objDataTable).Position With objDataTable.Rows(mPosition) txtID.Text = .Item("IDUsaha") txtNama.Text = .Item("NamaUsaha") End With Catch When Err.Number <> 0 MsgBox("Tidak dapat membuat hubungan ke database" _ & vbCrLf & Err.Description) MyConnection.close() End Try End Sub


Kuliah Berseri IlmuKomputer.Com Copyright © 2003 IlmuKomputer.Com Sub cari() Try

'untuk mengecek apakah IDUsaha yang diinputkan ada pada Tabel “TbUsaha” objDataTable.Clear() strSQL = "select * from [TbUsaha] where " & _ " IDUsaha = '" & Trim(txtID.Text) + "'" objCommand = New SqlCommand objCommand.Connection = MyConnection.open objCommand.CommandType = CommandType.Text objCommand.CommandText = strSQL objDataAdapter = New SqlDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "MDT_Usaha") MyConnection.close() objDataTable = objDataSet.Tables("MDT_Usaha") Catch When Err.Number <> 0 MsgBox("Tidak dapat membuat hubungan ke database" _ & vbCrLf & Err.Description) MyConnection.close() End Try End Sub

Double Click “btnclose” dan ketik seperti dibawah ini : objDataTable.Clear() Me.Close()

Double Click “btncancel” dan ketik seperti dibawah ini : enabled_off() clear() mProcess = "" btnsave.Enabled = False btnsave.Text = "Save"

Double Click “btnadd” dan ketik seperti dibawah ini : mProcess = "ADD" btnsave.Text = "Save Add" enabled_on() btnsave.Enabled = True txtID.Focus() clear()

Double Click “btnEdit” dan ketik seperti dibawah ini :



If mProcess <> "View" Or txtNama.Text = "" Then MsgBox("Lakukan pencarian terlebih dahulu, sebelum proses edit") Else enabled_on() txtNama.Focus() mProcess = "EDIT" btnsave.Text = "Save Edit" btnsave.Enabled = True End If

Pilih ClassName = txtNama, Seperti dibawah ini

Dan Pilih Method Name = Leave. Untuk selanjutnya penulis hanya menyebutkan ClassName dan MethodName saja, untuk visual tidak akan diberikan.

Lalu ketik seperti dibawah ini. btnsave.Focus()

Double Click Form Usaha, dan ketik seperti berikut : Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar


Try StrSQL = "Select * From TbUsaha" objCommand = New SqlDbCommand objCommand.Connection = MyConnection.open objCommand.CommandType = CommandType.Text objCommand.CommandText = StrSQL objDataAdapter = New SqlDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "MDT_Usaha") MyConnection.close() objDataTable = objDataSet.Tables("MDT_Usaha") Catch When Err.Number <> 0 MsgBox("Tidak dapat membuat hubungan ke database" _ & vbCrLf & Err.Description) End Try clear() enabled_off()

Double Click btncari, dan ketik seperti berikut : mProcess = "View" txtID.Enabled = True txtID.Focus()

Double Click btnSave, dan ketik seperti berikut :



If btnsave.Text = "Save Add" Then Try cari() If objDataTable.Rows.Count >= 1 Then MsgBox(" Kode " & "" & txtID.Text & "" & " sudah ada") txtID.Focus() ElseIf txtID.Text = "" Or txtNama.Text = "" Then MsgBox("Isikan data yang mau di Input terlebih dahulu") txtID.Focus() Else Dim mYes_No As String = MsgBox("Anda yakin data mau disimpan ?", vbYesNo) If mYes_No = vbYes Then myconnectionUsaha.AccessUsahaInsert(txtID.Text, txtNama.Text) enabled_off() btnsave.Enabled = False btnsave.Text = "Save" btnadd.Focus() Displaydata() clear() Else enabled_off() clear() btnadd.Focus() End If End If Catch When Err.Number <> 0 MsgBox("Tidak dapat melakukan proses simpan" _ & vbCrLf & Err.Description) End Try Else Try cari() If objDataTable.Rows.Count = 0 Then MsgBox(" Kode : " & "" & txtID.Text & "" & " tidak ada pada table") Else Dim mYes_No As String = MsgBox("Anda yakin data mau diupdate ?", vbYesNo) If mYes_No = vbYes Then myconnectionUsaha.AccessUsahaUpdate(txtID.Text, txtNama.Text) enabled_off() btnsave.Text = "Save" btnsave.Enabled = False btnadd.Focus() clear() Else enabled_off() clear() btnadd.Focus() End If End If Catch When Err.Number <> 0 MsgBox("Tidak dapat melakukan proses update" _ & vbCrLf & Err.Description) End Try End If objDataTable.Clear()



Pilih ClassName = txtNama Dan Pilih Method Name = KeyUp If e.KeyCode = Keys.Enter Then btnsave.PerformClick() ElseIf e.KeyCode = Keys.Escape Then btncancel.PerformClick() End If

Pilih ClassName = txtNama, Seperti dibawah ini Dan Pilih Method Name = KeyUp If mProcess = "View" Then Try cari() If objDataTable.Rows.Count = 0 Then MsgBox("Data yang dicari tidak ada") Else ViewData() btndelete.Focus() End If Catch When Err.Number <> 0 MsgBox("Tidak dapat melakukan proses pencarian" _ & vbCrLf & Err.Description) MyConnection.close() End Try End If

Double_Click btnakhir BindingContext(objDataTable).Position = objDataTable.Rows.Count - 1 displaydata2()

Double_Click btnmaju BindingContext(objDataTable).Position += 1 displaydata2()

Double_Click btnmundur BindingContext(objDataTable).Position -= 1 displaydata2()

Double_Click btnawal BindingContext(objDataTable).Position -= 1 displaydata2()



Sekarang coba anda jalankan program, apakah program sudah berjalan dengan semestinya, jika belum bisa seperti biasa…… Tentu anda akan merasa heran, kenapa pada button Add, Edit dll ada semacam shortcut. Tetapi jika digunakan shortcut-shortcut tersebut tidak bekerja. Mungkin merupaka suatu kelemahan pada VB.Net tidak menyediakan shortcut untuk component button, tidak seperti Delphi yang menyediakan shortcut untuk button . Tapi jika anda seorang programmer yang memanfaatkan kelebihan dari bahasa pemrograman, masalah itu semua akan bisa diatasi. Ok, sekarang penulis akan memberikan solusi gimana cara membuat shortcut untuk menjalankan perintah pada suatu button. Tambahkan komponen MainMenu pada Form Usaha. Lalu buat seperti berikut :

Pada masing-masing Properties MenuItem, buat Visible=False. Dan shortcut sesuai dengan button. Contoh : Untuk Button dengan Text : F1 Add, pada menu item add properties>Shortcut = F1. Dan selanjutnya..Buat sendiri ya…… ???????. Lalu coba Double_Click menu item add, dan ketik listing seperti dibawah. btnadd.PerformClick()

Untuk semua menu item buat listing seperti diatas, hanya ubah button apa yang akan diperoses. Coba jalankan program dan gunakan shortcut. Apa sudah jalan ?????? Kalau berhasil, berarti anda sudah bisa proses dasar dari database (Select, Insert, Delete & Update). Dengan begitu anda dapat mengembangkan program ini sesuai dengan keinginan anda. Untuk mendapatkan source code lengkap dapat di download pada bog saya http://junindar.blog.com . Untuk menjalankan program yang didownload. Unzip file Step By Step Menjadi Programmer Handal Dengan VB.Net XIII Junindar


tersebut. Lalu copy 2 file yang berada pada folder DB ke C:\Program Files\Microsoft SQL Server\MSSQL\Data. Lalu buka Enteprise Manager, klik kanan pada Folder Database All Tasks >> Attach Database

Lalu akan muncul jendela seperti dibawah. Dan klik button Browse disampin button Verify



Akan muncul jendela seperti diatas, lalu cari file pada path dimana kita menyimpan file DB (C:\Program Files\Microsoft SQL Server\MSSQL\Data). Setelah ketemu klik file Coba_Data.MDF dan klik button OK. Maka jendela Attach Database akan terisi sendiri seperti gambar dibawah ini.



Dan klik OK, maka didalam Folder Database di Enterprise Manager akan terdapat database baru dengan nama Coba. Setelah langkah diatas berhasil maka program yang di download juga dapat dijalankan. Username :jun Password :123

Penutup Maaf kepada para pembaca, kalau artikel ini baru saat ini dapat dirilis. Mudah-mudahan artikel ini dapat sedikit menjawab dari persoalan yang dihadapi para pembaca.





STEP XIV Pengolahan XML File Menggunakan Vb.Net I.

Pengantar Extensible Markup Language (XML) adalah bahasa markup serbaguna yang direkomendasikan W3C untuk mendeskripsikan berbagai macam data. XML menggunakan markup tags seperti halnya HTML namun penggunaannya tidak terbatas pada tampilan halaman web saja. Dan pada artikel ini penulis akan

Step By Step Menjadi Programmer Handal Dengan VB.Net XIV Junindar


mengajak para pembaca untuk membuat program dalam mengolah file XML, dari membuat file xml, manambahkan data pada file xml hingga menampilkan data dari file XML ke Datagrid pada Vb.Net. Bagaimanakah caranya?? Ayoo ikutin terus artikel ini. II.

Desain Form Buatlah Project Baru, lalu pada form yang tersedia tambahkan 3 Button dan 1 Datagrid. Lalu susun komponen-komponen tersebut seperti gambar di bawah ini.

III. Coding Double click pada button “Create XML File” dan ketikkan sintaks dibawah.



Try If File.Exists(Application.StartupPath & "\sample.xml") Then MsgBox("File xml sudah ada") Exit Sub Else Dim Writer As New XmlTextWriter(Application.StartupPath & "\Sample.xml", System.Text.Encoding.Default) ' Write XML with Indent Writer.Formatting = Formatting.Indented 'Tulis deklarasi XML Writer.WriteStartDocument(True) 'Menulis comment di file XML Writer.WriteComment("Contoh XML") ' Root Element Writer.WriteStartElement("dataset") Writer.WriteStartElement("Users") Writer.WriteElementString("Username", "aku") Writer.WriteElementString("Password", "123") Writer.WriteElementString("Joined", "21-06-2008") Writer.WriteEndElement() ' Users End Tag Writer.WriteEndElement() ' Dataset End Tag Writer.WriteEndDocument() Writer.Flush() Writer.Close() MsgBox("File xml berhasil dibuat") End If Catch ex As Exception MsgBox(ex.Message) Exit Sub End Try

Sintaks diatas adalah cara untuk membuat file XML, yang disimpan sama dengan file exe berada, dengan nama sample.xml. Dibawah ini merupakan hasil dari sintaks diatas. <Users> <Username>aku <Password>123 <Joined>21-06-2008

Lalu double click button “Add New Data” dan ketik sintaks dibawah. Step By Step Menjadi Programmer Handal Dengan VB.Net XIV Junindar


Try Dim objDataSet As New DataSet Dim objDataRow As DataRow objDataSet.ReadXml(Application.StartupPath & "\Sample.xml") 'buat baris baru pada table user objDataRow = objDataSet.Tables("Users").NewRow objDataRow("username") = "aku2" objDataRow("password") = "456" objDataRow("joined") = DateTime.Now.ToString("dd-MM-yyyy") 'Tambah baris baru pada table users baru objDataSet.Tables("users").Rows.Add(objDataRow) 'Tulis data ke file xml objDataSet.WriteXml(Application.StartupPath & "\Sample.xml") objDataSet.Clear() MsgBox("Data telah berhasil di tambah") Catch ex As Exception MsgBox(ex.Message) Exit Sub End Try

Maksud dari coding diatas adalah bagaimana kita menambah data baru untuk tag “Users” pada file sample.xml yang kita buat sebelumnya. Dan double click button “Refresh Datagrid”, ketik sintaks dibawah. Fungsi dari sintaks dibawah ini adalah bagaiman cara menampilkan data pada file xml ke dalam datagrid. Try Dim objDataSet As New DataSet objDataSet.Clear() DgXML.Refresh() objDataSet.ReadXml(Application.StartupPath & "\Sample.xml") DgXML.DataSource = objDataSet.Tables("Users") Catch ex As Exception MsgBox(ex.Message) Exit Sub End Try

Coba jalankan project dengan menekan F5, lalu coba klik button-button yang berada pada form apakah sudah berjalan dengan semestinya?



Penutup Artikel yang penulis berikan masih sangat sederhana, dan ini merupakan dasar untuk melakukan pengolahan file xml dengan vb.net. Sehingga dapat kita kembangkan menjadi program yang komplit.





STEP XV Membuat Program Compact pada Access Database I.

Pengantar Pembekakan size pada database pada MS Access pasti terjadi, Database Access mengandung banyak tabel yang membentuk sistem database. Penambahan dan penghapusan data selama pemakaian menyebabkan size dari database ini membesar. Untuk melakukan pengurangan file tersebut tersedia fasilitas Compact

Step By Step Menjadi Programmer Handal Dengan VB.Net XV Junindar


and Repair database pada MS Access. Hal itu bisa kita lakukan dengan mudah sekali. Sekarang yang menjadi pertanyaan bagaimana jika kita membuat program dengan MS Access sebagai database nya? Apakah yang harus kita lakukan. Hal yang paling baik adalah membuat fasilitas Compact tersebut pada program anda. Jadi user tidak perlu langsung membuka database program anda, apalagi jika program anda database nya di password, hal itu akan menyebabkan program menjadi lambat karena membengkaknya size database anda karena tidak bisa di compact oleh user. Melalui artikel ini penulis mengajak para pembaca untuk membuat suatu fasilitas untuk meng compact database program anda. Program sederhana dengan manfaat yang sangat besar. Sudah penasaran, ayoo kita mulai …………….. II.

Desain Form Buatlah Project Baru, lalu pada form yang tersedia tambahkan 1 Button. Lalu susun komponen-komponen tersebut seperti gambar di bawah ini.

Sebelum kita masuk ke coding, terlebih dahulu kita melakukan add reference Microsoft® Jet and Replication Objects (JRO), file library ini yang berperan dalam melakukan compact pada program ini. Caranya adalah klik kanan Root Reference di bawah nama project kita, lalu pilih add reference. Lalu keluar form Add Reference pilih tab COM. Dan cari component name Microsoft Jet and Replication Object 2.6 Library. Lalu klik button select dan OK.



III. Coding Double click pada button “Compact” dan ketikkan sintaks dibawah.



Try Dim jro As JRO.JetEngineClass Dim newConStr As String Dim ConStr As String Dim originalDB As String = "\test.mdb" Dim NewDB As String = "\BackUptest.mdb" jro = New JRO.JetEngineClass 'membuat koneksi untuk database yang original ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + originalDB + ";Jet OLEDB:Database Password=test;" 'membuat koneksi untuk meng compact database (Database backup) newConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=" + Application.StartupPath + NewDB + ";Jet OLEDB:Database Password=test;" 'compact database jro.CompactDatabase(ConStr, newConStr) 'Mengcopy database yang sudah di compact kedalam folder yang sama dengan original database 'menimpa isi dari database yang lama dengan yang baru System.IO.File.Copy(Application.StartupPath + NewDB, Application.StartupPath + originalDB, True) 'Terakhir delete database backup yang sudah di compact System.IO.File.Delete(Application.StartupPath + NewDB) MsgBox("Sukses", MsgBoxStyle.Information, "Compact") Catch ex As Exception MsgBox(ex.Message) End Try

Keterangan : ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + originalDB + ";Jet OLEDB:Database Password=test;"

Fungsi diatas adalah untuk melakukan koneksi pada file original yang memiliki size yang besar. Pada artikel ini penulis memberikan password pada database dengan password “test”, jika file yang akan di compact tidak memiliki password maka koneksi nya adalah sebagai berikut. ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + originalDB + ";"



newConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=" + Application.StartupPath + NewDB + ";Jet OLEDB:Database Password=test;"

Sedangkan untuk sintaks diatas merupakan koneksi untuk file backup (file hasil dari compact). Kita simpan pada lokasi yang sama dengan file original. Catatan : Jika pada koneksi file original menggunakan password maka pada koneksi file backup harus juga diberikan password yang sama. Dan sebaliknya. jro.CompactDatabase(ConStr, newConStr)

Mengcompact database original, dan hasilnya adalah database backup. System.IO.File.Copy(Application.StartupPath + NewDB, Application.StartupPath + originalDB, True)

Mencopy database backup hasil dari compact database original, kedalam folder yang sama dengan database original (overwrite), menimpa file lama dengan yang baru. System.IO.File.Delete(Application.StartupPath + NewDB)

Menghapus file database backup.

Coba jalankan project dengan menekan F5, untuk mengetahui berhasil atau tidak program ini. Coba cari file access yang size sudah besar, lalu copy kedalam folder bin pada program ini. Lalu tekan tombol Compact, setelah selesai cek kembali apakah size dari file tersebut berkurang. Jangan dicoba jika file Access sedang dijalankan oleh program lain. Fungsi ini dapat berjalan ketika koneksi pada file access tersebut lagi tidak ada.



Penutup Dengan adanya fasilitas ini pada program kita, secara tidak langsung kita telah membuat program yang berkualitas, karena pada program kita telah ada fasilitas untuk memaintain database pada program. Hal-hal seperti ini masih sering dilupakan oleh kita. Mudahmudahan artikel ini membantu para pembaca untuk meningkatkan kualitas program. Untuk informasi pada para pembaca, untuk seluruh artikel penulis kecuali Step 10, source code (project) dapat di download di http://junindar.blog.com . Penulis sadar artikel-artikel tersebut tanpa contoh sangat susah untuk di implementasikan.




Junindar Blog : http://junindar.blogspot.com E-Mail : [email protected] [email protected]

STEP XVI Membuat Graph Menggunakan Office Web Component 11 (OWC) I.

Pengantar Jika kita sering bekerja dengan MS excel tentu dalam hal yang membuat grapik sudah tidak ada masalah bagi kita karena sangat mudah di lakukan. Tapi bagaimana

Step By Step Menjadi Programmer Handal Dengan VB.Net XVI Junindar


jika kita mau membuat grapik pada program kita (vb.net) dengan mengambil data dari database yang ada. Sangat-sangat banyak sekali third party program (component) yang menyediakan hal ini. Tapi untuk waktu seperti ini dolar lagi tinggi untuk beli sesuatu sangat sulit. (No purchase for IT), ya itulah yang di bilang ama bos J.. Tapi sebenarnya ada component yang jarang di gunakan, bukubukunya nya pun susah dicari. Apakah nama nya? OWC = Office Web Components. Mudah-mudahan dengan artikel ini dapat membantu temen-temen yang mau belajar dalam membuat grapik pada aplikasi nya. Untuk mengetahui apa itu

OCW

silahkan

klik

http://en.wikipedia.org/wiki/Office_Web_Components

link .

Untuk

berikut mendapatkan

component ini kita harus melakukan beberapa langkah, silahkan ikuti pada link berikut http://support.microsoft.com/kb/823982 . Bagi yang buru-buru (males J ) bisa menggunakan file AxOWC11.dll, file disertakan pada folder bin berbentuk zip file didalam project. Artikel ini menggunakan Vb.Net 2003, dan juga sudah di implementasikan di Vb 2005 express. Dan project dari artikel ini tersedia pada http://junindar.blogspot.com So mari ikuti step-step dibawah ini............. II.

Desain Form Terlebih dahulu penulis berasumsi kita semua telah mengerti dalam membuat DB dengan access, jadi copy file Database pada folder Bin project yang didownload dan paste ke folder Bin pada project anda. Sebelum kita mendesain form extract file zip pada folder bin, dan simpan ke local drive. (Lebih baik sebelumnya buat folder C:\owc11, biar gampang diingat). Buatlah Project Baru dengan nama Chart, lalu klik Tools>Add/Remove ToolBox items, maka muncul jendela seperti dibawah.



Masih pada tab .Net Framework Components, klik browse dan cari file AxOWC11.dll yang telah di extract dan klik OK. Sekang pada Toolbox akan bertambah 3 komponen (AxChartSpace, AxPivotTable dan AxSpreadSheet). Dan pada form yang tersedia tambahkan 1 Combobox, 1 data grid dan 1 buah AxChartSpace1. Lalu susun komponen-komponen tersebut seperti gambar di bawah ini. Ubah name ComboBox Menjadi “CbChart”. Ubah DropdownStyle = DropDownList. Dan tambahkan Items ComboBox dengan kata 2D dan 3D.

Sekarang saat nya kita masuk ke coding.



III. Coding Buka jendela code pada form dan ketik sintaks dibawah ini. Pada baris awal jendela code. Imports Imports Imports Imports

System.Data System.Data.OleDb System.io owc11 = Microsoft.Office.Interop.Owc11

Dan untuk deklarasi ketik sintaks dibawah #Region #Region "Declaration" "Declaration" Dim Dim objConnection objConnection As As OleDbConnection OleDbConnection Dim objCommand As OleDbCommand Dim objCommand As OleDbCommand Dim Dim objDataAdapter objDataAdapter As As OleDbDataAdapter OleDbDataAdapter Dim strSQL As String Dim strSQL As String Dim Dim objDataSet objDataSet As As New New DataSet DataSet Dim objDataTable As Dim objDataTable As New New DataTable DataTable Dim Dim MyConnection MyConnection As As New New AccessData.DatabaseConnection AccessData.DatabaseConnection #End #End Region Region

Sintaks dibawah ini untuk menampilkan data pada data grid. Sub View_Data() objDataTable.Clear() strSQL = "select * from [Cat]" objCommand = New OleDbCommand objCommand.Connection = MyConnection.open objCommand.CommandType = CommandType.Text objCommand.CommandText = strSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "Mdt_Cat") MyConnection.close() objDataTable = objDataSet.Tables("Mdt_Cat") DataGrid1.DataSource = objDataTable End Sub

Sedangkan untuk membuat chart sintaks seperti dibawah ini. Penjelasan sintaks pada tulisan yang berwarna hijau.



Sub RefreshChart() View_Data() Dim a As String Dim categories(11) For i As Integer = 0 To 11 categories(i) = objDataTable.Columns(i + 1).Tostring a = objDataTable.Columns(i + 1).tostring Next Dim values(11) Dim chConstants

'Menghapus isi dari chart, seluruh chart yang lama dan exist menjadi empty 'buat 1 chart yang baru AxChartSpace1.Clear() AxChartSpace1.Charts.Add() chConstants = AxChartSpace1.Constants



'tambahkan series, secara dinamis For i As Integer = 0 To objDataTable.Rows.Count - 1 AxChartSpace1.Charts(0).SeriesCollection.Add() Next Dim MaxTotal As Integer = 0 'membuat warna dasar chart menjadi putih AxChartSpace1.Charts(0).PlotArea.Interior.Color = "White" For j As Integer = 0 To objDataTable.Rows.Count - 1 'mengeset categories series AxChartSpace1.Charts(0).SeriesCollection(j).SetData(chConstants.chDimC ategories, chConstants.chDataLiteral, categories) For i As Integer = 1 To objDataTable.Columns.Count - 1 values(i - 1) = Val(objDataTable.Rows(j).Item(i).tostring) If values(i - 1) > MaxTotal Then MaxTotal = values(i - 1) End If Next 'mengeset series value AxChartSpace1.Charts(0).SeriesCollection(j).SetData(chConstants.chDimV alues, chConstants.chDataLiteral, values) 'membuat caption AxChartSpace1.Charts(0).SeriesCollection(j).Caption = objDataTable.Rows(j).Item(0).ToString Next For i As Integer = 0 To objDataTable.Rows.Count - 1 Dim colors As String Select Case i Case 0 colors = "Red" Case 1 colors = "DarkOrange" Case 2 colors = "Cyan" Case 3 colors = "Yellow" Case 4 colors = "Red" Case 5 colors = "Black" Case 6 colors = "Navy" Case 7 colors = "SkyBlue" Case 8 colors = "SlateGray" 'selanjutnya tambah sendiri ya End Select



AxChartSpace1.Charts(0).SeriesCollection(i).Interior.Color = colors Next

If CbChart.Text = "3D" Then AxChartSpace1.Charts(0).Type = owc11.ChartChartTypeEnum.chChartTypeColumn3D End If 'Mengaktifkan Legend pada chart AxChartSpace1.Charts(0).HasLegend = True AxChartSpace1.Charts(0).Axes(1).Scaling.Maximum = MaxTotal AxChartSpace1.Charts(0).Axes(1).MajorUnit = MaxTotal / 10 AxChartSpace1.Charts(0).Axes(1).Scaling.Minimum = 0

AxChartSpace1.Charts(0).Axes(0).HasTitle = True AxChartSpace1.Charts(0).Axes(0).Title.Caption = "Month" AxChartSpace1.Charts(0).Axes(0).Title.Font.Name = "Arial" AxChartSpace1.Charts(0).Axes(0).Title.Font.Size = 9 AxChartSpace1.Charts(0).Axes(1).HasTitle = True AxChartSpace1.Charts(0).Axes(1).Title.Caption = "Category" AxChartSpace1.Charts(0).Axes(1).Title.Font.Name = "Arial" AxChartSpace1.Charts(0).Axes(1).Title.Font.Size = 9 End Sub

Kita telah selesai membuat sintaks untuk menampilkan data pada data grid dan membuat chart. Sekarang sintaks diatas dapat kita panggil pada event form load dan selected index change pada combo box. Double click form1 dan ketikkan sintaks dibawah. Try CbChart.SelectedIndex = 0 Catch ex As Exception MsgBox(ex.Message) Finally MyConnection.close() End Try

Maksud dari form ini adalah pertama kali program aktif CbChart akan menampilkan index dengan bernilai 0 yaitu 2D.



Lalu double klik CbChart, dan ketik sintaks dibawah ini Try RefreshChart() Catch ex As Exception MsgBox(ex.Message) Finally MyConnection.close() End Try

Sedangkan pada sintaks diatas, setiap kali user memilih item pada ComboBox maka program akan memanggil fungsi RefreshChart, yaitu untuk membuat chart apakah 2D atau 3D. Gambar dibawah adalah hasil dari program yang telah di running.



Penutup Mudah-mudahan artikel ini membuat kita semua menjadi bertambah pengetahuanya. Ini semua masih dasar sekali dalam pemograman OWC, jika ingin mendalaminya dapat membeli buku The O.W.C. Black Book Second Edition. Dapat dibeli di sini http://www.lulu.com/owc (bagi-bagi ya kalau udah punya J)




Junindar Blog : http://junindar.blogspot.com E-Mail : [email protected] [email protected]

STEP XVII Mengeksport Chart Ke Excel File Dengan Vb.Net I.

Pengantar Pada artikel sebelumnya saya membahas bagaimana membuat chart pada form dengan menggunakan OWC 11. Dan jika pembaca semua sudah berhasil kini saatnya untuk menerusi ker artikel ini. Bagaimana kita membuat chart pada excel file dengan vb.net (mengeksport data dari table ke excel file dan membuat chart

Step By Step Menjadi Programmer Handal Dengan VB.Net XVII Junindar


dengan data tersebut. Artikel ini menggunakan Vb.Net 2003, dan juga sudah di implementasikan di Vb 2005 express. Dan project dari artikel ini tersedia pada http://junindar.blogspot.com So mari ikuti step-step dibawah ini............. II.

Desain Form Untuk artikel ini kita bisa menggunakan project dari artikel sebelumnya, ataupun bisa dengan membuat baru. Jika membuat baru tambahkan 1 buah datagrid dan 1 buah button pada form dan design seperti ini. Ubah properties button seperti berikut. Name : btnExport Text :Export

Sebelumnya kita akan menambahkan Ms Excel interop pada project kita dengan cara sebagai berikut. Klik kanan project dan pilih Add Reference, maka jendela Add Refence akan tampil seperti dibawah.



Lalu klik tab COM dan pada component name cari dan select MS Excel 11.0 Object Library. Dan klik OK. Sekarang saat nya kita masuk ke coding.

III. Coding Buka jendela code pada form dan ketik sintaks dibawah ini. Pada baris awal jendela code. Imports Imports Imports Imports

System.Data System.Data.OleDb System.io Microsoft.Office.Interop

Dan untuk deklarasi ketik sintaks dibawah #Region "Declaration" Dim objConnection As OleDbConnection Dim objCommand As OleDbCommand Dim objDataAdapter As OleDbDataAdapter Dim strSQL As String Dim objDataSet As New DataSet Dim objDataTable As New DataTable Dim MyConnection As New AccessData.DatabaseConnection Dim AlphaNum As Integer Dim Filename, Alphabets As String Dim chkexcel As Boolean Dim oexcel As Excel.Application Dim obook As Excel.Workbook Dim osheet As Excel.Worksheet #End Region

Sintaks dibawah ini untuk menampilkan data pada data grid. Sub View_Data() objDataTable.Clear() strSQL = "select * from [Cat]" objCommand = New OleDbCommand objCommand.Connection = MyConnection.open objCommand.CommandType = CommandType.Text objCommand.CommandText = strSQL objDataAdapter = New OleDbDataAdapter(objCommand) objDataAdapter.Fill(objDataSet, "Mdt_Cat") MyConnection.close() objDataTable = objDataSet.Tables("Mdt_Cat") DataGrid1.DataSource = objDataTable End Sub



Sub Alphabet() Select Case AlphaNum Case 1 Alphabets = "A" Case 2 Alphabets = "B" Case 3 Alphabets = "C" Case 4 Alphabets = "D" Case 5 Alphabets = "E" Case 6 Alphabets = "F" Case 7 Alphabets = "G" Case 8 Alphabets = "H" Case 9 Alphabets = "I" Case 10 Alphabets = "J" Case 11 Alphabets = "K" Case 12 Alphabets = "L" Case 13 Alphabets = "M" Case 14 Alphabets = "N" Case 15 Alphabets = "O" Case 16 Alphabets = "P" Case 17 Alphabets = "Q" Case 18 Alphabets = "R" Case 19 Alphabets = "S" Case 20 Alphabets = "T" Case 21 Alphabets = "U" 'bisa disambung sendiri End Select

Sintaks diatas berfungsi untuk mengkonvert number ke string (kolom pada excel)



Sub Dbclose() 'mengecek dan tutup excel application If chkexcel = True Then osheet = Nothing oexcel.Application.DisplayAlerts = False obook.Close() oexcel.Application.DisplayAlerts = True obook = Nothing oexcel.Quit() oexcel = Nothing End If ' End End Sub

Sub Generate_Sheet() View_Data() osheet = oexcel.Worksheets(1) 'Menganti nama Sheet osheet.Name = "Excel Charts" osheet.Range("A1:AZ400").Interior.ColorIndex = 2 osheet.Range("A1").Font.Size = 12 osheet.Range("A1").Font.Bold = True osheet.Range("A1:I1").Merge() osheet.Range("A1").Value = "Excel Automation With Charts" osheet.Range("A1").EntireColumn.AutoFit() 'columns heading For i As Integer = 0 To objDataTable.Columns.Count - 1 AlphaNum = i + 1 Alphabet() osheet.Range(Alphabets & "3").Value = objDataTable.Columns.Item(i).ToString osheet.Range(Alphabets & "3").BorderAround(8) osheet.Range(Alphabets & "3").EntireColumn.AutoFit() Next 'format headings osheet.Range("A3:" & Alphabets & "3").Font.Color = RGB(255, 255, 255) osheet.Range("A3:" & Alphabets & "3").Interior.ColorIndex = 5 osheet.Range("A3:" & Alphabets & "3").Font.Bold = True osheet.Range("A3:" & Alphabets & "3").Font.Size = 10 'memasukkan data dari DB Dim R As Integer = 3 Dim x As Integer Dim a, b, c As String



For Each row As DataRow In objDataTable.Rows R = R + 1 For i As Integer = 0 To objDataTable.Columns.Count - 1 AlphaNum = i + 1 Alphabet() osheet.Range(Alphabets & R).Value = row(i).ToString osheet.Range(Alphabets & R).BorderAround(8) Next i Next 'Membuat object chart Dim oChart As Excel.Chart Dim MyCharts As Excel.ChartObjects Dim MyCharts1 As Excel.ChartObject MyCharts = osheet.ChartObjects 'mensetting lokasi chart MyCharts1 = MyCharts.Add(150, 100, 400, 250) oChart = MyCharts1.Chart 'membuat chart pada default location oChart.Location(Excel.XlChartLocation.xlLocationAsObject, osheet.Name) With oChart 'mengeset range untuk chart Dim chartRange As Excel.Range chartRange = osheet.Range("A3", Alphabets & R) .SetSourceData(chartRange) 'fungsi ini untuk mengeset bentuk dari plot, apakh kolom atau baris .PlotBy = Excel.XlRowCol.xlRows 'mensetting data label .ApplyDataLabels(Excel.XlDataLabelsType.xlDataLabelsShowNone) 'mensetting apakah legend tampil atau tidak .HasLegend = True 'mensetting lokasi legend .Legend.Position = Excel.XlLegendPosition.xlLegendPositionRight 'Pilih tipe chart .ChartType = Excel.XlChartType.xlColumnClustered 'chart title .HasTitle = True .ChartTitle.Text = "Bar Chart" Dim xlAxisCategory, xlAxisValue As Excel.Axes xlAxisCategory = CType(oChart.Axes(, Excel.XlAxisGroup.xlPrimary), Excel.Axes) xlAxisCategory.Item(Excel.XlAxisType.xlCategory).HasTitle = True xlAxisCategory.Item(Excel.XlAxisType.xlCategory).AxisTitle.Characters.Text = "Month" xlAxisValue = CType(oChart.Axes(, Excel.XlAxisGroup.xlPrimary), Excel.Axes) xlAxisValue.Item(Excel.XlAxisType.xlValue).HasTitle = True xlAxisValue.Item(Excel.XlAxisType.xlValue).AxisTitle.Characters.Text = "Category" End With End Sub



Double click form1 dan ketikkan sintaks dibawah. Try View_Data() Catch ex As Exception MsgBox(ex.Message) Finally MyConnection.close() End Try

Dan double click button export dan ketik sintaks dibawah ini Try 'Nama File dan path. file akan disimpan di mana file exe brada Filename = Application.StartupPath & "\abc.xls" 'cek apakah file exist jika iya kemudian delete untuk membuat file baru. If File.Exists(Filename) Then File.Delete(Filename) End If If Not File.Exists(Filename) Then chkexcel = False 'Membuat excel aplikasi yang baru oexcel = CreateObject("Excel.Application") 'tambahkan worbook yang baru obook = oexcel.Workbooks.Add 'mensetting application alert oexcel.Application.DisplayAlerts = True 'mengecek total sheet pada workbook Dim S As Integer = oexcel.Application.Sheets.Count() 'delete seluruh sheet kecuali sheet pertama If S > 1 Then oexcel.Application.DisplayAlerts = False Dim J As Integer = S Do While J > 1 oexcel.Application.Sheets(J).delete() J = oexcel.Application.Sheets.Count() Loop End If 'untuk mengecek session dari excel application chkexcel = True oexcel.Visible = True 'ini procedure untuk mengisi data pada excel file Generate_Sheet() 'simapn excel file obook.SaveAs(Filename) 'menutup excel object dan session osheet = Nothing oexcel.Application.DisplayAlerts = False Step By Step Menjadi Programmer Handal Dengan VB.Net XVII Junindar


oexcel.Application.DisplayAlerts = False obook.Close() oexcel.Application.DisplayAlerts = True obook = Nothing oexcel.Quit() oexcel = Nothing chkexcel = False MsgBox("Export Finished") End If Catch ex As Exception MsgBox(ex.Message) Finally MyConnection.close() Dbclose() End Try

Setelah selesai dengan coding diatas, jalankan program. Maka tampilan program seperti pada gambar diatas. Untuk mengexport ke excel file klik button export. Maka file excel akan tersimpan di mana tempat exe file berada, dengan nama abc.xls.



Penutup Mudah-mudahan artikel ini membuat kita semua menjadi bertambah pengetahuanya.

Referensi 1. www.msdn.microsoft.com 2. www.planetsourcecode.com 3. www.codeproject.com 4. www.aspnet.com Masih banyak lagi referensi yang ada di Intenet. Anda tinggal cari di www.Google.com. Dengan kata kunci “tutorial VB.Net”

Sinopsis buku “Panduan Lengkap Menjadi Programmer“ Setelah mengetahui apa itu Microsoft.NET Framework, Microsoft Visual Basic.NET, ADO.NET, Database dan Microsoft Access, dan fungsi-fungsi serta dasar penggunaannya, ternyata menjadi programmer VB.NET itu mudah! Sebab, dari dasar pengetahuan tesebut, kita sudah bisa membuat suatu program yang kita inginkan. Misalnya, membuat aplikasi toko, seperti form penjualan dan pembelian. Visual Basic.NET (VB.NET) merupakan program generasi selanjutnya dari Visual Basic. VB.NET memungkinkan kita untuk membangun aplikasi database client atau server dengan performa tinggi. Umumnya, para programmer banyak menggunakan VB.NET untuk membuat aplikasi atau program yang mereka butuhkan. Pasalnya, program ini memiliki kelebihan dan kemudahan tertentu dibandingkan dengan program-program lainnya yang sejenis. Step By Step Menjadi Programmer Handal Dengan VB.Net XVII Junindar


Selanjutnya, langkah apa saja yang mesti diketahui dan dilakukan agar kita bisa menjadi programmer VB.NET? Mediakita menerbitkan buku Panduan Lengkap Menjadi Programmer yang ditulis oleh Junindar. Buku ini berisi tutorial pembuatan program, pembuatan laporan, sampai dengan melakukan deployment program. Melalui buku ini, Anda bisa menjadi seorang programmer VB.NET yang handal. Sebab, buku ini merupakan buku yang komplit untuk mengantar seseorang dari tidak tahu apa-apa tentang VB.NET menjadi seorang programmer. Memang, saat ini, banyak sekali buku-buku tentang pemrograman VB.NET, tetapi sangat jarang yang menjelaskan secara detail tentang fungsi-fungsi dan pemrograman di dalam VB.NET. Di buku ini, secara terperinci Anda akan dibimbing bagaimana membuat database, membuat program (create program), tampilan login, menu, form, laporan, sampai dengan membuat file setup (installer). Selain itu, buku ini juga dilengkapi CD berisikan source code pembuatan program sehingga lebih memudahkan Anda dalam berlatih.

Biografi Penulis. Junindar Lahir di Tanjung Pinang, 21 Juni 1982. Menyelesaikan Program S1 pada jurusan Teknik Informatika di Sekolah Tinggi Sains dan Teknologi Indonesia (ST-INTEN-Bandung). Senang mengutak-atik

computer

yang

berkaitan

dengan

bahasa

pemrograman. Keahlian, sedikit mengerti beberapa bahasa pemrograman seperti : VB.Net, ASP.NET, VBA. Reporting : Crystal Report (Under Program). Database : Access, paradox dan SQL Server 2000. Simulation / Modeling Packages: Visio Enterprise, Rational Rose dan Power Designer. Dan senang bermain gitar, karena untuk bisa menjadi pemain gitar dan seorang programmer sama-sama membutuhkan seni. Pada saat ini bekerja di salah satu Perusahaan Swasta di BATAM sebagai Software Development. Mempunyai moto hidup : “Jauh lebih baik menjadi Orang Bodoh yang giat belajar, dari pada orang Pintar yang tidak pernah mengimplementasikan ilmunya”.

Kritik dan saran kirim ke : [email protected] [email protected] Step By Step Menjadi Programmer Handal Dengan VB.Net XVII Junindar

STEP BY STEP MENJADI PROGRAMMER HANDAL DENGAN VB.NET

Recommend Documents