Objasnuvanje na kod za formata appointmant

[139037]

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