vvisual basic ( contoh )


Pembuatan Database Menggunakan Visual Basic

1.    Buat tampilan seperti gambar di atas.
Untuk input data akan di run program.
2.    Sesuaikan propertisnya.
3.    Masukan codingan sebagai berikut
Private Sub Form_Load()
Txt_kd_jur = ""
Txt_nm_jur = ""
End Sub

Private Sub bersih()
Txt_kd_jur.SetFocus
Txt_kd_jur.Text = ""
Txt_nm_jur.Text = ""
End Sub

      Private Sub normal()
Cmd_tambah.Caption = "tambah"
Cmd_ubah.Caption = "ubah"
Cmd_hapus.Caption = "hapus"
Cmd_keluar.Caption = "keluar"
Cmd_tambah.Enabled = True
Cmd_ubah.Enabled = True
Cmd_hapus.Enabled = True
End Sub

Private Sub cmd_tambah_click()
If Cmd_tambah.Caption = "tambah" Then
bersih
Cmd_tambah.Caption = "simpan"
Cmd_ubah.Enabled = False
Cmd_hapus.Enabled = False
Cmd_keluar.Caption = "batal"
Else
Data1.Recordset.AddNew
Data1.Recordset("kode_jurusan") = Trim(Txt_kd_jur.Text)
Data1.Recordset("nama_jurusan") = Trim(Txt_nm_jur.Text)
Data1.Recordset.Update
Data1.Refresh
DBGrid1.Refresh
bersih
normal
End If
End Sub

Private Sub Cmd_ubah_Click()
If Cmd_ubah.Caption = "ubah" Then
bersih
Cmd_ubah.Caption = "simpan"
Cmd_tambah.Enabled = False
Cmd_hapus.Enabled = False
Cmd_keluar.Caption = "batal"
Else
Data2.RecordSource = "select* from jurusan where kode_jurusan='" & Trim(kd_jur) & "'"
'data2.Refresh
Data1.Recordset.Edit
Data1.Recordset("nama_jurusan") = Trim(Txt_nm_jur.Text)
Data1.Recordset.Update
Data1.Refresh
DBGrid1.Refresh
bersih
normal
End If
End Sub

Private Sub Cmd_hapus_Click()
If Cmd_hapus.Caption = "hapus" Then
bersih
Cmd_tambah.Enabled = False
Cmd_ubah.Enabled = False
Cmd_hapus.Caption = "simpan"
Cmd_keluar.Caption = "batal"
Else
Data2.RecordSource = "select*from jurusan kode_jurusan='" & Trim(kd_jur) & "'"
'data2.Refresh
Data1.Recordset.Delete
Data1.Refresh
DBGrid1.Refresh
bersih
normal
End If
End Sub


Private Sub Cmd_keluar_Click()
If Cmd_keluar.Caption = "keluar" Then
Unload Me
Else
bersih
normal
End If
End Sub




Tambahan:

Pada saat tombol tambah di klik berubah menjadi simpan, tombol keluar menjadi batal, tombol ubah dan hapus menjadi tidak aktif. Dan tombol batal di klik , semua tombol kembali aktif







Pada saat tombol ubah di klik berubah menjadi simpan, tombol keluar menjadi batal, tombol simpan dan hapus menjadi tidak aktif. Dan tombol batal di klik , semua tombol kembali aktif




Pada saat tombol hapus di klik berubah menjadi simpan, tombol keluar menjadi batal, tombol simpan dan ubah menjadi tidak aktif. Dan tombol batal di klik , semua tombol kembali aktif

Pada saat tombol keluar di klik kembali ke form semula .





Komentar

Posting Komentar

Postingan populer dari blog ini

sistem informasi manajement

Yayan nuryana 43A87067100022 D3/KA/4/M TUGAS SISTEM INFORMASI MANAGEMENT Informasi lebih lanjut   kunjungi : Email: yayanbekasi@gmail.com Blogger: yayankuningan.blogspot.com SOAL LATIHAN 1. Uraikanlah perkembangan sistem informasi manajemen yang Saudara ketahui! 2. Dengan bahasa saudara sendiri, definisikanlah sistem informasi manajemen! 3.        Mengapa belakangan ini sistem informasi manajemen mendapat perhatian besar? Jelaskan! 4.        Tingkat manajemen mana yang paling tertarik untuk menyesuaikan sistem informasi dengan kebutuhannya ? 5.        Uraikanlah pengguna sistem informasi manajemen di kantor Saudara! 6.        Uraikanlah penggunaan sistem informasi manajemen di kantor objek yang Saudara periksa! Jika Saudara ditugaskan untuk merancang Laporan Bulanan Penugasan Audit untu...
Baca selengkapnya

tugas sistem informasi management

Gambar
¨   Uraikanlah model-model pengembangan sistem informasi yang ada? model air terjun (waterfall model) dimana model ini mendeskripsikan alur proses pengembangan sistem informasi   .Kebutuhan spesifikasi>>>analisis>>perancangan>>implementasi&pengetesan unit>>integrasi>>pemeliharaan ¨   Uraikanlah tahap-tahap pengembangan sistem informasi tradisional ¨    Tahap Perencanaan ¨   Tahap Analisis ¨   Tahap Perancangan/Desain ¨   Tahap Pembangunan Fisik/Konstruksi ¨   Tahap Pasca Implementasi   ¨   Ditahap apakah biasanya dilakukan kegiatan pemrograman (coding)? Tahap Perancangan/Desain ¨   Pada tahap ini, tim teknologi informasi bekerja sama dengan tim bisnis atau manajemen melakukan perancangan komponen-komponen sistem terkait. Tim teknologi informasi akan melakukan perancangan teknis dari teknologi informasi yang akan dibangun, seperti sistem basis data, jaringan komputer,...
Baca selengkapnya

OBJEK OBJEK PADA VISUAL BASIC

Gambar
TUGAS VB 1 YAYAN NURYANA  NPM:43A87067100022 D3\KA\M\3 TOOLBOX DAN PENGERTIANYA PADA VISUAL BASIC Control Description Pointer Menyediakan suatu cara untuk memindahkan dan mengubah ukuran bentuk kontrol PictureBox Menampilkan PictureBox icons / bitmaps dan metafiles . Ini menampilkan teks atau bertindak sebagai kontainer visual untuk kontrol lain . TextBox Digunakan untuk menampilkan pesan dan masukkan teks . Frame Berfungsi sebagai bingkai wadah visual dan fungsional untuk kontrol CommandButton Digunakan untuk melaksanakan tindakan tertentu ketika pengguna memilih itu . CheckBox Menampilkan kotak centang pilihan / Benar / Salah atau Ya Tidak . OptionButton yang merupakan bagian dari kelompok pilihan memungkinkan pengguna untuk memilih hanya satu pilihan bahkan ini akan menampilkan pilihan mulitiple...
Baca selengkapnya