Skip to main content

Belajar VB (Membuat Form Input Data)

Belajar Vb, belajar pemrograman, belajar coding, bahasa pemrograman, pemrograman dasar, belajar vb 6.0


Membuat Form Input Data Menggunakan VB 6.0

Untuk membuat form input data dengan menggunakan Visual Basic (VB) Versi 6.0 sangatlah mudah, cukup dengan melalui tahapan-tahapan membuat form, membuat database dan menuliskan listing programnya. berikut ini kita jabarkan tahapan-tahapan tersebut.

1. Tahapan Membuat Form Input Data

Membuat form input data dimulai dengan membuka program aplikasi Visual Basic, yaitu dengan cara klik Menu Project, Klik Submenu Add Form kemudian desain formnya, untuk tulisan menggunakan ikon Label, dan untuk inputnya menggunakan ikon Text Box dan untuk membuat tombol operasinya menggunakan Command Button.


Gambar Form Input Data

2. Tahapan Menulis Listing Programnya

Untuk Menuliskan listing  programnya yaitu dengan cara double klik Command Button Tambah, dan tuliskan listing programnya secara keseluruhan. berikut listing programnya :

Dim vBaru As Boolean

Private Sub baru_Click()
If Baru.Caption = "Tambah" Then
Baru.Caption = "Batal"
hidup
Kosong
Awal

vBaru = True
MatiNav
Edit.Enabled = False
Hapus.Enabled = False

Else
Baru.Caption = "Tambah"
Text1 = ""
Kosong
mati
vBaru = True
MatiNav
Simpan.Enabled = False
Edit.Enabled = False
Hapus.Enabled = False
End If
End Sub

Private Sub edit_Click()
Hapus.Enabled = False
Baru.Enabled = True
Baru.Caption = "Batal"
MatiNav
Edit.Enabled = False
hidup
vBaru = False
End Sub

Private Sub form_load()
Text1.MaxLength = 6
With DE.rsPetugas
    If .State = 0 Then .Open
    .Filter = adFilterNone
End With
Simpan.Enabled = False
Edit.Enabled = False
Hapus.Enabled = False
End Sub

Private Sub hapus_Click()
If MsgBox("Hapus Data?", vbQuestion + vbYesNo, "") = vbYes Then
    DE.rsPetugas.Delete
    MsgBox "Data Terhapus"
    Text1 = ""
    Kosong
    vBaru = True
    MatiNav
End If
Baru.Caption = "Tambah"
Simpan.Enabled = False
Hapus.Enabled = False
Edit.Enabled = False
End Sub

Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
DE.rsPetugas.Find "id_petugas='" + Text1.Text + "'", , adSearchForward, 1
If Not DE.rsPetugas.EOF Then
     MsgBox "Maaf, ID Petugas dengan ID " + Text1.Text + " Sudah Ada!"
Else
Text2.SetFocus
End If
End If
End Sub

Private Sub simpan_Click()
With DE.rsPetugas
    If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
        MsgBox "Data Belum Lengkap"
        Exit Sub
    End If
    If .State = 0 Then .Open
    If vBaru = True Then .AddNew
    !id_petugas = Text1.Text
    !nama_petugas = Text2.Text
    !alamat = Text3.Text
    .Update
    MsgBox "Data Petugas Telah Tersimpan"
    
    HidupNav
End With
Text1.Text = ""
Kosong
Baru.Caption = "Tambah"
mati
End Sub
Public Sub tengah()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub

Public Sub Tampil()
With DE.rsPetugas
    If .State = 0 Then .Open
    Text1.Text = !id_petugas
    Text2.Text = !nama_petugas
    Text3.Text = !alamat
End With
End Sub

Public Sub Kosong()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Public Sub MatiNav()
Simpan.Enabled = True
BukaKunci
End Sub

Public Sub HidupNav()
Baru.Enabled = True
Simpan.Enabled = False
kunci
End Sub

Public Sub kunci()
Text1.Locked = True
Text2.Locked = True
Text3.Locked = True
End Sub

Public Sub BukaKunci()
Text1.Locked = False
Text2.Locked = False
Text3.Locked = False
End Sub

