photoshop

manipulasi

gambar

VB with MS Access Or MS Access with VB...????
Membuat Koneksi Database Access menggunakan Visual Basic 6.0Untuk
menjadi Programmer kita harus menguasai beberapa coding dasar dari
sebuah koneksi yang sederhana. Dalam kesempatan ini saya akan membahas
coding koneksi menggunakan Access yang merupakan program aplikasi
database dasar yang sering digunakan di lingkungan perkantoran.
Database latihan :Tabel barang
Kode barang
Nama barang
Harga beli
Harga jual
stoksatuan
Sebenarnya dalam pembuatan table diatas tidak terlalu diperlukan dalam
pembahasan ini tetapi hanya untuk informasi belaka. Untuk memberi
penjelasan kepada pembaca.Yang harus diperhatikan dalam materi ini
adalah pemahaman dari coding koneksi itu sendiri.Yang pertama
dilakukan adalah membuat module dahulu untuk pemanggilan koneksi dari
database.Setelah membuat koneksi masukan coding sebagai berikut
Public cn As New ADODB.Connection
Public Sub BukaDB()
Dim koneksi As String
koneksi = “provider=microsoft.jet.oledb.4.0; Data source= ” & App.Path
& “\latihan.mdb;”cn.
Open koneksi
End Sub

Public cn As New ADODB.
ConnectionBerfungsi untuk membuat variable bersifat public menggunakan
ADODBDim koneksi As StringBerfungsi untuk membuat variablebersifat
private bertipe stringkoneksi = “provider=microsoft.jet.oledb.4.0;
Data source= ” & App.Path & “\latihan.mdb;”Merupakan kode utama dari
koneksi yang dibutuhkan. Yang
pertama menggunakan provider Microsoft jet oledb 4.0 yang
memanggil data source/sumber data dari database latihan.mdbcn.
Open koneksiVisual Basic ? programmer mana sih yang nggak kenal sama
tool yang satu ini?nggak usah saya sebutin apa itu Visual Basic.
Lalu Ms Access, sebuah aplikasi yang menangani database, aplikasi ini
biasanya sudah satu paket dengan Microsoft Office Aplication.
Keduanya merupakan keluarga besar keturunannya Om Bill Gates.
Sebagai satu keluarga maka wajarlah bila satu sama lain dapat
dikombinasikan untuk saling melengkapi.
lalu mengapa aku pake judul diatas ?

Sebagai tool programming yang powerful, Visual Basic kaya akan
library-library yang mendukung pengelolaan database Ms Access, meski
banyak jenis data lain yang didukung (txt, xls, xml, mysql dll)Banyak
sekali aplikasi VB jadi, baik mass product maupun rancangan software
house yang menggunakan Ms Access sebagai basis datanya. Dengan
demikian kemampuan VB dalam mengelola database Ms Access tidak
diragkan lagi.

Lalu Ms Access sendiri, adalah sebuah RDBMS (relational database
management system ) yang terintegrasi dalam satu file. didalam Ms
access kita sudah dapat mendefinisikan tabel, query, relation, bahkan
form dan report.Kehebatan Ms Access adalah kita dapat menyusun
aplikasi secara interaktif dan profesional dengan bantuan Visual Basic for Aplication (VBA).
VBA itu apa to ? mbuh lah, lha wong saya juga nggak terlalu mudeng,
tapi kayaknya tuh semacam Visual Basic yang sudah terintegrasi dengan
Office Aplication (Ms Excel, Word, MS Access).Jadi didalam Ms Access
kita dapat menyisipkan kode-kode VB (misalnya di dalam form dan
report) agar lebih powerfull dalam mengelola database.
Menurut saya sebenarnya ‘kekuatan’ utama Ms Access adalah VBA itu
sendiri, disamping integrasi yang sangat bagus dengan aplikasi office
saudaranya

