Minggu, 21 April 2013

SISTEM INFORMASI DATA DOKTER DAN PASIEN DI KLINIK PERMATA BUNDA MEDAN










Imports System.Data.OleDb
Public Class Form1
    Public DB As OleDbConnection
    Public CMD As OleDbCommand
    Public ADP As OleDbDataAdapter
    Public DR As OleDbDataReader
    Public DS As New DataSet
    Dim SQL As String
    Public Sub OpenDB()
        Dim LOKASI = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =C:\VB3\daftarpasien.mdb"
        DB = New OleDbConnection(LOKASI)
        If DB.State = ConnectionState.Closed Then
            DB.Open()
        End If
    End Sub
    Sub Tampildokter()
        ADP = New OleDbDataAdapter("SELECT * FROM dokter", DB)
        DS = New DataSet
        ADP.Fill(DS, "dokter")
        DataGridView1.DataSource = DS.Tables("dokter")
    End Sub
    Sub ButtonBaru()
        btnbaru.Enabled = True
        btnsimpan.Enabled = False
        btnhapus.Enabled = False
        btnbatal.Enabled = False
        btnkeluar.Enabled = True
    End Sub

    Sub ButtonSimpan()
        btnBaru.Enabled = False
        btnSimpan.Enabled = True
        btnhapus.Enabled = True
        btnBatal.Enabled = True
        btnkeluar.Enabled = False
    End Sub
    Sub Buttonedit()
        btnbaru.Enabled = False
        btnsimpan.Enabled = False
        btnhapus.Enabled = True
        btnbatal.Enabled = True
        btnkeluar.Enabled = False

    End Sub
    Sub HapusText()
        kode.Text = ""
        nama.Text = ""
        alamat.Text = ""
        jenis_kelamin.Text = ""
        telpon.Text = ""
        spesialis.Text = ""
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        jenis_kelamin.Items.Add("wanita")
        jenis_kelamin.Items.Add("pria")
        spesialis.Items.Add("THT")
        spesialis.Items.Add("Kandungan")
        spesialis.Items.Add("Gigi")
        spesialis.Items.Add("anak")
        Call OpenDB()
        Call HapusText()
        Call Tampildokter()
    End Sub
   

    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click
        Call HapusText()
        kode.Focus()
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        SQL = "INSERT INTO dokter(Kode_Dokter, Nama_Dokter, alamat, jenis_kelamin,telpon,spesialis) " & _
                     " values('" & kode.Text & "','" & _
                                   nama.Text & "','" & _
                                   alamat.Text & "','" & _
                                   jenis_kelamin.Text & "','" & _
                                   telpon.Text & "','" & _
                                   spesialis.Text & "')"


        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call Tampildokter()
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        SQL = "DELETE from dokter where kode_Dokter='" & kode.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call Tampildokter()
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        Call HapusText()
        kode.Focus()
    End Sub

    Private Sub kode_keypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kode.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        Dim xkode As String
        If tombol = 13 Then
            SQL = "SELECT * FROM dokter Where Kode_Dokter='" & kode.Text & "'"
            CMD = New OleDbCommand(SQL, DB)
            DR = CMD.ExecuteReader
            DR.Read()
            If DR.HasRows = True Then
                nama.Text = DR.Item(1)
                alamat.Text = DR.Item(2)
                jenis_kelamin.Text = DR.Item(3)
                telpon.Text = DR.Item(4)
                spesialis.Text = DR.Item(5)
                MsgBox("Data Ditemukan !")
            Else
                xkode = kode.Text
                Call HapusText()
                kode.Text = xkode
                Call ButtonSimpan()
            End If
            nama.Focus()
        End If
    End Sub

    Private Sub spesialis_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles spesialis.SelectedIndexChanged
        If spesialis.Text = "THT" Then
            jenis_kelamin.Items.Add("wanita")
        End If
        If spesialis.Text = "Kandungan" Then
            jenis_kelamin.Items.Add("wanita")
        End If

        If spesialis.Text = "Gigi" Then
            jenis_kelamin.Items.Add("Pria")

        End If
        If spesialis.Text = "Anak" Then
            jenis_kelamin.Items.Add("wanita")
        End If
    End Sub
End Class

Sabtu, 06 April 2013

