program aplikasi vb penjualan Tiket Kreta Api dengan database 2016

Hi broo salam netpreneur di sini saya akan menjelaskan bagaiman cara membuat aplikasi program dari visual studio.Pertama kita akan membuat form login dahulu broo,ini adalah contoh program buatan saya yaitu aplikasi Penjualan Tiket Kreta Api, ok langsung saja di lihat broo
1.Pertama buat form loginnya dulu seperti di bawah ini

  

 

2.Selanjutnya klik dua kali pada button atau tombol masuk untuk menulis script programnya agar kita nanti dapat menampilkan form selanjutnya,berikut source kodenya:

Imports System.Data
Imports System.Data.SqlClient
Public Class Login

    Private Sub Btnmasuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnmasuk.Click
        On Error Resume Next
        Dim ObjCmd As New SqlCommand
        Dim ObjDataSet As New DataSet
        Dim ObjReader As SqlDataReader
        Dim MyCon As New accessdata.koneksi
        Dim UserID As String
        Dim Password As String

        If txtkuserid.Text = "" Or Textpassword.Text = "" Then
            MsgBox("UserID & Password tidak boleh kosong", MsgBoxStyle.Exclamation, "kosong!")
            txtkuserid.Focus()
            Exit Sub
        End If

        ObjCmd = MyCon.open.CreateCommand
        ObjCmd.CommandText = ("Select * from TBKASIR where namakasir='" & txtkuserid.Text & "' and password='" & Trim(Textpassword.Text) & "'")
        ObjReader = ObjCmd.ExecuteReader
        ObjReader.Read()
        UserID = ObjReader.Item("namakasir")
        Password = ObjReader.Item("password")
        MyCon.close()

        If UserID = "" Or Password = "" Then
            MsgBox("Akses ditolak!", vbCritical, "Akses...")
            Exit Sub
        Else
            Me.Hide()
            MenuUtama.Show()
            txtkuserid.Text = ""
            Textpassword.Text = ""
        End If
    End Sub

    Private Sub Btnkluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkluar.Click
        Dim kluar As Integer
        kluar = MessageBox.Show("Anda yakin keluar dari aplikasi?", Me.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
        If kluar = MsgBoxResult.Yes Then
            End
        Else
            Exit Sub
        End If
    End Sub

    Private Sub Textpassword_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Textpassword.KeyUp
        If e.KeyCode = Keys.Enter Then
            Textpassword.Focus()
        End If
    End Sub

    Private Sub Btnmasuk_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Btnmasuk.KeyUp
        If e.KeyCode = Keys.Enter Then
            Btnmasuk.Focus()
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        lbljam.Text = TimeOfDay
    End Sub

    Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class
3.Agar lebih jelasnya silahkan kalian download aplikasi dan databasenya di bawah ini ya hehe
 download aplikasi penjualan Tiket Kreta Api 
download juga databasenya disini..!

TERIMA KASIH ATAS KUNJUNGAN SAUDARA

Judul: program aplikasi vb penjualan Tiket Kreta Api dengan database 2016
Ditulis oleh Unknown
Rating Blog 5 dari 5

Semoga artikel ini bermanfaat bagi saudara. Jika ingin mengutip, baik itu sebagian atau keseluruhan dari isi artikel ini harap menyertakan link dofollow ke http://dirmanraissu.blogspot.com/2016/05/hi-broo-salam-netpreneur-di-sini-saya.html. Terima kasih sudah singgah membaca artikel ini.