Membuat Aplikasi Menggunakan Visual Basic (Biro Perjalan)

nah mungkin teman-teman ingin mencoba membuat aplikasi menggunakan Visual Basic. disini saya ada contoh yaitu tentang biro perjalan, bagi teman teman yang tertarik silahan lihat gambar dibawah, atau silakan dowload langsung file VB Biro Perjalanan.

 untuk membuat aplikasi Biro Perjalan sendiri saya menggunakan coding seperti ini. bisa teman teman lihat dibawah ini.

Sub otomatis()
With Adodc1.Recordset
Dim a As String
If .EOF Then
Text2.Text = "TR" + "001"
Else
.MoveLast
a = Val(Right(!notrans, 3)) + 1
Text2.Text = "TR" + Right("000" & a, 3)
End If
End With
End Sub

Sub aktif()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Combo1.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
Text9.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
End Sub
Sub mati()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Combo1.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
End Sub
Sub bersih()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Combo1.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
End Sub
Sub simpan()
     With Adodc1.Recordset
          .AddNew
          !Tanggal = Text1.Text
          !notrans = Text2.Text
          !Nama_pembeli = Text3.Text
          !Alamat = Text4.Text
          !Tujuan = Combo1.Text
          !harga = Text6.Text
          !Jumlah = Text6.Text
          .Update
     End With
End Sub


Private Sub Combo1_Click()
If Combo1.Text = "Pontianak-Singkawang" Then
            Text5.Text = "95000"
    ElseIf Combo1.Text = "Pontianak-Sintang" Then
            Text5.Text = "160000"
    ElseIf Combo1.Text = "Pontianak-Sanggau" Then
            Text5.Text = "110000"
        End If
End Sub

Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.MovePrevious
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.MoveNext
End Sub

Private Sub Command4_Click()
Adodc1.Recordset.MoveLast
End Sub

Private Sub Command5_Click()
Call aktif
Call otomatis
Text2.SetFocus
End Sub

Private Sub Command6_Click()
Adodc1.Recordset.Find "Notrans='" & Text2.Text & "'"
If Adodc1.Recordset.EOF Then
    simpan
Else
    MsgBox "Kode Sudah Ada"
    Text1.Text = Empty
    Text2.SetFocus
End If
Call bersih
End Sub

Private Sub Command7_Click()
Call mati
End Sub

Private Sub Command8_Click()
 p = MsgBox("Do you want to delete this record?", vbQuestion + vbYesNo, "Warning")
    If p = vbYes Then
        Adodc1.Recordset.Delete
        MsgBox "Record was delete succesfully!", vbInformation, "Feed Back"
    End If
End Sub

Private Sub Command9_Click()
p = MsgBox("Do you want to exit?", vbQuestion + vbOKCancel, "Data Mahasiswa")
    If p = vbOK Then
        End
    End If
End Sub

Private Sub Form_Load()
Call mati
Combo1.AddItem "Pontianak-Singkawang"
    Combo1.AddItem "Pontianak-Sintang"
    Combo1.AddItem "Pontianak-Sanggau"
Text1.Text = Format(Date, "dddd,dd-mmmm-yyyy")
End Sub


Private Sub Text6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text7 = Val(Text5) * Val(Text6)
End If
End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text9 = Val(Text8) - Val(Text7)
End If
End Sub

silakan langsung dowload disini : DOWLOAD DISINI