Private Sub mati()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
End Sub

Private Sub hidup()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
End Sub

Private Sub cari_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
DE.rsPetugas.Find "id_petugas='" + cari.Text + "'", , adSearchForward, 1
If Not DE.rsPetugas.EOF Then
    Text1.Text = DE.rsPetugas!id_petugas
   Text2.Text = DE.rsPetugas!nama_petugas
    Text3.Text = DE.rsPetugas!alamat
    mati
    Hapus.Enabled = True
    Edit.Enabled = True
Else
     MsgBox "Maaf, Data Tidak Ditemukan!"
End If
End If
End Sub

Public Sub Awal()
With DE.rsPetugas
If .State = 0 Then .Open
.Filter = adFilterNone
If .RecordCount < 1 Then
    Text1.Text = "PT1001"
ElseIf .RecordCount > 0 Then
    .MoveLast
   Text1.Text = "PT" & Val(Right(!id_petugas, 4)) + 1
End If
End With
End Sub

Baca juga artikel Listing VB (Visual Basic)

Labels:

Comments

Post a Comment

Popular posts from this blog

Definisi, Langkah langkah Kristalisasi

Definisi dan Langkah langkah Kristalisasi Pemisahan dengan teknik kristalisasi didasari atas pelepasan pelarut dari zat terlarutnya dalam sebuah campuran homogeen atau larutan, sehingga terbentuk kristal dari zat terlarutnya. Definis Krisatalisasi Proses ini adalah salah satu teknik pemisahan padat‐cair yang sangat penting dalam industri, karena dapat menghasilkan kemurnian produk hingga 100%. Kristal dapat terbentuk karena suatu larutan dalam keadaan atau kondisi lewat jenuh (supersaturated). Kondisi tersebut terjadinya karena pelarut sudah tidak mampu melarutkan zat terlarutnya, atau jumlah zat terlarut sudah melebihi kapasitas pelarut. Sehingga kita dapat memaksa agar kristal dapat terbentuk dengan cara mengurangi jumlah pelarutnya, sehingga kondisi lewat jenuh dapat dicapai. Proses pengurangan pelarut dapat dilakukan dengan empat cara yaitu, penguapan, pendinginan, penambahan senyawa lain dan reaksi kimia. Pemisahan denga pembentukan kristal melalui proses peng
Post a Comment
Read more

Mengenal Benua, Negara, dan Asia, serta keadaan alam, penduduk, dan sistem pemerintahannya

Termasuk materi yang penting dan mendasar untuk mengenal Benua, Negara, Asia, dan Eropa serta keadaan alam, penduduk, dan sistem pemerintahannya sehingga dapat menambah wawasan serta dapat besikap dengan bijaksana.
Post a Comment
Read more

Mengenal Prinsip Mesin Konversi Energi, (konversi energi, pengertian konversi energi, mesin konversi energi, mesin boiler, boiler adalah, energi listrik,pengertian energi, macam macam energi, konversi adalah)

Mengenal Prinsip Mesin Konversi Energi 1. Proses Mesin Konversi Energi Ilmu termodinamika adalah ilmu yang mempelajari hubungan panas dengan kerja. Dua besaran tersebut sangat penting untuk dipahami karakteristiknya untuk pemahaman dasar keteknikan. Jadi jelas pengetahuan dasar termodinamika sangat penting, karena dipakai untuk menganalisis kondisi operasi berbagai alat atau mesin yang berhubungan dengan panas dan kerja. 2. Ciri-Ciri Mesin Konversi Energi Untuk menganalisis mesin-mesin panas atau mesin-mesin fluida, mesin-mesin tersebut disebut dengan benda kerja. Fluida atau zat alir yang dipakai pada benda kerja disebut dengan fluida kerja. Sebagai contoh untuk pompa sebagai benda kerja, fluida kerjanya adalah zat cair (air, oli ), sedangkan kompresor, fluida kerjanya adalah udara. Untuk membedakan benda kerja dengan lingkungan sekitarnya, benda kerja sering disebut dengan sistem, yaitu setiap bagian tertentu, yang volume dan batasnya tidak perlu tetap, dimana perpindahan
Post a Comment
Read more