Proje Teklif Raporu

PGerçekleştirim Belgesi

Azrael Online Hasta Takip Sistemi

Fırat Kuran

Melike Funda Müftüoğlu

Gerçekleştirim Belgesi

Yazılım Geliştirme Projesi

Bilgi Teknolojileri Sertifika Programı

İDEA: ODTÜ Sanal Kampüsü

Tarih

28.06.2004

Öz

Gerçekleştirim evresinde proje teklifinde ana hatları verilmiş olan yazılımın analiz ve tasarım belgelerinde ayrıntılarıyla ortaya konan fiziksel modelinin-veri tabanları, süreçler ve ara yüzler- bilgisayar ortamında çalışan bir yazılıma dönüştürülmesi için kod yazımı yapılmıştır.Kodlama yapılırken analiz ve tasarım belgesinde belirlenen kriterlere büyük ölçüde bağlı kalınmış ve belirlenen ihtiyaçların eksiksiz karşılanmasına çalışılmıştır.

Karşılaşılan Sorunlar ve Uygulanan Çözümler

Projenin amacını ve sonucunu etkileyecek ciddiyette bir problemle karşılaşılmamıştır.

Yazılımın Bileşenleri ve Görevleri

Veritabanları:

Hastane Yazılımı:

İlişki Diyagramı:

Hastane Veritabanı İlişki Diyagramı

Veri Sözlüğü

Hastane veritabanının raporuna ulaşmak için tıklayın.Bu raporda tablo isimleri, tabloların DDL'leri, ilişkiler, alan isimleri ve özellikleri bulunabilir.

Eczane Veritabanı:

İlişki Diyagramı

Eczane Veritabanı İlişki Diyagramı

Veri Sözlüğü

Eczane Veri Tabanı için Embarcadero ER/Studio ile oluşturulmuş rapora ulaşmak için tıklayın.Bu raporda tablo isimleri, tabloların DDL'leri, ilişkiler, alan isimleri ve özellikleri bulunabilir.

Modüller:

Hastane Yazılımı:

Ayarlar Modülü:

Bu modül ile veritabanı bağlantı parametreleri girilir. Girilen bu parametrelerle bağlantı sağlanıp sağlanmadığı kontrol edilir, eğer bağlantı sağlanabilirse güvenlik nedeni ile şifrelenerek(encrypt) ayarlar.ini dosyasına yazılır.

Private Sub cmdKaydet_Click()
If Me.txtDatabase = "" Or Me.txtPassword = "" Or Me.txtServer = "" Or Me.txtUser = "" Then
MsgBox "Lütfen Eksiksiz Bilgi Giriniz.", vbExclamation, "UYARI"
Exit Sub
End If
If Baglan(Me.txtServer, Me.txtDatabase, Me.txtUser, Me.txtPassword) = True Then
strS = Encrypt(Me.txtServer)
strD = Encrypt(Me.txtDatabase)
strU = Encrypt(Me.txtUser)
strP = Encrypt(Me.txtPassword)
INI_YAZ "Server", "Deger", strS, App.Path & "\ayarlar.ini"
INI_YAZ "Database", "Deger", strD, App.Path & "\ayarlar.ini"
INI_YAZ "UserName", "Deger", strU, App.Path & "\ayarlar.ini"
INI_YAZ "Password", "Deger", strP, App.Path & "\ayarlar.ini"
MsgBox "Veritabanı Ayarları Kaydedildi.", vbInformation, "BİLGİ"
Unload Me
Else
MsgBox "Veritabanına Bağlanılamadı", vbCritical, "UYARI"
End If
End Sub

Veritabanı Bağlantı Modülü:

Bu modülde ayarlar.ini dosyasından alınan parametreler decrypt edilerek veritabanına bağlanılır.

Public db As New ADODB.Connection

Public Function Baglan(ds As String, ic As String, us As String, pwd As String) As Boolean
Dim rstAktifler As New ADODB.Recordset
Dim strDataSource As String
Dim strInitialCatalog As String
Dim strUyari As String