Menampilkan Data dari Database (Using C# dan MySQL)





Software yang dibutuhkan :
·         Microsoft Visual Studio 2008 Express Edition
·         MySQL 5
·         MySQL Connector
Diinstal dulu pada laptop/PC.
Langkah-Langkah Teknis :
1.       Buka Microsoft visual studio 2008, create new project. Pilih windows form application, kemudian namakan projectnya sesuai dengan nama project yang anda inginkan. Misalnya MenuUtama
2.       Setelah selesai klik ok. Apabila sudah di klik ok, tampilan berikutnya seperti dibawah ini.

Pada tampilan pojok kanan anda, ada bagian Solution Explorer.
3.       Langkah berikutnya adalah kita membuat koneksi antara Visual C# dengan MySQL. Dengan menambahkan reference MySQL ke Visual C#. Caranya pada bagian Solution Explorer di pojok kanan anda klik kanan pada -> references project anda, kemudian anda pilih -> add references     -> pilih browse kemudian tambahkan references  mysql.data.dll.
4.       Setelah berhasil menambahkan references mysql.data.dll ke Visual C#. Artinya kita sudah dapat menampilkan data dari database MySQL menggunakan form Visual C#.
Langkah-Langkah Menampilkan Data dengan DataGrid View berbasis MDI Form :
1.       Pada menu toolbox pada pojok kiri, pilih All windows form. Pilih menustrip klik tahan dan drag ke dalam form project anda.
2.       Apabila berhasil, akan tampil seperti gambar dibawah ini. Menustrip disini sebagai menu utama pada project yang anda buat. Menustrip tersebut dapat anda edit sesuai dengan kebutuhan anda.
3.       Setelah berhasil membuat menustrip. Berikutnya kita membuat form menampilkan data yang ada menjadi form MDI. Caranya pada properties di pojok kiri anda, pilihan IsMdiContainer diberikan nilai True.
4.       Jika berhasil makan form menampilkan data yang anda buat akan tampak seperti dibawah ini.
5.       Setelah itu, kita membuat form yang baru untuk menampilkan data. Form yang baru yang akan ditampilkan melalui menustrip yang sebelumnya sudah kita buat. Yang pertama harus dilakukan adalah membuat sebuah form yang baru. Caranya pada bagian Solution Explorer, klik kanan pada project anda -> pilih -> Add -> Windows Form.
6.       Muncul tampilan untuk rename nama form baru yang akan dibuat. Misalnya namanya DataPelanggan, artinya form baru yang kita buat bernama form DataPelanggan.
7.       Jika berhasil maka pada tampilan form, anda akan diarahkan ke form baru yang dibuat.
8.       Tinggal sejenak Form Menu yang tadi kita buat. Berikutnya kita akan menampilkan data pelaanggan yang ada dari dalam database MySQL ke form DataPelanggan. Untuk menampilkan data dari MySQL ke Form data pelanggan, terlebih dahulu kita membuat kelas untuk koneksi antara Visual C# dengan database MySQL. Caranya dengan membuat sebuah kelas baru. Caranya sama dengan membuat Form baru pada Solution Explorer, kemudian klik kanan pada nama project anda pilih -> Add -> Class, kemudian muncul tampilan untuk rename nama kelas yang baru anda buat.
9.       Setelah selesai dibuat, pada Solution Explorer project anda akan terlihat Koneksi.cs. Buka fila Koneksi.cs tersebut dengan cara klik 2x (dobel klik) pada file tersebut.
10.   Lengkapi source code nya dengan menambahkan sorce code dibawah ini :
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using MySql.Data.MySqlClient;
namespace IGO_SKRIPSI
{
    class Koneksi
    {
        public static MySqlConnection getKoneksi()
        {
            String MyConString = "SERVER=localhost;" +
                "DATABASE=komplain_puri;" +
                "UID=root;" +
                "PASSWORD=admin;";
            return new MySqlConnection(MyConString);
        }
    }
}
PENTING! Pastikan nama database dan password pada MySql anda tulis dengan benar. Harap diperhatikan pada :
-          DATABASE : Ganti dan  Tuliskan nama database yang anda buat.
-          UID : root
-          PASSWORD : Ganti dan Tuliskan sesuai dengan password MySQL anda.
11.   Setelah selesai, kita kembali pada form DataPelanggan yang tadi kita buat. Pada form DataPelanggan kita tambahkan datagridview. Caranya pada Toolbox -> All Windows Form  Pilih -> DataGridView klik dan tahan kemudian di drag kedalam form DataPelanggan, sama seperti menambahkan menustrip.
12.   Berikutnya kita mencoba menampilkan data pelanggan yang kita buat pada database pada Form DataPelanggan. Caranya pada form DataPelanggan, klik kanan dan pilih view code.
13.   Maka, anda akan berhadapan dengan sorce code pada form DataPelanggan. Tidak perlu panik dan bingung. Ikuti saja langkah-langkah pada tutorial ini.
14.   Lengkapi source dengan menambahkan source dibawah ini :
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using MySql.Data.MySqlClient;
namespace ViewDataSBD
{
    public partial class DataPelanggan : Form
    {
        public DataPelanggan()
        {
            InitializeComponent();
        }
        private void DataPelanggan_Load(object sender, EventArgs e)
        {
            MySqlConnection conn = Koneksi.getKoneksi();
            MySqlCommand command = conn.CreateCommand();
            command.CommandText = "SELECT * FROM tb_costumer";
            conn.Open();
            DataSet ds = new DataSet();
            MySqlDataAdapter da = new MySqlDataAdapter(command);
            da.Fill(ds, "data");
            dataGridView1.DataSource = ds;
            dataGridView1.DataMember = "data";
            conn.Close();
        }
    }
}
15.   Kemudian untuk menguji data pada database sudah bisa ditampilkan, dengan cara menekan tombol F5 (Run Program). Akan tetapi form yang akan ditampilkan duluan adalah form MenuUtama karena secara default visual C# akan menampilkan form yang pertama kali dibuat pada saat running. Untuk mengujinya pada Solution Explorer -> Program.cs anda rubah source codenye pada Application.Run(new DataPelanggan), sesuai dengan nama form yang akan ditampilkan, pada contoh ini adalah form kedua yang kita buat atau form DataPelanggan:
using System;
using System.Collections.Generic;
using System.Linq;
using System.Windows.Forms;
namespace ViewDataSBD
{
    static class Program
    {
        /// <summary>
        /// The main entry point for the application.
        /// </summary>
        [STAThread]
        static void Main()
        {
            Application.EnableVisualStyles();
            Application.SetCompatibleTextRenderingDefault(false);
            Application.Run(new DataPelanggan());
        }
    }
}
16.   Apabila langkah-langkah diatas sudah dilakukan dengan benar makan hasil dari form data pelanggan pada aplikasi yang anda buat akan tampil seperti dibawah ini.
17.   Berikutnya, kita akan menampilkan form DataPelanggan yang kita buat ini agar ditampilkan pada form MenuUtama yang berbasis MDI Form. Pertama-tama kita kembali dulu pada form MenuUtama. Pada menustrip View Data -> klik 2x(dobel klik) Data Pelanggan, sehingga anda akan diarahkan pada source code menustrip data pelanggan, seperti pada gambar dibawah ini :
18.   Lengkapi source dengan menambahkan source dibawah ini :
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
namespace ViewDataSBD
{
    public partial class MenuUtama : Form
    {
        public MenuUtama()
        {
            InitializeComponent();
        }
        private void dataPelangganToolStripMenuItem_Click(object sender, EventArgs e)
        {
            Form datapelanggan = new DataPelanggan();
            datapelanggan.MdiParent = this;
            datapelanggan.Show();
        }
    }
}
19.   Kemudian, coba jalankan form MenuUtama pada aplikasi, jangan lupa merubah DataPelanggan menjadi MenuUtama pada langkah 15. Sehingga form yang pertama kali di run adalah form MenuUtama. Apabila berhasil dan langkah-langkah yang anda lakukan sudah benar akan tampak seperti gambar dibawah ini :
20.   Lakukan langkah yang sama untuk menampilkan data-data lainnya dari database. Pada contoh tutorial ini data yang ditampilkan adalah data pelanggan. Silahkan menambahkan form yang lain misalnya seperti form DataTransaksi, DataBarang dan lain sebagainya. Silahkan mengulangi langkah 5-19 untuk membuat form lain untuk menampilkan data yang lain dengan cara yang sama.
21.   Selamat Mencoba. 
 
 
 
 http://aibubblebee.blogspot.com/2012/03/menampilkan-data-dari-database-using-c.html