'Bu script görsel bir arayüz ile veritabanına
'bağlanıp bir tablodaki kayıt sayısını görüntüler.
Imports System 'Gerekli classlar script e dahil ediliyor.
Imports System.IO
Imports System.Windows.Forms
Imports Microsoft.VisualBasic
Imports System.Data.SqlClient
Namespace WinTr
Public Class MainClass
'Buton tanımlaması.Buton, click olayı ile kullanılacağı
'için Withevents kelimesi ile tanımlanıyor
Private Withevents btn as New Button
Private Textbox1 as New Textbox 'Textbox tanımlanıyor
Public Sub Load 'Load prosedürü tanımlanıyor. Script çalışmaya
'bu prosedürden başlar. WinTr Scada Tagları ile
'iletişim bu prosedür aracılığıyla olur.
'Bu prosedürün sonuna ulaşıldığında script çalışmaya
'devam etse bile script'in WinTr
'Tagları ile olan ilişkisi kesilir.
'------- Script Start Line -------
Dim frm as new form 'Arayüzü meydana getirecek form nesnesi oluşturuluyor.
Dim lbl as new label 'Yazı barındıracak olan label nesnesinin oluşturuluyor.
lbl.top=65 'Label'ın yukarıdan ve soldan pixel olarak mesafesi ayarlanıyor.
lbl.left=20
lbl.width=65 'Label'in genişliği ayarlanıyor.
textbox1.top=62 'Textbox'un yukarıdan ve soldan pixel olarak mesafesi ayarlanıyor
textbox1.left=100
lbl.text= "Kayıt Sayısı:" 'Label nesnesinin "text" özelliğine bulunduracağı yazı atanıyor
btn.top= 120 'Butonun yukarıdan ve soldan pixel olarak mesafesi ayarlanıyor
btn.left=105
btn.text= "Ok" 'Butonun bulunduracağı yazı "text" özelliğine atanıyor
frm.controls.add(lbl) 'Label nesnesi forma ekleniyor
frm.controls.add(btn) 'Buton nesnesi forma ekleniyor
frm.controls.add(textbox1) 'Textbox nesnesi forma ekleniyor
frm.height=200 'Formun boyu ayarlanıyor
frm.width=300
frm.showdialog
'------- Script End Line -------
End Sub 'Load prosedürünün sonu
'Butonun click olayında çalışacak prosedür tanımlanıyor
Sub btnhandler(sender as object,e as system.eventargs) Handles btn.click
'Veritabanına bağlantı kuracak nesne oluşturuluyor.
Dim SQL_cn As New SqlConnection()
'Veritabanına bağlantı stringi oluşturuluyor.
SQL_cn.ConnectionString = "Server=(local)\WinTr;uid=sa;pwd=12341234;database=Project_1"
SQL_cn.Open() 'Veritabanı bağlantısı açılıyor.
Dim SQL_Ins As String 'SQL sorgusunu barındıracak değişken tanımlanıyor.
'Veritabanından son kayıt sayısını getirecek sorgu değişkene atanıyor
SQL_Ins = "SELECT COUNT(*) FROM Table1"
'Veritabanı bağlantısını ve sorgu stringini içeren SQL sorgulama nesnesi oluşturuluyor.
Dim SQL_cmdnon As SqlCommand = New SqlCommand(SQL_Ins, SQL_cn)
Dim Last_Value As String 'son kayıt sayısı bilgisini tutacak değişken oluşturuluyor
'Oluşturulan sorgulama nesnesi çalıştırılıyor ve döndürdüğü değer Last_Value değişkenine atanıyor.
Last_Value=SQL_cmdnon.ExecuteScalar
textbox1.text=(Last_Value) 'Last_Value değeri textbox da görüntüleniyor.
end sub
End Class
End Namespace