On Error GoTo HATA

Screen.MousePointer = 11

db.CursorLocation = adUseClient
db.ConnectionTimeout = 40
db.Open BaglantiSQLString(us, pwd, ds, ic)
Baglan = True
Screen.MousePointer = 0

Exit Function

HATA:

Baglan = False
Screen.MousePointer = 0

If Err.Number = -2147467259 Then
strUyari = "Genel MSSQL Server İletişim Hatası." & vbCr & "Lütfen SQL Server Service Manager'inin Başlatılmış Olduğunu veya Network Bağlantı Ayarlarının Doğru Yapıldığını Kontrol Edin."
ElseIf Err.Number = -2147217843 Then
strUyari = "Hatalı Kullanıcı Adı veya Şifre." & vbCr & "Lütfen tekrar deneyin."
Else
strUyari = "Hata Oluştu;" & vbCr & Err.Description
End If

MsgBox strUyari, vbCritical, "UYARI"

End Function

Kullanıcı Login Modülü:

Bu modülde, veritabanına başarı ile bağlanıldıktan sonra ,login penceresi gelir ve daha önce belirlenen kullanıcı adı ve şifre girilerek kullanıcı programa giriş yapar.

Private Function KullaniciKontrol() As Boolean
Dim rstKullanici As New ADODB.Recordset

strQuery = "SELECT * FROM TBL_KULLANICILAR WHERE KULLANICIADI='" & Me.txtKullanici.Text & "'"
rstKullanici.Open strQuery, db, adOpenForwardOnly, adLockOptimistic, adCmdText
If rstKullanici.EOF = False Then
If rstKullanici.Fields("SIFRE") = Me.txtSifre.Text Then
KullaniciKontrol = True
KullaniciAdi = rstKullanici.Fields("KULLANICIADI")
KullaniciId = rstKullanici.Fields("KULLANICIID")
PersonelId = rstKullanici.Fields("PERSONELID")
KulHak = rstKullanici.Fields("KULHAK")

SaveSetting App.Title, "KullaniciAdi", "Deger", KullaniciAdi
Else
KullaniciKontrol = False
MsgBox "Hatalı Şifre.", vbInformation, "UYARI"
Me.txtSifre.SetFocus
SendKeys "{Home}+{End}"
End If

Else
KullaniciKontrol = False
MsgBox "Hatalı Kullanıcı Adı.", vbInformation, "UYARI"
Me.txtKullanici.SetFocus
SendKeys "{Home}+{End}"
End If

rstKullanici.Close
Set rstKullanici = Nothing

End Function

Hasta Kayıt Modülü:

Hasta kayıt modülü ,hastane personeli, hastaneye gelen hastanın kaydını yapar.

Private Sub YeniKayit()
Dim HastaAdi As String
Dim TCKimlikNo As String
On Error GoTo HATA

HastaAdi = Trim(Me.txtAdSoyad.Text)
TCKimlikNo = Trim(Me.txtTCKimlikNo.Text)

If HastaAdi = "" Then
MsgBox "Lütfen Hasta Adını Giriniz", vbInformation, "UYARI"
Me.TabHasta.Tab = 0
Me.txtAdSoyad.SetFocus
Exit Sub
End If

Dim rstKontrol As New ADODB.Recordset

strQuery = "SELECT * FROM TBL_HASTALAR WHERE ADSOYAD='" & HastaAdi & "'"
rstKontrol.Open strQuery, db, adOpenForwardOnly, adLockOptimistic, adCmdText

If rstKontrol.EOF = False Then
rstKontrol.Close
MsgBox "Aynı Hasta Adında Kayıt Mevcut!", vbInformation, "UYARI"
Exit Sub
End If

rstKontrol.Close

