Pencarian Data Pasien Dengan Auto Complete

Pencarian data menggunakan auto complete disini memiliki fungsi untuk mempermudah seorang administrator atau dokter mencari berdasarkan nama yang akan dicari. Berikut adalah tampilan dari Pencarian pasien :

Berikut adalah program dari cari data menggunakan auto complete:

using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;

public partial class Admins_DataPasien : System.Web.UI.Page
{
    private string caripasien;
    protected void Page_Load(object sender, EventArgs e)
    {

    }

    [System.Web.Services.WebMethodAttribute(), System.Web.Script.Services.ScriptMethodAttribute()]
    public static string[] GetCompletionList(string prefixText, int count, string contextKey)
    {
        DataPasienDataContext db = new DataPasienDataContext();
        return db.Riwayats.Where(n => n.namaPasien.StartsWith(prefixText)).OrderBy(n => n.namaPasien).Select(n => n.namaPasien).Take(count).ToArray();        
    }
    protected void btCari_Click(object sender, EventArgs e)
    {
        caripasien = txtCari.Text;
        Response.Redirect("DetailPasien.aspx?namaPasien=" + caripasien);
    }
}

Setelah mendapatkan nama yang dicari maka akan terlihat suatu informasi mengenai pasien tersebut, berikut adalah tampilan dari hasil cari data pasien :

 

Berikut adalah program untuk detail pasien :

using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Data.SqlClient;
using System.Data;
using System.Configuration;
public partial class Admins_DetailPasien : System.Web.UI.Page
{
    SqlConnection con;
    SqlCommand command;
    SqlDataReader reader;
    private string sub;
    protected void Page_Load(object sender, EventArgs e)
    {
        bindData();
    }
    private void bindData()
    {
        string name = Request.QueryString["namaPasien"];
        lNamaPasien.Text = name;
        sub = ConfigurationManager.ConnectionStrings["forumssConnectionString1"].ConnectionString;
        con = new SqlConnection(sub);
        con.Open();
        command = new SqlCommand("SELECT * FROM [Riwayat] where namaPasien=@namaPasien", con);
        command.Parameters.Add("@namaPasien", SqlDbType.VarChar, 100).Value = name.Trim();
        reader = command.ExecuteReader();

        while (reader.Read())
        {
            //lidPasien.Text = reader["Id_Pasien"].ToString();
            lKeluhanUtama.Text = reader["KeluhanUtama"].ToString();
            lRiwayatSbl.Text = reader["RiwayatSblm"].ToString();
            lRiwayatSkr.Text = reader["RiwayatSkrg"].ToString();
            lTekananDarah.Text = reader["TekananDarah"].ToString();
            lNadi.Text = reader["Nadi"].ToString();
            lRespirasi.Text = reader["Respirasi"].ToString();
            lFisikKepala.Text = reader["FisikKepala"].ToString();
            lFisikMata.Text = reader["FisikMata"].ToString();
            lFisikHidung.Text = reader["FisikHidung"].ToString();
            lFisikTelinga.Text = reader["FisikTelinga"].ToString();
            lFisikMulut.Text = reader["FisikMulut"].ToString();
            lFisikTenggorokan.Text = reader["FisikTenggorokan"].ToString();
            lFisikLeher.Text = reader["FisikLeher"].ToString();
            lFisikDada.Text = reader["FisikDada"].ToString();
            lFisikServiks.Text = reader["FisikServiks"].ToString();
            lFisikBahu.Text = reader["FisikBahu"].ToString();
            lFisikSiku.Text = reader["FisikSiku"].ToString();
            lFisikPTangan.Text = reader["FisikPergelanganTangan"].ToString();
            lFisikPinggul.Text = reader["FisikPinggul"].ToString();
            lFisikLutut.Text = reader["FisikLutut"].ToString();
            lFisikPKaki.Text = reader["FisikPergelanganKaki"].ToString();
            lFisikTulangBlkng.Text = reader["FisikTulangBelakang"].ToString();
            lFisikKardiovoskuler.Text = reader["FisikKardiovoskuler"].ToString();
            lFisikAbdomen.Text = reader["FisikAbdomen"].ToString();
            lKranialServiks.Text = reader["kranialSaraf"].ToString();
        }
        reader.Close();
        con.Close();
        
    }
}

Read More

Insert Menggunakan LINQ pada Data Pasien

Pada website E-Health ini memiliki fitur insert, update, dan delete, sehingga dapat memudahkan untuk seorang administrator atau dokter dalam menginputkan data pasien yang tersedia. Berikut ini adalah fungsi dari masing - masing insert update, dan delete.

