__group__	ticket	summary	component	version	milestone	type	owner	status	created	_changetime	_description	_reporter
Active Tickets	30	Objasnuvanje na kod za formata appointmant	component1			defect		new	2014-10-21T23:22:47+02:00	2014-10-21T23:22:47+02:00	"'''Formata za dodavanje na nov appointmane povrzana so formata Patient koja sluzi za dodavanje na nov pacient. Vo ovaa forma imame staveno poveke edit i za vnesuvanje na tekst spored potrebnite inormacii za appointment na pacientite.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 so opredeluvanje na koi podatoci se od tipot integer a koi od tipot string i so postavuvanje na soodvetni poraki'''. Pr. za kodot If Integer.TryParse?(txtEMBG.Text, Identificationnr) = False Then
MessageBox?.Show(""Invalid value entered for Patient ID, it must be number"")
txtEMBG.Focus()
txtEMBG.SelectAll?()
Exit Sub


Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

''''TODO: This line of code loads data into the 'Medical_systemDataSet4.tblAppointment' table. You can move, or remove it, as needed. 
       ''' Me.TblAppointmentTableAdapter.Fill(Me.Medical_systemDataSet4.tblAppointment)
        dtmDateTime.Format = DateTimePickerFormat.Custom
        dtmDateTime.CustomFormat = ""dd/MM/yyyy""

        cnn = New OleDb.OleDbConnection
        cnn.ConnectionString = ""provider=microsoft.jet.oledb.4.0;data source = ..\medical_system.mdb"" 
''' (this cod is for connection with data base)'''

    End Sub

    Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click  '''(this cod is the save button code)'''

        Dim Identificationnr As Integer
       




        If Integer.TryParse(TextBox1.Text, Identificationnr) = False Then
            MessageBox.Show(""Invalid value entered for Patient ID, it must be number"")
            TextBox1.Focus()
            TextBox1.SelectAll()
            Exit Sub

'''(if the identification nr is false then ""Invalid value entered for Patient ID, it must be number"" massage will show)'''





        ElseIf TextBox1.Text = Nothing Then
            MsgBox(""Please enter Patient ID"")
            Exit Sub

        ElseIf ComboBox1.Text = Nothing Then
            MsgBox(""Please enter Chart order"")
            Exit Sub

        ElseIf cboHour.Text = Nothing Then
            MsgBox(""Please enter Hour"")
            Exit Sub

        ElseIf TextBox2.Text = Nothing Then
            MsgBox(""Please enter Description"")
            Exit Sub

'''(this cod we used if the user don't fulfill the text boxs to be shown for reminding the user to fulfill the text boxs)'''




        End If

        Try



            Dim cmd As New OleDb.OleDbCommand   '''(Initializes a new instance of the OleDbCommand class.)'''

            Dim mydate As DateTime

            mydate = Me.dtmDateTime.Value
            If Not cnn.State = ConnectionState.Open Then

              '''  '            ('open connection if it is not yet open)'''

                cnn.Open()
            End If

            cmd.Connection = cnn

           '''( '        'check whether add new or update)'''

            'If Me.txtEMBG1.Tag & """" = """" Then

      ''' (   '        'add new''' 
                  ''''add data to table )'''

            cmd.CommandText = ""INSERT INTO tblAppointment(PatientID, Data, Description, Hours, ChartOrder) "" & _
                            "" VALUES('"" & Me.TextBox1.Text & ""','"" & _
                            Me.dtmDateTime.Text & ""','"" & Me.TextBox2.Text & ""','"" & _
                            Me.cboHour.Text & ""', '"" & Me.ComboBox1.Text & ""')""
            cmd.ExecuteNonQuery() '''( this code is for inserting in to appointment table patientid,data,descriprion,hours and charorder)'''

            RefreshData()
            '    'clear form
            Me.Button1.PerformClick()

            'End If
            cnn.Close()
        Catch ex As Exception

        End Try

    End Sub
    Private Sub RefreshData()



        If Not cnn.State = ConnectionState.Open Then
           ''' 'open connection'''
            cnn.Open()
        End If

        Dim da As New OleDb.OleDbDataAdapter(""SELECT * from tblAppointment"", cnn)


        Dim dt As New DataTable
        ''''    'fill data to datatable'''
        da.Fill(dt)

       ''' '    'offer data in data table into datagridview'''
        Me.DataGridView1.DataSource = dt.DefaultView

        ''''    'close connection'''
        cnn.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.TextBox1.Text = """"
        Me.ComboBox1.Text = """"
        Me.cboHour.Text = """"
        Me.TextBox2.Text = """"
        
''' (this cod is for close button)'''

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.TextBox2.Text = """"
        Me.DateTimePicker1.Text = """"
        Me.txtControl.Text = """"
        Me.txtDiagnosis.Text = """"
        Me.txtPrescription.Text = """"

  
'''(this code is for clear button)'''

Private Sub btnInsert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInsert.Click
        If TextBox2.Text = Nothing Then
            MsgBox(""Please enter Patient ID"")
'''
(this code is for insert button)'''

    End Sub"	139037
Active Tickets	31	Objasnuvanje na kod za formata examination	component1			enhancement		new	2014-10-21T23:42:10+02:00	2014-10-27T17:32:31+01:00	"'''Formata za dodavanje na nov examination povrzana so formata Patient koja sluzi za dodavanje na nov pacient. Vo ovaa forma imame staveno poveke edit i za vnesuvanje na tekst spored potrebnite inormacii za examination na pacientite.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 so opredeluvanje na koi podatoci se od tipot integer a koi od tipot string i so postavuvanje na soodvetni poraki.za examination formataekoristena istiod cod shto sme koristele za appointment'''

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

'''(codod za search vutton)''' Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
"	139037
Active Tickets	32	Objasnuvanje na kod za formata Labanalyses	component1			enhancement		new	2014-10-22T00:02:33+02:00	2014-10-27T17:32:43+01:00	"'''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"	139037
Active Tickets	33	Objasnuvanje na kod za formata login	component1			enhancement		new	2014-10-22T00:31:03+02:00	2014-10-27T17:30:43+01:00	"'''(the code of OK button in login forma)'''
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
'''
(the code for lebe username)'''
If UsernameTextBox.Text = Nothing Then 
'''( the code-for empty text box of username ""Please enter username"" will be shown if text box not fulfill by use)'''
            MsgBox(""Please enter username"")

            Exit Sub
'''(the code for lebe passworname)'''
        ElseIf PasswordTextBox.Text = Nothing Then
'''(the code if password is unrecorded this msg will appear)'''
            MsgBox(""Please enter password"")

            Exit Sub

Dim con As New OleDbConnection(""provider=microsoft.jet.oledb.4.0;data source = ..\medical_system.mdb"")
        Dim cmd As OleDbCommand = New OleDbCommand(""SELECT * FROM tblAdmin WHERE Usernam='"" & UsernameTextBox.Text & ""' AND Passwor = '"" & PasswordTextBox.Text & ""' "", con)
        con.Open()
        Dim sdr As OleDbDataReader = cmd.ExecuteReader()
'''(the code connect login forum with database)'''


If (sdr.Read() = True) Then


            MessageBox.Show(""The user is valid!"")
            Form1.Show()
            Me.Hide()     '''( if the text is true the msg  ""The user is valid'' will appear)'''
        Else

           MessageBox.Show(""Invalid username or password"")


'''(if its not true then the msg ""Invalid username or password"" will appear)'''
        End If


    End Sub
''' (cancel button code)'''
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()

    End Sub"	139037
Active Tickets	2	MDK	component2			task	139037	assigned	2014-05-01T22:04:06+02:00	2014-10-21T23:25:35+02:00	"Project Name: 	MEDICAL CENTER	
Department:	Team project
Focus Area:	useful software for medicals
Product/Process: softwere
"	Dragana Stojanovska
Active Tickets	29	Objasnuvanje na kod za formata Add_patient	component1		milestone2	enhancement		new	2014-10-19T20:25:11+02:00	2014-10-19T20:25:11+02:00	"Formata Pocetna preku kopceto za dodavanje na nov pacient e povrzana so formata ADD_Patient koja sluzi za dodavanje na nov pacient. Vo ovaa forma imame staveno poveke edit i za vnesuvanje na tekst spored potrebnite inormacii za pacientite 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 so opredeluvanje na koi podatoci se od tipot integer a koi od tipot string i so postavuvanje na soodvetni poraki. Pr. za kodot If Integer.TryParse(txtEMBG.Text, Identificationnr) = False Then
            MessageBox.Show(""Invalid value entered for Patient ID, it must be number"")
            txtEMBG.Focus()
            txtEMBG.SelectAll()
            Exit Sub
Dokolku za id ili za embg se stavi string ke se pojavi na ekranot porakata deka e potrebno podatocite da bidat integer. Takvi funkcii imame napraveno poveke za potrebnoto vnesuvanje na teksotot pri popolnuvanje za dodavanje na nov pacient. 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 = """"
        Me.txtCity.Text = """"
        Me.txtPname.Text = """"
        Me.txtPsurname.Text = """"
        Me.txtAddress.Text = """"
        Me.txtEMBG.Tag = """"
        Me.txthomeph.Text = """"
        Me.txtworkph.Text = """"
        Me.txtEmail.Text = """"
        Me.txtOther.Text = """"
        Me.txtProfession.Text = """"
        Me.txtIorder.Text = """" Odnosno site podatoci so slednive polinja da bidat ednakvi na prazni mesta - izbirsani.
Na kopceto close imame napraveno funkcija za izlez od ovaa forma.
Na kopceto Back funkcija za izlez od formata i prikaz na pocetnata strana preku funkcijata  Pocetna.Show().
"	Dragana Stojanovska
Active Tickets	28	Objasnuvanje na kod za formata Pocetna	component1		milestone2	task		new	2014-10-19T20:03:39+02:00	2014-10-19T20:03:39+02:00	"Vo delot Pocetna imame napraveno forma za prebaruvanje na pacienti i funkcija za dodavanje na novi pacienti i funkcija za refhesh.Preku nastavnot na kopceto AddPatient_Click_1 vnesuvame novi pacienti vo bazata so pomos na naredbata Add_Patient. Pri kliknuvanje na kopceto add patient se otvara nova forma za popolnuvanje na podatocite koi se potrebni za vnesuvanje na nov pacient vo bazata. So kliknuvanje na add patient se otvara formata Add patient koja e povrzana so ovaa forma.
Vo pocetnata strana napravivme i moznost za prebaruvanje na pacienti so vnesuvanje na nekoja infoarmacija za pacientoto so slednava funkcija> btnSearch_Click so sto se ovozmozuva prebaruvanje vo bazata i konekcija so bazata na podatoci kade se cuvaat informaciite za pacientite. So nastana za refresh na button 3 e obezbedena funkcija za ozvezuvanje na stranata."	Dragana Stojanovska