MAKALAH APLIKASI INVENTARIS

APLIKASI INVENTARIS MAKALAH Disusun untuk melengkapi tugas Mata kuliah Pemrograman Database (VB.Net 2005) Dosen Sri Kuswayati, S.Si.

Oleh Tri Cahyo Prasetyo 104060036

STMIK JABAR SEKOLAH SEKOLAH TINGGI TINGGI M ANAJEMEN ANAJEMEN INFORMATIKA DAN KOMPUTER JAWA BARAT Jl. Soekarno-Hatta No. 775-777 775-777 Telp.Fax. (022)73351 (022)7335108, 08, 734747 7 3474775 75 Bandung Bandung 40293 4 0293 Jl. Cisaranten Kulon No. 140 Soekarno –  Soekarno – Hatta Hatta Bandung 40293 http://www.stmik-jabar.ac.id

email: [email protected]

KATA PENGANTAR Puji dan syukur syukur kita k ita panjatkan kehadirat Tuhan Yang Maha Esa, karena berkat rahmat dan hidayah Nya penulis dapat menyelesaikan makalah ini dengan Teknik Pemrograman Objek Objek dengan Visual Studio 2005 yang ber judu judull ´PRO ´PROGRAM GRAM APLIKASI PENGGAJIAN´. PENGGAJIAN´. Penyelesaian makalah ini tidak terlepas dari bantuan berbagai pihak. Oleh karena itu dengan kerendahan kere ndahan hati penulis penul is mengucapkan mengucapka n terim ter imaa kasih kepada : 1. Dosen pembimbing pembimbing yang yan g telah banyak memberi member i saran sa ran dan masukan tentang tenta ng tugas. 2. Kedua orang tua yang yang mendukung mendukung baik secara sec ara moril moril maupun mate materil. ril. 3. Sahabat penulis yang selalu se lalu menyemangati menyema ngati dan selalu se lalu menemani meneman i disaat disaa t penulis membutuhkan dukungan. Penuli Pe nuliss

menyadari masih banyak kekurangan dan masih jauh dari kesempurnaa kesempurnaan n

dalam makalah yang penulis buat ini, untuk itu penulis mengharapkan kritik dan saran dari teman- teman untuk menyempurnakan makalah ini.

Semoga Semoga Makalah ini bermanfaat bagi ba gi pembaca pembaca sekalian. sekalian.

Bandung, 17 Juni 2012

Tri Cahyo Prasetyo

BAB I PENDAHULUAN

A. Latar belakang Microsoft berkonsentrasi dalam mengembangkan Microsoft .NET Framework  2.0, dan tentunya alat bantu untuk untuk membangun program program di atasnya. atas nya. Hingga pada tahun 2005, mereka p un merilis vers versii terbaru terbar u dari dar i Visual Basic.NET, yang kali ini disebut dengan Visual Basic 2005 bersama sama

deng de ngaa n

beberapa

(dengan

membuang

kata

".NET"),

aplikas ap likasii pengembang pengemba ngaa n la innya.

Untuk rilis 2005 ini, Microsoft menambahkan beberapa fitur baru, di antaranya adalah: a.  Edit and Continue Cont inue

Fitur ini sebelumnya terdapat di dalam Visual Basic akan tetapi dihapus di dalam Visual Basic .N . N ET. ET. Dengan De ngan keberadaa n fitur ini, para programme progra mmerr dapat memod memodifikasi ifikasi kode kod e pada saat p rogram d ieksekus i dan melanjutkan p roses eksekusi deng de ngaa n kode yang telah tela h d imodifikasi tersebut. Evaluas Evaluas i ekspresi ekspres i pada saat waktu desain. b. Munculnya Pseudo-NameSpace "My", yang menyediakan:

o Akses

yang

mudah

terhadap

beberapa

area

tertentu

dari

dalam

.NET Framework yang tanpanya membutuhkan kode yang sangat signifikan.

o Kelas-kelas yang dibuat secara dinamis (khususnya My.Forms). c. Peningkatan yang dilakukan terhadap konverter kode sumber dari Visual

Basic ke Visu Vis ual Basic Basic .NET. d. Penggunaan kata kunci ( keyword ) Using, yang menyederhanakan penggunaan

objek- objek yang membutuhkan pola Dispose untuk membebaskan sumber daya

yang sudah tidak terpakai. e.  Just My Code, yang menyembunyikan kode reusable yang ditulis oleh alat

bantu Interg Inter grated Development Developme nt Environment (IDE) (ID E) Visu Vis ual Studio .NET.  f.

Pengikatan

sumber

data

( Data

Source

binding),

yang

mampu

mempermudah pengembangan aplikasi Basis Data berbasis Klien/Server.

FungsiFungsi- fungsi fungsi

ya ng terseb terseb ut di atas (khususnya M y) d itujuka itujukan n untuk  untuk 

memfokuska memfoku skan n Visual Basic apli ap likasi kasi

secara

cepat

.NET

sebagai

sebuah

platf plat form or m

pengemba ngan

dan da n "menjau "menjauh hkannya" ka nnya" dari da ri bah ba hasa C#.

B . Manfaat o Memberi informasi kepada pembaca mengenai bahasa pemrograman Visual Basic

o Makalah

ini

diharapkan

menjadi

sumbangan

pe mikiran bagi

pa ra

pembaca untuk untuk mengembangkan mengemba ngkan bahasa pemrograman pe mrograman dimasa sekarang.

C . Tujuan o Untuk memenuhi tugas Tehnik Pemrograman. o

Untuk memberi pengetahuan kepada pembaca tentang bahasa pemograman Visual Basi Bas ic 2005.

BAB II PERANCANGAN PROGRAM

Pembahasan 1.1 Definisi Sistem Operasi Sistem informasi dapat didefinisikan sebagai suatu kumpulan data yang sudah dio dio lah, terintegra ter integrasi si

dan da n

saling

melengkapi ele ngkapi

yang

me nghasilkan nghasilka n

informasi

yang mempunyai nilai atau berguna be rguna da lam pengambilan kep utusan. S istem informasi infor masi akunta ak untansi nsi

pada

aplikas i

ini

mer merupakan upakan

si s is tem

informasi infor masi

yang ya ng

memproses memproses data transak transaksi si bisnis bis nis sehingga menghasilkan keluaran ke luaran berupa informasi keuangan yang berguna bagi pemakainya.

1.2 Pengertian Visual Basic 2005 Visual

Basic

2005

adalah

salah

satu

bahasa

pemrograman

yang

ditargetkan dal da la m .NET Framework. Seperti Sepe rti bahasa seha se hariri-ha hari, ri, Visual Vis ual Basic memilik memilik i sintaks dan beberapa kata-kata kata -kata yan yang g valid yang b isa digunaka n dal da lam memb memb uat aplikasi aplikas i. Visual Vis ual Basic merupaka n p ilihan ilihan yang popul pop uler er bagi ba gi yang mulai mulai bel be lajar

pemrogr pemro grama aman n

karena

sintaks

penulisa pe nulisan n kodeny kode nyaa begitu be gitu mudah

dibandingkan dengan bahasa pemrograman yang lain.

1.3 Kelebihan Kelebihan dan kekuran kek uranga gan n Visual Visual Basic 2005 Kelebihan : 1. Pengguna

dengan

dasar

pemrograman

apapun

bisa

dengan

mudah menggunakan. 2. Ketika

kita

melakukan

instalasi

program

lain

yang

mendukung

penggunaannya dalam VB, VB, maka komponen dar i pro gram tersebut te rsebut bisa b isa di masukkan dalam da lam daftar komponen VB. 3. Ketika

kita

melakukan

kesalahan

penulisan

kode,

VB

secara

otomatis membe memberitahu ritahuiny inyaa dan tidak t idak per lu bersusah oa yah mencarinya lagi dalam da lam list code.

Kekurangan : 1. Sifat Komersial. 2. File VB sering menjadi target serangan virus. 3. Dokumentasi sebenarnya

le ngkap

dalam da lam MSDN, namun untuk untuk instalasi

MSDN membutuhkan biaya dan space hardisk yang besar.

1.4 Pen Pe ngertian ge rtian Microsoft Microsoft Access 2000 Microsoft Access merupakan salah satu software pengolah database yang berjalan dibawah sistem windows. Microsoft Access merupakan salah satu produk produk O ffice ffice da ri Mi M icrosoft croso ft yang dapat dapa t men me na ngan nganii database de ngan skala besar maupun kecil kec il.. Dalam Dala m peng pen go lahan database, Microsoft Microso ft Access ini memiliki emi liki sarana atau objek- objek yang dapat mempermudah pekerjaan bagi pengguna.

Microsoft 2000 mer upakan

Access salah

2000 satu

yang

untuk

selanjutnya

program progra m aplikasi ap likasi basis

disingkat

Access

data (database)

paling

lengkap dan canggih untuk untuk saat ini, yang digunaka n untuk unt uk mera mera ncang, ncang, membuat dan mengelol engelo la database

secara

lebih

muda mudah h.

Sof So ftware

Access

2000

pada

umumnya umumnya tergabung dalam paket software software Mi M icrosoft Offi O ffice ce 2000 yang ters tersim impan pan dalam CD-ROM .

1.5 Kelebihan Kelebihan dan Kekuran Kek uranga gan n Microsoft Microsoft Access 2000 Kelebihan : Salah satu keunggul keun ggulan an Microsoft Microso ft Access d ilihat ilihat dari perspektif perspek tif programmer adalah

kompatibilitasnya

dengan

bahasa

pemrograman

Structured

Query

Language (SQL). Para pengguna dapat mencampurkan dan menggunakan kedua jenis bahasa bahasa tersebut terseb ut (VBA ( VBA dan Macro) untuk untuk memprogr empro gram am form da n logika dan juga untuk mengaplikasikan konsep berorientasi objek.

Kekurangan : Microsoft Access kurang begitu bagus jika diakses melalui jaringan sehingga aplikasi-aplikasi yang digunakan oleh banyak pengguna cenderung menggunakan solusi sistem manajemen basis data yang bersifat klien atau server.

2.1 Rancangan Rancangan Database Nama Database Datab ase

: Database. Datab ase.m mdb

2.1.1 Tabel login

2.1.2 Tabel Ta bel Pemegang Pemegang

2.1.3 Tabel Aset Non Bergerak

2.1.4 Tabel Ta bel Aset Bergerak

2.1.5 Tabel Rekap Aset Bergerak

2.1.6 Tabel Ase t Rekap Non Bergerak

2.1.7 Tabel Rekap Aset Komputer

2.1.8 Tabel Kontrol Kontrol Kompu Ko mpute terr

2.1.9 Tabel Kontrol Aset Kandaraan

2.10 Tabel Relationship Diagram

2.2 Racangan Aplikasi Berikut adalah a dalah rancangan aplikasi dari “Aplikasi inventaris” 2.2.1 Splash screen

Source Code Splash Screen: Public NotInheritable Class Opening Private Sub Opening_Load( ByVal sender As Object Object, , ByVal e As System.EventArgs) Handles Me Me.Load .Load Timer1.Start() End Sub

Private Sub Timer1_Tick_( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If ProgressBar1.Value < 100 Then ProgressBar1.Value += 5 ElseIf ProgressBar1.Value = 100 Then Timer1.Stop() Me.Hide() Me .Hide() HOME.Show() End If End Sub End Class

2.2.2 Form Login

Source Code Form Login: Imports System.Data.OleDb Public Class LOGIN Private Sub Login_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase MyBase.Load .Load Call Koneksi() End Sub

Sub bersih() userlogin.Text = "" passlogin.Text = "" End Sub Private Sub OK_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click If userlogin.Text = "" Or passlogin.Text = "" Then MsgBox("Mohon MsgBox( "Mohon untuk melengkapi semuanya" ) userlogin.Focus() Else cmd = New OleDbCommand( "select * from formpassuser where Nama = '" & userlogin.Text & "' and Pasword = '" & passlogin.Text & "'", "'" , con) rd = cmd.ExecuteReader rd.Read() If rd.HasRows Then Me.Visible Me .Visible = False HOME.Show() HOME.panel1.Text = rd.Item( "Nama" "Nama") ) HOME.panel2.Text = rd.Item( "Status" "Status") ) If HOME.panel2.Text <> "ADMIN" Then HOME.PilihanToolStripMenuItem.Enabled = False HOME.KontrolAsetToolStripMenuItem.Enabled = False Else HOME.PilihanToolStripMenuItem.Enabled = True HOME.KontrolAsetToolStripMenuItem.Enabled = True End If Else MsgBox("Password MsgBox( "Password Atau Username Salah,Silakan Ulangi") Ulangi" ) userlogin.Focus() bersih() End If End If End Sub Private Sub Cancel_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click Me.Close() Me .Close() End Sub End Class

2.2.3 Form Menu Utama

Source Code Menu Utama: Imports System.Windows.Forms Public Class HOME Private Sub ShowNewForm( ByVal sender As Object Object, , ByVal e As EventArgs) ' Create a new instance of the child form. Dim ChildForm As New System.Windows.Forms.Form ' Make it a child of this MDI form before showing it. ChildForm.MdiParent = Me m_ChildFormNumber += 1 ChildForm.Text = "Window " & m_ChildFormNumber ChildForm.Show() End Sub Private Sub OpenFile( ByVal sender As Object Object, , ByVal e As EventArgs) Dim OpenFileDialog As New OpenFileDialog OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments My .Computer.FileSystem.SpecialDirectories.MyDocuments OpenFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"

If (OpenFileDialog.ShowDialog( Me Me) ) = System.Windows.Forms.DialogResult.OK) Then Dim FileName As String = OpenFileDialog.FileName ' TODO: Add code here to open the file. End If End Sub Private Sub SaveAsToolStripMenuItem_Click( ByVal sender As Object , ByVal e As EventArgs) Object, Dim SaveFileDialog As New SaveFileDialog SaveFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments My .Computer.FileSystem.SpecialDirectories.MyDocuments SaveFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*" If (SaveFileDialog.ShowDialog( Me Me) ) = System.Windows.Forms.DialogResult.OK) Then Dim FileName As String = SaveFileDialog.FileName ' TODO: Add code here to save the current contents of the form to a file. End If End Sub

Private Sub ExitToolsStripMenuItem_Click( 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( ByVal sender As Object Object, , ByVal e As EventArgs) ' Use My.Computer.Clipboard to insert the selected text or images into the clipboard End Sub Private Sub CopyToolStripMenuItem_Click( ByVal sender As Object Object, , ByVal e As EventArgs) ' Use My.Computer.Clipboard to insert the selected text or images into the clipboard End Sub Private Sub PasteToolStripMenuItem_Click( ByVal sender As Object Object, , ByVal e As EventArgs) 'Use My.Computer.Clipboard.GetText() or My.Computer.Clipboard.GetData to retrieve information from the clipboard. End Sub

Private Sub CascadeToolStripMenuItem_Click( ByVal sender As Object, Object , ByVal e As EventArgs)

Me.LayoutMdi(MdiLayout.Cascade) Me .LayoutMdi(MdiLayout.Cascade) End Sub Private Sub TileVerticleToolStripMenuItem_Click( ByVal sender As Object, Object , ByVal e As EventArgs) Me.LayoutMdi(MdiLayout.TileVertical) Me .LayoutMdi(MdiLayout.TileVertical) End Sub Private Sub TileHorizontalToolStripMenuItem_Click( ByVal sender As Object Object, , ByVal e As EventArgs) Me.LayoutMdi(MdiLayout.TileHorizontal) Me .LayoutMdi(MdiLayout.TileHorizontal) End Sub Private Sub ArrangeIconsToolStripMenuItem_Click( ByVal sender As Object , ByVal e As EventArgs) Object, Me.LayoutMdi(MdiLayout.ArrangeIcons) Me .LayoutMdi(MdiLayout.ArrangeIcons) End Sub Private Sub CloseAllToolStripMenuItem_Click( ByVal sender As Object, Object , ByVal e As EventArgs) ' Close all child forms of the parent. For Each ChildForm As Form In Me Me.MdiChildren .MdiChildren ChildForm.Close() Next End Sub Private m_ChildFormNumber As Integer = 0 Private Sub BergerakToolStripMenuItem_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BergerakToolStripMenuItem.Click Form6.MdiParent = Me Form6.Show() End Sub Private Sub PemegangToolStripMenuItem_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PemegangToolStripMenuItem.Click Form2.MdiParent = Me Form2.Show() End Sub Private Sub BergerakToolStripMenuItem1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BergerakToolStripMenuItem1.Click Form3.MdiParent = Me Form3.Show() End Sub Private Sub InputUserToolStripMenuItem_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InputUserToolStripMenuItem.Click

Form4.MdiParent = Me Form4.Show() End Sub Private Sub EditPasswordToolStripMenuItem_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditPasswordToolStripMenuItem.Click Form7.MdiParent = Me Form7.Show() End Sub Private Sub KomputerToolStripMenuItem_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KomputerToolStripMenuItem.Click Form8.MdiParent = Me Form8.Show() End Sub Private Sub NonBergerakToolStripMenuItem1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NonBergerakToolStripMenuItem1.Click Form9.MdiParent = Me Form9.Show() End Sub Private Sub KomputerToolStripMenuItem1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KomputerToolStripMenuItem1.Click Form10.MdiParent = Me Form10.Show() End Sub Private Sub KendaraanToolStripMenuItem_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KendaraanToolStripMenuItem.Click Form5.MdiParent = Me Form5.Show() End Sub Private Sub NonBergerakToolStripMenuItem_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NonBergerakToolStripMenuItem.Click Form1.MdiParent = Me Form1.Show() End Sub Private Sub ExitToolStripMenuItem_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click If MessageBox.Show( "Anda yakin ingin Keluar dari Aplikasi?" , "", "" , MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then Form1.Close()

Form2.Close() Form3.Close() Form4.Close() Form5.Close() Form6.Close() Form7.Close() Form8.Close() Form9.Close() Form10.Close() Form11.Close() LOGIN.Close() Me.Close() Me .Close() End If End Sub Private Sub BergerakToolStripMenuItem2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BergerakToolStripMenuItem2.Click kontrol.ReportFileName = "rekapb.rpt" kontrol.WindowState = Crystal.WindowStateConstants.crptMaximized kontrol.RetrieveDataFiles() kontrol.Action = 1 End Sub Private Sub NonBergerakToolStripMenuItem2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NonBergerakToolStripMenuItem2.Click rekap.ReportFileName = "rekapnb.rpt" rekap.WindowState = Crystal.WindowStateConstants.crptMaximized rekap.RetrieveDataFiles() rekap.Action = 1 End Sub Private Sub BergerakToolStripMenuItem3_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BergerakToolStripMenuItem3.Click rekap.ReportFileName = "asetb.rpt" rekap.WindowState = Crystal.WindowStateConstants.crptMaximized rekap.RetrieveDataFiles() rekap.Action = 1 End Sub Private Sub NonBergerakToolStripMenuItem3_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NonBergerakToolStripMenuItem3.Click rekap.ReportFileName = "asetnb.rpt" rekap.WindowState = Crystal.WindowStateConstants.crptMaximized

rekap.RetrieveDataFiles() rekap.Action = 1 End Sub Private Sub KendaraanToolStripMenuItem1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KendaraanToolStripMenuItem1.Click kontrol.ReportFileName = "kontrolkend.rpt" kontrol.WindowState = Crystal.WindowStateConstants.crptMaximized kontrol.RetrieveDataFiles() kontrol.Action = 1 End Sub Private Sub VersionToolStripMenuItem_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VersionToolStripMenuItem.Click Form11.Show() End Sub Private Sub KomputerToolStripMenuItem3_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KomputerToolStripMenuItem3.Click kontrol.ReportFileName = "kontrolkom.rpt" kontrol.WindowState = Crystal.WindowStateConstants.crptMaximized kontrol.RetrieveDataFiles() kontrol.Action = 1 End Sub Private Sub KomputerToolStripMenuItem2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KomputerToolStripMenuItem2.Click kontrol.ReportFileName = "rekapkomputer.rpt" kontrol.WindowState = Crystal.WindowStateConstants.crptMaximized kontrol.RetrieveDataFiles() kontrol.Action = 1 End Sub End Class

2.2.4 Form Aset Bergerak

Source Code Form Aset Bergerak: Imports System.Data.OleDb Public Class Form1

Dim daaset As OleDb.OleDbDataAdapter Dim con As New OleDb.OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Tri Cahyo Prasetyo\My Documents\Visual Studio 2005\Projects\AplikasiSekretariat\AplikasiSekretariat\bin\Debug\Data base.mdb") base.mdb" ) Dim dtaset As New DataTable() Dim draset As DataRow

Function Koneksi(ByVal Koneksi( ByVal strDatabase As String String) ) As String Dim kalimat As String kalimat = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Tri Cahyo Prasetyo\My Documents\Visual Studio 2005\Projects\AplikasiSekretariat\AplikasiSekretariat\bin\Debug\Data base.mdb" kalimat &= "Data Source=" & strDatabase & "" Return kalimat End Function

Sub bersih() kdaset.Text = "" jnaset.Text = "" mraset.Text = "" sraset.Text = "" btaset.Text = "" kdaset.Focus() End Sub

Private Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase MyBase.Load .Load Dim dc(1) As DataColumn Try

daaset = New OleDb.OleDbDataAdapter( "select * from formaset", formaset" , con) daaset.Fill(dtaset) dc(0) = dtaset.Columns( "Kd_Aset" "Kd_Aset") ) dtaset.PrimaryKey = dc dgaset.DataSource = dtaset Catch errConn As OleDb.OleDbException MsgBox(errConn.Message) End Try End Sub Private Sub saveaset_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles saveaset.Click If kdaset.Text = "" Or jnaset.Text = "" Or mraset.Text = "" Or sraset.Text = "" Or btaset.Text = "" Then MsgBox("Database MsgBox( "Database Belum Lengkap" ) kdaset.Focus() Else Try Dim cbTambah As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(daaset) draset = dtaset.NewRow()

draset("Kd_Aset" draset( "Kd_Aset" ) = kdaset.Text draset("Jenis" draset( "Jenis") ) = jnaset.Text draset("Merk" draset( "Merk") ) = mraset.Text draset("Seri" draset( "Seri") ) = sraset.Text draset("Bentuk" draset( "Bentuk") ) = btaset.Text dtaset.Rows.Add(draset) con.Open()

daaset.Update(dtaset) dtaset.AcceptChanges() con.Close() MsgBox("database MsgBox( "database berhasil tersimpan" ) Catch errTambah As Exception MsgBox(errTambah.Message) End Try End If kdaset.Focus() bersih() End Sub Private Sub btlaset_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btlaset.Click kdaset.Text = "" jnaset.Text = "" mraset.Text = "" sraset.Text = "" btaset.Text = "" kdaset.Focus() End Sub Private Sub craset_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles craset.Click Try draset = dtaset.Rows.Find(kdaset.Text) kdaset.Text jnaset.Text mraset.Text sraset.Text btaset.Text

= = = = =

draset( "Kd_Aset" "Kd_Aset").ToString ).ToString draset( "Jenis" "Jenis").ToString ).ToString draset( "Merk" "Merk").ToString ).ToString draset( "Seri" "Seri").ToString ).ToString draset( "Bentuk" "Bentuk").ToString ).ToString

MsgBox("Database MsgBox( "Database ditemukan" ) Catch errCari As Exception MsgBox("Database MsgBox( "Database tidak ditemukan" ) End Try

End Sub Private Sub delaset_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles delaset.Click If MessageBox.Show( "Anda yakin ingin menghapus Database ini?", ini?" , "" "", , MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then

Try Dim cbhapus As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(daaset) draset.Delete() daaset.DeleteCommand = cbhapus.GetDeleteCommand daaset.Update(dtaset) dtaset.AcceptChanges() daaset.DeleteCommand.Connection.Close() MsgBox("Database MsgBox( "Database berhasil dihapus" ) Catch errHapus As Exception MsgBox(errHapus.Message) End Try End If bersih() kdaset.Focus() End Sub Private Sub changeaset_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles changeaset.Click If MessageBox.Show( "Anda yakin untuk mengubah Database ini?", ini?" , "" "", , MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then Try Dim cbEdit As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(daaset)

draset("Kd_Aset" draset( "Kd_Aset" ) = kdaset.Text draset("Jenis" draset( "Jenis") ) = jnaset.Text draset("Merk" draset( "Merk") ) = mraset.Text draset("Seri" draset( "Seri") ) = sraset.Text draset("Bentuk" draset( "Bentuk") ) = btaset.Text con.Open() daaset.Update(dtaset) dtaset.AcceptChanges() con.Close() MsgBox("Database MsgBox( "Database Berhasil Diubah" ) Catch errEdit As Exception MsgBox(errEdit.Message) End Try kdaset.Focus() bersih()

End If End Sub End Class

2.2.5 Form Aset Ase t Non Bergerak Bergerak

Source Code Form Aset Bergerak: Public Class Form6 Dim daasetb As OleDb.OleDbDataAdapter Dim con As New OleDb.OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Tri Cahyo Prasetyo\My Documents\Visual Studio 2005\Projects\AplikasiSekretariat\AplikasiSekretariat\bin\Debug\Data base.mdb") base.mdb" ) Dim dtasetb As New DataTable() Dim drasetb As DataRow Function Koneksi(ByVal Koneksi( ByVal strDatabase As String String) ) As String Dim kalimat As String kalimat = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Tri Cahyo Prasetyo\My Documents\Visual Studio 2005\Projects\AplikasiSekretariat\AplikasiSekretariat\bin\Debug\Data base.mdb" kalimat &= "Data Source=" & strDatabase & "" Return kalimat End Function

Sub bersih() kdasetb.Text = "" jnasetb.Text = "" mrasetb.Text = "" srasetb.Text = "" btasetb.Text = "" kdasetb.Focus() End Sub Private Sub Form6_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase MyBase.Load .Load Dim dc(1) As DataColumn Try

daasetb = New OleDb.OleDbDataAdapter( "select * from formasetbergerak" , con) daasetb.Fill(dtasetb) dc(0) = dtasetb.Columns( "kd_aset" "kd_aset") ) dtasetb.PrimaryKey = dc dgasetb.DataSource = dtasetb Catch errConn As OleDb.OleDbException MsgBox(errConn.Message) End Try End Sub Private Sub saveasetb_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles saveasetb.Click If kdasetb.Text = "" Or jnasetb.Text = "" Or mrasetb.Text = "" Or srasetb.Text = "" Or btasetb.Text = "" Then MsgBox("Database MsgBox( "Database belum lengkap" ) kdasetb.Focus() Else Try Dim cbTambah As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(daasetb) drasetb = dtasetb.NewRow

drasetb( "kd_aset" "kd_aset") ) = kdasetb.Text drasetb( "Jenis_kendaraan" ) = jnasetb.Text drasetb( "Merk_kendaraan" ) = mrasetb.Text drasetb( "Model_kendaraan" ) = srasetb.Text drasetb( "Bentuk_kendaraan" ) = btasetb.Text dtasetb.Rows.Add(drasetb) con.Open() daasetb.Update(dtasetb) dtasetb.AcceptChanges()

con.Close() MsgBox("Database MsgBox( "Database berhasil tersimpan" ) Catch errTambah As Exception MsgBox(errTambah.Message) End Try End If bersih() kdasetb.Focus() End Sub Private Sub btlasetb_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btlasetb.Click kdasetb.Text = "" jnasetb.Text = "" mrasetb.Text = "" srasetb.Text = "" btasetb.Text = "" kdasetb.Focus() End Sub Private Sub crasetb_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles crasetb.Click Try drasetb = dtasetb.Rows.Find(kdasetb.Text) kdasetb.Text jnasetb.Text mrasetb.Text srasetb.Text btasetb.Text

= = = = =

drasetb( "kd_aset" "kd_aset").ToString ).ToString drasetb( "Jenis_kendaraan" ).ToString drasetb( "Merk_kendaraan" ).ToString drasetb( "Model_kendaraan" ).ToString drasetb( "Bentuk_kendaraan" ).ToString

MsgBox("Database MsgBox( "Database berhasil ditemukan" ) Catch errCari As Exception MsgBox(errCari.Message) End Try End Sub Private Sub delasetb_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles delasetb.Click If MessageBox.Show( "Anda yakin ingin menghapus Database ini?", ini?" , "" "", , MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then Try Dim cbhapus As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(daasetb) drasetb.Delete()

daasetb.DeleteCommand = cbhapus.GetDeleteCommand daasetb.Update(dtasetb) dtasetb.AcceptChanges() daasetb.DeleteCommand.Connection.Close() MsgBox("Database MsgBox( "Database berhasil dihapus" ) Catch errHapus As Exception MsgBox(errHapus.Message) End Try End If bersih() kdasetb.Focus() End Sub Private Sub changeasetb_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles changeasetb.Click If MessageBox.Show( "Anda yakin untuk mengubah Database ini?", ini?" , "" "", , MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then Try Dim cbEdit As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(daasetb)

drasetb( "kd_aset" "kd_aset") ) = kdasetb.Text drasetb( "Jenis_kendaraan" ) = jnasetb.Text drasetb( "Merk_kendaraan" ) = mrasetb.Text drasetb( "Model_kendaraan" ) = srasetb.Text drasetb( "Bentuk_kendaraan" ) = btasetb.Text con.Open() daasetb.Update(dtasetb) dtasetb.AcceptChanges() con.Close() MsgBox("Database MsgBox( "Database Berhasil Diubah" ) Catch errEdit As Exception MsgBox(errEdit.Message) End Try bersih() kdasetb.Focus() End If End Sub End Class

2.2.6 Form Rekap Aset Ase t Bergerak

Source Code Form Rekap Aset Bergerak:

Public Class Form3 Dim darkp As OleDb.OleDbDataAdapter Dim daasetb As OleDb.OleDbDataAdapter Dim dapeg As OleDb.OleDbDataAdapter Dim con As New OleDb.OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Tri Cahyo Prasetyo\My Documents\Visual Studio 2005\Projects\AplikasiSekretariat\AplikasiSekretariat\bin\Debug\Data base.mdb") base.mdb" ) Dim dtrkp As New DataTable() Dim dtasetb As New DataTable() Dim dtpeg As New DataTable() Dim drrkp As DataRow Dim drasetb As DataRow Dim drpeg As DataRow Function Koneksi(ByVal Koneksi( ByVal strDatabase As String String) ) Dim kalimat As String kalimat = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Tri Cahyo Prasetyo\My Documents\Visual Studio 2005\Projects\AplikasiSekretariat\AplikasiSekretariat\bin\Debug\Data base.mdb"

kalimat &= "" & strDatabase & "" Return kalimat End Function Private Sub Form3_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase MyBase.Load .Load Dim dc(1) As DataColumn Try daasetb = New OleDb.OleDbDataAdapter( "select * from formasetbergerak" , con) daasetb.Fill(dtasetb) dc(0) = dtasetb.Columns( "kd_aset" "kd_aset") ) dtasetb.PrimaryKey = dc With kdasetrkp .DataSource = dtasetb .DisplayMember = "kd_aset" .ValueMember = "kd_aset" End With dapeg = New OleDb.OleDbDataAdapter( "select * from formpemegang" , con) dapeg.Fill(dtpeg) dc(0) = dtpeg.Columns( "Kd_pemegang" ) dtpeg.PrimaryKey = dc With kdpegangrkp .DataSource = dtpeg .DisplayMember = "Kd_pemegang" .ValueMember = "Kd_pemegang" End With

darkp = New OleDb.OleDbDataAdapter( "select * from formrekapaset" , con) darkp.Fill(dtrkp) dc(0) = dtrkp.Columns( "Kd_Rekap" ) dtrkp.PrimaryKey = dc dgrkp.DataSource = dtrkp Catch errConn As OleDb.OleDbException MsgBox(errConn.Message) End Try End Sub Private Sub saverkp_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles saverkp.Click If norkp.Text = "" Or kdasetrkp.Text = "" Or kdpegangrkp.Text = "" Or tglrkp.Text = "" Or hrgrkp.Text = "" Or nopolrkp.Text = "" Or stnkrkp.Text = "" Or mesrkp.Text = "" Or bpkbrkp.Text = "" Or kondisirkp.Text = "" Then

MsgBox("Rekap MsgBox( "Rekap belum Lengkap" ) norkp.Focus() Else Try Dim cbTambah As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(darkp) drrkp = dtrkp.NewRow drrkp("Kd_Rekap" drrkp( "Kd_Rekap" ) = norkp.Text drrkp("Kd_Aset" drrkp( "Kd_Aset" ) = kdasetrkp.Text drrkp("Kd_Pemegang" drrkp( "Kd_Pemegang" ) = kdpegangrkp.Text drrkp("Tgl_Beli" drrkp( "Tgl_Beli" ) = tglrkp.Text drrkp("Harga" drrkp( "Harga") ) = hrgrkp.Text drrkp("Warna" drrkp( "Warna") ) = wrnrkp.Text drrkp("No_Polisi" drrkp( "No_Polisi" ) = nopolrkp.Text drrkp("Masa_STNK" drrkp( "Masa_STNK" ) = stnkrkp.Text drrkp("No_Mesin" drrkp( "No_Mesin" ) = mesrkp.Text drrkp("BPKB" drrkp( "BPKB") ) = bpkbrkp.Text drrkp("Kondisi" drrkp( "Kondisi" ) = kondisirkp.Text dtrkp.Rows.Add(drrkp) con.Open() darkp.Update(dtrkp) dtrkp.AcceptChanges() con.Close() MsgBox("Rekap MsgBox( "Rekap berhasil tersimpan" ) Catch errTambah As Exception MsgBox(errTambah.Message) End Try End If norkp.Focus() kosong() End Sub Sub kosong() norkp.Text = "" tglrkp.Text = "" hrgrkp.Text = "" wrnrkp.Text = "" nopolrkp.Text = "" stnkrkp.Text = "" mesrkp.Text = "" bpkbrkp.Text = "" kondisirkp.Text = "" End Sub

Private Sub changerkp_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles changerkp.Click If MessageBox.Show( "Anda yakin untuk mengubah Rekap ini?" , "", "" , MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then Try Dim cbEdit As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(darkp)

drrkp("Kd_Rekap" drrkp( "Kd_Rekap" ) = norkp.Text drrkp("Kd_Aset" drrkp( "Kd_Aset" ) = kdasetrkp.Text drrkp("kd_Pemegang" drrkp( "kd_Pemegang" ) = kdpegangrkp.Text drrkp("Tgl_Beli" drrkp( "Tgl_Beli" ) = tglrkp.Text drrkp("Harga" drrkp( "Harga") ) = hrgrkp.Text drrkp("Warna" drrkp( "Warna") ) = wrnrkp.Text drrkp("No_Polisi" drrkp( "No_Polisi" ) = nopolrkp.Text drrkp("Masa_STNK" drrkp( "Masa_STNK" ) = stnkrkp.Text drrkp("No_Mesin" drrkp( "No_Mesin" ) = mesrkp.Text drrkp("BPKB" drrkp( "BPKB") ) = bpkbrkp.Text drrkp("Kondisi" drrkp( "Kondisi" ) = kondisirkp.Text con.Open() darkp.Update(dtrkp) dtrkp.AcceptChanges() con.Close() MsgBox("Database MsgBox( "Database Berhasil Diubah" ) Catch errEdit As Exception MsgBox(errEdit.Message) End Try End If kosong() norkp.Focus() End Sub Private Sub kdasetrkp_SelectedIndexChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdasetrkp.SelectedIndexChanged Try Dim drasetb As DataRow drasetb = dtasetb.Rows.Find(kdasetrkp.Text) jnaset2.Text = drasetb( "Jenis_kendaraan" ).ToString mraset2.Text = drasetb( "Merk_kendaraan" ).ToString sraset2.Text = drasetb( "Model_kendaraan" ).ToString Catch errTampil As Exception

End Try End Sub Private Sub kdpegangrkp_SelectedIndexChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdpegangrkp.SelectedIndexChanged Try Dim drpeg As DataRow drpeg = dtpeg.Rows.Find(kdpegangrkp.Text) nama2.Text = drpeg( "Nama" "Nama").ToString ).ToString jabatan2.Text = drpeg( "Jabatan" ).ToString struktur2.Text = drpeg( "Struktur" "Struktur").ToString ).ToString Catch errTampil As Exception

End Try End Sub Private Sub cancelrkp_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cancelrkp.Click norkp.Text = "" tglrkp.Text = "" hrgrkp.Text = "" wrnrkp.Text = "" nopolrkp.Text = "" stnkrkp.Text = "" mesrkp.Text = "" bpkbrkp.Text = "" kondisirkp.Text = "" norkp.Focus() End Sub Private Sub searchrkp_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles searchrkp.Click Try drrkp = dtrkp.Rows.Find(norkp.Text) norkp.Text = drrkp( "Kd_Rekap" "Kd_Rekap").ToString ).ToString kdasetrkp.Text = drrkp( "Kd_Aset" "Kd_Aset").ToString ).ToString kdpegangrkp.Text = drrkp( "Kd_Pemegang" ).ToString tglrkp.Text = drrkp( "Tgl_Beli" "Tgl_Beli").ToString ).ToString hrgrkp.Text = drrkp( "Harga" "Harga").ToString ).ToString wrnrkp.Text = drrkp( "Warna" "Warna").ToString ).ToString nopolrkp.Text = drrkp( "No_Polisi" ).ToString stnkrkp.Text = drrkp( "Masa_STNK" ).ToString mesrkp.Text = drrkp( "No_mesin" "No_mesin").ToString ).ToString bpkbrkp.Text = drrkp( "BPKB" "BPKB").ToString ).ToString kondisirkp.Text = drrkp( "Kondisi" "Kondisi").ToString ).ToString

MsgBox("Rekap MsgBox( "Rekap Ditemukan" ) Catch errCari As Exception MsgBox(errCari.Message) End Try End Sub Private Sub deleterkp_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deleterkp.Click If MessageBox.Show( "Anda yakin untuk menghapus Rekap ini?" , "", "" , MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then Try Dim cbhapus As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(darkp) drrkp.Delete() darkp.DeleteCommand = cbhapus.GetDeleteCommand darkp.Update(dtrkp) dtrkp.AcceptChanges() darkp.DeleteCommand.Connection.Close() MsgBox("Rekap MsgBox( "Rekap berhasil dihapus" ) Catch errHapus As Exception MsgBox(errHapus.Message) End Try End If norkp.Focus() kosong() End Sub End Class

2.2.7 Form Rekap Aset Ase t Non Bergerak

Source Code Form Rekap Aset Non Bergerak:

Public Class Form9 Dim darekapnb As OleDb.OleDbDataAdapter Dim daaset As OleDb.OleDbDataAdapter Dim dapeg As OleDb.OleDbDataAdapter Dim con As New OleDb.OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Tri Cahyo Prasetyo\My Documents\Visual Studio 2005\Projects\AplikasiSekretariat\AplikasiSekretariat\bin\Debug\Data base.mdb") base.mdb" ) Dim dtrekapnb As New DataTable() Dim dtaset As New DataTable() Dim dtpeg As New DataTable() Dim drrekapnb As DataRow Dim draset As DataRow Dim drpeg As DataRow Function Koneksi(ByVal Koneksi( ByVal strDatabase As String String) ) Dim kalimat As String kalimat = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Tri Cahyo Prasetyo\My Documents\Visual Studio 2005\Projects\AplikasiSekretariat\AplikasiSekretariat\bin\Debug\Data base.mdb"

kalimat &= "" & strDatabase & "" Return kalimat End Function Private Sub saverekapnb_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles saverekapnb.Click If kdrekapnb.Text = "" Or kdasetnb.Text = "" Or hrgrekapnb.Text = "" Or wrrekapnb.Text = "" Or jmlrekapnb.Text = "" Or ketrekapnb.Text = "" Then MsgBox("Rekap MsgBox( "Rekap belum Lengkap" ) kdrekapnb.Focus() Else Try Dim cbTambah As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(darekapnb) drrekapnb = dtrekapnb.NewRow drrekapnb( "No_rekap" ) = kdrekapnb.Text drrekapnb( "Kd_Aset" ) = kdasetnb.Text drrekapnb( "Kd_pemegang" ) = kdpegangnb.Text drrekapnb( "Warna" "Warna") ) = hrgrekapnb.Text drrekapnb( "Harga" "Harga") ) = wrrekapnb.Text drrekapnb( "Jumlah" "Jumlah") ) = jmlrekapnb.Text drrekapnb( "Keterangan" ) = ketrekapnb.Text dtrekapnb.Rows.Add(drrekapnb) con.Open() darekapnb.Update(dtrekapnb) dtrekapnb.AcceptChanges() con.Close() MsgBox("Rekap MsgBox( "Rekap berhasil tersimpan" ) Catch errTambah As Exception MsgBox(errTambah.Message) End Try End If kdrekapnb.Focus() kosong() End Sub Sub kosong() kdrekapnb.Text = "" hrgrekapnb.Text = "" wrrekapnb.Text = "" jmlrekapnb.Text = "" ketrekapnb.Text = "" End Sub

Private Sub changerekapnb_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles changerekapnb.Click If MessageBox.Show( "Anda yakin untuk mengubah Rekap ini?" , "", "" , MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then Try Dim cbEdit As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(darekapnb)

drrekapnb( "No_rekap" ) = kdrekapnb.Text drrekapnb( "Kd_Aset" ) = kdasetnb.Text drrekapnb( "Kd_pemegang" ) = kdpegangnb.Text drrekapnb( "Harga" "Harga") ) = hrgrekapnb.Text drrekapnb( "Warna" "Warna") ) = wrrekapnb.Text drrekapnb( "Jumlah" "Jumlah") ) = jmlrekapnb.Text drrekapnb( "Keterangan" ) = ketrekapnb.Text con.Open() darekapnb.Update(dtrekapnb) dtrekapnb.AcceptChanges() con.Close() MsgBox("Database MsgBox( "Database Berhasil Diubah" ) Catch errEdit As Exception MsgBox(errEdit.Message) End Try End If kosong() kdrekapnb.Focus() End Sub Private Sub btlrekapnb_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btlrekapnb.Click kosong() End Sub Private Sub kdasetnb_SelectedIndexChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdasetnb.SelectedIndexChanged Try Dim draset As DataRow draset = dtaset.Rows.Find(kdasetnb.Text) mrasetnb.Text = draset( "Merk" "Merk").ToString ).ToString srasetnb.Text = draset( "Seri" "Seri").ToString ).ToString Catch errTampil As Exception

End Try End Sub Private Sub crrekapnb_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles crrekapnb.Click Try drrekapnb = dtrekapnb.Rows.Find(kdrekapnb.Text) kdrekapnb.Text = drrekapnb( "No_rekap" "No_rekap").ToString ).ToString kdasetnb.Text = drrekapnb( "Kd_Aset" ).ToString kdpegangnb.Text = drrekapnb( "Kd_pemegang" ).ToString hrgrekapnb.Text = drrekapnb( "Harga" "Harga").ToString ).ToString wrrekapnb.Text = drrekapnb( "Warna" "Warna").ToString ).ToString jmlrekapnb.Text = drrekapnb( "Jumlah" "Jumlah").ToString ).ToString ketrekapnb.Text = drrekapnb( "Keterangan" ).ToString MsgBox("Rekap MsgBox( "Rekap Ditemukan" ) Catch errCari As Exception MsgBox(errCari.Message) End Try End Sub Private Sub delrekapnb_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles delrekapnb.Click If MessageBox.Show( "Anda yakin untuk menghapus Rekap ini?" , "", "" , MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then Try Dim cbhapus As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(darekapnb) drrekapnb.Delete() darekapnb.DeleteCommand = cbhapus.GetDeleteCommand darekapnb.Update(dtrekapnb) dtrekapnb.AcceptChanges() darekapnb.DeleteCommand.Connection.Close() MsgBox("Rekap MsgBox( "Rekap berhasil dihapus" ) Catch errHapus As Exception MsgBox(errHapus.Message) End Try End If kdrekapnb.Focus() kosong() End Sub

Private Sub kdpegangnb_SelectedIndexChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdpegangnb.SelectedIndexChanged Try Dim drpeg As DataRow drpeg = dtpeg.Rows.Find(kdpegangnb.Text) namanb.Text = drpeg( "Nama" "Nama").ToString ).ToString Catch errTampil As Exception

End Try End Sub Private Sub Form9_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase MyBase.Load .Load Dim dc(1) As DataColumn Try daaset = New OleDb.OleDbDataAdapter( "select * from formaset where Bentuk = 'Alat Tulis Kantor'" , con) daaset = New OleDb.OleDbDataAdapter( "select * from formaset where Bentuk = 'Rumah Tangga'" , con) daaset = New OleDb.OleDbDataAdapter( "select * from formaset where Bentuk = 'Elektronik'" , con) daaset.Fill(dtaset) dc(0) = dtaset.Columns( "Kd_Aset" "Kd_Aset") ) dtaset.PrimaryKey = dc With kdasetnb .DataSource = dtaset .DisplayMember = "Kd_Aset" .ValueMember = "Kd_Aset" End With