1. Menampilkan data pasien
Pada halaman data pasien disini fungsinya adalah untuk melihat data - data pasien yang tersedia dalam database, data pasien disini merupakan data dari Rumah Sakit Advent Bandar Lampung, untuk data pasien dapat dilihat seperti gambar berikut :

2. Penambahan Data Pasien

Fungsi disini adalah digunakan untuk menambahkan data pasien dimana diantaranya adalah nama pasien, alamat, tempat tanggal lahir, serta diagnosa medis ketika seorang pasien mendatangi rumah sakit, untuk fungsi tambah data pasien adalah seperti berikut :

Berikut adalah program untuk tambah data :  

protected void btnSave_Click(object sender,EventArgs e)
    {
        DataPasienDataContext db = new DataPasienDataContext();
        Pasien ps = new Pasien();
        ps.namaPasien = txtNama.Text;
        ps.jenisKelamin = txtJk.Text;
        ps.umur = Convert.ToInt32(txtUmur.Text.ToString());
        ps.tempatLahir = txtTmptLahir.Text;
        ps.tglLahir = txtTglLahir.Text;
        ps.agama = txtAgama.Text;
        ps.pendidikan = txtpendidikan.Text;
        ps.alamat = txtAlamat.Text;
        ps.tglMasukRs = txtTglMasukRs.Text;
        ps.tglCekSblm = txtTglCekSblm.Text;
        ps.tglCekSsdh = txtTglCekSsdh.Text;
        ps.noMedis = txtNoMedis.Text;
        //ps.namaOrtu = txtNamaOrtu.Text;
        ps.notelp = txtNotelp.Text;
        ps.pekerjaan = txtPekerjaan.Text;
        ps.status = txtStatus.Text;
        ps.diagnosaMedis = txtDiagnosa.Text;

        db.Pasiens.InsertOnSubmit(ps);
        db.SubmitChanges();
        Response.Redirect("DataPasien.aspx");
    }

3. Edit Data Pasien

Fungsi edit data pasien disini adalah mengupdate data pasien apabila ada kesalahan penginputan data, untuk melakukan edit data pasien dapat dilihat seperti gambar berikut : 

Berikut adalah program dari edit data pasien :