Kesimpulannya, Kita dapat membuat aplikasi pengelolaan database dengan
Visual Basic yang berbasis data Ms Access, juga bisa dengan ‘pure’ Ms
Access Aplication yang di bumbui dengan VBA.

lalu gimana enaknya mas djmumun ?
Relatif sih. Bagi para suhu - suhu VB mungkin tertawa dengan dengan
tulisan ini. Bagaimanapun dengan Visual Basic, anda dapat membuat
aplikasi yang lebih kompleks. Fitur Installer yang bagus sehingga kita
bisa membuat aplikasi standalone, tanpa tergantung dengan aplikasi
lain .

tapi bagi saya bila database Ms-Access (bukan data berbasis yang lain, mis
mysql, oracle, dll) yang menjadi point utama, mending langsung pake Ms Access aja.
fitur - fitur nya yang interaktif dan user friendly, -apalagi dengan
wizard-wizardnya - sangat membantu saya dalam membuat aplikasi secara ’
sedap sekejap’.
Kalo masih kurang puas dengan wizard yang ada (biasa nih.. penyakit)
anda dapat mengoprek dengan memberi kode - kode VBA.
Buka aja Visual Basic Editor, silahkan tuliskan kode - kode
(kebanyakan saya sih cuman kopi paste . . . ), dan lihatlah aplikasi
ms access anda nggak kalah dengan yang buatan Visual Basic.kendalanya
mungkin dalam distribusinya.
komputer pemakai musti terinstall minimal Microsoft Access Runtime
atau Microsoft Office profesional

tugas baru

Sumber Daya Informasi adalah 4M+1i,yaitu :
M
Fisikanusia
Material
Mesin
M
Konseptualodal
Informasi
Sistem Informasi adalah sekumpulan hardware,software,brainware,prosedur dan atau aturan yang diorganisasikan secara integrasi untuk mengubah data menjadi informasi yang bermanfaat guna memecahkan masalah dan mengambil keputusan.
Sistem dan Subsistem :
Sistem mati
Subsistem Bahan bakar
Subsistem pendorong
Subsistem kelistrikan
Subsistem rem
Sistem Komputer
CPU
Masukan
Keluaran
Penyimpan sekunder
Sistem informasi Perusahaan
Sistem Informasi Akuntansi
Sistem Informasi Pemasaran
Sistem Informasi Personalia
Sistem Informasi Produksi
Sistem pemrosesan terdistribusi berdasarkan area Fungsional.
3 Macam Arsitektur :
Arsitektur Tersentralisasi :Arsitektur ini sudah dikenal semenjak tahun 1960-an dengan mainframe sebagai faktor utama. Mainframe adalah komputer yang berukuran relatif besar yang ditujukan untuk menangani data yang berukuran besar, dengan ribuan terminal untuk mengakses data dengan tanggapan yang sangat cepat dan melibatkan jutaan transaksi.
Implementasi dari arsitektur terpusat adalah pemrosesan data yang terpusat (biasa disebut komputasi terpusat). Semua pemrosesan data dilakukan oleh komputer yang ditempatkan didalam suatu lokasi yag ditujukan untuk melayani semua pemakai dalam organisasi. Kebanyakan perusahaan yang tidak mempunyai cabang menggunakan model seperti ini.

Arsitektur Terdistribusi:
sistem dimana pemrosesan informasi didistribusikan pada beberapa komputer dan tidak terbatas hanya pada satu mesin saja

Arsitektur Client/Server :Pada arsitektur ini ada sebagian yang disebut client dan ada yang disebut server. Server adalah sistem atau proses yang menyediakan data atau layanan yang diminta oleh client. Secara fisik sebuah server dapat berupa komputer (mainframe, mini-komputer,workstation,ataupun PC) atau piranti lain (misalnya printer). Client mempunyai kemampuan untuk melakukan proses sendiri. Ketika sebuah client meminta suatu data ke server, server akan segera menanggapinya dengan memberikan data yang diminta ke client bersangkutan. Setelah diterima client segera melakukan pemrosesan

