Forum

mernis ten web taba...
 
Bildirimler
Hepsini Temizle

mernis ten web tabanlı veri çekme

4 Yazılar
2 Üyeler
0 Reactions
4,203 Görüntüleme
(@efecan123)
Gönderiler: 2
New Member
Konu başlatıcı
 

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?

 
Gönderildi : 15/11/2010 14:48

(@MehmetAKSU)
Gönderiler: 321
Reputable Member
 

Ö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....


 

 
Gönderildi : 15/11/2010 19:03

(@efecan123)
Gönderiler: 2
New Member
Konu başlatıcı
 

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..

 
Gönderildi : 15/11/2010 23:26

(@MehmetAKSU)
Gönderiler: 321
Reputable Member
 

Şö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....

 
Gönderildi : 16/11/2010 15:13

Paylaş: