Makalah Program Aplikasi Travel

PROGRAM APLIKASI TRAVEL Makalah Visual Basic.Net 2005

Disusun Oleh : Nama : Sendy Suci Lestari Nim : 10260156 Kelas : III/C

AKADEMI MANAJEMEN INFORMATIKA DAN KOMPUTER HASS BANDUNG TAHUN AJARAN 2010/2011

Kata Pengantar

Puji dan syukur kami panjatkan kepada Allah SWT yang telah memberikan ridho dan rahmatnya sehingga makalah yang berjudul Program Aplikasi Travel ini dapat selesai dengan tepat waktu. Terima kasih kami ucapkan kepada dosen mata kuliah Visual Studio 2005 Ibu Sri Kuswayati yang telah memberikan bimbingan dan juga kepada seluruh pihak yang ikut membantu dalam penyusunan makalah ini. Sebagai masyarakat awam yang ingin mengetahui bagaimana mempelajari Microsoft Visual Studio 2005, sehingga saya membuat membuat makalah makalah ini agar pembaca mudah mudah dan mengerti cara kerja sistem yang saya buat. Kami pun menyadari bahwa makalah ini masih jauh dari sempurna, maka dari itu kami mengharapkan para pembaca untuk memberikan saran dan kritik yang bersifat membangun agar kami dapat belajar lebih baik lagi sehingga makalah ini dapat tersaji menjadi ilmu yang berguna bagi siapapun yang membacanya.

Bandung, Januari 2012

Penyusun

2

Sendy Suci Lestari (10260156) | Makalah Program Aplikasi Travel

Daftar Isi

............................................................................................................... ........................ 2 Kata Pengantar ....................................................................................... Daftar

........................................................................................................................ ........................................ 3 Isi ................................................................................

............................................................................................................................ ..................................... 5 BAB I ....................................................................................... .......................................................................................................... ................... 5 PENDAHULUAN .......................................................................................

A.

.................................................................................................... .................... 5 Latar Belakang................................................................................

B.

................................................................................................................ ................................ 5 Tujuan ................................................................................

........................................................................................................................... ............................................... 6 BAB II ............................................................................ ...................................................................................... ...... 6 PERANCANGAN PROGRAM ................................................................................

A.

.................................................................................... ............................................... 6 Konsep Sistem Informasi .....................................

1)

Definisi Sistem Informasi ................................................................................ 6

2)

........................................................................................... .......................... 6 Visual Basic 2005 .................................................................

3)

............................................................................................ ............ 6 SQL Server 2005 ................................................................................

4)

........................................................................................... .......................... 7 Microsoft Access .................................................................

B.

........................................................................................... .......................... 7 Rancangan Database .................................................................

1)

................................................................................................. ................. 7 Struktur Tabel ................................................................................

2)

...................................................................................... ...... 9 Relationship Diagram................................................................................

C.

........................................................................................... .......................... 9 Rancangan Interface .................................................................

1.

.................................................................................................. ........... 9 Splash Screen .......................................................................................

2.

................................................................................................. ................. 10 Menu Utama ................................................................................

3.

........................................................................................................... ............................................................... 10 Log In ............................................

4.

............................................................................................... ............... 11 Form Pegawai ................................................................................

5.

................................................................................................. ................. 11 Form Jabatan................................................................................

6.

................................................................................................... ............ 1 2 Form Paket .......................................................................................

7.

............................................................................................. ............. 12 Form Transaksi ................................................................................

8.

............................................................................................... ............... 13 Form Member ................................................................................

D.

.................................................................................... .... 13 Coding (Kode Program) ................................................................................

1.

Coding Form Splash Screen .......................................................................... 13

2.

Coding Form Menu Utama ............................................................................ 14

3


3.

..................................................................................... ..... 17 Coding Form Log In ................................................................................

4.

................................................................................... ....... 18 Coding Form Pegawai ............................................................................

5.

.................................................................................... .... 21 Coding Form Jabatan ................................................................................

6.

....................................................................................... ....... 24 Coding Form Paket ................................................................................

7.

Coding Form Transaksi ................................................................................. 26

8.

................................................................................... ....... 31 Coding Form Member ............................................................................

........................................................................................................................ ........................................ 34 BAB III ................................................................................ ................................................................................................................... ................................... 34 PENUTUP ................................................................................

A.

....................................................................................................... ....................... 34 Kesimpulan................................................................................

B.

................................................................................................................ ......................... 34 Saran .......................................................................................

DAFTAR

................................................................................................... ............ 3 5 PUSTAKA .......................................................................................

4


BAB I PENDAHULUAN A. Latar Belakang Zaman

sekarang ini kita sebagai masyarakat yang modern haus akan informasi

karena zaman sekarang ini jika kita tidak mengikuti informasi yang terbaru kita akan menjadi orang yang tertinggal akan informasi, sehingga mulai sekarang kita harus mau mulai mencari informasi apapun itu. Setiap perusahaan sekarang ini memerlukan orang yang kompeten dalam berbagai aplikasi dalam computer sehingga kita perlu mempelajari semua aplikasi yang ada dan bisa membantu kita dalam dunia kerja nanti, dalam makalah ³Program Aplikasi Travel´ kita dapat sedikit mempelajari apa yang nama nya Microsoft Visual Studio 2005 itu dan mengenal juga sebagian data base yang telah ada.

B. Tujuan Secara umum tujuan di buat makalah ini dalam Microsoft Visual Studio 2005 yang berjudul ³Program Aplikasi Travel´ agar dapat mempermudah dan membuat mengerti pembaca yang ingin belajar mengenai aplikasi i ni.

5


BAB II PERANCANGAN PROGRAM A. Konsep Sistem Informasi 1) Definisi Sistem Informasi

Sistem informasi dapat didefinisikan sebagai suatu kumpulan data yang sudah diolah, terintegrasi dan saling melengkapi yang menghasilkan informasi yang mempunyai nilai atau berguna dalam pengambilan keputusan. Sistem informasi akuntansi pada aplikasi ini merupakan sistem informasi yang memproses data transaksi bisnis sehingga menghasilkan keluaran berupa informasi keuangan yang berguna bagi pemakainya. 2) Visual Basic 2005

Visual Basic 2005 (VB 2005) merupakan bahasa pemrograman berbasis GUI (Graphical User Interface) atau program yang memungkinkan pengguna berkomunikasi dengan komputer menggunakan gambar atau grafik. Visual Basic 2005 adalah salah satu bahasa pemrograman yang dibuat oleh microsoft corporation dan VB 2005 merupakan pengembangan dari Visual Basic 6.0 (VB6). Visual Basic 2005 merupakan bagian dari sebuah suite aplikasi pemrograman Visual Studio 2005. Visual Basic 2005 menggunakan .NET Framework 2.0. 3)