If TCKimlikNo = "" Then
If MsgBox("Hastanın TC Kimlik No'sunu Girmediniz." & vbCr & "Bu Şekilde Kayıt Etmek İstediğinizden Emin misiniz?", vbQuestion + vbYesNo, "ONAYLAMA") = vbNo Then
Exit Sub
End If
Else
strQuery = "SELECT * FROM TBL_HASTALAR WHERE TCKIMLIKNO='" & TCKimlikNo & "'"
rstKontrol.Open strQuery, db, adOpenForwardOnly, adLockOptimistic, adCmdText
If rstKontrol.EOF = False Then
rstKontrol.Close
MsgBox "Aynı TC Kimlik No'lu Kayıt Mevcut!", vbInformation, "UYARI"
Exit Sub
End If
rstKontrol.Close
End If

strQuery = "INSERT INTO TBL_HASTALAR VALUES('" & HastaAdi & "','" & Me.txtSicilNo.Text & "','" & Me.txtKarneNo.Text & "','" & Me.txtAdres.Text & "','" & NZ(Me.DCIl.BoundText) & "','" & Me.txtEvTel.Text & "','" & Me.txtIsTel.Text & "','" & Me.txtCepTel.Text & "','" & Me.cmbKanGrubu.Text & "'" & _
",'" & TCKimlikNo & "','" & Me.txtSeriNo.Text & "','" & Me.txtCuzdanNo.Text & "','" & Me.txtBabaAdi.Text & "','" & Me.txtAnaAdi.Text & "','" & NZ(Me.DCDogumYeri.BoundText) & "'," & CLng(Me.DTDogum.Value) - 2 & ",'" & Me.cmbCinsiyet.ListIndex & "','" & Me.cmbMedeniHal.ListIndex & "'" & _
",'" & NZ(Me.DCKayitIl.BoundText) & "','" & NZ(Me.DCKayitIlce.BoundText) & "','" & Me.txtMahalleKoy.Text & "','" & Me.txtOncekiSoyad.Text & "','" & Me.txtVergiNo.Text & "','" & NZ(Me.DCKurumlar.BoundText) & "','" & Me.txtKurumNo.Text & "'," & CLng(Date) - 2 & ")"

db.Execute strQuery

GecmisEkle (HastaIdBul(HastaAdi, 1)) 'Hastanın geçmişte geçirdiği rahatsızlıklar veritabanına eklenir

Unload Me
Exit Sub
HATA:
MsgBox Err.Description
End Sub

Hasta Kabul Modülü:

Bu modül ile hastane personelin , hastaneye gelen hastanın kabulunu yapar ,hastananın şikayetlerini alır ve ilgili doktora sevkini yapar. Bu modülde hastaya otomatik olarak bir kabul no verilir ve hastanedeki diğer tüm işlemlerini bu kabul no aracılığıyla yapması sağlanır. Daha önce hasta kaydı yapılamışsa hasta kabulü gerçekleşmez.Kullanım kolaylığı ve hız açısından bu modülde hastanın kaydının da yapılması sağlanmıştır..

strQuery = "UPDATE TBL_HASTA_KABUL SET GELISTARIH=" & SQLTarihFormati(Me.DTGelisTarihi.Value) & ",HASTAID=" & Me.txtHastaNo & ",DOKTORID=" & Me.DCDoktor.BoundText & ",PERSONELID=" & PersonelId & ",KLINIKID=" & Me.DCKlinik.BoundText & ",SIKAYET='" & Me.txtHastaSikayet & "' WHERE KABULID=" & Me.lblKabulNo
db.Execute strQuery

Tahlil/Muayene Modülü:

Bu modülde ,kabul modülünde sevkedilen doktor tarafından hastanın gerekli test ve muayene hizmeti işlemleri girilir.

Hasta artık doktor kontrolündedir.

strQuery = "UPDATE TBL_TAHLILLER SET TARIH= " & SQLTarihFormati(Me.DTTarih.Value) & ",KABULID=" & CDbl(Me.txtKabulNo) & ",ACIKLAMA='" & Me.txtAciklama & "' WHERE TAHLILID=" & Me.Tag
db.Execute strQuery

