Posted  by  admin

Cara Membuat Sistem Informasi Antrian Dengan Ms Access

Membuat data karyawan dengan menggunakan database Microsoftaccess
  1. Buat table pada accessnya seperti gambar dibawah ini

Microsoft Access adalah salah satu software dari microsoft yang digunakan untuk pembuatan database. Tidak seperti penggunaan Ms SQL yang menggunakan bahasa pemrograman yang rumit, Microsoft Access dibuat dengan user friendly jadi bayi yang baru lahir aja bisa,hehe(just kids).

gambar 1.1
gambar 1.2
gambar 1.3
2. Buka program visual studio 2008
3. Design fromseperti gambar dibawah ini
Dan simpandengan “Sistem Informasi Penggajian Karyawann cv.Smart Solution”
Denganmenggunakan menu strip seperti gambar dibawah ini




Cara membuat menustrip seperti gambar diatas adalah
    • Pada control command pilih menus and toolbars
    • Pilih menu strip
    • Maka akan muncul gambar seperti dibawah ini
    • Pada tupy here ketik “file” dan design seperti gambar 1.4
  1. tambah form baru dan beri nama masing - masing form tersebut dengan nama pegawai,bagian,jabatan
gambar 1.5
Antrian gambar 1.6

Cara Membuat Sistem Informasi Antrian Dengan Ms Access Account

gambar 1.7
  1. klik menu project pada menubarlalu pilih add moduls
  2. pada form moduls ketik perintah seperti dibawah ini
ImportsSystem.Data.OleDb
Module Module1
Public cmd As OleDbCommand
Public DR As OleDbDataReader
Public SQL AsString
PublicSub OPENDB()
DimLOKASI = 'PROVIDER=Microsoft.Jet.OLEDB.4.0;DataSource=E:VBDatabasetria.mdb'
IfDB.State = ConnectionState.Closed Then
EndIf

SubTAMPILGRID(ByVal obj AsObject, ByValctable AsString)
ADP = NewOleDbDataAdapter(SQL, DB)
ADP.Fill(DS, ctable)
EndSub
SubIsikanCombo(ByVal cbo AsObject, ByValctable AsString,ByVal cfield AsString)
SQL = 'select' & cfield & ' from '& ctable
DR = cmd.ExecuteReader
cbo.Items.Add(DR(cfield))
DR.Close()


  1. pada form 1 ketik perintah seperti dibawah ini
PublicClass Form1
PrivateSub DataBagianToolStripMenuItem_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles DataBagianToolStripMenuItem.Click
data_bagian.Show()

PrivateSub DataPegawaiToolStripMenuItem_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesDataPegawaiToolStripMenuItem.Click
data_pegawai.Show()

PrivateSub ToolStripMenuItem2_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) HandlesToolStripMenuItem2.Click
jabatan.Show()
EndClass
  1. pada form pegawai ketik perintah dibawah ini

ImportsSystem.Data.OleDb

SubRubahButton(ByVal L0 AsBoolean, ByValL1 AsBoolean, ByVal L2 AsBoolean, ByVal L3 AsBoolean, ByVal L4 AsBoolean, ByVal L5 AsBoolean)
btnsimpan.Enabled = L1
Cara Membuat Sistem Informasi Antrian Dengan Ms Access
btnhapus.Enabled = L3
btnkeluar.Enabled = L5

nik.Text = '
bagian.Text = '
gajipokok.Text = '
tgllahir.Text = '
CallRubahButton(True, False,False, False, False, True)

Cara Membuat Sistem Informasi Antrian Dengan Ms Access Pdf