SQL Server 2005

SQL Sever 2005 merupakan salah satu jenis database database server

yang

menggunakan SQL sebagai bahasa dasar untuk mengakses databasenya. SQl Server 2005 merupakan jenis R DBMS (Relational Database Management Sistem) yang diluncurkan oleh microsoft corporation bersamaan dengan Visual Studio 2005. SQl Server 2005 merupakan pengembangan dari SQL Server 2000. Bahasa yang digunakan ol eh SQL Server 2005 adalah SQL (Structured Query Language). SQL adalah bahasa standar yang digunakan secara khusus untuk memanipulasi data, berkomunikasi dengan basisdata relasional.

6


4) Microsoft Access

Microsoft Access adalah suatu program aplikasi basis data komputer relasional yang digunakan untuk merancang, membuat dan mengolah berbagai jenis data dengan kapasitas yang b esar. Database

adalah kumpulan tabel-tabel tabel-tabel yang saling berelasi. Antar tabel

yang satu dengan yang lain saling berelasi, sehingga sering disebut basis data relasional. Relasi antar tabel dihubungkan oleh suatu key, yaitu primary key dan foreign key.

B. Rancangan Database Nama Database

: dbTravel.mdb

Keterangan

: * = Primary Key(PK)

1) Struktur Tabel

Berikut adalah struktur tabel dbTravel: Tabel Pegawai

1.

Field Name

Data Type

*NIK

Text

Nama_Pegawai

Size

Descriptions

10 Text

Nomor Induk Karyawan(PK) 30

Nama Pegawai

Alamat_Pegawai

Text

30

Alamat/Tempat tinggal Pegawai

Telepon

Text

15

Telepon Pegawai

Id_Jabatan

Text

10

Id Jabatan Pegawai

2 .

Tabel Member

Field Name

Data Type

*Id_Member

Text

Nama_Pelanggan

Size

Descriptions

10 Text

Id Member Pelanggan (PK) 30

Alamat

Text

TTL

Date/Time

Pekerjaan

Text

20

Pekerjaan Pelanggan

Telepon

Text

15

Nomor Telepon Pelanggan

3 .

50

Nama Pelanggan

Tempat Tanggal Lahir Pelanggan

Table Paket

Field Name

Data Type

*Id_Paket

Text

Alamat Pelanggan

Nama_Paket

Size

Descriptions

10 Text

Id Paket Pilihan(PK) 30

Nama Paket

7


Min_Paket

Text

Harga_Umum

Number

Decimal

Harga Umum Paket

Harga_Pelajar

Number

Decimal

Harga Pelajar Paket

4 .

255

Tabel Jabatan

Field Name

Data Type

*Id_Jabatan

Text

Size

Descriptions

10

Nama_Jabatan

5 .

Minimal banyak orang yang ngambil Paket

Id Jabatan Pegawai(PK)

Text

30

Jabatan

Tabel Transaksi

Field Name

Data Type

*No_Transaksi

Text

Tgl_Transaksi

Date/Time

Tanggal Transaksi

Tgl_Pemesanan

Date/Time

Tanggal Berangkat Pemesanan

Banyak_Pesanan

Number

Integer

Banyak nya pesanan

Total_Bayar

Number

Decimal

Total Bayar

Bayar

Number

Decimal

Membayar

Kembalian

Number

Decimal

Kembalian

Id_Member

Text

10

Id Member Pelanggan

Id_Paket

Text

10

Id Paket Pilihan

6 .

No Transaksi(PK)

Tabel Login/User Data Type

*Kode

Text Nama_User

Password

Descriptions

10

Field Name

Size

Size

Descriptions

10 Text

Text

Kode User(PK) 20

20

Nama Pengguna Untuk Login

Password

8


2) Relationship Diagram

Berikut ini adalah bentuk r elationship diagram dari dbTravel:

C. Rancangan Interface Berikut ini adalah Rancangan interface dari ³Program Aplikasi Aplikasi Travel³: T ravel³: 1. Splash Screen

9


2. Menu Utama

3.

Log In

10


4. Form Pegawai

5. Form Jabatan

11


6. Form Paket

7.

Form Transaksi

12


8. Form Member