dapeg = New OleDb.OleDbDataAdapter( "select * from formpemegang" , con) dapeg.Fill(dtpeg) dc(0) = dtpeg.Columns( "Kd_pemegang" ) dtpeg.PrimaryKey = dc With kdpegangnb .DataSource = dtpeg .DisplayMember = "Kd_pemegang" .ValueMember = "Kd_pemegang" End With

darekapnb = New OleDb.OleDbDataAdapter( "select * from formrekapasetnb" , con) darekapnb.Fill(dtrekapnb) dc(0) = dtrekapnb.Columns( "No_rekap" ) dtrekapnb.PrimaryKey = dc dgrekapnb.DataSource = dtrekapnb Catch errConn As OleDb.OleDbException MsgBox(errConn.Message) End Try End Sub

End Class

2.2.8 Form Rekap Komputer

Source Code Form Rekap Komputer: Public Class Form10

Dim darekapnb As OleDb.OleDbDataAdapter Dim daaset As OleDb.OleDbDataAdapter Dim dapeg As OleDb.OleDbDataAdapter

Dim con As New OleDb.OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Tri Cahyo Prasetyo\My Documents\Visual Studio 2005\Projects\AplikasiSekretariat\AplikasiSekretariat\bin\Debug\Data base.mdb") base.mdb" ) Dim dtrekapnb As New DataTable() Dim dtaset As New DataTable() Dim dtpeg As New DataTable() Dim drrekapnb As DataRow Dim draset As DataRow Dim drpeg As DataRow Function Koneksi(ByVal Koneksi( ByVal strDatabase As String String) ) Dim kalimat As String kalimat = "Provider=Microsoft.Jet.OLEDB.4.0;" kalimat &= "" & strDatabase & "" Return kalimat End Function Private Sub Form8_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase MyBase.Load .Load Dim dc(1) As DataColumn Try daaset = New OleDb.OleDbDataAdapter( "select * from formaset where Bentuk = 'Komputer' " , con) daaset.Fill(dtaset) dc(0) = dtaset.Columns( "Kd_Aset" "Kd_Aset") ) dtaset.PrimaryKey = dc With kdasetkomp .DataSource = dtaset .DisplayMember = "Kd_Aset" .ValueMember = "Kd_Aset" End With

