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 Berita Kesehatan

Seorang administrator atau seorang dokter dapat melakukan penambahan berita kesehatan, disini untuk mempermudah pengguna mengetahui informasi kesehatan. Fungsi penambahan berita dapat dilihat seperti berikut :





















Berikut adalah program untuk menambahkan berita :

using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.IO;
using System.Collections;
using System.Configuration;
using System.Data.SqlClient;
using System.Data;

public partial class Admins_TambahLokasi : System.Web.UI.Page
{
    protected void Page_Load(object sender, EventArgs e) //fungsi ketika program dijalankan
    {
        string selectedValue = DropdownList1.SelectedValue;
        showImages();
        DropdownList1.SelectedValue = selectedValue;
    }
    private void showImages() //fungsi menampilkan gambar pada dropdown
    {
        string[] images = Directory.GetFiles(Server.MapPath("~/App_Themes/Default/GalleryMap/"));
        ArrayList imageList = new ArrayList();

        foreach (string image in images)
        {
            string imageName = image.Substring(image.LastIndexOf(@"\") + 1);
            imageList.Add(imageName);
        }

        DropdownList1.DataSource = imageList;
        DropdownList1.DataBind();
    }
    private void clearText() //fungsi hapus text pada textbox
    {
        txtNama.Text = "";
        txtDeskripsi.Text = "";
        txtAlamat.Text = "";
        txtNotelp.Text = "";
        txtWebsite.Text = "";
    }
    protected void btUpload_Click(object sender, EventArgs e) //fungsi upload gambar
    {
        try
        {
            string filename = Path.GetFileName(FileUpload1.FileName); //membuat variable untuk penyimpanan gambar
            FileUpload1.SaveAs(Server.MapPath("~/App_Themes/Default/GalleryMap/" + filename)); //lokasi penyimpanan gambar
            lblOutput.Text = "image" + filename + "file success upload"; //menampilkan pesan jika sudah berhasil di upload
            Page_Load(sender, e);
        }
        catch (Exception er) //jika proses upload gagal akan menampilkan pesan eror
        {
            lblOutput.Text = "Upload failed";
            lblOutput.Text = er.Message;
        }
    }
    protected void btnSave_Click(object sender, EventArgs e) //fungsi simpan
    {
        string connString = ConfigurationManager.ConnectionStrings["forumssConnectionString1"].ConnectionString;//memanggil koneksi database
        string query = "insert into [forumss].[dbo].[LokasiRS](namaRs,deskripsi,alamatRs,notelp,website,gambar) values(@namaRs,@deskripsi,@alamatRs,@notelp,@website,@gambar)";//membuat variable query yang berisi untuk input data
        using (SqlConnection con = new SqlConnection(connString))
        using (SqlCommand command = new SqlCommand(query, con))
        {
            command.Parameters.Add("@namaRs", SqlDbType.VarChar, 100).Value = txtNama.Text.Trim();
            command.Parameters.Add("@deskripsi", SqlDbType.VarChar, 5000).Value = txtDeskripsi.Text.Trim();
            command.Parameters.Add("@alamatRs", SqlDbType.VarChar, 2000).Value = txtAlamat.Text.Trim();
            command.Parameters.Add("@notelp", SqlDbType.VarChar, 50).Value = txtNotelp.Text.Trim();
            command.Parameters.Add("@website", SqlDbType.VarChar, 50).Value = txtWebsite.Text.Trim();
            command.Parameters.Add("@gambar", SqlDbType.VarChar, 1000).Value = "../App_Themes/Default/GalleryMap/" + DropdownList1.SelectedValue;
            try
            {
                con.Open();
                command.ExecuteNonQuery();
                clearText();
                lblOutput.Text = "Success";
            }
            catch (Exception err)
            {
                con.Close();
                clearText();
                lblOutput.Text = err.Message;

            }
        }
    }
}

Read More

Berita Informasi Kesehatan

Informasi mengenai kesehatan itu sangat diperlukan untuk memudahkan seluruh pengguna mengetahui berbagai jenis penyakit, solusi mengenai kesehatan. Secara sekilas tampilan dari berita adalah seperti berikut:

1. Halaman utama berita
Pada halaman utama berita disini akan tampil beberapa judul berita, sehingga pengguna dapat memilih berita yang akan dibaca seperti berikut :

 

2. Detail Berita
Detail berita adalah menampilkan informasi mengenai berita yang sudah dipilih pada halaman utama menu pada sebelumnya, berikut adalah tampilan dari detail berita :

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

Pengenalan LINQ

LINQ kepanjangan dari Language Integrated Query adalah keyword baru pada c# dan VB yang diperkenalkan pada .NET versi 3.5 berupa query expression seperti from, where, select yang biasa ditemui pada bahasa SQL. Dengan menggunakan LINQ, anda dapat melakukan query ke berbagai macam data seperti ke database SQL SERVER (LINQ to SQL), ke Object DataSet (LINQ to DataSet), ke object entity (LINQ to Entity Framework), data XML (LINQ to XML) dan masih banyak lagi.

Jadi dengan menggunakan LINQ kita lebih mudah melakukan query ke suatu data (baik database maupun data dalam array atau koleksi dari objek) menggunakan keyword yang sudah disediakan. Keyword query operator yang dapat digunakan dalam LINQ kurang lebih ada 40 macam.

Sebelum ada LINQ untuk melakukan query objek - objek seperti array, koleksi, database dan XML, anda membutuhkan teknik sendiri, misal untuk mengakses database Anda harus menggunakan bahasa SQL, untuk mengakses XML digunakan XPATH dan XQUERY tapi dengan menggunakan LINQ objek yang berbeda - beda tersebut dapat di-query dengan teknik yang sama, yaitu LINQ.

Read More