D. Coding (Kode Program) Berikut ini merupakan coding dari setiap Form dalam ³Program Aplikasi Travel´: 1. Coding Form Splash Screen Public NotInheritable Public NotInheritable Class SplashScreen1 'TODO: This form can easily be set as the splash screen for the application by going to the "Application" tab ' of the Project Designer ("Properties" under the "Project" menu). Private Sub SplashScreen1_Load(ByVal SplashScreen1_Load(ByVal sender As Object Object,, ByVal e As System.EventArgs) Handles Me Me.Load .Load End If End Sub Private Sub MainLayoutPanel_Paint( MainLayoutPanel_Paint(ByVal ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MainLayoutPanel.Paint Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If ProgressBar1.Value If ProgressBar1.Value < 100 Then ProgressBar1.Value += 4 ElseIf ProgressBar1.Value ElseIf ProgressBar1.Value = 100 Then Timer1.Stop()

13


MDIParent1.Show() End If End Sub End Class

2. Coding Form Menu Utama Imports System.Windows.Forms Public Class MDIParent1 Private Sub ShowNewForm(ByVal ShowNewForm(ByVal sender As Object Object,, ByVal e As EventArgs) ' Create a new instance of the child form. As New New System.Windows.Forms.Form Dim ChildForm As ' Make it a child of this M DI form before showing it. ChildForm.MdiParent = Me m_ChildFormNumber += 1 ChildForm.Text = "Window " & m_ChildFormNumber ChildForm.Show() End Sub Private Sub OpenFile(ByVal OpenFile( ByVal sender As Object Object,, ByVal e As EventArgs) As New New OpenFileDialog Dim OpenFileDialog As OpenFileDialog.Initial Directory = My.Computer.FileSystem.Special My .Computer.FileSystem.Special Directories.MyDocuments OpenFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*" If (OpenFile If (OpenFileDialog.ShowDialog(Me ialog(Me)) = System.Windows.Forms.DialogResult.OK) Then Dim FileName As String = OpenFileDialog.FileName ' TODO: Add code here to open t he file. End If End Sub Private Sub SaveAsToolStripMenuItem_Click( SaveAsToolStripMenuItem_Click(ByVal ByVal sender As sender As Object Object,, ByVal e As EventArgs) As New New SaveFileDialog Dim SaveFileDialog As SaveFileDialog.Initial Directory = My.Computer.FileSystem.Special My .Computer.FileSystem.Special Directories.MyDocuments SaveFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*" If (SaveFile If (SaveFileDialog.ShowDialog(Me ialog(Me)) = System.Windows.Forms.DialogResult.OK) Then Dim FileName As String = SaveFileDialog.FileName ' TODO: Add code here to s ave the current contents of the form to a file. End If End Sub

Private Sub ExitToolsStripMenuItem_Click( ExitToolsStripMenuItem_Click(ByVal ByVal sender As Object Object,, ByVal e As EventArgs) Global.System.Windows.Forms.Application.Exit() Global .System.Windows.Forms.Application.Exit() End Sub Private Sub CutToolStripMenuItem_Click( CutToolStripMenuItem_Click(ByVal ByVal sender As Object Object,, ByVal e As EventArgs)

14


' Use My.Computer.Clipboard to insert the selected text or images i nto the clipboard End Sub Private Sub CopyToolStripMenuItem_Click( CopyToolStripMenuItem_Click(ByVal ByVal sender As Object Object,, ByVal e As EventArgs) ' Use My.Computer.Clipboard to insert the selected text or images i nto the clipboard End Sub Private Sub PasteToolStripMenuItem_Click( PasteToolStripMenuItem_Click(ByVal ByVal sender As Object Object,, ByVal e As EventArgs) 'Use My.Computer.Clipboard.GetText() or M y.Computer.Clipboard.Get Data to retrieve information from the cl ipboard. End Sub Private Sub CascadeToolStripMenuItem_Click( CascadeToolStripMenuItem_Click(ByVal ByVal sender As Object Object,, ByVal e As EventArgs) Me.LayoutMdi(MdiLayout.Cascade) Me .LayoutMdi(MdiLayout.Cascade) End Sub Private Sub TileVerticleToolStripMenuItem_Click( TileVerticleToolStripMenuItem_Click(ByVal ByVal sender As Object Object,, ByVal e As EventArgs) Me.LayoutMdi(MdiLayout.TileVertical) Me .LayoutMdi(MdiLayout.TileVertical) End Sub Private Sub TileHorizontalToolStripMenuItem_Click( TileHorizontalToolStripMenuItem_Click(ByVal ByVal sender As Object Object,, ByVal e As EventArgs) Me.LayoutMdi(MdiLayout.TileHorizontal) Me .LayoutMdi(MdiLayout.TileHorizontal) End Sub Private Sub ArrangeIconsToolStripMenuItem_Click( ArrangeIconsToolStripMenuItem_Click(ByVal ByVal sender As Object Object,, ByVal e As EventArgs) Me.LayoutMdi(MdiLayout.ArrangeIcons) Me .LayoutMdi(MdiLayout.ArrangeIcons) End Sub Private Sub CloseAllToolStripMenuItem_Click( CloseAllToolStripMenuItem_Click(ByVal ByVal sender As sender As Object Object,, ByVal e As EventArgs) ' Close all child forms of th e parent. For Each For Each ChildForm As Form In Me Me.MdiChildren .MdiChildren ChildForm.Close() Next End Sub Private m_ChildFormNumber m_ChildFormNumber As As Integer Integer = =0 Private Sub LogInToolStripMenuItem_Click( LogInToolStripMenuItem_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogInToolStripMenuItem.Click As New New FormLogin() Dim form As form.Show() End Sub Private Sub PegawaiToolStripMenuItem_Click( PegawaiToolStripMenuItem_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PegawaiToolStripMenuItem.Click As New New FmPegawai() Dim form As form.Show() End Sub

15


Private Sub JabatanToolStripMenuItem_Click( JabatanToolStripMenuItem_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JabatanToolStripMenuItem.Click Jabatan.Show() End Sub Private Sub MemberToolStripMenuItem_Click( MemberToolStripMenuItem_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MemberToolStripMenuItem.Click As New New FormPaket() Dim form As form.Show() End Sub Private Sub PemesananToolStripMenuItem_Click( PemesananToolStripMenuItem_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PemesananToolStripMenuItem.Click As New New FormTransaksi() Dim form As form.Show() End Sub Private Sub MemberToolStripMenuItem1_Click( MemberToolStripMenuItem1_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MemberToolStripMenuItem1.Click As New New FormMember() Dim form As form.Show() End Sub Private Sub ExitToolStripMenuItem1_Click( ExitToolStripMenuItem1_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem1.Click End End Sub Private Sub ExitToolStripMenuItem2_Click( ExitToolStripMenuItem2_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem2.Click End End Sub Private Sub ReportDataPegawaiToolStripMenuItem_Click( ByVal sender As sender As System.Object, ByVal e As System.EventArgs) Handles ReportDataPegawaiToolStripMenuItem.Click As New New RepDataPegawai() Dim form As form.Show() End Sub Private Sub StatusStrip_ItemClicked( StatusStrip_ItemClicked(ByVal ByVal sender As sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles StatusStrip.ItemClicked End Sub Private Sub ReportTransaskiToolStripMenuItem_Click( ReportTransaskiToolStripMenuItem_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReportTransaskiToolStripMenuItem.Click FrCRtransaksi.Show() End Sub Private Sub ExitToolStripMenuItem_Click( ExitToolStripMenuItem_Click(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click MasterToolStripMenuItem.Enabled MasterToolStripMenuItem.Enab led = False TransaksiToolStripMenuItem.Enabled TransaksiToolStripMenuItem .Enabled = False

16


ReportToolStripMenuItem.Enabled = False LogInToolStripMenuItem.Enabled LogInToolStripMenuItem.Enab led = True LogOutToolStripMenuItem.Enabled = False ReportToolStripMenuItem.Enabled = False End Sub End Class

3.

Coding Form Log In Public Class FormLogin As New New OleD b.OleD bConnection Dim KNS As As New New OleD b.OleD bDataAdapter Dim DA As As New New DataTable Dim D T, DT2 As Dim SQL, SQL2 As String Private Sub FormLogin_Load(ByVal FormLogin_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase MyBase.Load .Load PictureBox1.Enabled = True KNS.ConnectionString = "Provider=Microsoft.Jet.OLE DB.4.0; Data Source=D:\Kampus\semester 3\TRAVEL\Travel\dbTravel.mdb" End Sub Sub cari() DT.Clear() SQL = "SELECT * FROM User WHERE Kode='" & txtKode.Text & "'" = New OleD b.OleD bCommand(SQL, KNS) DA.SelectCommand = New DA.Fill(D T) End Sub Sub cari1() DT2.Clear() SQL2 = "SELECT * FROM User WHERE Nama_User='" & txtUser.Text & "'" = New OleD b.OleD bCommand(SQL, KNS) DA.SelectCommand = New DA.Fill(D T2) End Sub Sub cari2() DT2.Clear() SQL2 = "SELECT * FROM User WHERE Password='" & txtPassword.Text & "'" = New OleD b.OleD bCommand(SQL, KNS) DA.SelectCommand = New DA.Fill(D T2) End Sub Private Sub btnLogin_Click(ByVal btnLogin_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click On Error Error Resume Resume Next Next cari() cari1() cari2() If DT.Rows.Count <> 0 And txtPassword.Text = If DT2.Rows.Count <> 1 Then

DT2.Rows(0)(1)

Then

17


MessageBox.Show("AN MessageBox.Show("ANDA BERHASIL LOGIN", LOGIN", "INFORMASI" "INFORMASI",, MessageBoxButtons.OK, MessageBoxIcon.Information) MDIParent1.MasterToolStripMenuI IParent1.MasterToolStripMenuItem.Enabled tem.Enabled = True MDIParent1.TransaksiToo IParent1.TransaksiToolStripMenuItem.Enabled lStripMenuItem.Enabled = True MDIParent1.ReportToolStripMenuItem.Enab IParent1.ReportToolStripMenuItem.Enabled led = True MDIParent1.LogInToolStripMenuI IParent1.LogInToolStripMenuItem.Enabled tem.Enabled = False MDIParent1.LogOutToolStripMenuI IParent1.LogOutToolStripMenuItem.Enabled tem.Enabled = True MDIParent1.ReportToolStripMenuItem.Enab IParent1.ReportToolStripMenuItem.Enabled led = True Me.Close() Me .Close() Else MessageBox.Show("user MessageBox.Show("user atau password salah!!", salah!!", "INFORMASI" "INFORMASI",, MessageBoxButtons.OK, MessageBoxIcon.Information) txtUser.Clear() txtPassword.Clear() txtUser.Focus() End If Else MessageBox.Show("GAGAL MessageBox.Show("GAGAL LOGIN", LOGIN", "INFORMASI" "INFORMASI",, MessageBoxButtons.OK, MessageBoxIcon.Information) txtUser.Focus() End If End Sub Private Sub btnCancle_Click(ByVal btnCancle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancle.Click txtUser.Text = "" txtPassword.Text = "" txtUser.Focus() End Sub Private Sub btClose_Click(ByVal btClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btClose.Click Me.Close() Me .Close() End Sub End Class

4. Coding Form Pegawai Public Class FmPegawai Dim daJabatan As OleD b.OleD bDataAdapter Dim daPegawai As OleD b.OleD bDataAdapter As New New Dim con As OleD b.OleD bConnection(Koneksi( bConnection(Koneksi("Provider=Microsoft.Jet.OLE "Provider=Microsoft.Jet.OLE DB.4.0; Data Source=D:\Kampus\semester 3\TRAVEL\Travel\dbTravel.mdb")) 3\TRAVEL\Travel\dbTravel.mdb" )) As New New DataTable() Dim dtJabatan As As New New DataTable() Dim dtPegawai As Dim drPegawai As DataRow Dim drJabatan As DataRow Function Koneksi(ByVal Koneksi( ByVal str Database As String String)) As String Dim kalimat As String kalimat = "Provider=Microsoft.Jet.OLEDB.4.0;" kalimat &= "Data Source=" & str Database & ""

18


Return kalimat End Function Private Sub FmPegawai_Load(ByVal FmPegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase MyBase.Load .Load 'TOD O: This line of code loads data into the ' D bTravelDataSet5.Pegawai' table. You can move, or remove it, as needed. Me.PegawaiTableAdapter1.Fill( Me .PegawaiTableAdapter1.Fill(Me Me..D bTravel DataSet5.Pegawai) Dim

dc(1) As DataColumn

Try daJabatan = New = New OleD b.OleD bDataAdapter("select ataAdapter("select * from Jabatan", Jabatan" , con) daJabatan.Fill(dtJabatan) dc(0) = dtJabatan.Columns( dtJabatan.Columns( "Id_Jabatan" "Id_Jabatan")) dtJabatan.PrimaryKey = dc With lstId_Jabatan .DataSource = dtJabatan .DisplayMember isplayMember = "Id_Jabatan" .ValueMember = "Id_Jabatan" End With daPegawai = New = New OleD b.OleD bDataAdapter("select ataAdapter("select * from Pegawai", Pegawai", con) daPegawai.Fill(dtPegawai) dc(0) = dtPegawai.Columns( "NIK" "NIK")) dtPegawai.PrimaryKey = dc dgPegawai.DataSource = dtPegawai Catch errConn As OleD b.OleD bException MsgBox(errConn.Message) End Try End Sub Private Sub kosong() txtNIK.Text = "" txtNama.Text = "" txtAlamat.Text = "" txtTelepon.Text = "" txtJabatan.Text = "" txtNIK.Focus() End Sub Private Sub btClear_Click(ByVal btClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btClear.Click kosong() End Sub Private Sub btTambah_Click(ByVal btTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btTambah.Click Try = New Dim cbTambah As OleD b.OleD bCommandBuilder = New OleD b.OleD bCommandBuilder(daPegawai) drPegawai = dt Pegawai.NewRow

19


drPegawai("NIK" drPegawai("NIK")) = txtNIK.Text drPegawai("Nama_Pegawai" drPegawai("Nama_Pegawai")) = txtNama.Text drPegawai("Alamat_Pegawai" drPegawai("Alamat_Pegawai")) = txtAlamat.Text drPegawai("Telepon" drPegawai("Telepon")) = txtTelepon.Text drPegawai("Id_Jabatan" drPegawai("Id_Jabatan")) = lst Id_Jabatan.Text Id_Jabatan.Text dtPegawai.Rows.Add(drPegawai) con.Open() daPegawai.Update(dtPegawai) dtPegawai.AcceptChanges() con.Close() Catch errTambah As Exception MsgBox(errTambah.Message) End Try kosong() End Sub Private Sub btCari_Click(ByVal btCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCari.Click Try drPegawai = dtPegawai.Rows.Find(txtNIK.Text) txtNIK.Text = drPegawai("NIK" drPegawai( "NIK").ToString ).ToString txtNama.Text = drPegawai("Nama_Pegawai" drPegawai( "Nama_Pegawai").ToString ).ToString txtAlamat.Text = drPegawai("Alamat_Pegawai" drPegawai( "Alamat_Pegawai").ToString ).ToString txtTelepon.Text = drPegawai("Telepon" drPegawai( "Telepon").ToString ).ToString lstId_Jabatan.Text = drP egawai("Id_Jabatan" egawai("Id_Jabatan").ToString ).ToString Catch errCari As Exception MsgBox(errCari.Message) End Try End Sub Private Sub btHapus_Click(ByVal btHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btHapus.Click Try Dim cbhapus As OleD b.OleD bCommandBuilder = New OleD b.OleD bCommandBuilder(daPegawai) drPegawai.Delete() daPegawai.DeleteCommand = cbhapus.Get DeleteCommand daPegawai.Update(dtPegawai) dtPegawai.AcceptChanges() daPegawai.DeleteCommand.Connection.Close() Catch errHapus As Exception MsgBox(errHapus.Message)

20


End Try kosong() End Sub Private Sub btSelesai_Click(ByVal btSelesai_Click(ByVal sender As sender As System.Object, ByVal e As System.EventArgs) Handles btSelesai.Click Close() End Sub Private Sub lstId_Pegawai_SelectedIndexChanged( lstId_Pegawai_SelectedIndexChanged(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstId_Jabatan.SelectedIndexChanged Try Dim dr DatKul As DataRow dr DatKul = dtJabatan.Rows.Find(lstId_Jabatan.Text) txtJabatan.Text = dr DatKul("Nama_Jabatan" atKul("Nama_Jabatan").ToString ).ToString Catch errTampil As Exception

End Try End Sub Private Sub Button1_Click(ByVal Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try drPegawai = dtPegawai.Rows.Find(txtNIK.Text) If (txtNIK.Text If (txtNIK.Text = drPegawai("NIK" drPegawai( "NIK")) )) Then MsgBox("Nik MsgBox( "Nik Pegawai Sudah Ada") Ada" ) txtNIK.Text = "" txtNIK.Focus() Exit Sub End If Catch errCari As Exception MsgBox(errCari.Message) End Try txtNama.Focus() End Sub End Class

5. Coding Form Jabatan Public Class Jabatan Dim daJab As OleD b.OleD bDataAdapter As New New OleD b.OleD bConnection(Koneksi( bConnection(Koneksi("Provider=Microsoft.Jet.OLE "Provider=Microsoft.Jet.OLE DB.4.0; Data Dim con As Source=D:\Kampus\semester 3\TRAVEL\Travel\dbTravel.mdb")) 3\TRAVEL\Travel\dbTravel.mdb" )) As New New DataTable() Dim dtJab As Dim drJab As DataRow Function Koneksi(ByVal Koneksi( ByVal str Database As String String)) As String Dim kalimat As String

21


kalimat = "Provider=Microsoft.Jet.OLEDB.4.0;" kalimat &= "Data Source=" & str Database & "" Return kalimat End Function Private Sub Jabatan_Load(ByVal Jabatan_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase MyBase.Load .Load 'TOD O: This line of code loads data into the ' D bTravelDataSet4.Jabatan' table. You can move, or remove it, as needed. Me.JabatanTableAdapter.Fill( Me .JabatanTableAdapter.Fill(Me Me..D bTravel DataSet4.Jabatan) Dim dc(1) As DataColumn Try 'daDatKul = New OleD b.OleD bD ataAdapter("select * from Jabatan", con) daJab = New = New OleD b.OleD bDataAdapter("select ataAdapter("select * from Jabatan", Jabatan" , con) daJab.Fill(dtJab) dc(0) = dtJab.Columns("Id_Jabatan" dtJab.Columns("Id_Jabatan")) dtJab.PrimaryKey = dc dgJabatan. DataSource = dtJab Catch errConn As OleD b.OleD bException MsgBox(errConn.Message) End Try End Sub Private Sub kosong() txtId_Jabatan.Text = "" txtJabatan.Text = "" txtId_Jabatan.Focus() End Sub Private Sub btTambah_Click(ByVal btTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btTambah.Click Try = New Dim cbTambah As OleD b.OleD bCommandBuilder = New OleD b.OleD bCommandBuilder(daJab) drJab = dtJab.NewRow

drJab("Id_Jabatan" drJab("Id_Jabatan")) = txtId_Jaba t xtId_Jabatan.Text tan.Text drJab("Nama_Jabatan" drJab("Nama_Jabatan")) = txtJabatan.Text dtJab.Rows.Add(drJab) con.Open() daJab.Update(dtJab) dtJab.AcceptChanges() con.Close() Catch errTambah As Exception MsgBox(errTambah.Message) End Try kosong()

22


End Sub Private Sub btCari_Click(ByVal btCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCari.Click Try drJab = dtJab.Rows.Find(txtId_Jabatan.Text) txtId_Jabatan.Text = drJab( "Id_Jabatan" "Id_Jabatan").ToString ).ToString txtJabatan.Text = drJab("Nama_Jabatan" drJab( "Nama_Jabatan").ToString ).ToString

Catch errCari As Exception MsgBox(errCari.Message) End Try End Sub Private Sub btHapus_Click(ByVal btHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btHapus.Click Try Dim cbhapus As OleD b.OleD bCommandBuilder = New OleD b.OleD bCommandBuilder(daJab) drJab.Delete() daJab. DeleteCommand = cbhapus.GetDeleteCommand daJab.Update(dtJab) dtJab.AcceptChanges() daJab. DeleteCommand.Connection.Close() Catch errHapus As Exception MsgBox(errHapus.Message) End Try kosong() End Sub Private Sub btSelesai_Click(ByVal btSelesai_Click(ByVal sender As sender As System.Object, ByVal e As System.EventArgs) Handles btSelesai.Click Close() End Sub Private Sub Button1_Click(ByVal Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try drJab = dtJab.Rows.Find(txtId_Jabatan.Text) If (txtId_Jabatan.Text If (txtId_Jabatan.Text = drJab( "NIK" "NIK")) )) Then MsgBox("Nik MsgBox( "Nik Pegawai Sudah Ada") Ada" ) txtId_Jabatan.Text = "" txtId_Jabatan.Focus() Exit Sub End If

23


Catch errCari As Exception MsgBox(errCari.Message) End Try txtJabatan.Focus() End Sub End Class

6. Coding Form Paket Public Class FormPaket Dim daPaket As OleD b.OleD bDataAdapter As New New OleD b.OleD bConnection(Koneksi( bConnection(Koneksi("Provider=Microsoft.Jet.OLE "Provider=Microsoft.Jet.OLE DB.4.0; Data Dim con As Source=D:\Kampus\semester 3\TRAVEL\Travel\dbTravel.mdb")) 3\TRAVEL\Travel\dbTravel.mdb" )) As New New DataTable() Dim dtPaket As Dim drPaket As DataRow Function Koneksi(ByVal Koneksi( ByVal str Database As String String)) As String im kalimat As String D kalimat = "Provider=Microsoft.Jet.OLEDB.4.0;" kalimat &= "Data Source=" & str Database & "" Return kalimat End Function Private Sub btTambah_Click(ByVal btTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btTambah.Click Try = New Dim cbTambah As OleD b.OleD bCommandBuilder = New OleD b.OleD bCommandBuilder(daPaket) drPaket = dtPaket.NewRow

drPaket("Id_Paket" drPaket("Id_Paket")) = txtId_Paket.Text drPaket("Nama_Paket" drPaket("Nama_Paket")) = txtNama.Text drPaket("Min_Paket" drPaket("Min_Paket")) = txtMin.Text drPaket("Harga_Umum" drPaket("Harga_Umum")) = txt HargaUmum.Text drPaket("Harga_Pelajar" drPaket("Harga_Pelajar")) = txtHargaelajar.Text dtPaket.Rows.Add(drPaket) con.Open() daPaket.Update(dtPaket) dtPaket.AcceptChanges() con.Close() Catch errTambah As Exception MsgBox(errTambah.Message) End Try kosong() End Sub Private Sub FormPaket_Load(ByVal FormPaket_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

24


Handles MyBase MyBase.Load .Load 'TOD O: This line of code loads data into the ' D bTravelDataSet.Member' table. You can move, or remove it, as needed. Me.MemberTableAdapter.Fill( Me .MemberTableAdapter.Fill(Me Me..D bTravel DataSet.Member) Dim dc(1) As DataColumn Try 'daDatKul = New OleD b.OleD bDataAdapter("select * from Paket", con) daPaket = New = New OleD b.OleD bDataAdapter("select ataAdapter( "select * from Paket", Paket" , con) daPaket.Fill(dtPaket) dc(0) = dtPaket.Columns("Id_Paket" dtPaket.Columns( "Id_Paket")) dtPaket.PrimaryKey = dc dgPaket.DataSource = dtPaket Catch errConn As OleD b.OleD bException MsgBox(errConn.Message) End Try End Sub Private Sub kosong() txtId_Paket.Text = "" txtNama.Text = "" txtMin.Text = "" txtHargaUmum.Text txtHargaUmum.Text = "" txtHargaelajar.Text = "" txtId_Paket.Focus() End Sub Private Sub btClear_Click(ByVal btClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btClear.Click kosong() End Sub Private Sub btCari_Click(ByVal btCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCari.Click Try drPaket = dtPaket.Rows.Find(txtId_Paket.Text) txtId_Paket.Text = drPaket("Id_Paket" drPaket( "Id_Paket").ToString ).ToString txtNama.Text = drPaket("Nama_Paket" drPaket( "Nama_Paket").ToString ).ToString txtMin.Text = drPaket("Min_Paket" drPaket( "Min_Paket").ToString ).ToString txtHargaUmum.Text txtHargaUmum.Text = drPaket("Harga_Umum" drPaket( "Harga_Umum").ToString ).ToString txtHargaelajar.Text = drPaket("Harga_Pelajar" drPaket( "Harga_Pelajar").ToString ).ToString

Catch errCari As Exception MsgBox(errCari.Message) End Try End Sub Private Sub btHapus_Click(ByVal btHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btHapus.Click Try Dim cbhapus As OleD b.OleD bCommandBuilder = New

25


OleD b.OleD bCommandBuilder(daPaket) drPaket.Delete() daPaket. DeleteCommand = cbhapus.Get cbhapus.Get DeleteCommand daPaket.Update(dtPaket) dtPaket.AcceptChanges() daPaket. DeleteCommand.Connection.Close() Catch errHapus As Exception MsgBox(errHapus.Message) End Try kosong() End Sub Private Sub btSelesai_Click(ByVal btSelesai_Click(ByVal sender As sender As System.Object, ByVal e As System.EventArgs) Handles btSelesai.Click Close() End Sub

Private Sub Button1_Click(ByVal Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try drPaket = dtPaket.Rows.Find(txtId_Paket.Text) If (txtId_Paket.Text If (txtId_Paket.Text = drPaket("Id_Paket" drPaket( "Id_Paket")) )) Then MsgBox("Id MsgBox( "Id Paket Sudah Ada") Ada" ) txtId_Paket.Text = "" txtId_Paket.Focus() Exit Sub End If Catch errCari As Exception MsgBox(errCari.Message) End Try txtNama.Focus() End Sub End Class

7.

Coding Form Transaksi Public Class FormTransaksi Dim daTransaksi As OleD b.OleD bDataAdapter Dim daPaket As OleD b.OleD bDataAdapter daMember As OleD b.OleD bDataAdapter Dim daMember As As New New OleD b.OleD bConnection(Koneksi( bConnection(Koneksi("Provider=Microsoft.Jet.OLE "Provider=Microsoft.Jet.OLE DB.4.0; Data Dim con As Source=D:\Kampus\semester 3\TRAVEL\Travel\dbTravel.mdb")) 3\TRAVEL\Travel\dbTravel.mdb" )) As New New DataTable() Dim dtTransaksi As As New New DataTable() Dim dtPaket As dtMember As New New DataTable() Dim dtMember As Dim drTransaksi As DataRow

26


Dim

drPaket As DataRow drMember As DataRow Function Koneksi(ByVal Koneksi( ByVal str Database As String String)) As String Dim kalimat As String kalimat = "Provider=Microsoft.Jet.OLEDB.4.0;" kalimat &= "Data Source=" & str Database & "" Return kalimat End Function Dim

Private Sub btTambah_Click(ByVal btTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btTambah.Click Try = New Dim cbTambah As OleD b.OleD bCommandBuilder = New OleD b.OleD bCommandBuilder(daTransaksi) drTransaksi = dtTransaksi.NewRow

drTransaksi("No_Transaksi" drTransaksi("No_Transaksi")) = txtNo_Transaksi.Text drTransaksi("Tgl_Transaksi" drTransaksi("Tgl_Transaksi")) = DateTimePicker1.Value drTransaksi("Tgl_Pemesanan" drTransaksi("Tgl_Pemesanan")) = DateTimePicker2.Value drTransaksi("Banyak_Pesanan" drTransaksi("Banyak_Pesanan")) = txtB_Pesanan.Text drTransaksi("Total_Bayar" drTransaksi("Total_Bayar")) = txtTotBayar.Text drTransaksi("Bayar" drTransaksi("Bayar")) = txtBayar.Text drTransaksi("Kembalian" drTransaksi("Kembalian")) = txt Kembalian.Text drTransaksi("Id_Member" drTransaksi("Id_Member")) = cbId_Member.Text drTransaksi("Id_Paket" drTransaksi("Id_Paket")) = cbId_Paket.Text dtTransaksi.Rows.Add(drTransaksi) con.Open() daTransaksi.Update(dtTransaksi) dtTransaksi.AcceptChanges() con.Close() Catch errTambah As Exception MsgBox(errTambah.Message) End Try kosong() End Sub Private Sub FormTransaksi_Load(ByVal FormTransaksi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase MyBase.Load .Load 'TOD O: This line of code loads data into the ' D bTravelDataSet.Jabatan' table. You can move, or remove it, as needed. Me.JabatanTableAdapter.Fill( Me .JabatanTableAdapter.Fill(Me Me..D bTravel DataSet.Jabatan) Dim dc(1) As DataColumn Try daMember = New = New OleD b.OleD bDataAdapter("select ataAdapter("select * from Member", Member" , con) daMember.Fill(dtMember) dc(0) = dtMember.Columns("Id_Member" dtMember.Columns( "Id_Member"))

27


dtMember.PrimaryKey = dc With cbId_Member .DataSource = dtMember .DisplayMember isplayMember = "Id_Member" .ValueMember = "Id_Member" End With daPaket = New = New OleD b.OleD bDataAdapter("select ataAdapter( "select * from Paket", Paket" , con) daPaket.Fill(dtPaket) dc(0) = dtPaket.Columns("Id_Paket" dtPaket.Columns( "Id_Paket")) dtPaket.PrimaryKey = dc With cbId_Paket .DataSource = dtPaket .DisplayMember isplayMember = "Id_Paket" .ValueMember = "Id_Paket" End With daTransaksi = New = New OleD b.OleD bDataAdapter("select ataAdapter( "select * from Transaksi", Transaksi", con) daTransaksi.Fill(dtTransaksi) dc(0) = dtTransaksi.Columns("NIK" dtTransaksi.Columns("NIK")) dtTransaksi.PrimaryKey = dc dgTransaksi.DataSource = dt Transaksi Catch errConn As OleD b.OleD bException MsgBox(errConn.Message) End Try End Sub Private Sub kosong() txtNo_Transaksi.Text = "" txtNama_Pelanggan.Textt = "" txtNama_Pelanggan.Tex txtNama.Text = "" txtH_Paket.Text = "" txtB_Pesanan.Text = "" txtTotBayar.Text = "" txtBayar.Text = "" txtKembalian.Text = "" txtNo_Transaksi.Focus() End Sub Private Sub btClear_Click(ByVal btClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btClear.Click kosong() End Sub Private Sub btCari_Click(ByVal btCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCari.Click Try drTransaksi = dtTransaksi.Rows.Find(txtNo_Transaksi.Text) txtNo_Transaksi.Text = "" txtNo_Transaksi.Text = drTransaksi("No_Transaksi" drTransaksi( "No_Transaksi").ToString ).ToString drTransaksi( "Tgl_Transaksi").ToString ).ToString DateTimePicker1.Text = drTransaksi("Tgl_Transaksi" drTransaksi( "Tgl_Pemesanan").ToString ).ToString DateTimePicker2.Text = drTransaksi("Tgl_Pemesanan"

28


txtB_Pesanan.Text = drTransaksi("Banyak_Pemesanan" drTransaksi( "Banyak_Pemesanan").ToString ).ToString txtTotBayar.Text = drTransaksi("Total_Bayar" drTransaksi( "Total_Bayar").ToString ).ToString txtBayar.Text = drTransaksi("Bayar" drTransaksi( "Bayar").ToString ).ToString txtKembalian.Text = drTransaksi("Kembalian" drTransaksi( "Kembalian").ToString ).ToString cbId_Member.Text cbId_Member.Text = drTransaksi("Id_Member" drTransaksi( "Id_Member").ToString ).ToString cbId_Paket.Text = drTransaksi("Id_Paket" drTransaksi( "Id_Paket").ToString ).ToString Catch errCari As Exception MsgBox(errCari.Message) End Try End Sub Private Sub btHapus_Click(ByVal btHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btHapus.Click Try Dim cbhapus As OleD b.OleD bCommandBuilder = New OleD b.OleD bCommandBuilder(daTransaksi) drTransaksi.Delete() daTransaksi.DeleteCommand = cbhapus.Get DeleteCommand daTransaksi.Update(dtTransaksi) dtTransaksi.AcceptChanges() daTransaksi.DeleteCommand.Connection.Close() Catch errHapus As Exception MsgBox(errHapus.Message) End Try kosong() End Sub Private Sub cbId_Member_SelectedIndexChanged( cbId_Member_SelectedIndexChanged(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbId_Member.SelectedIndexChanged Try Dim drMember As DataRow drMember = dtMember.Rows.Find(cbId_Member.Text) txtNama_Pelanggan.Textt = drMember( "Nama_Pelanggan" txtNama_Pelanggan.Tex "Nama_Pelanggan").ToString ).ToString Catch errTampil As Exception End Try End Sub Private Sub cbId_Paket_SelectedIndexChanged( cbId_Paket_SelectedIndexChanged(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbId_Paket.SelectedIndexChanged Try Dim drPaket As DataRow drPaket = dtPaket.Rows.Find(cbId_Paket.Text) txtNama.Text = drPaket("Nama_Paket" drPaket( "Nama_Paket").ToString ).ToString

29


cbJ_Paket.Text = drPaket("Harga_Pelajar" drPaket( "Harga_Pelajar").ToString ).ToString cbHUmum.Text = drPaket("Harga_Umum" drPaket( "Harga_Umum").ToString ).ToString Catch errTampil As Exception End Try End Sub

Private Sub btSelesai_Click(ByVal btSelesai_Click(ByVal sender As sender As System.Object, ByVal e As System.EventArgs) Handles btSelesai.Click Close() End Sub Private Sub btHitung_Click(ByVal btHitung_Click( ByVal sender As sender As System.Object, ByVal e As System.EventArgs) Handles btHitung.Click Dim

total, HargaPaket, banyak As banyak As Integer HargaPaket = Val(txtH_Paket.Text) banyak = Val(txtB_Pesanan.Text) total = Val(txtTotBayar.Text) total = HargaPaket * banyak txtTotBayar.Text = total End Sub Private Sub btPilih_Click(ByVal btPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btPilih.Click If MsgBox( If MsgBox("Apakah "Apakah akan memilih harga umum ?", ?" , vbYesNo + vbQuestion) = vbYes Then txtH_Paket.Text = cbHUmum.Text Else txtH_Paket.Text = cbJ_Paket.Text End If End Sub

Private Sub txtBayar_TextChanged( txtBayar_TextChanged(ByVal ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBayar.TextChanged bayar As Integer Dim kembalian, total, bayar As total = Val(txtTotBayar.Text) bayar = Val(txtBayar.Text) kembalian = bayar - total txtKembalian.Text = kembalian End Sub Private Sub Button1_Click(ByVal Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btBatal.Click txtH_Paket.Text = "" End Sub End Class

30


8. Coding Form Member Public Class FormMember daMember As OleD b.OleD bDataAdapter Dim daMember As As New New OleD b.OleD bConnection(Koneksi( bConnection(Koneksi("Provider=Microsoft.Jet.OLE "Provider=Microsoft.Jet.OLE DB.4.0; Data Dim con As Source=D:\Kampus\semester 3\TRAVEL\Travel\dbTravel.mdb")) 3\TRAVEL\Travel\dbTravel.mdb" )) dtMember As New New DataTable() Dim dtMember As Dim drMember As DataRow Function Koneksi(ByVal Koneksi( ByVal str Database As String String)) As String Dim kalimat As String kalimat = "Provider=Microsoft.Jet.OLEDB.4.0;" kalimat &= "Data Source=" & str Database & "" Return kalimat End Function Private Sub FormMember_Load(ByVal FormMember_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase MyBase.Load .Load 'TOD O: This line of code loads data into the ' D bTravelDataSet.Member' table. You can move, or remove it, as needed. Me.MemberTableAdapter.Fill( Me .MemberTableAdapter.Fill(Me Me..D bTravel DataSet.Member) Dim dc(1) As DataColumn Try 'daDatKul = New OleD b.OleD bDataAdapter("select * from Member", con) daMember = New = New OleD b.OleD bDataAdapter("select ataAdapter("select * from Member", Member" , con) daMember.Fill(dtMember) dc(0) = dtMember.Columns("Id_Member" dtMember.Columns( "Id_Member")) dtMember.PrimaryKey = dc dgMember. DataSource = dtMember Catch errConn As OleD b.OleD bException MsgBox(errConn.Message) End Try End Sub Private Sub btTambah_Click(ByVal btTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btTambah.Click Try = New Dim cbTambah As OleD b.OleD bCommandBuilder = New OleD b.OleD bCommandBuilder(daMember) drMember = dtMember.NewRow

drMember("Id_Member" drMember("Id_Member")) = txtId_Member.Text drMember("Nama_Pelanggan" drMember("Nama_Pelanggan")) = txtNama_Pelanggan.Text t xtNama_Pelanggan.Text drMember("Alamat" drMember("Alamat")) = txtAlamat.Text drMember("TTL" drMember("TTL")) = txtTTL.Text drMember("Pekerjaan" drMember("Pekerjaan")) = txtPekerjaan.Text drMember("Telepon" drMember("Telepon")) = txtTelepon.Text dtMember.Rows.Add(drMember) con.Open() daMember.Update(dtMember) dtMember.AcceptChanges()

31


con.Close() Catch errTambah As Exception MsgBox(errTambah.Message) End Try kosong() End Sub Private Sub kosong() txtId_Member.Text = "" txtNama_Pelanggan.Textt = "" txtNama_Pelanggan.Tex txtAlamat.Text = "" txtTTL.Text = "" txtPekerjaan.Text = "" txtTelepon.Text = "" txtId_Member.Focus() End Sub Private Sub btClear_Click(ByVal btClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btClear.Click kosong() End Sub Private Sub btCari_Click(ByVal btCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCari.Click Try drMember = dtMember.Rows.Find(txtId_Member.Text) txtId_Member.Text = drMember( "Id_Member" "Id_Member").ToString ).ToString txtNama_Pelanggan.Textt = drMember( "Nama_Pelanggan" txtNama_Pelanggan.Tex "Nama_Pelanggan").ToString ).ToString txtAlamat.Text = drMember("Alamat" drMember( "Alamat").ToString ).ToString txtTTL.Text = drMember("TTL" drMember( "TTL").ToString ).ToString txtPekerjaan.Text = drMember( "Pekerjaan" "Pekerjaan").ToString ).ToString txtTelepon.Text = drMember( "Telepon" "Telepon").ToString ).ToString

Catch errCari As Exception MsgBox(errCari.Message) End Try End Sub Private Sub btHapus_Click(ByVal btHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btHapus.Click Try Dim cbhapus As OleD b.OleD bCommandBuilder = New OleD b.OleD bCommandBuilder(daMember) drMember.Delete() daMember. DeleteCommand = cbhapus.Get DeleteCommand daMember.Update(dtMember) dtMember.AcceptChanges()

32


daMember. DeleteCommand.Connection.Close() Catch errHapus As Exception MsgBox(errHapus.Message) End Try kosong() End Sub Private Sub btSelesai_Click(ByVal btSelesai_Click(ByVal sender As sender As System.Object, ByVal e As System.EventArgs) Handles btSelesai.Click Close() End Sub

Private Sub Button1_Click(ByVal Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try drMember = dtMember.Rows.Find(txtId_Member.Text) If (txtId_Member.Text If (txtId_Member.Text = drMember( "Id_Member" "Id_Member")) )) Then MsgBox("Id MsgBox( "Id Member Sudah Ada") Ada" ) txtId_Member.Text = "" txtId_Member.Focus() Exit Sub End If Catch errCari As Exception MsgBox(errCari.Message) End Try txtNama_Pelanggan.Focus() End Sub End Class

33


BAB III PENUTUP A. Kesimpulan Secara umum tujuan di buat makalah ini dalam Microsoft Visual Studio 2005 yang berjudul ³Program Aplikasi Travel´ agar dapat mempermudah dan membuat mengerti pembaca yang ingin belajar mengenai aplikasi ini.

B. Saran -

semoga Diharapkan semoga

makalah ini

ber berguna guna untu ntuk

orang rang yang ang

ing ingin

memp memp elajari Microsof icrosof t Visual sual Studi udi o 2005. -

Diharapkan Me Men ngerti gerti dan memaha memaham mi Data Base yang ang telah disediakan sediakan dalam alam Micr Microsof osof t Vi sual sual Stusi usio.

-

Makalah

ini

dirancang irancang

agar

memp memp ermudah mudah

pembaca embaca

yang ang

ing ingin

memp memp elajariny lajarinya

34


DAFTAR PUSTAKA www.googlle. www.goog e.ccom

35


Makalah Program Aplikasi Travel

Recommend Documents