Aplikasi Pendaftaran Online RS. As-Syifa

Assalamu’alaikum Warahmatullahi Wabarokatuh

Pada kesempatan ini saya akan memposting pembuatan aplikasi Pendaftaran Online RS. As-Syifa dengan menggunakan Visual Studio 2012. Sesuai dengan kebutuhan tugas UAS Mata Kuliah Rekayasa Perangkat Lunak maka akan saya paparkan diantaranya :

1. Analisa kebutuhan sistem
• Deskritif
• Fungsi dan kegunaan
2. Desain
• Screen shoot Database
• Screen shoot Tampilan Form
3. Implementasi : Source Code
• Mengumpulkan link pada www.agustav.web.id

Baiklah sebelum memulai penulisan ketahap analisa saya akan menjelaskan sedikit tentang aplikasi ini. Aplikasi pendaftaran online adalah aplikasi yang dibuat dengan tujuan untuk mempermudah transaksi pendaftaran rawat inap dan rawat jalan yang sebelumnya menggunakan secara manual.


Analisa Kebutuhan Sistem

         Deskritif

         Berdasarkan permasalahan yang ada, kebutuhan sistem aplikasi pendaftaran online adalah sebagai berikut :

• Bagian admisintrasi dapat login dan masuk kedalam sistem dengan mengisi username dan password
• Administrasi dapat mengelola data pasien 
• User mengisi formulir registrasi .

Fungsi dan Kedunaan Aplikasi Pendaftaran Online 

• Memberikat kemudahan pada pasien yang hendak berobat
• Menjadikan pelayanan Rumah Sakit yang lebih efisien dan efektif
• Pelayana yang berkualitas

Desain Database 
Pada aplikasi ini untuk pembuatan database menggunakan microsoft acces
Disini saya membuat databse dengan nama db_pendaftaran

Disini saya membuat tabel login seperti pada tampilan sebagai berikut :

Dan selanjutnya membuat tbl_pasien

Pertama-tama kita buka Software Visual Studio 2012, selanjutnya kita pilih New Project -> Kita pilih Bahasa Visual Basic -> lalu pih Web -> ASP. NET Empty Web Application . Kita ubah nama project lalu OK. Disini baru kita buat desain - desain project web kita.

Langkah selanjutnya yaitu perancangan Desain Login Sebagai berikut :

Source code :

Imports System.Data

Imports System.Data.OleDb

Public Class Formlogin

    Inherits System.Web.UI.Page

    Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\gik\Documents\DBPOS.accdb"

    Dim ObjKoneksi As New OleDb.OleDbConnection(Koneksi)

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged

    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Desain Menu Utama / Registrasi pendaftaran pasien, dalam pembuatan desain kita menggunakan tools yang telah tersedia pada software Visual Studio 2012.

Source Code :

Imports System.Data

Imports System.Data.OleDb

Public Class Tampilan_utama

    Inherits System.Web.UI.Page

    Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\gik\Documents\DBPOS.accdb"

    Dim ObjKoneksi As New OleDb.OleDbConnection(Koneksi)

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

  

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim tambah As String = "INSERT INTO tbl_pasien values('" & TextBox7.Text & "','" & TextBox1.Text & "','" & TextBox8.Text & "','" & RadioButton & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox9.Text & "') "

        Dim oCmd = New OleDbCommand(tambah, ObjKoneksi)

        'oCmd.ExecuteNonQuery()

        ObjKoneksi.Close()

        MsgBox("Sukses")

    End Sub

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Response.Redirect("ViewData.aspx")

    End Sub

    Dim RadioButton As String

    Protected Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged

        RadioButton = "Laki-laki"

    End Sub

    Protected Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged

        RadioButton = "Perempuan"

    End Sub

End Class

Disini saya akan coba tampilkan hasil running di browser disni saya mengkoneksikan ke dalam databse internet exsplorer :

Setelah itu kita klik tombol simpan makan akan muncul laporan sukses, data yang kita masukan disini akan otomatis tersimpan di dalam database :

Dan untuk selanjutnya yaitu rancangan tabel dengan menggunakan GrideVierw dan di Tabel ini kita melakukan konkesi ke database serta memilih tabel yang akan di munculkan pada Tampilan Data:

Setelah kita eksekusi atau kita pilih Tampil Data maka akan muncul tampilan sebagai berikut :

Sekian penjelasan aplikasi yang saya buat semoga saya bisa memperbaiki dan bisa mendapat nilai yang memuaskan. 

Terimakasih atas perhatiannya. Wassalamu'alaikum wr.wb.