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
Langganan:
Postingan (Atom)