Monday, March 18, 2013

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();
        
    }
}

0 comments:

Post a Comment