strQuery = "UPDATE TBL_HASTA_KABUL SET DURUM=1 WHERE KABULID=" & Me.txtKabulNo
db.Execute strQuery

Test Modülü

Bu modülde doktor tarafından istenen testler ,ilgili laborantlar tarafından hasta kabul nosuna göre bulunur ve sonuçlar ekranda işlenir.

strQuery = "SELECT TBL_TAHLILLER.KABULID, TBL_HASTALAR.ADSOYAD, TBL_TAHLILLER_AYRINTI.TESTID, " & _
" TBL_TAHLILLER_AYRINTI.ACIKLAMA, TBL_TAHLILLER_AYRINTI.DURUM, TBL_TAHLILLER_AYRINTI.SONUC, " & _
" TBL_TAHLILLER.TARIH " & _
"FROM TBL_TAHLILLER INNER JOIN " & _
" TBL_TAHLILLER_AYRINTI ON TBL_TAHLILLER.TAHLILID = TBL_TAHLILLER_AYRINTI.TAHLILID INNER JOIN " & _
" TBL_HASTA_KABUL ON TBL_TAHLILLER.KABULID = TBL_HASTA_KABUL.KABULID INNER JOIN " & _
" TBL_HASTALAR ON TBL_HASTA_KABUL.HASTAID = TBL_HASTALAR.HASTAID " & _
" WHERE TBL_TAHLILLER.KABULID=" & Me.txtArama & " ORDER BY TBL_TAHLILLER.TARIH DESC, TBL_TAHLILLER.KABULID DESC"

Me.GTestBul.RecordSource = strQuery
Me.GTestBul.ReBind True

Teşhis Tanım Modülü:

Bu modülle doktor aldığı test sonuçlarına göre belirlediği teşhisi girer .

strQuery = "INSERT INTO TBL_TESHISLER VALUES(" & CDbl(Me.DTTarih.Value) - 2 & "," & Me.DCDoktor.BoundText & "," & Me.txtKabulNo & ",'" & Me.txtTeshis & "')"

db.Execute strQuery

Reçete yazım Modülü:

Bu modülle doktor formlar aracılığıyla hastanın kabul no'sunu girerek reçete kalemlerini işler.

strQuery = "UPDATE TBL_RECETELER SET TARIH=" & SQLTarihFormati(Me.DTTarih.Value) & ",KABULID=" & Me.txtKabulNo & ",KURUMID=" & NZ(Me.DCKurum.BoundText) & ",DOKTORID=" & NZ(Me.DCDoktor.BoundText) & ",HASTAID=" & NZ(Me.DCHasta.BoundText) & " WHERE RECETENO=" & Me.lblReceteNo
db.Execute strQuery

Ödeme Modülü:

Bu modülle ,hastanın aldığı kabul nosuna göre ödeme durumu görüntülenir. Yine bu kabul nosu ile hastane içinde yaptığı tüm hareketler otomatik olarak fiyatlandırılır ve hastane personeli tarafından hastanın tercihine uygun ödeme şekli seçilir. Ödeme gerçekleştirildikten sonra hastanın çıkışı yapılır.

strQuery = "SELECT TBL_ODEMELER.ODEMEID, TBL_ODEMELER.TARIH, TBL_ODEMELER.KABULID, TBL_ODEMELER.ODEMETURID, " & _
"TBL_ODEMELER.TOPLAM, TBL_ODEMELER.INDIRIM, TBL_ODEMELER.NET, TBL_ODEMELER.ACIKLAMA, TBL_HASTALAR.ADSOYAD " & _
"FROM TBL_ODEMELER INNER JOIN TBL_HASTA_KABUL ON TBL_ODEMELER.KABULID = TBL_HASTA_KABUL.KABULID INNER JOIN TBL_HASTALAR ON TBL_HASTA_KABUL.HASTAID = TBL_HASTALAR.HASTAID"

GridAyarla Me.GOdemeler, strQuery, 1

Pocket PC Yazılımı

Web Servis Modülü:

Bu modül Pocket PC Programı için gerekli verilerin sağlandığı modüldür. Pocket Pc üzerinden direk SQL Server veritabanına bağlanılamadığı için Azrael veritabanına bağlı bir web service hazırlanmıştır. Bu web servis Pocket PC programı tarafından istenen verileri Sql Server veritabanından alarak , Pocket PC programının anlayacağı XML diline çevirir ve Pocket PC programının sonuçları yorumlamasını sağlar.Bunun in 3 tane fonksiyon hazırlanmıştır.

<WebMethod()> _

Public Function TeshisGetir(ByVal AranacakDeger As String, ByVal AramaTuru As Integer) As DataSet

Dim sql As String

If AramaTuru = 1 Then 'TC Kimlik No ise

sql = "SELECT TBL_TESHISLER.TARIH, TBL_TESHISLER.TESHIS, TBL_HASTALAR.ADSOYAD " & _

"FROM TBL_TESHISLER INNER JOIN " & _

" TBL_HASTA_KABUL ON TBL_TESHISLER.KABULID = TBL_HASTA_KABUL.KABULID INNER JOIN " & _

" TBL_HASTALAR ON TBL_HASTA_KABUL.HASTAID = TBL_HASTALAR.HASTAID " & _

"WHERE (TBL_HASTALAR.TCKIMLIKNO= '" & AranacakDeger & "')"

ElseIf AramaTuru = 2 Then 'İsimden arama ise

sql = "SELECT TBL_TESHISLER.TARIH, TBL_TESHISLER.TESHIS, TBL_HASTALAR.ADSOYAD " & _

"FROM TBL_TESHISLER INNER JOIN " & _

" TBL_HASTA_KABUL ON TBL_TESHISLER.KABULID = TBL_HASTA_KABUL.KABULID INNER JOIN " & _

" TBL_HASTALAR ON TBL_HASTA_KABUL.HASTAID = TBL_HASTALAR.HASTAID " & _

"WHERE (TBL_HASTALAR.ADSOYAD= '" & AranacakDeger & "')"

ElseIf AramaTuru = 3 Then 'Nufüs Cüzdanı No ise

sql = "SELECT TBL_TESHISLER.TARIH, TBL_TESHISLER.TESHIS, TBL_HASTALAR.ADSOYAD " & _

"FROM TBL_TESHISLER INNER JOIN " & _

" TBL_HASTA_KABUL ON TBL_TESHISLER.KABULID = TBL_HASTA_KABUL.KABULID INNER JOIN " & _

" TBL_HASTALAR ON TBL_HASTA_KABUL.HASTAID = TBL_HASTALAR.HASTAID " & _

"WHERE (TBL_HASTALAR.CUZDANNO= '" & AranacakDeger & "')"

End If

Dim comm As New SqlCommand(sql, conn)

Dim dataAdapter As New SqlDataAdapter(comm)

Dim ds As New DataSet

conn.Open()

dataAdapter.Fill(ds, "TBL_TESHISLER")

conn.Close()

Return ds

End Function

<WebMethod()> _

Public Function TahlilGetir(ByVal AranacakDeger As String, ByVal AramaTuru As Integer) As DataSet

Dim sql As String

If AramaTuru = 1 Then 'TC Kimlik No ise

sql = "SELECT TBL_TAHLILLER.TARIH, TBL_TEST.ACIKLAMA AS TEST, TBL_TAHLILLER_AYRINTI.SONUC, TBL_HASTALAR.ADSOYAD " & _

"FROM TBL_TAHLILLER_AYRINTI INNER JOIN " & _

" TBL_TAHLILLER ON TBL_TAHLILLER_AYRINTI.TAHLILID = TBL_TAHLILLER.TAHLILID INNER JOIN " & _

" TBL_HASTA_KABUL ON TBL_TAHLILLER.KABULID = TBL_HASTA_KABUL.KABULID INNER JOIN " & _