dapeg = New OleDb.OleDbDataAdapter( "select * from formpemegang" , con) dapeg.Fill(dtpeg) dc(0) = dtpeg.Columns( "Kd_pemegang" ) dtpeg.PrimaryKey = dc With kdpegangkomp .DataSource = dtpeg .DisplayMember = "Kd_pemegang" .ValueMember = "Kd_pemegang" End With

darekapnb = New OleDb.OleDbDataAdapter( "select * from form_rekapkomp" , con) darekapnb.Fill(dtrekapnb) dc(0) = dtrekapnb.Columns( "no_rekapkomp" ) dtrekapnb.PrimaryKey = dc dgkomp.DataSource = dtrekapnb Catch errConn As OleDb.OleDbException MsgBox(errConn.Message) End Try End Sub Sub kosong() no.Text = "" kdasetkomp.Text = "" kdpegangkomp.Text = "" monitor.Text = "" keyboard.Text = "" mouse.Text = "" vga.Text = "" sncard.Text = "" hdd.Text = "" power.Text = "" rom.Text = "" End Sub Private Sub savekomp_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles savekomp.Click If no.Text = "" Or kdasetkomp.Text = "" Or kdpegangkomp.Text = "" Or monitor.Text = "" Or keyboard.Text = "" Or mouse.Text = "" Or sncard.Text = "" Or hdd.Text = "" Or power.Text = "" Or rom.Text = "" Then MsgBox("Rekap MsgBox( "Rekap belum Lengkap" ) no.Focus() Else Try Dim cbTambah As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(darekapnb) drrekapnb = dtrekapnb.NewRow drrekapnb( "no_rekapkomp" ) = no.Text drrekapnb( "kd_aset" ) = kdasetkomp.Text drrekapnb( "kd_pemegang" ) = kdpegangkomp.Text drrekapnb( "Monitor" ) = monitor.Text drrekapnb( "Keyboard" ) = keyboard.Text drrekapnb( "Mouse" "Mouse") ) = mouse.Text drrekapnb( "VGA" "VGA") ) = vga.Text drrekapnb( "SoundCard" ) = sncard.Text drrekapnb( "Harddisk" ) = hdd.Text drrekapnb( "Power_supply" ) = power.Text drrekapnb( "ROM_drive" ) = rom.Text

dtrekapnb.Rows.Add(drrekapnb) con.Open() darekapnb.Update(dtrekapnb) dtrekapnb.AcceptChanges() con.Close() MsgBox("Rekap MsgBox( "Rekap berhasil tersimpan" ) Catch errTambah As Exception MsgBox(errTambah.Message) End Try End If no.Focus() kosong() End Sub Private Sub cancelkomp_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cancelkomp.Click kosong() End Sub Private Sub kdasetkomp_SelectedIndexChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdasetkomp.SelectedIndexChanged Try Dim draset As DataRow draset = dtaset.Rows.Find(kdasetkomp.Text) jnaset1.Text = draset( "Jenis" "Jenis").ToString ).ToString mraset1.Text = draset( "Merk" "Merk").ToString ).ToString sraset1.Text = draset( "Seri").ToString "Seri" ).ToString Catch errTampil As Exception

End Try End Sub Private Sub changekomp_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles changekomp.Click If MessageBox.Show( "Anda yakin untuk mengubah Rekap ini?" , "", "" , MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then Try Dim cbEdit As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(darekapnb)

drrekapnb( "no_rekapkomp" ) = no.Text drrekapnb( "kd_aset" ) = kdasetkomp.Text drrekapnb( "kd_pemegang" ) = kdpegangkomp.Text drrekapnb( "Monitor" ) = monitor.Text drrekapnb( "Keyboard" ) = keyboard.Text drrekapnb( "Mouse" "Mouse") ) = mouse.Text drrekapnb( "VGA" "VGA") ) = vga.Text drrekapnb( "SoundCard" ) = sncard.Text drrekapnb( "Harddisk" ) = hdd.Text drrekapnb( "Power_supply" ) = power.Text drrekapnb( "ROM_drive" ) = rom.Text con.Open() darekapnb.Update(dtrekapnb) dtrekapnb.AcceptChanges() con.Close() MsgBox("Database MsgBox( "Database Berhasil Diubah" ) Catch errEdit As Exception MsgBox(errEdit.Message) End Try End If kosong() no.Focus() End Sub Private Sub searchkomp_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles searchkomp.Click Try drrekapnb = dtrekapnb.Rows.Find(no.Text) no.Text = drrekapnb( "no_rekapkomp" ).ToString kdasetkomp.Text = drrekapnb( "kd_aset" "kd_aset").ToString ).ToString kdpegangkomp.Text = drrekapnb( "Kd_pemegang" ).ToString monitor.Text = drrekapnb( "Monitor" ).ToString keyboard.Text = drrekapnb( "Keyboard" ).ToString mouse.Text = drrekapnb( "Mouse" "Mouse").ToString ).ToString vga.Text = drrekapnb( "VGA" "VGA").ToString ).ToString sncard.Text = drrekapnb( "SoundCard" ).ToString hdd.Text = drrekapnb( "Harddisk" ).ToString power.Text = drrekapnb( "Power_supply" ).ToString rom.Text = drrekapnb( "ROM_drive" ).ToString MsgBox("Rekap MsgBox( "Rekap Ditemukan" ) Catch errCari As Exception MsgBox(errCari.Message) End Try End Sub

Private Sub deletekomp_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) If MessageBox.Show( "Anda yakin untuk menghapus Rekap ini?" , "", "" , MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then Try Dim cbhapus As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(darekapnb) drrekapnb.Delete() darekapnb.DeleteCommand = cbhapus.GetDeleteCommand darekapnb.Update(dtrekapnb) dtrekapnb.AcceptChanges() darekapnb.DeleteCommand.Connection.Close() MsgBox("Rekap MsgBox( "Rekap berhasil dihapus" ) Catch errHapus As Exception MsgBox(errHapus.Message) End Try End If no.Focus() kosong() End Sub

Private Sub kdpegangkomp_SelectedIndexChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdpegangkomp.SelectedIndexChanged Try Dim drpeg As DataRow drpeg = dtpeg.Rows.Find(kdpegangkomp.Text) nama.Text = drpeg( "Nama" "Nama").ToString ).ToString jabatan.Text = drpeg( "Jabatan" "Jabatan").ToString ).ToString struktur.Text = drpeg( "Struktur" ).ToString Catch errTampil As Exception

End Try End Sub End Class

2.2.9 Form Input Pemegang Aset

Source Code Form Input Pemegang Aset:

Public Class Form2 Dim daaset As OleDb.OleDbDataAdapter Dim con As New OleDb.OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Tri Cahyo Prasetyo\My Documents\Visual Studio 2005\Projects\AplikasiSekretariat\AplikasiSekretariat\bin\Debug\Data base.mdb") base.mdb" ) Dim dtaset As New DataTable() Dim draset As DataRow Function Koneksi(ByVal Koneksi( ByVal strDatabase As String String) ) As String Dim kalimat As String kalimat = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Tri Cahyo Prasetyo\My Documents\Visual Studio 2005\Projects\AplikasiSekretariat\AplikasiSekretariat\bin\Debug\Data base.mdb" kalimat &= "Data Source=" & strDatabase & "" Return kalimat End Function Sub bersih() Kdpemegang.Text = "" namapemegang.Text = ""

