Informatica Medica Anno Accademico 2013-2014 Prof. Mauro Giacomini

Informatica Medica
Anno Accademico 2013-2014
Prof. Mauro Giacomini

Organizzazione del codice
• Separazione codice-contenuto
• Code-behind, dietro l’interfaccia in un qualsiasi linguaggio
• Controlli Utente
• Creazione di controlli specifici con relativa logica e
riutilizzabili in più punti delle nostre applicazione
• Creazione Componenti
• Concentra la logica applicativa in elementi indipendenti
dall’interfaccia utente

Separazione codice – contenuto
• Codice separato dall’interfaccia HTML
• Codice in qualsiasi linguaggio
• Necessaria la creazione di due file, uno per l’interfaccia e
uno per la logica applicativa
• Nell’interfaccia necessaria la direttiva Page che specifica il
nome del file di codice e la classe usata
• Es

Esempio_a (1)
Code-behind:
Imports System
Imports System.Web
Imports System.Data
Imports System.Data.SQLClient
Imports System.Web.UI.Page
Public Class Dati
Public Function getData () as DataSet
Dim ds as DataSet
Dim conn as SQLConnection
Dim cmd as SQLDataAdapter
Definisce una classe Dati
Con una funzione
pubblica getData che
legge dati da un DB e li
restituisce all’interfaccia
con un DataSet
conn = New SQLConnection (“server = MyServer;
uid=sa;pwd=;database=pubs”)

Esempio_a (2)
cmd = New SQLDataAdapter (“SELECT * From Authors”,
conn)
ds = New DataSet ()
cmd.Fill (ds, “Autori”)
return (ds)
End Function
End Class

Esempio_a (3)
Sub Page_Load (scr as Object, e as EventArgs)
Dim ds DataSet
ds = getData()
dgAutori.datasource = ds.Tables(“Autori”).DefaultView
dgAutori.DataBind()
End Sub
Script che richiama
il code-behind
dell’esempio_a 1-2

Esempio_b (4)
Testo HTLM di una form con un bottone il cui evento click è
collegato alla procedura Scrivi dichiarata in un file code-behind

Esempio_b (5)
Imports System
Imports System.Web
Imports System.Web.UI.WebControls
Imports System.Web.UI.Page
Partial Class Eventi
Public lbl as Label
Public txt as TextBox
Code-behind con una
classe Eventi che gestisce
con la procedura pubblica
Scrivi, l’evento di click del
bottone dell’interfaccia
descritta in Esempio_b (4)
Public Sub Scrivi (scr as Object, e as EventArgs)
End Sub
End Class
lbl.Text = txt.Text
I controlli dell’interfaccia che devono
essere modificati in questa procedura,
sono dichiarati come pubblici in una parte
della classe non visibile al programmatore

Esempio (6)
Public btn as button
Public Sub Scrivi (scr as Object, e as EventArgs)_
Handles btn.Click
End Sub
lbl.Text = txt.Text
Se si vuole un’interfaccia del tutto scollegata dal codice, si deve
dichiarare il bottone nell’interfaccia senza dichiarare nell’interfaccia
quale procedura gestirà il suo evento click. Il bottone viene quindi
dichiarato come pubblico nel file del code-behind (parte nascosta) e la
procedura deve esplicitamente di gestire (Handles) il click del bottone
stesso.

Controlli utente
• Parte di pagina ASP.NET importata e usata da un’altra pagina ASP.NET
come se fosse con controllo server.
• Fondamentali per il riutilizzo del software e per partizionare le
funzionalità in un’interfaccia web
• Ogni istanza di un controllo utente ha un suo proprio namespace in
modo che uno stesso controllo utente può essere usato più volte, anche
nella stessa pagina.
• Il linguaggio di programmazione è libero ed indipendente dal
linguaggio usato nell’interfaccia
• I file di controlli utente contengono anche parti dell’interfaccia, sono
salvati in file .ascx e possono anche avere il meccanismo del codebehind
• Devono essere integrati in altre form, quindi non devono contenere
, o

Esempio di Controllo Utente

Esempio di Controllo Utente (2)
Public Property Numero As Integer
Get
Return CInt (txtNum.Text)
End Get
Set
txtNum.Text = Value.ToString()
End Set
End Property

• Contiene una casella di testo e due controlli di validazione
• Casella di testo per inserire un valore obbligatorio
numerico compreso da 0 e 99
• Visibili all’esterno solo gli oggetti Public (proprietà Numero
che corrisponde al valore della proprietà Text della casella
di testo)
• Dentro alla direttiva Control possiamo inserire i comandi
per gestire il code-behind
•

Inserimento controllo
• Un controllo utente è incluso con la direttiva
• TagPrefix: definisce un namespace univoco per il
controllo utente
• TagName: nome del controllo
• Src: file dove sta il controllo con l’eventuale percorso

Uso controllo
• Per posizionare sulla pagina una o più istanze del
controllo:
• Per accedere alle proprietà:
lblSomma.Text = (Numero1.Numero +
Numero2.Numero).ToString()
• Per un valore predefinito

Dichiarazione componente
Namespace Nome_Componente
Public Class Nome_Classe
…..
End Class
Public Class Nome_Classe_1
….
End Class
End Namespace
vbc /t:library /out:componente.dll componente.vb
vbc /t:library /out:componente.dll
/r:System.Data.dll componente.vb
Esempio di dichiarazione di
un componente
Direttive per la compilazione
L’assembly che si ottiene va
posto nella directory reale
collegata alla directory
virtuale o in una directory /bin
dentro di essa.

Esempio
Import System.Data
Import System.Data.SqlClient
Namespace DatiAziendali
Public Class OrdiniClienti
Public Function CaricaDati (conn As SQLConnection)_
as DataSet
Dim daClienti as SqlDataAdapter =
New SqlDataAdapter (“Select * From
Clienti”, conn)
Dim daOrdini as SqlDataAdapter =
New SqlDataAdapter (“Select * From
Ordini”, conn)
Dim relClientiOrdini as DataRelation
Dim ds as DataSet = New DataSet()

Esempio (2)
daClienti.Fill (ds, “Clienti”)
daOrdini.Fill (ds, “Ordini”)
relClientiOrdini = ds.Relations.Add
(“ClientiOrdini”, ds.Tables(“Clienti”).Columns(“ID”),
ds.Tables(“Ordini”).Columns(“IDCliente”))
return ds
end Function
end Class
end Namespace

Uso in code-behind
Import DatiAziendali
Dim x as New OrdiniClienti
‘Senza import
Dim x as New DatiAziendali.OrdiniClienti
Dim ds DataSet
ds= x.CaricaDati(Conn)
Uso in aspx