Project Input Data Kelas Terapi

Kali ini saya berkesempatan untuk memosting tentang project yang diberikan oleh pembimbing saya di tempat prakerin. Sebelumnya saya sudah pernah mengerjakannnya tetapi berkelompok dengan Rosiana, Angga, dan Alaudin. Kali ini saya mencoba mengerjakan sendiri dengan semua metode yang di berikan oleh programmer Lintang Kawuryan.. Project kali ini masih tentang input data kelas terapi.. Jadi saya tidak membuat database baru lagi. Sebelum membuat projectnya saya mendesain dulu user interfacenya :)  

begini tampilannya :

Database = Askes

Tabel = Terapi1

Kolom : 

Nomor Induk = induk

ID = id

Kelas Terapi = kls_terapi

Halaman = hal

server = SQL Server 2008

Pertama yg saya  lakukan adalah memasukkan script untuk berbagai tampilan. Lalu saya menggunakan metode listview otomatis , begini scriptnya :

Sub list1()

If listview(ListView1, "select * from terapi1", cn) = True Then

End If

End Sub

Sub list2()

Dim a As String, category As String

Select Case cmb_category

Case "Induk"

    category = "induk"

Case "ID"

    category = "id"

Case "Kelas Terapi"

    category = "kls_terapi"

Case "Halaman"

    category = "hal"

End Select

a = txt_search.Text

If listview(ListView1, "Select * from terapi1 where " & category & " like '%" & a & "%'", cn) = True Then

End If

End Sub

Private Sub ListView1_Click()

txtinduk.Text = ListView1.SelectedItem

txtid.Text = ListView1.SelectedItem.SubItems(1)

txtterapi.Text = ListView1.SelectedItem.SubItems(2)

txthalaman.Text = ListView1.SelectedItem.SubItems(3)

End Sub

List1 berfungsi untuk menampilkan data pada listview setelah perintah insert .. 

List2 berfungsi untuk pencarian data otomatis.. Tanpa klik ataupun enter terlebih dahulu.. 

Sebelum itu listview memang perlu di desain dahulu -->  klik kanan --> properties 

Atur kolom kolomnya sesuai data yang akan anda masukkan .

Module.nya : 

Option Explicit

Public Rs As New ADODB.Recordset

Dim Lst As ListItem

Dim cn As New ADODB.Connection

Public nm As String

Public Sub buka()

If cn.State = adStateOpen Then cn.Close

cn.Open "Provider=SQLNCLI10;Server=.;Database=askes;Trusted_COnnection=yes"

End Sub

Public Sub eksekusiSQL(SQLstr As String)

cn.Execute SQLstr

End Sub

Public Sub OpenRecordset(SQLstr As String)

If Rs.State = adStateOpen Then Rs.Close

Rs.Open SQLstr, cn, adOpenKeyset, adLockOptimistic, adCmdText

End Sub

Public Sub tutup()

If Rs.State = adStateOpen Then Rs.Close

Set Rs.ActiveConnection = Nothing

Set Rs = Nothing

If cn.State = adStateOpen Then cn.Close

Set cn = Nothing

End Sub

Function listview(lv1 As listview, Query As String, con As ADODB.Connection)

Dim i As Integer

Dim s As Integer

Dim ilv As ListItem

Dim ch As ColumnHeader

Dim j As Integer

buka

Set Rs = cn.Execute(Query)

lv1.ColumnHeaders.clear

For i = 0 To Rs.Fields.Count - 1 'menentukan perulangan kolom header

Set ch = lv1.ColumnHeaders.Add(, , Rs.Fields(i).Name, 2000) 'menampilkan nama field pada table

Next i

'isi Data

lv1.ListItems.clear

lv1.GridLines = True

While Not Rs.EOF

For j = 0 To Rs.Fields.Count - 1

If j = 0 Then

Set ilv = lv1.ListItems.Add(, , Rs.Fields(j))

Else

ilv.SubItems(j) = Rs.Fields(j)

End If

Next j

Rs.MoveNext

Wend

End Function

Selanjutnya silahkan berkreasi :)

Semoga bermanfaat ..