Scribd
Upload
9 views17 pages

Laporan Tugas Kelompok Pra UAS-1

This document is a group report for a practical task in software engineering, focusing on creating a BPJS registration form and patient registration in Microsoft Visual Basic 2010 Express/VB.NET. It includes guidelines for the tasks, screenshots of the design and coding processes, and detailed coding examples for both the BPJS registration and patient registration forms. The report is prepared by a group of students from Politeknik Piksi Ganesha Bandung under the supervision of their lecturer.

Uploaded by

Ryankujang Kencana
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
9 views17 pages

Laporan Tugas Kelompok Pra UAS-1

This document is a group report for a practical task in software engineering, focusing on creating a BPJS registration form and patient registration in Microsoft Visual Basic 2010 Express/VB.NET. It includes guidelines for the tasks, screenshots of the design and coding processes, and detailed coding examples for both the BPJS registration and patient registration forms. The report is prepared by a group of students from Politeknik Piksi Ganesha Bandung under the supervision of their lecturer.

Uploaded by

Ryankujang Kencana
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 17

LAPORAN TUGAS KELOMPOK PRA UAS

TIK II (REKAYASA PERANGKAT LUNAK DI SARYANKES)

Pokok Bahasan Praktikum :

MEMBUAT FORM REGISTRASI BPJS & PENDAFTARAN PASIEN

DI MICROSOFT VISUAL BASIC 2010 EXPRESS/ VB.NET

Nama Dosen :

FALAAH ABDUSSALAAM, A.MD., S.ST., M.M., MOS

Disusun Oleh :

AHMAD SALAFIAH
22303020
RMIK XEL 31/22

SOFIAN MAULANA
22303029
RMIK XEL 31/22

DEWI PUSPITASARI
22303001
RMIK XEL 31/22

POLITEKNIK
PIKSI GANESHA BANDUNG
2023
TUGAS KELOMPOK 1 REGISTRASI BPJS

Ketentuan Soal:
1. Kerjakan Tugas Kelompok 1 Pra UAS TIK II (Registrasi BPJS)
2. Masukkan Screenshot / Foto Full Screen dan Coding Program hasil pengerjaan soal
tersebut

Screenshot / Foto Full Screen dan Coding Program Hasil Pengerjaan:


1. Tampilan Design Tabel Peserta pada DBBPJS.accdb di Microsoft Access (Screenshot / Foto
Full Screen)
…

2. Tampilan Design Form Peserta Registrasi BPJS di Microsoft Visual Basic 2010 Express/
Mirosoft Visual Studio 2010 (Screenshot / Foto Full Screen)
…
3. Coding Program Form Peserta Registrasi BPJS (Copy seluruh Coding mulai Public Class
Form1 s.d. End Class pada Area Code/ F7, Paste di bawah sini)
…
Public Class Form1
Public koneksi, sql As String
Public conn As OleDb.OleDbConnection
Public cmd As OleDb.OleDbCommand
Public dtadapter As OleDb.OleDbDataAdapter
Public tpeserta As New DataTable
Sub bersih()
KIP.Text = ""
Nama.Text = ""
Tgl_Lahir.Text = ""
Jenis_Kelamin.Text = ""
Faskes.Text = ""
End Sub
Sub kon_db()
koneksi = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='E:\TIK II\
DBBPJS.accdb'"
conn = New OleDb.OleDbConnection(koneksi)
End Sub
Sub save()
Dim a, b, c, d, e As String
a = KIP.Text
b = Nama.Text
c = Tgl_Lahir.Text
d = Jenis_Kelamin.Text
e = Faskes.Text
sql = "INSERT INTO Peserta VALUES('" & a & "','" & b & "','" & c & "','" & d &
"','" & e & "')"
conn.Open()
cmd = New OleDb.OleDbCommand(sql, conn)
cmd.ExecuteNonQuery()
conn.Close()
End Sub
Sub delete()
sql = "delete from peserta where KIP='" & KIP.Text & "'"
cmd = New OleDb.OleDbCommand(sql, conn)
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
End Sub
Sub edit()
Dim a, b, c, d, e As String
a = KIP.Text
b = Nama.Text
c = Tgl_Lahir.Text
d = Jenis_Kelamin.Text
e = Faskes.Text
sql = "UPDATE Peserta SET KIP='" & a & "',Nama='" & b & "',Tgl_Lahir='" & c &
"',Jenis_Kelamin='" & d & "',Faskes='" & e & "' WHERE KIP='" & a & "'"
conn.Open()
cmd = New OleDb.OleDbCommand(sql, conn)
cmd.ExecuteNonQuery()
conn.Close()
End Sub
Sub data()
sql = "select * from Peserta"
dtadapter = New OleDb.OleDbDataAdapter(sql, conn)
tpeserta.Clear()
conn.Open()
dtadapter.Fill(tpeserta)
DGVPeserta.DataSource = tpeserta
conn.Close()
End Sub
End Class