public partial class EditPasien : System.Web.UI.Page
{
    DataPasienDataContext db = new DataPasienDataContext();
    public string nama_pasien,jenis_kelamin,umur,tempat_lahir,tgl_lahir,
        agama,pendidikan,alamat,tgl_masuk_rs,tgl_operasi,tgl_cek_sblm,
        tgl_cek_ssdh,no_medis,nama_ortu,no_telp,pekerjaan,status_pernikahan,diagnosa_medis;
    protected void Page_Load(object sender, EventArgs e)
    {
        nama_pasien = txtNama.Text;
        jenis_kelamin = txtJk.Text;
        umur = txtUmur.Text;
        tempat_lahir = txtTmptLahir.Text;
        agama = txtAgama.Text;
        pendidikan = txtpendidikan.Text;
        alamat = txtAlamat.Text;
        tgl_masuk_rs = txtTglMasukRs.Text;
        tgl_operasi = txtTglOperasi.Text;
        tgl_cek_sblm = txtTglCekSblm.Text;
        tgl_cek_ssdh = txtTglCekSsdh.Text;
        no_medis = txtNoMedis.Text;
        nama_ortu = txtNamaOrtu.Text;
        no_telp = txtNotelp.Text;
        pekerjaan = txtPekerjaan.Text;
        status_pernikahan = txtStatus.Text;
        diagnosa_medis = txtDiagnosa.Text;
        if(Request.QueryString["id"] != null)
        {
            var query = from m in db.Pasiens
                        where m.Id_Pasien == Convert.ToInt32(Request.QueryString["Id_Pasien"].ToString())
                        select m;
            foreach(var q in query)
            {
                txtNama.Text = q.namaPasien;
                txtJk.Text = q.jenisKelamin;
                txtUmur.Text = q.umur.ToString();
                txtTmptLahir.Text = q.tempatLahir;
                txtTglLahir.Text = q.tglLahir;
                txtAgama.Text = q.agama;
                txtpendidikan.Text = q.pendidikan;
                txtAlamat.Text = q.alamat;
                txtTglMasukRs.Text = q.tglMasukRs;
                txtTglOperasi.Text = q.tglOperasi;
                txtTglCekSblm.Text = q.tglCekSblm;
                txtTglCekSsdh.Text = q.tglCekSsdh;
                txtNoMedis.Text = q.noMedis;
                //txtNamaOrtu.Text = q.namaOrtu;
                txtNotelp.Text = q.notelp;
                txtPekerjaan.Text = q.pekerjaan;
                txtStatus.Text = q.status;
                txtDiagnosa.Text = q.diagnosaMedis;
            }
        }
        getData();

    }    
    private void getData()
    {
        var query = from m in db.Pasiens
                    where m.Id_Pasien == Convert.ToInt32(Request.QueryString["Id_Pasien"].ToString())
                    select m;
        foreach(var q in query)
        {
            txtNama.Text = q.namaPasien;
            txtJk.Text = q.jenisKelamin;
            txtUmur.Text = q.umur.ToString();
            txtTmptLahir.Text = q.tempatLahir;
            txtTglLahir.Text = q.tglLahir;
            txtAgama.Text = q.agama;
            txtpendidikan.Text = q.pendidikan;
            txtAlamat.Text = q.alamat;
            txtTglMasukRs.Text = q.tglMasukRs;
            txtTglOperasi.Text = q.tglOperasi;
            txtTglCekSblm.Text = q.tglCekSblm;
            txtTglCekSsdh.Text = q.tglCekSsdh;
            txtNoMedis.Text = q.noMedis;
            //txtNamaOrtu.Text = q.namaOrtu;
            txtNotelp.Text = q.notelp;
            txtPekerjaan.Text = q.pekerjaan;
            txtStatus.Text = q.status;
            txtDiagnosa.Text = q.diagnosaMedis;
        }
    }
    protected void btEdit_Click(object sender,EventArgs e)
    {
        
    }
    protected void Button1_Click(object sender, EventArgs e)
    {
        Session["namaPasien"] = nama_pasien;
        Session["jenisKelamin"] = jenis_kelamin;
        Session["umur"] = umur;
        Session["tempatLahir"] = tempat_lahir;
        Session["tglLahir"] = tgl_lahir;
        Session["agama"] = agama;
        Session["pendidikan"] = pendidikan;
        Session["alamat"] = alamat;
        Session["tglMasukRs"] = tgl_masuk_rs;
        Session["tglOperasi"] = tgl_operasi;
        Session["tglCekSblm"] = tgl_cek_sblm;
        Session["tglCekSsdh"] = tgl_cek_ssdh;
        Session["noMedis"] = no_medis;
        Session["namaOrtu"] = nama_ortu;
        Session["notelp"] = no_telp;
        Session["pekerjaan"] = pekerjaan;
        Session["status"] = status_pernikahan;
        Session["diagnosaMedis"] = diagnosa_medis;
        Response.Redirect("ConfirmPasien.aspx?Id_Pasien=" + Request.QueryString["Id_Pasien"].ToString());   
    }
}

 Ketika data akan diedit maka akan tampil halaman konfirmasi untuk melakukan edit atau tidak seperti gambar berikut :

Berikut adalah program dari konfirmasi edit data pasien :

public partial class Admins_ConfirmPasien : System.Web.UI.Page
{
    DataPasienDataContext db = new DataPasienDataContext();
    protected void Page_Load(object sender, EventArgs e)
    {

    }
    protected void btYes_Click(object sender,EventArgs e)
    {
        var query = from m in db.Pasiens
                    where m.Id_Pasien == Convert.ToInt32(Request.QueryString["Id_Pasien"].ToString())
                    select m;
        foreach(var q in query)
        {
            q.namaPasien = Session["namaPasien"].ToString();
            q.jenisKelamin = Session["jenisKelamin"].ToString();
            q.umur = Convert.ToInt32(Session["umur"].ToString());
            q.tempatLahir = Session["tempatLahir"].ToString();
            q.tglLahir = Convert.ToDateTime(Session["tglLahir"]).ToString();
            q.agama = Session["agama"].ToString();
            q.pendidikan = Session["pendidikan"].ToString();
            q.alamat = Session["alamat"].ToString();
            q.tglMasukRs = Session["tglMasukRs"].ToString();
            q.tglOperasi = Session["tglOperasi"].ToString();
            q.tglCekSblm = Session["tglCekSblm"].ToString();
            q.tglCekSsdh = Session["tglCekSsdh"].ToString();
            q.noMedis = Session["noMedis"].ToString();
            //q.namaOrtu = Session["namaOrtu"].ToString();
            q.notelp = Session["notelp"].ToString();
            q.pekerjaan = Session["pekerjaan"].ToString();
            q.status = Session["status"].ToString();
            q.diagnosaMedis = Session["diagnosaMedis"].ToString();
        }
        db.SubmitChanges();
        Response.Redirect("DataPasien.aspx");
    }
    protected void btNo_Click(object sender,EventArgs e)
    {
        Response.Redirect("DataPasien.aspx");
    }
}

Read More