ThisisPerfect
Kilopat
- Katılım
- 27 Ocak 2014
- Mesajlar
- 234
Daha fazla
- Cinsiyet
- Erkek
Merhaba arkadaşlar, 11.Sınıf Bilişim Teknolojileri bölümü öğrencisiyim. Hastane Kayıt Otomasyonu Ödevim var ve bir türlü yapamadım. Yardımcı olabilecek varsa çok memnun olurum. Böyle bir şey buldum fakat işin içinden çıkamadım ve yapamadım Yapmam gereken şey tam olarak bu;
Projeyi hazırladım. Tasarım hazır. Sadece kodları yerleştirme kaldı fakat bir türlü yapamadım Yardım edecek yok mu?
Bu makalede basit bir hastane kayıt programı yaptık. Kaydetme,Listeleme, Arama, Güncelleme ve Silme işlemlerinin hepsini kapsamaktadır.
Veritabanı Bilgileri:
Veritabanı Adı : hastacorbasitasta
Tablo Adı : hesta_tbl
Alan Adları:—————— Veri Türleri
hastatc —————— Metin
hastaadi —————— Metin
hastasoyadi —————— Metin
yattigibolum —————– Metin
dradsoyad —————— Metin
odano —————— Sayı
yattigitar —————— Tarih
ucret —————— Para Birimi
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 System.Data.OleDb;
namespace basketbolhuzur
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
//veri tabanı bağlantısını yapıyoruz.
OleDbConnection baglan =
new OleDbConnection(“Provider=Microsoft.ACE.OLEDB.12.0;Data Source=hastacorbasitasta.accdb”);
private void button2_Click(object sender, EventArgs e) //Kaydetme Butonu
{
string hastatc = textBox1.Text;
string hastaadi = textBox2.Text;
string hastasoyadi = textBox3.Text;
string yattigibolum = textBox4.Text;
string dradsoyad = textBox5.Text;
string odano = textBox6.Text;
string yattigitar = dateTimePicker1.Text;
double ucret = Convert.ToDouble(textBox8.Text);
//Kaydetme
baglan.Open();
OleDbCommand komut = new OleDbCommand(“insert into hesta_tbl(hastatc,hastaadi,hastasoyadi,yattigibolum,dradsoyad,odano,yattigitar,ucret) values(‘” + hastatc + “‘,'” + hastaadi + “‘,'” + hastasoyadi + “‘,'” + yattigibolum + “‘,'” + dradsoyad + “‘,'” + odano + “‘,'” + yattigitar + “‘,”+ ucret + “)”, baglan);
komut.ExecuteNonQuery();
baglan.Close();
MessageBox.Show(“İşleminiz başarıyla gerçekleştirilmiştir.”);
}
private void button3_Click(object sender, EventArgs e) // Listeleme butonu
{
//Listeleme
baglan.Open();
OleDbDataAdapter adapter = new OleDbDataAdapter(“select * from hesta_tbl”, baglan);
DataSet ds = new DataSet();
adapter.Fill(ds, “hesta_tbl”);
dataGridView1.DataSource = ds.Tables[“hesta_tbl”];
baglan.Close();
}
private void button1_Click(object sender, EventArgs e) //Bul Butonu
{
string hastatc = textBox7.Text;
//BUL
baglan.Open();
OleDbDataAdapter adapter = new OleDbDataAdapter(“select * from hesta_tbl where hastatc='” + textBox7.Text + “‘”, baglan);
DataSet ds = new DataSet();
adapter.Fill(ds, “hesta_tbl”);
dataGridView1.DataSource = ds.Tables[“hesta_tbl”];
baglan.Close();
}
private void button4_Click(object sender, EventArgs e) //Getir Butonu
{
string hastatc = textBox9.Text;
int var = 0;
baglan.Open();
OleDbCommand komut = new OleDbCommand(“select * from hesta_tbl where hastatc='” + textBox9.Text + “‘”, baglan);
komut.ExecuteNonQuery();
OleDbDataReader reader = komut.ExecuteReader();
while (reader.Read())
{
textBox10.Text = reader[“ucret”].ToString();
textBox11.Text = reader[“odano”].ToString();
textBox12.Text = reader[“dradsoyad”].ToString();
textBox13.Text = reader[“yattigibolum”].ToString();
textBox14.Text = reader[“hastasoyadi”].ToString();
textBox15.Text = reader[“hastaadi”].ToString();
textBox16.Text = reader[“hastatc”].ToString();
textBox18.Text = reader[“yattigitar”].ToString();
var = 1;
}
if (var == 0)
{
MessageBox.Show(“kayıt bulunamadı”);
}
reader.Close();
baglan.Close();
}
private void button6_Click(object sender, EventArgs e) // Güncelle Butonu
{
string ucret = textBox10.Text;
string odano = textBox11.Text;
string dradsoyad = textBox12.Text;
string yattigibolum = textBox13.Text;
string hastasoyadi = textBox14.Text;
string hastaadi = textBox15.Text;
string hastatc = textBox16.Text;
string yattigitar = textBox18.Text;
//GÜNCELLEME
baglan.Open();
OleDbCommand komut = new OleDbCommand(“update hesta_tbl set ucret='” + ucret + “‘, odano='” + odano + “‘, dradsoyad='” + dradsoyad + “‘, yattigibolum='” + yattigibolum + “‘,hastasoyadi='” + hastasoyadi + “‘, hastaadi='” + hastaadi + “‘,hastatc='” + hastatc + “‘, yattigitar='” + yattigitar + “‘ where hastatc='” + hastatc + “‘”, baglan);
komut.ExecuteNonQuery();
baglan.Close();
MessageBox.Show(“Düzenleme işleminiz başarıyla gerçekleşti.”);
baglan.Open();
OleDbDataAdapter adapter = new OleDbDataAdapter(“select * from hesta_tbl”, baglan);
DataSet ds = new DataSet();
adapter.Fill(ds, “hesta_tbl”);
dataGridView1.DataSource = ds.Tables[“hesta_tbl”];
baglan.Close();
MessageBox.Show(“Düzenleme işleminiz başarıyla gerçekleşti.”);
}
private void button5_Click(object sender, EventArgs e) // Silme Butonu
{
string ucret = textBox10.Text;
string odano = textBox11.Text;
string dradsoyad = textBox12.Text;
string yattigibolum = textBox13.Text;
string hastasoyadi = textBox14.Text;
string hastaadi = textBox15.Text;
string hastatc = textBox16.Text;
string yattigitar = textBox16.Text;
//SİLME
baglan.Open();
OleDbCommand komut = new OleDbCommand(“delete * from hesta_tbl where hastatc='” + textBox9.Text + “‘”, baglan);
komut.ExecuteNonQuery();
OleDbDataAdapter adapter = new OleDbDataAdapter(“select * from hesta_tbl”, baglan);
DataSet ds = new DataSet();
adapter.Fill(ds, “hesta_tbl”);
dataGridView1.DataSource = ds.Tables[“hesta_tbl”];
baglan.Close();
MessageBox.Show(“kaydınız silinmiştir”);
}
}
}
Projeyi hazırladım. Tasarım hazır. Sadece kodları yerleştirme kaldı fakat bir türlü yapamadım Yardım edecek yok mu?
Son düzenleyen: Moderatör: