Objasnuvanje na kod za formata Labanalyses

[139037]

Formata za dodavanje na nov rezultati za labanalyses e povrzana so formata Patient koja sluzi za dodavanje na novi analizi. Vo ovaa forma imame staveno edit za vnesuvanje na rezultatite na analizi spored rezulatite.Pri vnesuvanje na potrebnite podatoci za nivno zacuvuvanje vo bazata na podatoci imame staveno funkcija za zacuvuvanje na podatocite preku kopceto save i nastanot btnSave_Click

(codod za save button) Private Sub btnSave_Click(ByVal? sender As System.Object, ByVal? e As System.EventArgs?) Handles btnSave.Click)

so opredeluvanje na koi podatoci se od tipot integer ,od tipot string,i datum na analizite.
codot za datum na aanliza so backcolor - Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged

DateTimePicker1.BackColor = Color.Brown

End Sub

Preku kopceto clear imame napravno funkcija btnClear_Click kade site podatoci pri pritiskanje na kopceto clear da se izbrisat. Toa go napravivme so sledniot kod> Me.txtEMBG.Text = ""

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Me.txtHematocrit.Text = ""
Me.txtHemaglobin.Text = ""
Me.txtErytocytes.Text = ""
Me.txtLeukocytes.Text = ""
Me.txtTrombocytes.Text = ""
Me.txtLymphocytes.Tag = ""
Me.TextBox2.Text = ""
Me.DateTimePicker1.Text = ""

Odnosno site podatoci so slednive polinja da bidat ednakvi na prazni mesta - izbirsani.

(kaj sekoj text box koristvem cod koja ja menuva bojata na textboxot ovije se codovite shto sme koristele codot za menuvanje na bojata)

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

TextBox2.BackColor = Color.Brown

End Sub

Private Sub txtHematocrit_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtHematocrit.TextChanged

txtHematocrit.BackColor = Color.Brown

End Sub

Private Sub txtHemaglobin_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtHemaglobin.TextChanged

txtHemaglobin.BackColor = Color.Brown

End Sub

Private Sub txtErytocytes_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtErytocytes.TextChanged

txtErytocytes.BackColor = Color.Brown

End Sub

Private Sub txtLeukocytes_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtLeukocytes.TextChanged

txtLeukocytes.BackColor = Color.Brown

End Sub

Private Sub txtTrombocytes_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTrombocytes.TextChanged

txtTrombocytes.BackColor = Color.Brown

End Sub

Private Sub txtLymphocytes_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtLymphocytes.TextChanged

txtLymphocytes.BackColor = Color.Brown

End Sub