" TBL_HASTALAR ON TBL_HASTA_KABUL.HASTAID = TBL_HASTALAR.HASTAID INNER JOIN " & _

" TBL_TEST ON TBL_TAHLILLER_AYRINTI.TESTID = TBL_TEST.TESTID " & _

"WHERE (TBL_HASTALAR.TCKIMLIKNO= '" & AranacakDeger & "')"

ElseIf AramaTuru = 2 Then 'İsimden arama ise

sql = "SELECT TBL_TAHLILLER.TARIH, TBL_TEST.ACIKLAMA AS TEST, TBL_TAHLILLER_AYRINTI.SONUC, TBL_HASTALAR.ADSOYAD " & _

"FROM TBL_TAHLILLER_AYRINTI INNER JOIN " & _

" TBL_TAHLILLER ON TBL_TAHLILLER_AYRINTI.TAHLILID = TBL_TAHLILLER.TAHLILID INNER JOIN " & _

" TBL_HASTA_KABUL ON TBL_TAHLILLER.KABULID = TBL_HASTA_KABUL.KABULID INNER JOIN " & _

" TBL_HASTALAR ON TBL_HASTA_KABUL.HASTAID = TBL_HASTALAR.HASTAID INNER JOIN " & _

" TBL_TEST ON TBL_TAHLILLER_AYRINTI.TESTID = TBL_TEST.TESTID " & _

"WHERE (TBL_HASTALAR.ADSOYAD= '" & AranacakDeger & "')"

ElseIf AramaTuru = 3 Then 'Nufüs Cüzdanı No ise

sql = "SELECT TBL_TAHLILLER.TARIH, TBL_TEST.ACIKLAMA AS TEST, TBL_TAHLILLER_AYRINTI.SONUC, TBL_HASTALAR.ADSOYAD " & _

"FROM TBL_TAHLILLER_AYRINTI INNER JOIN " & _

" TBL_TAHLILLER ON TBL_TAHLILLER_AYRINTI.TAHLILID = TBL_TAHLILLER.TAHLILID INNER JOIN " & _

" TBL_HASTA_KABUL ON TBL_TAHLILLER.KABULID = TBL_HASTA_KABUL.KABULID INNER JOIN " & _

" TBL_HASTALAR ON TBL_HASTA_KABUL.HASTAID = TBL_HASTALAR.HASTAID INNER JOIN " & _

" TBL_TEST ON TBL_TAHLILLER_AYRINTI.TESTID = TBL_TEST.TESTID " & _

"WHERE (TBL_HASTALAR.CUZDANNO= '" & AranacakDeger & "')"

End If

Dim comm As New SqlCommand(sql, conn)

Dim dataAdapter As New SqlDataAdapter(comm)

Dim ds As New DataSet

conn.Open()

dataAdapter.Fill(ds, "TBL_TAHLILLER")

conn.Close()

Return ds

End Function

<WebMethod()> _

Public Function GecmisGetir(ByVal AranacakDeger As String, ByVal AramaTuru As Integer) As DataSet

Dim sql As String

If AramaTuru = 1 Then 'TC Kimlik No ise

sql = "SELECT TBL_HASTA_GECMISI.TARIH, TBL_HASTA_GECMISI.ACIKLAMA, TBL_HASTALAR.ADSOYAD " & _

"FROM TBL_HASTALAR INNER JOIN " & _

" TBL_HASTA_GECMISI ON TBL_HASTALAR.HASTAID = TBL_HASTA_GECMISI.HASTAID " & _

"WHERE (TBL_HASTALAR.TCKIMLIKNO= '" & AranacakDeger & "')"

ElseIf AramaTuru = 2 Then 'İsimden arama ise

sql = "SELECT TBL_HASTA_GECMISI.TARIH, TBL_HASTA_GECMISI.ACIKLAMA, TBL_HASTALAR.ADSOYAD " & _

"FROM TBL_HASTALAR INNER JOIN " & _

" TBL_HASTA_GECMISI ON TBL_HASTALAR.HASTAID = TBL_HASTA_GECMISI.HASTAID " & _

