Forum
mernis sisteminden web tabanlı veri çekme hakkında bilgisi olan var mı acaba? sitelerinde exe örnek programlar var ancak web tabanlı asp.net ile yapmak istiyorum bu konuda bilgisi olan var mı acaba?
Öncelikle IP adress bildirimi ve kullanıcı adı şifre aldınızmı
MERNİS (Merkezi Nüfus İdaresi Sistemi) Bildiğiniz gibi online olarak hizmet veren bir sistemdir. Birçok otomasyonda bu sistem kullanılarak işlem hızı arttırılmıştır.
Bu doküman da web servisinden nasıl veri çekildiğini anlatacağım.
Öncelikle web servisini kullanacağımız için .net Web reference a kullanacağımız servisin yolunu belirtmemiz gerekmektedir.
Project menüsünden Add Web Reference ı tıklıyoruz.
Açılan pencereye web servisi adresimizi ( http://212.175.169.157/sbkpsws/service.asmx ) yazıp isim verip add reference dememiz yeterlidir. (görüldüğü gibi servisi buldu ve görüntüsünü ekledi.)
Web servisimizi ekledikten sonra Formumuzu şu şekilde uyarlayıp kodlama kısmına geçiyoruz. Bu kısımda olan tüm Groupbox içindeki textbox verileri web servisi üzerinden alınacaktır.
(S butonu sorgula anlamına gelmektedir)
Kod Kısmı :
Public Class On_Frm_Hasta_Dosya
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Adres_getir()
End Sub
Public Sub Adres_getir()
If Hastane_User.Text = "" Or Hastane_Pass.Text = "" Or Tc_Sorgulama.Text = "" Then
MsgBox("TC Kimli Numarası, Kullanıcı Adı veya Parola Kısımlarını Doldurmanız Gerekli")
Else
Button2.Enabled = False
Dim serv As Tc_Sorgulama.Service = New Tc_Sorgulama.Service
On Error Resume Next
Dim adresgetir = serv.IlIlceMerkeziAdresKisiBilgiSorgula(Hastane_User.Text, Hastane_Pass.Text, Tc_Sorgulama.Text)
On Error Resume Next
il.Text = adresgetir.IlIlceMerkeziAdresi_Il
ilkod.Text = adresgetir.IlIlceMerkeziAdresi_IlKodu
ilce.Text = adresgetir.IlIlceMerkeziAdresi_Ilce
ilcekod.Text = adresgetir.IlIlceMerkeziAdresi_IlceKodu
mahalle.Text = adresgetir.IlIlceMerkeziAdresi_Mahalle
diskapi.Text = adresgetir.IlIlceMerkeziAdresi_DisKapiNo
ickapi.Text = adresgetir.IlIlceMerkeziAdresi_IcKapiNo
sokak.Text = adresgetir.IlIlceMerkeziAdresi_Csbm
' MessageBox.Show(adresgetir.hata)
If Tc_Sorgulama.Text = "" And ad.Text = "" Then
MessageBox.Show("Hatalı Sorgulama Tc Kimlik Numarasını Kontrol Ediniz.")
ElseIf Tc_Sorgulama.Text = "" Then
MessageBox.Show("Sorgulama Yapılamadı. Baglantı Yok yada Sorgulama Yaptıgınız Kişi Başka Bir Şehirde Bulunuyor.")
End If
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Enabled = True
Button1.Enabled = True
Button2.Enabled = True
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
TextBox16.Text = ""
TextBox17.Text = ""
TextBox18.Text = ""
TextBox19.Text = ""
TextBox20.Text = ""
TextBox21.Text = ""
End Sub
Private Sub On_Frm_Hasta_Dosya_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.MaximizeBox = False
Me.MdiParent = Anaform
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If Hastane_User.Text = "" Or Hastane_Pass.Text = "" Or Tc_Sorgulama.Text = "" Then
MsgBox("TC Kimli Numarası, Kullanıcı Adı veya Parola Kısımlarını Doldurmanız Gerekli")
Else
Dim serv As Tc_Sorgulama.Service = New Tc_Sorgulama.Service
On Error Resume Next
Dim verial = serv.TCKimlikNoSorgula(GP_tckullanici, GP_tcsifre, Tc_Sorgulama.Text)
On Error Resume Next
ad.Text = verial.Ad
soyad.Text = verial.Soyad
ana.Text = verial.AnaAd
baba.Text = verial.BabaAd
dogumtar.Text = verial.DogumTarih
dogumyer.Text = verial.DogumYer
medenihal.Text = verial.MedeniHal
din.Text = verial.Din
cinsiyet.Text = verial.Cinsiyet
olum.Text = verial.OlumTarih
olumyer.Text = verial.OlumYer
If TextBox12.Text = "" Then
TextBox12.Text = "------"
End If
End If
Adres_getir()
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Me.Close()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
End Sub
End Class
------------------------------------------------SON-----------------------------------------
bu şekilde form ve kodlamayı hazırladıktan sonra tek yapmamız gereken projemizi calıstırıp tc numaramızı yazıp denemek olacaktır.
Örnekte hastane uygulaması olduğu için bircok nesne yada fonksiyonun adı hastane verisi icermektedir. İstediginiz gibi duzenleyebilirsiniz.
If Hastane_User.Text = "" Or Hastane_Pass.Text = "" Or Tc_Sorgulama.Text = "" Then
MsgBox("TC Kimli Numarası, Kullanıcı Adı veya Parola Kısımlarını Doldurmanız Gerekli")
Else
Bu kısımdaki hastane user ve hastane pass dedigimiz olay mernisten aldığınız kullanıcı adı ve sifrelerdir (ayrıca ip numaranızın sisteme kayıtlı olması gerekmektedir.)
size yardımcı olacaktır bende bu şekil yaptım iyi çalışmalar....
teşekkür ederim yardımınız için ama mernis sisteminde hastahaneler için bu döküman uygulanmaktadır. ben bu uygulamayı üniversite için yapıcam kullanıcı adı ve şifre verdiler üni de olay daha farklı oluyormuş mesela link başka bir link ve orda xml verileri değiştirilmiş bir durumdadır ben programı web ortamında yapmaya çalışmaktayım kendi sitelerinde bir kaç adet exe program uygulamaları var ancak dediğim gibi web tabanlı hiç örnek bulamadım ve kendimde yapamadım yani daha özel bir durum eğer bu konuda yardımcı olabilirseniz çok sevinirim teşekkürler..
Şöyleki siz sonuçta aynı mantıktan yola çıkmanız gerekicek database'e bağlı adres linkindeki tabloları yada ünilerde geçerli olan linkteki tabloları eşleştirip bunu web ortamında paylaşıcaksınız hepsi bu aynı mantık yada şunu yapabilirsiniz HBYS programı yazan firmalarla görüşün örneklendirin en azından kafanızdaki şablonu onlara sorun yardımcı olurlar kolay gelsin iyi çalışmalar....