Tugas Akhir yang berkonsep Azure

Pengembangan Aplikasi dilakukan untuk dikembangkan dilingkungan azure cloud computing

Produk-produk Tugas Akhir Cloud Computing

Terdiri dari aplikasi E-Health, Location Based: Ur-Building, Mobile-Building

Cloud Apps Location Based: UR-Building

Sebuah aplikasi location based, yang berhubungan dengan lokasi atau letak sebuah gedung

Cloud Apps Location Based: Mobile-Building

Sebuah aplikasi mobile yang menghadirkan ratusan informasi gedung di saku anda

Cloud Apps Health

Sebuah Aplikasi kesehatan, yang dapat membantu anda dimana pun anda berada

Showing posts with label Insert Berita Kesehatan. Show all posts
Showing posts with label Insert Berita Kesehatan. Show all posts

Monday, March 4, 2013

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;

            }
        }
    }
}