"WHERE (TBL_HASTALAR.ADSOYAD= '" & AranacakDeger & "')"

ElseIf AramaTuru = 3 Then 'Nufüs Cüzdanı No ise

sql = "SELECT TBL_HASTA_GECMISI.TARIH, TBL_HASTA_GECMISI.ACIKLAMA, TBL_HASTALAR.ADSOYAD " & _

"FROM TBL_HASTALAR INNER JOIN " & _

" TBL_HASTA_GECMISI ON TBL_HASTALAR.HASTAID = TBL_HASTA_GECMISI.HASTAID " & _

"WHERE (TBL_HASTALAR.CUZDANNO= '" & AranacakDeger & "')"

End If

Dim comm As New SqlCommand(sql, conn)

Dim dataAdapter As New SqlDataAdapter(comm)

Dim ds As New DataSet

conn.Open()

dataAdapter.Fill(ds, "TBL_HASTA_GECMISI")

conn.Close()

Return ds

End Function

Sorgulama Modülü:

Bu modülde doktor hastanin TC Kimlik No'su,adı yada nüfüz cüzdanı no'sunu girerek hasta ile ilgili bilgilere web servis aracılığıyla ulaşır.

Private Sub Sorgula(ByVal AranacakDeger As String, ByVal AramaTuru As String)

Dim ws As New AzraelWebService.azrael

Dim sqlDS As System.Data.DataSet

Dim Deger As String

sqlDS = ws.TeshisGetir(AranacakDeger, AramaTuru)

Dim TeshisRow As DataRow

Dim strTeshis(2) As String

Dim lviTeshisItem As ListViewItem

LWTeshisler.Clear()

For Each TeshisRow In sqlDS.Tables(0).Rows

strTeshis(0) = TeshisRow(sqlDS.Tables(0).Columns(0))

strTeshis(1) = TeshisRow(sqlDS.Tables(0).Columns(1))

lviTeshisItem = New ListViewItem(strTeshis)

LWTeshisler.Items.Add(lviTeshisItem)

Me.LWTeshisler.Items.Add(lviTeshisItem)

Next TeshisRow

sqlDS = ws.TahlilGetir(AranacakDeger, AramaTuru)

Dim TahlilRow As DataRow

Dim lviTahlilItem As ListViewItem

Dim strTahlil(3) As String

Me.LWTahliller.Clear()

For Each TahlilRow In sqlDS.Tables(0).Rows

strTahlil(0) = TahlilRow(sqlDS.Tables(0).Columns(0))

strTahlil(1) = TeshisRow(sqlDS.Tables(0).Columns(1))

strTahlil(2) = TeshisRow(sqlDS.Tables(0).Columns(2))

lviTahlilItem = New ListViewItem(strTahlil)

Me.LWTahliller.Items.Add(lviTahlilItem)

Next TahlilRow

sqlDS = ws.GecmisGetir(AranacakDeger, AramaTuru)

Dim GecmisRow As DataRow

Dim lviGecmisItem As ListViewItem

Dim strGecmis(2) As String

Me.LWGecmis.Clear()

For Each GecmisRow In sqlDS.Tables(0).Rows

strGecmis(0) = GecmisRow(sqlDS.Tables(0).Columns(0))

strGecmis(1) = GecmisRow(sqlDS.Tables(0).Columns(1))

lviGecmisItem = New ListViewItem(strGecmis)

Me.LWGecmis.Items.Add(lviGecmisItem)

Next GecmisRow

End Sub

Eczane Yazılımı:

Müşteri Kayıt Modülü

Eczacı kullanıcı ismi ve şifresi ile bağlanarak , müşteri kaydını gerçekleştirir.

Reçete Sorgulama Modülü:

Eczacı Kullanıcı ismi ve şifresiyle hastanenin veritabanına ulaşır ve reçete no'sunu web Formlar aracılığıyla girerek reçete kapsamındaki ürün listesine ulaşır.