tUgAs VB........

kEteRanGan:
1. Menu Bar
2. Menu Editor
3. Classes
4. Form1
5. Project1-Form1(code)
6. Properties-Command1
7. Folder-Form
8. Option Button
9. Immediate
10. Locals
11. Add Watch
12. Form Layout

traffic.....

'the following constants are used to give the lights a certain color
Const Off = &H8000000F
Const Red = vbRed
Const Green = vbGreen
Const Orange = &H80C0FF'

a simple traffic junction of two perpendicular crossing streets
'consists of 4 traffic poles. Each traffic pole has a green, orange'and red light. There is always just one light on per pole.

'The traffic lights control on one of those junctions has just 4'statusses. The current status is stored in the variable "Status".Dim Status As Integer'

The time a status lasts, is derived from the following constants, which'indicate the time in seconds.
Const TimeForStatus1 = 5
Const TimeForStatus2 = 3
Const TimeForStatus3 = 5
Const TimeForStatus4 = 3

Private Sub SetStatus(ByVal intStatus As Integer)
'Set the status variable to the new status
Status = intStatus

'Turn off all the lights
shpLamp1Groen.FillColor = Off
shpLamp1Oranje.FillColor = Off
shpLamp1Rood.FillColor = Off
shpLamp2Groen.FillColor = Off
shpLamp2Oranje.FillColor = Off
shpLamp2Rood.FillColor = Off
shpLamp3Groen.FillColor = Off
shpLamp3Oranje.FillColor = Off
shpLamp3Rood.FillColor = Off
shpLamp4Groen.FillColor = Off
shpLamp4Oranje.FillColor = Off
shpLamp4Rood.FillColor = Off

'Turn on the appropriate lights with the correct color,
'depending on the current status
Select Case intStatus 'or "Select Case Status", won't make any difference
Case 1
shpLamp1Rood.FillColor = Red
shpLamp2Groen.FillColor = Green
shpLamp3Rood.FillColor = Red
shpLamp4Groen.FillColor = Green

Timer1.Interval = TimeForStatus1 * 1000
Case 2
shpLamp1Rood.FillColor = Red
shpLamp2Oranje.FillColor = Orange
shpLamp3Rood.FillColor = Red
shpLamp4Oranje.FillColor = Orange

Timer1.Interval = TimeForStatus2 * 1000
Case 3
shpLamp1Groen.FillColor = Green
shpLamp2Rood.FillColor = Red
shpLamp3Groen.FillColor = Green
shpLamp4Rood.FillColor = Red

Timer1.Interval = TimeForStatus3 * 1000
Case 4
shpLamp1Oranje.FillColor = Orange
shpLamp2Rood.FillColor = Red
shpLamp3Oranje.FillColor = Orange
shpLamp4Rood.FillColor = Red

Timer1.Interval = TimeForStatus4 * 1000
End Select

'We need to call the following subroutine RefreshLights
End Sub
Private Sub RefreshLights()

'This subroutine makes sure that de data on the screen is
'displayed correctly
shpLamp1Groen.Refresh
shpLamp1Oranje.Refresh
shpLamp1Rood.Refresh
shpLamp2Groen.Refresh
shpLamp2Oranje.Refresh
shpLamp2Rood.Refresh
shpLamp3Groen.Refresh
shpLamp3Oranje.Refresh
shpLamp3Rood.Refresh
shpLamp4Groen.Refresh
shpLamp4Oranje.Refresh
shpLamp4Rood.Refresh

End Sub
Private Sub Form_Load()
'When the programs starts, it starts with status 1
SetStatus 1

'Initializing the timer will start
the timer1_timer subroutine after the
'set interval has elapsed (in milliseconds)

Timer1.Interval = TimeForStatus1 * 1000
End Sub
Private Sub Timer1_Timer()
'Change to the next status Status = Status + 1
'If the next status is 5 then we need to change it back to one
If Status = 5 Then Status = 1
SetStatus Status
End Sub