SelectCase aksi
SQL = 'insertinto karyawan(nik,nama,jabatan,gajipokok,tlahir,tgllahir,tglmasuk)'& _
nama.Text& ',' & _
jabatan.Text & ','& _
tlahir.Text & ','& _
tglmasuk.Text & ')'
SQL = 'updatekaryawan set nama=' & nama.Text & ',' & _
'jabatan = ' & jabatan.Text & ', ' & _
'tlahir = ' & tlahir.Text & ', ' & _
'tglmasuk= ' & tglmasuk.Text & ' ' & _
Case2
SQL = 'deletefrom karyawan where nik=' & nik.Text & ''
cmd = NewOleDbCommand(SQL, DB)
Callhapus()
CallIsikanCombo(nik, 'karyawan', 'nik')
EndSub
PrivateSub data_pegawai_Load(ByValsender As System.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load
Callhapus()
CallIsikanCombo(nik, 'karyawan', 'nik')
Cari.Items.Add('nama')
Cari.Items.Add('gajipokok')
Cari.Items.Add('tgllahir')


PrivateSub btnhapus_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles btnhapus.Click
EndSub
PrivateSub btnkeluar_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles btnkeluar.Click
EndSub
PrivateSub btnbaru_Click(ByValsender As System.Object, ByVal e As System.EventArgs)Handles btnbaru.Click
GRID.Focus()

PrivateSub nik_KeyPress(ByValsender AsObject,ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handlesnik.KeyPress
Dimxkaryawan AsString
SQL = 'select* from karyawan where nik=' & nik.Text & ''
DR = cmd.ExecuteReader
IfDR.HasRows = TrueThen
bagian.Text = DR('bagian')
gajipokok.Text = DR('gajipokok')
tgllahir.Text = DR('tgllahir')
CallRubahButton(False, False,True, True, True, False)
xkaryawan = nik.Text
nik.Text = xkaryawan
CallRubahButton(False, True,False, False, True, False)
DR.Close()
EndIf

PrivateSub nik_SelectedIndexChanged(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handlesnik.SelectedIndexChanged
EndSub
PrivateSub btnbatal_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles btnbatal.Click
nik.Focus()

PrivateSub btnedit_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles btnedit.Click
EndSub
PrivateSub btnsimpan_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles btnsimpan.Click
EndSub
  1. Pada form bagian ketik perintah dibawah ini
ImportsSystem.Data.OleDb
PublicClass data_bagian
SubRubahButton(ByVal L0 AsBoolean, ByValL1 AsBoolean, ByVal L2 AsBoolean, ByVal L3 AsBoolean, ByVal L4 AsBoolean, ByVal L5 AsBoolean)
btnsimpan.Enabled = L1
btnhapus.Enabled = L3
btnkeluar.Enabled = L5

kdbagian.Text = '
pimpinan.Text = '
CallRubahButton(True, False,False, False, False, True)

SelectCase aksi
SQL = 'insertinto bagian(kdbagian,nmbagian,pimpinan,telp)' & _
nmbagian.Text & ','& _
tlpn.Text & ')'
SQL = 'updatebagaian set nmbagian=' & nmbagian.Text & ', ' & _
'telp= ' & tlpn.Text & ' ' & _
Case2
SQL = 'deletefrom bagian where kdbagian=' & kdbagian.Text & ''
cmd = NewOleDbCommand(SQL, DB)
Callhapus()
CallIsikanCombo(kdbagian, 'Bagian', 'kdbagian')
EndSub
PrivateSub btnhapus_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles btnhapus.Click
EndSub
PrivateSub btnkeluar_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles btnkeluar.Click
EndSub
PrivateSub data_bagian_Load(ByValsender As System.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load
Callhapus()
Call IsikanCombo(kdbagian,'Bagian', 'kdbagian')
Cari.Items.Add('nmBagian')
Cari.Items.Add('telp')

PrivateSub btnbaru_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles btnbaru.Click
GRID.Focus()

PrivateSub kdbagian_KeyPress(ByValsender AsObject,ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handleskdbagian.KeyPress
Dimxbagian AsString
Sql = 'select* from bagian where KDbagian=' & kdbagian.Text & ''
DR = cmd.ExecuteReader
IfDR.HasRows = TrueThen
nmbagian.Text = DR('nmbagian')
CallRubahButton(False, False,True, True, True, False)
xbagian = kdbagian.Text
kdbagian.Text = xbagian
CallRubahButton(False, True,False, False, True, False)
DR.Close()
EndIf

PrivateSub btnbatal_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles btnbatal.Click
kdbagian.Focus()

PrivateSub btnedit_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles btnedit.Click
EndSub
PrivateSub btnsimpan_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles btnsimpan.Click
EndSub
PrivateSub Search_TextChanged(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles Search.TextChanged
Sql = 'SELECT* FROM bagian where ' & Cari.Text & ' like '%' & Search.Text & '%'
DS = NewDataSet
GRID.DataSource = DS.Tables('bagian')
Sistem

PrivateSub kdbagian_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handleskdbagian.SelectedIndexChanged
EndSub

10.Pada form jabatan ketik perintah seperti dibawah ini
ImportsSystem.Data.OleDb
SubRubahButton(ByVal L0 AsBoolean, ByValL1 AsBoolean, ByVal L2 AsBoolean, ByVal L3 AsBoolean, ByVal L4 AsBoolean, ByVal L5 AsBoolean)
btnsimpan.Enabled = L1
btnhapus.Enabled = L3
btnkeluar.Enabled = L5

kdjabatan.Text = '
TUNJANGAN.Text = '
CallRubahButton(True, False,False, False, False, True)

Cara Membuat Sistem Informasi Antrian Dengan Ms Access Pdf


SelectCase aksi
SQL = 'insertinto jabatan(kdjabatan,jabatan,tunjangan)' & _
nmjabatan.Text & ','& _
Case1
SQL = 'updatejabatan set jabatan=' & nmjabatan.Text & ', ' & _
' where kdjabatan = ' * kdjabatan.Text& ','
SQL = 'deletefrom jabatan where kdjabatan=' & kdjabatan.Text & ''
cmd = NewOleDbCommand(SQL, DB)
Callhapus()
CallIsikanCombo(kdjabatan, 'jabatan', 'kdjabatan')
EndSub
PrivateSub jabatan_Load(ByValsender As System.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load
Cari.Items.Add('nama')
Cari.Items.Add('gajipokok')
Cari.Items.Add('tgllahir')
CallOPENDB()
CallIsikanCombo(kdjabatan, 'jabatan', 'kdjabatan')

PrivateSub btnhapus_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles btnhapus.Click
EndSub
PrivateSub btnkeluar_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles btnkeluar.Click
EndSub
PrivateSub btnbaru_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles btnbaru.Click
GRID.Focus()

PrivateSub kdjabatan_KeyPress(ByValsender AsObject,ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handleskdjabatan.KeyPress
Dimxjabatan AsString
SQL = 'select* from jabatan where kdjabatan=' & kdjabatan.Text & ''
DR = cmd.ExecuteReader
IfDR.HasRows = TrueThen
TUNJANGAN.Text = DR('tunjangan')
CallRubahButton(False, False,True, True, True, False)
xjabatan = kdjabatan.Text
kdjabatan.Text = xjabatan
CallRubahButton(False, True,False, False, True, False)
DR.Close()
EndIf

PrivateSub kdjabatan_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handleskdjabatan.SelectedIndexChanged
EndSub
PrivateSub btnbatal_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles btnbatal.Click
kdjabatan.Focus()

PrivateSub btnedit_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles btnedit.Click
EndSub
PrivateSub btnsimpan_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles btnsimpan.Click
EndSub
PrivateSub nmjabatan_TextChanged(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles nmjabatan.TextChanged
EndSub


mesran.net
trianiarista.blogspot.com




Rahmatini Rahmatini

2010-05-01

Full Text Available AbstrakUji klinik adalah suatu pengujian khasiat obat baru pada manusia, dimana sebelumnya diawali oleh pengujian pada binatang atau uji pra klinik. Pada dasarnya uji klinik memastikan efektivitas, keamanan dan gambaran efek samping yang sering timbul pada manusia akibat pemberian suatu obat. Bila uji klinik tidak dilakukan maka dapat terjadi malapetaka pada banyak orang bila langsung dipakai secara umum seperti pernah terjadi dengan talidomid (1959-1962 dan obat kontrasepsi pria (gosipol di Cina. Setiap obat yang ditemukan melalui eksperimen in vitro atau hewan coba tidak terjamin bahwa khasiatnya benar-benar akan terlihat pada penderita. Pengujian pada manusia sendirilah yang dapat “menjamin” apakah hasil in vitro atau hewan sama dengan manusia.Uji klinik terdiri dari 4 fase, yaitu uji klinik fase I.Uji klinik fase II, uji klinik fase III dan uji klinik fase IV. Uji klinik fase I dilakukan pada manusia sehat, bertujuan untuk menentukan dosis tunggal yang dapat diterima, Uji klinik fase II, dilakukan pada 100-200 orang penderita untuk melihat apakah efek farmakologik yang tampak pada fase I berguna atau tidak untuk pengobatan. Uji klinik fase III dilakukan pada sekitar 500 penderita yang bertujuan untuk memastikan bahwa suatu obat baru benar-benar berkhasiat. Uji klinik fase IV merupakan pengamatan terhadap obat yang telah dipasarkan. Fase ini bertujuan menentukan pola penggunaan obat di masyarakat serta pola efektifitas dan keamanannya pada penggunaan yang sebenarnya.Uji klinik yang baik dilakukan dengan prosedur yang sudah digariskan dan komponen- komponennya disiapkan dengan matang sehingga hasilnya betul- betul dapat dimanfaatkan sebagai acuan pengobatan.Kata kunci : Khasiat- keamanan- uji klinikAbstractClinical trials is a new drug efficacy testing in humans, which previously preceded by testing on animals or pre-clinical testing. Basically, clinical trials confirm description of effectiveness, safety and side effects that often arise