jabatan.Text = "" struktur.Text = "" alamat.Text = "" Kdpemegang.Focus() End Sub Private Sub form1_Load( ByVal sender As Object Object, , ByVal e As System.EventArgs) Handles Me Me.Load .Load Dim dc(1) As DataColumn Try

daaset = New OleDb.OleDbDataAdapter( "select * from formpemegang" , con) daaset.Fill(dtaset) dc(0) = dtaset.Columns( "Kd_pemegang" ) dtaset.PrimaryKey = dc dgpemegang.DataSource = dtaset Catch errConn As OleDb.OleDbException MsgBox(errConn.Message) End Try

End Sub Private Sub savepegang_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles savepegang.Click If Kdpemegang.Text = "" Or namapemegang.Text = "" Or jabatan.Text = "" Or struktur.Text = "" Or alamat.Text = "" Then MsgBox("Database MsgBox( "Database belum lengkap" ) Kdpemegang.Focus() Else Try Dim cbTambah As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(daaset) draset = dtaset.NewRow

draset("Kd_pemegang" draset( "Kd_pemegang" ) = Kdpemegang.Text draset("Nama" draset( "Nama") ) = namapemegang.Text draset("Jabatan" draset( "Jabatan" ) = jabatan.Text draset("Struktur" draset( "Struktur" ) = struktur.Text draset("Alamat" draset( "Alamat") ) = alamat.Text dtaset.Rows.Add(draset) con.Open() daaset.Update(dtaset) dtaset.AcceptChanges() con.Close()

MsgBox("Database MsgBox( "Database berhasil tersimpan" ) Catch errTambah As Exception MsgBox(errTambah.Message) End Try End If Kdpemegang.Focus() bersih() End Sub Private Sub btlpegang_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btlpegang.Click Kdpemegang.Text = "" namapemegang.Text = "" jabatan.Text = "" struktur.Text = "" alamat.Text = "" Kdpemegang.Focus() End Sub Private Sub crpegang_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles crpegang.Click Try draset = dtaset.Rows.Find(Kdpemegang.Text) Kdpemegang.Text = draset( "Kd_pemegang" ).ToString namapemegang.Text = draset( "Nama" "Nama").ToString ).ToString jabatan.Text = draset( "Jabatan" ).ToString struktur.Text = draset( "Struktur" "Struktur").ToString ).ToString alamat.Text = draset( "Alamat" "Alamat").ToString ).ToString MsgBox("Database MsgBox( "Database ditemukan" ) Catch errCari As Exception MsgBox("Database MsgBox( "Database tidak ditemukan" ) End Try End Sub Private Sub delpegang_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles delpegang.Click If MessageBox.Show( "Anda yakin ingin menghapus Database ini?", ini?" , "" "", , MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then Try Dim cbhapus As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(daaset) draset.Delete() daaset.DeleteCommand = cbhapus.GetDeleteCommand

daaset.Update(dtaset) dtaset.AcceptChanges() daaset.DeleteCommand.Connection.Close() MsgBox("Database MsgBox( "Database berhasil dihapus" ) Catch errHapus As Exception MsgBox(errHapus.Message) End Try End If Kdpemegang.Focus() bersih() End Sub Private Sub changepegang_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles changepegang.Click If MessageBox.Show( "Anda yakin untuk mengubah Database ini?", ini?" , "" "", , MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then Try Dim cbEdit As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(daaset)

draset("Kd_pemegang" draset( "Kd_pemegang" ) = Kdpemegang.Text draset("Nama" draset( "Nama") ) = namapemegang.Text draset("Jabatan" draset( "Jabatan" ) = jabatan.Text draset("Struktur" draset( "Struktur" ) = struktur.Text draset("Alamat" draset( "Alamat") ) = alamat.Text con.Open() daaset.Update(dtaset) dtaset.AcceptChanges() con.Close() MsgBox("Database MsgBox( "Database Berhasil Diubah" ) Catch errEdit As Exception MsgBox(errEdit.Message) End Try Kdpemegang.Focus() bersih() End If End Sub End Class

2.2.10 Form Kontrol Aset Kendaraan

Source Code Form Kontrol Aset Kendaraan: Public Class Form5 Dim dakend As OleDb.OleDbDataAdapter Dim daaset As OleDb.OleDbDataAdapter Dim dapeg As OleDb.OleDbDataAdapter Dim con As New OleDb.OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Tri Cahyo Prasetyo\My Documents\Visual Studio 2005\Projects\AplikasiSekretariat\AplikasiSekretariat\bin\Debug\Data base.mdb") base.mdb" ) Dim dtkend As New DataTable() Dim dtaset As New DataTable() Dim dtpeg As New DataTable() Dim drkend As DataRow Dim draset As DataRow Dim drpeg As DataRow Function Koneksi(ByVal Koneksi( ByVal strDatabase As String String) ) Dim kalimat As String kalimat = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Tri Cahyo Prasetyo\My Documents\Visual Studio 2005\Projects\AplikasiSekretariat\AplikasiSekretariat\bin\Debug\Data base.mdb" kalimat &= "" & strDatabase & "" Return kalimat End Function

Private Sub Form5_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase MyBase.Load .Load Dim dc(1) As DataColumn Try daaset = New OleDb.OleDbDataAdapter( "select * from formasetbergerak" , con) daaset.Fill(dtaset) dc(0) = dtaset.Columns( "kd_aset" "kd_aset") ) dtaset.PrimaryKey = dc With kdasetkend .DataSource = dtaset .DisplayMember = "kd_aset" .ValueMember = "kd_aset" End With

dapeg = New OleDb.OleDbDataAdapter( "select * from formpemegang" , con) dapeg.Fill(dtpeg) dc(0) = dtpeg.Columns( "Kd_pemegang" ) dtpeg.PrimaryKey = dc With kdpegangkend .DataSource = dtpeg .DisplayMember = "Kd_pemegang" .ValueMember = "Kd_pemegang" End With

dakend = New OleDb.OleDbDataAdapter( "select * from form_kontrolkendaraan" , con) dakend.Fill(dtkend) dc(0) = dtkend.Columns( "no_kontrol" ) dtkend.PrimaryKey = dc dgkomp.DataSource = dtkend Catch errConn As OleDb.OleDbException MsgBox(errConn.Message) End Try End Sub Sub kosong() no.Text = "" remdepan.Text = "" rembelakang.Text = "" kemudi.Text = "" roda.Text = "" kerangka.Text = "" pemuatan.Text = "" klakson.Text = ""

lampu1.Text = "" lampu2.Text = "" lampu3.Text = "" spion.Text = "" ban.Text = "" weeper.Text = "" no.Focus() End Sub

Private Sub savekomp_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles savekomp.Click If no.Text = "" Or kdasetkend.Text = "" Or kdpegangkend.Text = "" Or remdepan.Text = "" Or rembelakang.Text = "" Or kemudi.Text = "" Or roda.Text = "" Or kerangka.Text = "" Or pemuatan.Text = "" Or klakson.Text = "" Or lampu1.Text = "" Or lampu2.Text = "" Or lampu3.Text = "" Or spion.Text = "" Or ban.Text = "" Or weeper.Text = "" Then MsgBox("Rekap MsgBox( "Rekap belum Lengkap" ) no.Focus() Else Try Dim cbTambah As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(dakend) drkend = dtkend.NewRow drkend("no_kontrol" drkend( "no_kontrol" ) = no.Text drkend("kd_aset" drkend( "kd_aset" ) = kdasetkend.Text drkend("kd_pemegang" drkend( "kd_pemegang" ) = kdpegangkend.Text drkend("Rem_depan" drkend( "Rem_depan" ) = remdepan.Text drkend("Rem_belakang" drkend( "Rem_belakang" ) = rembelakang.Text drkend("Kemudi" drkend( "Kemudi") ) = kemudi.Text drkend("Roda" drkend( "Roda") ) = roda.Text drkend("Kerangka" drkend( "Kerangka" ) = kerangka.Text drkend("Pemuatan" drkend( "Pemuatan" ) = pemuatan.Text drkend("Klakson" drkend( "Klakson" ) = klakson.Text drkend("Lampu_utama" drkend( "Lampu_utama" ) = lampu1.Text drkend("Lampu_sein" drkend( "Lampu_sein" ) = lampu2.Text drkend("Lampu_rem" drkend( "Lampu_rem" ) = lampu3.Text drkend("Spion" drkend( "Spion") ) = spion.Text drkend("Ban" drkend( "Ban") ) = ban.Text drkend("Penghapus_kaca" drkend( "Penghapus_kaca" ) = weeper.Text dtkend.Rows.Add(drkend) con.Open() dakend.Update(dtkend) dtkend.AcceptChanges() con.Close() MsgBox("Rekap MsgBox( "Rekap berhasil tersimpan" )

Catch errTambah As Exception MsgBox(errTambah.Message) End Try End If no.Focus() kosong() End Sub

Private Sub cancelkomp_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cancelkomp.Click kosong() End Sub Private Sub changekomp_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles changekomp.Click If MessageBox.Show( "Anda yakin untuk mengubah Rekap ini?" , "", "" , MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then Try Dim cbEdit As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(dakend)

drkend("no_kontrol" drkend( "no_kontrol" ) = no.Text drkend("kd_aset" drkend( "kd_aset" ) = kdasetkend.Text drkend("kd_pemegang" drkend( "kd_pemegang" ) = kdpegangkend.Text drkend("Rem_depan" drkend( "Rem_depan" ) = remdepan.Text drkend("Rem_belakang" drkend( "Rem_belakang" ) = rembelakang.Text drkend("Kemudi" drkend( "Kemudi") ) = kemudi.Text drkend("Roda" drkend( "Roda") ) = roda.Text drkend("Kerangka" drkend( "Kerangka" ) = kerangka.Text drkend("Pemuatan" drkend( "Pemuatan" ) = pemuatan.Text drkend("Klakson" drkend( "Klakson" ) = klakson.Text drkend("Lampu_utama" drkend( "Lampu_utama" ) = lampu1.Text drkend("Lampu_sein" drkend( "Lampu_sein" ) = lampu2.Text drkend("Lampu_rem" drkend( "Lampu_rem" ) = lampu3.Text drkend("Spion" drkend( "Spion") ) = spion.Text drkend("Ban" drkend( "Ban") ) = ban.Text drkend("Penghapus_kaca" drkend( "Penghapus_kaca" ) = weeper.Text con.Open() dakend.Update(dtkend) dtkend.AcceptChanges() con.Close() MsgBox("Database MsgBox( "Database Berhasil Diubah" ) Catch errEdit As Exception MsgBox(errEdit.Message) End Try

End If kosong() no.Focus() End Sub Private Sub searchkomp_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles searchkomp.Click Try drkend = dtkend.Rows.Find(no.Text) no.Text = drkend( "no_kontrol" ).ToString kdasetkend.Text = drkend( "kd_aset" ).ToString kdpegangkend.Text = drkend( "Kd_pemegang" ).ToString remdepan.Text = drkend( "Rem_depan" ).ToString rembelakang.Text = drkend( "Rem_belakang" ).ToString kemudi.Text = drkend( "Kemudi" "Kemudi").ToString ).ToString roda.Text = drkend( "Roda" "Roda").ToString ).ToString kerangka.Text = drkend( "Kerangka" "Kerangka").ToString ).ToString pemuatan.Text = drkend( "Pemuatan" "Pemuatan").ToString ).ToString klakson.Text = drkend( "Klakson" ).ToString lampu1.Text = drkend( "Lampu_utama" ).ToString lampu2.Text = drkend( "Lampu_sein" ).ToString lampu3.Text = drkend( "Lampu_rem" ).ToString spion.Text = drkend( "Spion" "Spion").ToString ).ToString ban.Text = drkend( "Ban" "Ban").ToString ).ToString weeper.Text = drkend( "Penghapus_kaca" ).ToString MsgBox("Rekap MsgBox( "Rekap Ditemukan" ) Catch errCari As Exception MsgBox(errCari.Message) End Try End Sub Private Sub deletekomp_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deletekomp.Click If MessageBox.Show( "Anda yakin untuk menghapus Rekap ini?" , "", "" , MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then Try Dim cbhapus As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(dakend) drkend.Delete() dakend.DeleteCommand = cbhapus.GetDeleteCommand dakend.Update(dtkend) dtkend.AcceptChanges() dakend.DeleteCommand.Connection.Close() MsgBox("Rekap MsgBox( "Rekap berhasil dihapus" )

Catch errHapus As Exception MsgBox(errHapus.Message) End Try End If no.Focus() kosong() End Sub Private Sub kdasetkend_SelectedIndexChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdasetkend.SelectedIndexChanged Try Dim draset As DataRow draset = dtaset.Rows.Find(kdasetkend.Text) jnaset1.Text = draset( "Jenis_kendaraan" ).ToString mraset1.Text = draset( "Merk_kendaraan" ).ToString sraset1.Text = draset( "Seri_kendaraan" ).ToString Catch errTampil As Exception

End Try End Sub Private Sub kdpegangkend_SelectedIndexChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdpegangkend.SelectedIndexChanged Try Dim drpeg As DataRow drpeg = dtpeg.Rows.Find(kdpegangkend.Text) nama.Text = drpeg( "Nama" "Nama").ToString ).ToString jabatan.Text = drpeg( "Jabatan" "Jabatan").ToString ).ToString struktur.Text = drpeg( "Struktur" ).ToString Catch errTampil As Exception

End Try End Sub End Class

2.2.11 Form Kontrol Aset Komputer

Source Code Form Kontrol Aset Komputer: Public Class Form8 Dim darekapnb As OleDb.OleDbDataAdapter Dim daaset As OleDb.OleDbDataAdapter Dim dapeg As OleDb.OleDbDataAdapter Dim con As New OleDb.OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Tri Cahyo Prasetyo\My Documents\Visual Studio 2005\Projects\AplikasiSekretariat\AplikasiSekretariat\bin\Debug\Data base.mdb") base.mdb" ) Dim dtrekapnb As New DataTable() Dim dtaset As New DataTable() Dim dtpeg As New DataTable() Dim drrekapnb As DataRow Dim draset As DataRow Dim drpeg As DataRow Function Koneksi(ByVal Koneksi( ByVal strDatabase As String String) ) Dim kalimat As String kalimat = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Tri Cahyo Prasetyo\My Documents\Visual Studio 2005\Projects\AplikasiSekretariat\AplikasiSekretariat\bin\Debug\Data base.mdb" kalimat &= "" & strDatabase & "" Return kalimat End Function

Private Sub Form8_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase MyBase.Load .Load Dim dc(1) As DataColumn Try daaset = New OleDb.OleDbDataAdapter( "select * from formaset where Bentuk = 'Komputer'" , con) daaset.Fill(dtaset) dc(0) = dtaset.Columns( "Kd_Aset" "Kd_Aset") ) dtaset.PrimaryKey = dc With kdasetkomp .DataSource = dtaset .DisplayMember = "Kd_Aset" .ValueMember = "Kd_Aset" End With

dapeg = New OleDb.OleDbDataAdapter( "select * from formpemegang" , con) dapeg.Fill(dtpeg) dc(0) = dtpeg.Columns( "Kd_pemegang" ) dtpeg.PrimaryKey = dc With kdpegangkomp .DataSource = dtpeg .DisplayMember = "Kd_pemegang" .ValueMember = "Kd_pemegang" End With

darekapnb = New OleDb.OleDbDataAdapter( "select * from formkontrolkomp" , con) darekapnb.Fill(dtrekapnb) dc(0) = dtrekapnb.Columns( "no_rekap" ) dtrekapnb.PrimaryKey = dc dgkomp.DataSource = dtrekapnb Catch errConn As OleDb.OleDbException MsgBox(errConn.Message) End Try End Sub Sub kosong() no.Text = "" kdasetkomp.Text = "" kdpegangkomp.Text = "" monitor.Text = "" keyboard.Text = "" mouse.Text = "" vga.Text = ""

sncard.Text = "" hdd.Text = "" power.Text = "" rom.Text = "" End Sub Private Sub savekomp_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles savekomp.Click If no.Text = "" Or kdasetkomp.Text = "" Or kdpegangkomp.Text = "" Or monitor.Text = "" Or keyboard.Text = "" Or mouse.Text = "" Or sncard.Text = "" Or hdd.Text = "" Or power.Text = "" Or rom.Text = "" Then MsgBox("Rekap MsgBox( "Rekap belum Lengkap" ) no.Focus() Else Try Dim cbTambah As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(darekapnb) drrekapnb = dtrekapnb.NewRow drrekapnb( "no_rekap" ) = no.Text drrekapnb( "kd_aset_komputer" ) = kdasetkomp.Text drrekapnb( "kd_pemegang" ) = kdpegangkomp.Text drrekapnb( "Monitor" ) = monitor.Text drrekapnb( "Keyboard" ) = keyboard.Text drrekapnb( "Mouse" "Mouse") ) = mouse.Text drrekapnb( "VGA" "VGA") ) = vga.Text drrekapnb( "SoundCard" ) = sncard.Text drrekapnb( "Hardisk" ) = hdd.Text drrekapnb( "Power_supply" ) = power.Text drrekapnb( "ROM_drive" ) = rom.Text dtrekapnb.Rows.Add(drrekapnb) con.Open() darekapnb.Update(dtrekapnb) dtrekapnb.AcceptChanges() con.Close() MsgBox("Rekap MsgBox( "Rekap berhasil tersimpan" ) Catch errTambah As Exception MsgBox(errTambah.Message) End Try End If no.Focus() kosong() End Sub

Private Sub cancelkomp_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cancelkomp.Click kosong() End Sub Private Sub kdasetkomp_SelectedIndexChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdasetkomp.SelectedIndexChanged Try Dim draset As DataRow draset = dtaset.Rows.Find(kdasetkomp.Text) jnaset1.Text = draset( "Jenis" "Jenis").ToString ).ToString mraset1.Text = draset( "Merk" "Merk").ToString ).ToString sraset1.Text = draset( "Seri").ToString "Seri" ).ToString Catch errTampil As Exception

End Try End Sub Private Sub changekomp_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles changekomp.Click If MessageBox.Show( "Anda yakin untuk mengubah Rekap ini?" , "", "" , MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then Try Dim cbEdit As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(darekapnb)

drrekapnb( "no_rekap" ) = no.Text drrekapnb( "kd_aset_komputer" ) = kdasetkomp.Text drrekapnb( "kd_pemegang" ) = kdpegangkomp.Text drrekapnb( "Monitor" ) = monitor.Text drrekapnb( "Keyboard" ) = keyboard.Text drrekapnb( "Mouse" "Mouse") ) = mouse.Text drrekapnb( "VGA" "VGA") ) = vga.Text drrekapnb( "Soundcard" ) = sncard.Text drrekapnb( "Hardisk" ) = hdd.Text drrekapnb( "Power_supply" ) = power.Text drrekapnb( "ROM_drive" ) = rom.Text con.Open() darekapnb.Update(dtrekapnb) dtrekapnb.AcceptChanges() con.Close() MsgBox("Database MsgBox( "Database Berhasil Diubah" )

Catch errEdit As Exception MsgBox(errEdit.Message) End Try End If kosong() no.Focus() End Sub Private Sub searchkomp_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles searchkomp.Click Try drrekapnb = dtrekapnb.Rows.Find(no.Text) no.Text = drrekapnb( "No_rekap" "No_rekap").ToString ).ToString kdasetkomp.Text = drrekapnb( "kd_aset_komputer" ).ToString kdpegangkomp.Text = drrekapnb( "Kd_pemegang" ).ToString monitor.Text = drrekapnb( "Monitor" ).ToString keyboard.Text = drrekapnb( "Keyboard" ).ToString mouse.Text = drrekapnb( "Mouse" "Mouse").ToString ).ToString vga.Text = drrekapnb( "VGA" "VGA").ToString ).ToString sncard.Text = drrekapnb( "SoundCard" ).ToString hdd.Text = drrekapnb( "Hardisk" "Hardisk").ToString ).ToString power.Text = drrekapnb( "Power_supply" ).ToString rom.Text = drrekapnb( "ROM_drive" ).ToString MsgBox("Rekap MsgBox( "Rekap Ditemukan" ) Catch errCari As Exception MsgBox(errCari.Message) End Try End Sub Private Sub deletekomp_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) If MessageBox.Show( "Anda yakin untuk menghapus Rekap ini?" , "", "" , MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then Try Dim cbhapus As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(darekapnb) drrekapnb.Delete() darekapnb.DeleteCommand = cbhapus.GetDeleteCommand darekapnb.Update(dtrekapnb) dtrekapnb.AcceptChanges() darekapnb.DeleteCommand.Connection.Close() MsgBox("Rekap MsgBox( "Rekap berhasil dihapus" ) Catch errHapus As Exception MsgBox(errHapus.Message)

End Try End If no.Focus() kosong() End Sub

Private Sub kdpegangkomp_SelectedIndexChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdpegangkomp.SelectedIndexChanged Try Dim drpeg As DataRow drpeg = dtpeg.Rows.Find(kdpegangkomp.Text) nama.Text = drpeg( "Nama" "Nama").ToString ).ToString jabatan.Text = drpeg( "Jabatan" "Jabatan").ToString ).ToString struktur.Text = drpeg( "Struktur" ).ToString Catch errTampil As Exception

End Try End Sub End Class

2.2.12 Form Input User da da n Admin

Source Code Form Input User Dan Admin: Public Class Form4 Dim dauser As OleDb.OleDbDataAdapter

Dim con As New OleDb.OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Tri Cahyo Prasetyo\My Documents\Visual Studio 2005\Projects\AplikasiSekretariat\AplikasiSekretariat\bin\Debug\Data base.mdb") base.mdb" ) Dim dtuser As New DataTable() Dim druser As DataRow Function Koneksi(ByVal Koneksi( ByVal strDatabase As String String) ) As String Dim kalimat As String kalimat = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Tri Cahyo Prasetyo\My Documents\Visual Studio 2005\Projects\AplikasiSekretariat\AplikasiSekretariat\bin\Debug\Data base.mdb" kalimat &= "Data Source=" & strDatabase & "" Return kalimat End Function Sub bersih() iduser.Text = "" namauser.Text = "" passuser.Text = "" statuser.Text = "" iduser.Focus() End Sub Private Sub Form4_Load_1( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase MyBase.Load .Load Dim dc(1) As DataColumn Try

dauser = New OleDb.OleDbDataAdapter( "select * from formpassuser" , con) dauser.Fill(dtuser) dc(0) = dtuser.Columns( "ID" "ID") ) dtuser.PrimaryKey = dc dguser.DataSource = dtuser Catch errConn As OleDb.OleDbException MsgBox(errConn.Message) End Try End Sub Private Sub saveuser_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles saveuser.Click If MessageBox.Show( "Anda yakin ingin menyimpan Akun User ini?", ini?" , "" "", , MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then Try Dim cbTambah As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(dauser) druser = dtuser.NewRow

druser("ID" druser( "ID") ) = iduser.Text druser("Nama" druser( "Nama") ) = namauser.Text druser("Pasword" druser( "Pasword" ) = passuser.Text druser("Status" druser( "Status") ) = statuser.Text

dtuser.Rows.Add(druser) con.Open() dauser.Update(dtuser) dtuser.AcceptChanges() con.Close() MsgBox("Akun MsgBox( "Akun User berhasil tersimpan" ) Catch errTambah As Exception MsgBox(errTambah.Message) End Try End If iduser.Focus() bersih() End Sub Private Sub btluser_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btluser.Click iduser.Text = "" namauser.Text = "" passuser.Text = "" statuser.Text = "" iduser.Focus() End Sub Private Sub cruser_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cruser.Click Try druser = dtuser.Rows.Find(iduser.Text) iduser.Text = namauser.Text passuser.Text statuser.Text

druser( "ID" "ID").ToString ).ToString = druser( "Nama" "Nama").ToString ).ToString = druser( "Pasword" "Pasword").ToString ).ToString = druser( "Status" "Status").ToString ).ToString

MsgBox("Akun MsgBox( "Akun ditemukan" ) Catch errCari As Exception MsgBox(errCari.Message) End Try

End Sub Private Sub deluser_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deluser.Click If MessageBox.Show( "Anda yakin untuk menghapus Database ini?", ini?" , "" "", , MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then Try Dim cbhapus As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(dauser) druser.Delete() dauser.DeleteCommand = cbhapus.GetDeleteCommand dauser.Update(dtuser) dtuser.AcceptChanges() dauser.DeleteCommand.Connection.Close() Catch errHapus As Exception MsgBox(errHapus.Message) MsgBox("Akun MsgBox( "Akun User berhasil dihapus" ) End Try End If iduser.Focus() bersih() End Sub End Class

2.2.13 Form Edit Password

Source Code Form Edit Password: Imports System.Data.OleDb Public Class Form7 Dim Nama As String Dim pasword As String Sub GantiPassword() cmd = New OleDbCommand( "select * from formpassuser where Nama = '" & usernameedit.Text & "' and Pasword = '" & passlamaedit.Text & "'" "'", , con) rd = cmd.ExecuteReader rd.Read() End Sub Sub bersih() usernameedit.Text = "" passlamaedit.Text = "" passbaruedit.Text = "" repassedit.Text = "" End Sub Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Call GantiPassword() If Not rd.HasRows Then MsgBox("Nama MsgBox( "Nama atau Password Salah" ) usernameedit.Focus() bersih() Else passbaruedit.Focus()

If passbaruedit.Text = passlamaedit.Text Then MsgBox("Password MsgBox( "Password baru tidak boleh sama dengan Password lama" ) Else repassedit.Focus() If passbaruedit.Text <> repassedit.Text Then MsgBox("Re-Password MsgBox( "Re-Password Harus Sama Dengan Password Baru") Baru" ) Else If MessageBox.Show( "Anda yakin untuk mengubah Password?" , "" "", , MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then pasword = passbaruedit.Text cmd = New OleDbCommand(( "update formpassuser set Pasword= '" & pasword & "'where Nama='" & usernameedit.Text & "'"), "'" ), con) cmd.ExecuteNonQuery() MsgBox("Password MsgBox( "Password Berhasil Dirubah" ) bersih() usernameedit.Focus() End If End If End If End If End Sub

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

2.2.14 Form Versio Version n

2.2.15 Source Code M odule odule Koneks i Database Imports System.Data.OleDb

Module Module1 Public con As OleDbConnection Public cmd As OleDbCommand Public da As OleDbDataAdapter Public ds As DataSet Public rd As OleDbDataReader Public str As String Sub Koneksi() str = "provider=microsoft.jet.oledb.4.0;data source=Database.mdb" con = New OleDbConnection(str) If con.State = ConnectionState.Closed Then con.Open() End If End Sub

End Module

BAB III IMPLEMENTASI 3.1 Spesifikasi Spesifikas i Hardware dan Software Hardware yang digunakan:

1. Sistem Operasi MS Windows XP Professional (5.1,Build 2600) 32-Bit Service Pack 3 2. Netbook HP (Hewlett-Packard) Mini 110-1169TU 3. Proccesor Intel Atom N280 1.66 GHz 4. RAM 1.0GB Single-Channel DDR2 5. VGA Mobile Intel 945 Express Chipset Family, 128 Mb 6. Hard Drives 160GB FUJITSU MJA2160BH (SATA) Softwa Softwa re yang ya ng digunakan:

1. Microsoft Office Enterprise 2007 2. Microsoft Visual Studio 2005 (Visual Basic.NET) 3. Seagate Crystal Report 8.5 Developer Edition

3.2 cara pengoperasian program Cara pengoperasian program dengan cara Install Setup Aplikasinya terlebih dahulu,Aplikasi ini memerlukan .NET Framework 2.0 agar bisa berjalan dengan baik.Setelah terinstall,maka jalankan Aplikasinya yang telah menyediakan Shortcut pada Desktop dan Startup Program. Isi Data seperti Aset,Pemegang,Rincian Aset,hingga Kontrol Aset jika mengalami keruksakan atau perlunya penggantian Spare Part,Dalam Aplikasi tersebut ada Fitur Login,berfungsi selain sistem keamanan Aplikasi juga untuk  system Hak Akses,Agar tidak sembarang orang bias membuka Form tertentu pada Aplikasi ini.

BAB IV KESIMPULAN

Kesimpulan Dari pembahasan di atas dapat disimpulkan bahwa bahasa pemograman visual basic merupakan pemograman berbasis Windows. Visual Basic juga merupakan bahasa pemograman Object Oriented Programming (OOP), yaitu pemograman yang berorientasi objek. Visual Basic menyediakan objek-objek yang sangat kuat, berguna dan mudah dipakai. Dengan fasilitas tersebut membuat Visual Basic menjadi begitu diinginkan oleh programmer. Dengan menggunakan aplikasi Visual Basic dapat digunakan pada program progra m aplikasi aplikas i pengg peng gaji aj ian sehingga sehingg a dapat dapa t mempe mempermudah rmudah dalam proses penggajian para pegawai dalam suatu perusahaan.

Saran Diharapkan

mahasiswa

mau

bahasa bahasa pemograman Visual Vis ual Basi Bas ic karena dip dip elajari dan da n sangat (khususnya pemula), pemula ), pemograman tersebut.

menarik

maka

mempelajari

dan

mengembangkan

merupakan bahasa bah asa yan yang g mudah mudah untuk  untuk  penulis

berharap

kepada

pembaca pembaca

untuk sejak d ini mempe mempelajari lajari dan mengemba mengembangkan ngkan bahasa

DAFTAR PUST PUS TAKA Program Aplikasi Inventaris 2012 STMIK JABAR bandung http://www.konsultasivb.com http://www.mugi.or.id