4. Tampilan Form Peserta Registrasi BPJS saat dijalankan F5 dan sudah diisi beberapa data
(Screenshot / Foto Full Screen)
…

LATIHAN MEMBUAT FORM PENDAFTARAN PASIEN

Ketentuan Soal:
1. Kerjakan Tugas Kelompok 2 Pra UAS TIK II (Pendaftaran Pasien)
2. Masukkan Screenshot / Foto Full Screen dan Coding Program hasil pengerjaan soal
tersebut

Uraian Langkah Pengerjaan dan Screenshot / Foto Hasil Pengerjaan:


1. Tampilan Design Tabel Pasien pada DBPendaftaran.accdb di Microsoft Access
(Screenshot / Foto Full Screen)
…
2. Tampilan Design Tabel Pendaftaran pada DBPendaftaran.accdb di Microsoft Access
(Screenshot / Foto Full Screen)

…
3. Tampilan Design Form Pasien di Microsoft Visual Basic 2010 Express/ Mirosoft Visual
Studio 2010 (Screenshot / Foto Full Screen)
…
4. Coding Program Form Pasien (Copy seluruh Coding mulai Public Class Form_Pasien s.d.
End Class pada Area Code/ F7, Paste di bawah sini)
…
Public Class Form_Pasien
Public koneksi, sql As String
Public conn As OleDb.OleDbConnection
Public cmd As OleDb.OleDbCommand
Public dtadapter As OleDb.OleDbDataAdapter
Public dr As OleDb.OleDbDataReader
Public tpasien As New DataTable

Sub bersih()
No_RM.Text = ""
Nama.Text = ""
Jenis_Kelamin.Text = ""
CariNoRM.Text = ""
CariNama.Text = ""
End Sub

Sub kon_db()
koneksi = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='D:\TIK II\
DBPendaftaran.accdb'"
conn = New OleDb.OleDbConnection(koneksi)
End Sub

Sub Save()
Dim a, b, c As String
a = No_RM.Text
b = Nama.Text
c = Jenis_Kelamin.Text

sql = "INSERT INTO Pasien VALUES('" & a & "','" & b & "','" & c & "')"
conn.Open()
cmd = New OleDb.OleDbCommand(sql, conn)
cmd.ExecuteNonQuery()
conn.Close()
End Sub

Sub delete()
sql = "delete from Pasien where No_RM='" & No_RM.Text & "'"
cmd = New OleDb.OleDbCommand(sql, conn)
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
End Sub

Sub edit()
Dim a, b, c As String
a = No_RM.Text
b = Nama.Text
c = Jenis_Kelamin.Text

sql = "UPDATE Pasien SET No_RM ='" & a & "',Nama='" & b & "', Jenis_Kelamin
='" & c & "' WHERE No_RM='" & a & "'"
conn.Open()
cmd = New OleDb.OleDbCommand(sql, conn)
cmd.ExecuteNonQuery()
conn.Close()
End Sub

