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