Download Aplikasi

Tweet

PSB APPLICATION - VISUAL BASIC 2012 & SQL SERVER 2012

Pertama yang kita butuhkan adalah :

- Visual Basic 2012.

- SQL Server 2012.

- Tidak Mengantuk + Semangat.

Kedua buatlah database dengan nama "db_smkti"

Selanjutnya buatlah table dengan nama "tb_pendaftaran"

Lalu isi field nya beserta tipe data seperti gambar dibawah ini

Setelah pembuatan database selesai, sekarang kita akan membuat aplikasi nya.

1. pertama buatlah file config.vb , dengan langkah seperti gambar dibawah ini :

Selanjutnya ketikkan code berikut di file config.vb yang kita buat tadi..

Berikut codenya "config.vb" :

1. Imports System.Data.SqlClient
2. Module Config
3.     Public cn As New SqlConnection
4.     Public cmd As New SqlCommand
6.     Sub opendb()
7.         cn.ConnectionString = "Data Source=REZAPADILLAH-PC\SQLEXPRESS;Initial Catalog=db.smkti;Integrated Security=True"
8.         cn.Open()
9.         If cn.State = ConnectionState.Open Then
10.             MessageBox.Show("DB Open")
11.         Else
12.             MessageBox.Show("DB Open Failed")
13.         End If
14.     End Sub
15. End Module

Setelah itu buat lah form baru dengan nama "FrmPendaftaran" dengan isi :

- 5 buah textbox  

- 1 buah datetimepicker 

- 1 buah datagridview 

- 4 buah button

Setelah selesai design form FrmPendaftaran sebagai berikut..

KETERANGAN :
 - Textbox " id pendaftaran" diberi nama " txtid " - Textbox " nama " diberi nama " txtnama " - Textbox " tempat lahir " diberi nama " txttempatlahir " - Datetimepicker " tanggal lahir " diberi nama " tgl_lahir " - Textbox " asal sekolah " diberi nama " txtasalsekolah "  - Textbox " alamat pendaftar " diberi nama " txtalamat " - Datagridview diberi nama " DataGridView1 " - Button " insert " diberi nama " btninsert " - Button " update " diberi nama " btnupdate " - Button " delete " diberi nama " btndelete " - Button " refresh " diberi nama " btnrefresh "

Selanjutnya ketikkan kode berikut di dalam form FrmPendaftaran :

1. Imports System.Data.SqlClient
2. Public Class FrmPendaftaran
3.     Sub opentable()
4.         cmd.Connection = cn
5.         cmd.CommandText = "SELECT * FROM tb_pendaftaran"
6.         Dim rd As SqlDataReader = cmd.ExecuteReader
7.         Dim dt As New DataTable
8.         dt.Load(rd)
9.         DataGridView1.DataSource = dt
10.     End Sub
11.  
12.     Sub bersih()
13.         txtid.Text = ""
14.         txtnama.Text = ""
15.         txttempatlahir.Text = ""
16.         tgl_lahir.Text = ""
17.         txtasalsekolah.Text = ""
18.         txtalamat.Text = ""
19.     End Sub
20.  
21.     Sub kodeotomatis()
22.         Dim kodeauto As Single
23.         cmd.Connection = cn
24.         cmd.CommandText = "SELECT COUNT(*) as id_pendaftaran FROM tb_pendaftaran"
25.         Dim rd As SqlDataReader = cmd.ExecuteReader
26.         While rd.Read
27.             kodeauto = Val(rd.Item("id_pendaftaran").ToString) + 1
28.         End While
29.         Select Case Len(Trim(kodeauto))
30.             Case 1 : txtid.Text = "IP00" + Trim(Str(kodeauto))
31.             Case 1 : txtid.Text = "IP0" + Trim(Str(kodeauto))
32.             Case 1 : txtid.Text = "IP" + Trim(Str(kodeauto))
33.         End Select
34.         rd.Close()
35.         cn.Close()
36.     End Sub
37.  
38.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
39.         End
40.     End Sub
41.  
42.     Private Sub FrmPendaftaran_Load(sender As Object, e As EventArgs) Handles MyBase.Load
43.         opendb()
44.         opentable()
45.         kodeotomatis()
46.     End Sub
47.  
48.     Private Sub btninsert_Click(sender As Object, e As EventArgs) Handles btninsert.Click
49.         cn.Open()
50.         cmd.Connection = cn
51.         cmd.CommandText = "INSERT INTO tb_pendaftaran VALUES ('" & txtid.Text & "','" & txtnama.Text & "','" & txttempatlahir.Text & "','" & tgl_lahir.Value & "','" & txtasalsekolah.Text & "','" & txtalamat.Text & "')"
52.         cmd.ExecuteNonQuery()
53.         MessageBox.Show("Data Berhasil Tersimpan")
54.         bersih()
55.     End Sub
56.  
57.     Private Sub DataGridView1_DoubleClick(sender As Object, e As EventArgs) Handles DataGridView1.DoubleClick
58.         txtid.Text = DataGridView1.SelectedCells(0).Value
59.         txtnama.Text = DataGridView1.SelectedCells(1).Value
60.         txttempatlahir.Text = DataGridView1.SelectedCells(2).Value
61.         tgl_lahir.Text = DataGridView1.SelectedCells(3).Value
62.         txtasalsekolah.Text = DataGridView1.SelectedCells(4).Value
63.         txtalamat.Text = DataGridView1.SelectedCells(5).Value
64.     End Sub
65.  
66.  
67.     Private Sub btnupdate_Click(sender As Object, e As EventArgs) Handles btnupdate.Click
68.  
69.         cmd.Connection = cn
70.         cmd.CommandText = "UPDATE tb_pendaftaran SET nama = '" & txtnama.Text & "', tempat_lahir = '" & txttempatlahir.Text & "', tanggal_lahir = '" & tgl_lahir.Value & "', asal_sekolah = '" & txtasalsekolah.Text & "', alamat_pendaftar = '" & txtalamat.Text & "' where id_pendaftaran = '" & txtid.Text & "'"
71.         cmd.ExecuteNonQuery()
72.         MessageBox.Show("Data Berhasil Terubah")
73.         bersih()
74.     End Sub
75.  
76.     Private Sub btnrefresh_Click(sender As Object, e As EventArgs) Handles btnrefresh.Click
77.         opentable()
78.     End Sub
79.  
80.     Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click
81.  
82.         Dim baris As Integer
83.         Dim id As String
84.         baris = DataGridView1.CurrentCell.RowIndex
85.         id = DataGridView1(0, baris).Value.ToString
86.         cmd.Connection = cn
87.         cmd.CommandText = "DELETE FROM tb_pendaftaran WHERE id_pendaftaran = '" + id + "'"
88.         cmd.ExecuteNonQuery()
89.         MessageBox.Show("Data Berhasil Terhapus")
90.         opentable()
91.     End Sub
92.  
93.     Private Sub FrmPendaftaran_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
94.         cn.Open()
95.     End Sub
96.  
97.     Private Sub txtasalsekolah_TextChanged(sender As Object, e As EventArgs) Handles txtasalsekolah.TextChanged
98.  
99.     End Sub
100. End Class

DOWNLOAD APLIKASI PSB - HERE

Tweet