Sub data()
sql = "Select * from Pasien"
dtadapter = New OleDb.OleDbDataAdapter(sql, conn)
tpasien.Clear()
conn.Open()
dtadapter.Fill(tpasien)
DGVPasien.DataSource = tpasien
conn.Close()
End Sub

Private Sub Form_Pasien_Load(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles MyBase.Load
kon_db()
data()
No_RM.Focus()
Jenis_Kelamin.Items.Add("Pria")
Jenis_Kelamin.Items.Add("wanita")
Hapus.Enabled = False
Ubah.Enabled = False
End Sub

Private Sub Baru_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Baru.Click
bersih()
End Sub

Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Simpan.Click
Save()
bersih()
MsgBox("Data Tersimpan")
data()
End Sub

Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Hapus.Click
delete()
data()
bersih()
MsgBox("data terhapus")
Simpan.Enabled = True
Hapus.Enabled = False
Ubah.Enabled = False
End Sub

Private Sub Ubah_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Ubah.Click
edit()
data()
bersih()
MsgBox("data sudah di ubah")
Simpan.Enabled = True
Hapus.Enabled = False
Ubah.Enabled = False
End Sub

Private Sub Tutup_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Tutup.Click
Close()
End Sub

Private Sub No_RM_KeyPress(ByVal sender As Object, ByVal e As


System.Windows.Forms.KeyPressEventArgs) Handles No_RM.KeyPress
If Asc(e.KeyChar) = 13 Then
Nama.Focus()
sql = "SELECT * FROM Pasien WHERE No_RM='" & No_RM.Text & "'"
conn.Open()
cmd = New OleDb.OleDbCommand(sql, conn)
dr = cmd.ExecuteReader
If dr.Read = True Then
MsgBox("No RM Sudah Ada, Silahkan Ganti Dengan No RM Yang lain")
No_RM.Clear()
No_RM.Focus()
End If
End If
conn.Close()
End Sub

Private Sub CariNoRM_TextChanged(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles CariNoRM.TextChanged
sql = "SELECT * FROM pasien WHERE No_RM LIKE'%" & CariNoRM.Text & "%'"
dtadapter = New OleDb.OleDbDataAdapter(sql, conn)
tpasien.Clear()
conn.Open()
dtadapter.Fill(tpasien)
DGVPasien.DataSource = tpasien
conn.Close()
End Sub

Private Sub CariNama_TextChanged(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles CariNama.TextChanged
sql = "SELECT * FROM Pasien WHERE Nama LIKE'%" & CariNama.Text & "%'"
dtadapter = New OleDb.OleDbDataAdapter(sql, conn)
tpasien.Clear()
conn.Open()
dtadapter.Fill(tpasien)
DGVPasien.DataSource = tpasien
conn.Close()
End Sub

Private Sub DGVPasien_CellClick(ByVal sender As Object, ByVal e As


System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVPasien.CellClick
Dim a As Integer
With DGVPasien
a = .CurrentRow.Index
No_RM.Text = .Item(0, a).Value
Nama.Text = .Item(1, a).Value
Jenis_Kelamin.Text = .Item(2, a).Value
End With
Simpan.Enabled = False
Hapus.Enabled = True
Ubah.Enabled = True
End Sub
End Class

5. Tampilan Design Form Pendaftaran di Microsoft Visual Basic 2010 Express/ Mirosoft
Visual Studio 2010 (Screenshot / Foto Full Screen)

…
6. Coding Program Form Pendaftaran (Copy seluruh Coding mulai Public Class
Form_Pendaftaran s.d. End Class pada Area Code/ F7, Paste di bawah sini)
…
Public Class Form_Pendaftaran
Public koneksi, sql As String
Public conn As OleDb.OleDbConnection
Public cmd As OleDb.OleDbCommand
Public dtadapter As OleDb.OleDbDataAdapter
Public dr As OleDb.OleDbDataReader
Public tdaftar As New DataTable

Sub bersih()
Kode.Text = ""
Tanggal.Text = Now()
No_RM.Text = ""
Nama.Text = ""
Jenis_kelamin.Text = ""
Poli.Text = ""
CariKode.Text = ""
CariNama.Text = ""
End Sub

Sub kon_db()
koneksi = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='D:\TIK II\
DBPendaftaran.accdb'"
conn = New OleDb.OleDbConnection(koneksi)
End Sub

Sub Save()
Dim a, b, c, d, e, f As String
a = Kode.Text
b = Tanggal.Text
c = No_RM.Text
d = Nama.Text
e = Jenis_kelamin.Text
f = Poli.Text

sql = "INSERT INTO pendaftaran VALUES('" & a & "','" & b & "','" & c &
"','" & d & "','" & e & "','" & f & "')"
conn.Open()
cmd = New OleDb.OleDbCommand(sql, conn)
cmd.ExecuteNonQuery()
conn.Close()
End Sub

Sub delete()
sql = "delete from Pendaftaran where Kode='" & Kode.Text & "'"
cmd = New OleDb.OleDbCommand(sql, conn)
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
End Sub

Sub edit()
Dim a, b, c, d, e, f As String
a = Kode.Text
b = Tanggal.Text
c = No_RM.Text
d = Nama.Text
e = Jenis_kelamin.Text
f = Poli.Text

sql = "UPDATE Pendaftaran SET Kode='" & a & "', Tanggal='" & b & "', No_RM
='" & c & "',"
conn.Open()
cmd = New OleDb.OleDbCommand(sql, conn)
cmd.ExecuteNonQuery()
conn.Close()
End Sub

Sub data()
sql = "Select * from Pendaftaran"
dtadapter = New OleDb.OleDbDataAdapter(sql, conn)
tdaftar.Clear()
conn.Open()
dtadapter.Fill(tdaftar)
DGVPendaftarn.DataSource = tdaftar
conn.Close()
End Sub

Private Sub Form_Pendaftaran_Load(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles MyBase.Load
kon_db()
sql = "SELECT * FROM Pasien"
conn.Open()
cmd = New OleDb.OleDbCommand(sql, conn)
dr = cmd.ExecuteReader
No_RM.Items.Clear()
Do While dr.Read
No_RM.Items.Add(dr.Item("No_RM"))
Loop
conn.Close()

data()
Poli.Items.Add("Umum")
Poli.Items.Add("Mata")
Poli.Items.Add("THT")
Poli.Items.Add("Gigi")
Hapus.Enabled = False
Ubah.Enabled = False
End Sub

Private Sub No_RM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e


As System.EventArgs) Handles No_RM.SelectedIndexChanged
kon_db()
sql = "SELECT * FROM Pasien where No_RM='" & No_RM.Text & "'"
conn.Open()
cmd = New OleDb.OleDbCommand(sql, conn)
dr = cmd.ExecuteReader
dr.Read()
If dr.HasRows Then
Nama.Text = dr.Item("Nama")
Jenis_kelamin.Text = dr.Item("Jenis_Kelamin")
End If
conn.Close()
End Sub

Private Sub Baru_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Baru.Click
bersih()
End Sub

Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Simpan.Click
Save()
bersih()
MsgBox("DataTersimpan")
data()
End Sub

Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Hapus.Click
delete()
data()
bersih()
MsgBox("data terhapus")
Simpan.Enabled = True
Hapus.Enabled = False
Ubah.Enabled = False
End Sub

Private Sub Ubah_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Ubah.Click
edit()
data()
bersih()
MsgBox("data sudah di ubah")
Simpan.Enabled = True
Hapus.Enabled = False
Ubah.Enabled = False
End Sub

Private Sub Tutup_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Tutup.Click
Close()
End Sub

Private Sub Kode_KeyPress(ByVal sender As Object, ByVal e As


System.Windows.Forms.KeyPressEventArgs) Handles Kode.KeyPress
If Asc(e.KeyChar) = 13 Then
Tanggal.Focus()
sql = "SELECT * FROM Pendaftaran WHERE Kode ='" & Kode.Text & "'"
conn.Open()
cmd = New OleDb.OleDbCommand(sql, conn)
dr = cmd.ExecuteReader
If dr.Read = True Then
MsgBox("Kode Sudah Ada, Silahkan Ganti Dengan Kode Yang Lain")
Kode.Clear()
Kode.Focus()
End If
End If
conn.Close()
End Sub

Private Sub CariKode_TextChanged(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles CariKode.TextChanged
sql = "SELECT * FROM Pendaftaran WHERE Kode LIKE'%" & CariKode.Text & "%'"
dtadapter = New OleDb.OleDbDataAdapter(sql, conn)
tdaftar.Clear()
conn.Open()
dtadapter.Fill(tdaftar)
DGVPendaftarn.DataSource = tdaftar
conn.Close()
End Sub

Private Sub CariNama_TextChanged(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles CariNama.TextChanged
sql = "SELECT * FROM Pendaf WHERE Nama LIKE'%" & CariNama.Text & "%'"
dtadapter = New OleDb.OleDbDataAdapter(sql, conn)
tdaftar.Clear()
conn.Open()
dtadapter.Fill(tdaftar)
DGVPendaftarn.DataSource = tdaftar
conn.Close()
End Sub

Private Sub DGVPendaftarn_CellClick(ByVal sender As Object, ByVal e As


System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVPendaftarn.CellClick
Dim a As Integer
With DGVPendaftarn
a = .CurrentRow.Index
Kode.Text = .Item(0, a).Value
Tanggal.Text = .Item(1, a).Value
No_RM.Text = .Item(2, a).Value
Nama.Text = .Item(3, a).Value
Jenis_kelamin.Text = .Item(4, a).Value
Poli.Text = .Item(5, a).Value
End With
Simpan.Enabled = False
Hapus.Enabled = True
Ubah.Enabled = True
End Sub

Private Sub DGVPendaftarn_CellContentClick(ByVal sender As System.Object, ByVal


e As System.Windows.Forms.DataGridViewCellEventArgs) Handles
DGVPendaftarn.CellContentClick
End Sub
End Class

7. Tampilan Design Form Menu di Microsoft Visual Basic 2010 Express/ Mirosoft Visual
Studio 2010 (Screenshot / Foto Full Screen)
…

8. Coding Program Form Menu (Copy seluruh Coding mulai Public Class Form_Menu s.d.
End Class pada Area Code/ F7, Paste di bawah sini)
…
Public Class Form_Menu
Private Sub PendaftaranToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles PendaftaranToolStripMenuItem.Click
Form_Pendaftaran.Show()
End Sub
Private Sub PasienToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles PasienToolStripMenuItem.Click
Form_Pasien.Show()
End Sub
Private Sub TutupToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles TutupToolStripMenuItem.Click
Dim keluar As String
keluar = MsgBox("Apakah Anda Yakin akan menutup aplikasi ini ?",
MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Keluar")
If keluar = MsgBoxResult.Yes Then
End
End If
End Sub
End Class

9. Tampilan Form Menu saat dijalankan F5 (Screenshot / Foto Full Screen)


…
10. Tampilan Form Pasien saat dijalankan F5 dan sudah diisi beberapa data (Screenshot / Foto
Full Screen)
…

11. Tampilan Form Pendaftaran saat dijalankan F5 dan sudah diisi beberapa data (Screenshot /
Foto Full Screen)
…
Keterangan:
1. Isikan titik berwarna merah diatas dengan Coding Program (copy dari Area Code/ F7) atau
screenshot / foto full screen hasil pengerjaan
2. Setelah semua dikerjakan, simpan Laporan ini di google drive, aktifkan Link Sharing-nya
serta copy kan link-nya
3. Isi Form Tugas Kelompok Pra UAS yang telah disediakan

You might also like