Private VorlstPtName_Click (ByVal Absender als Gegenstand, ByVal e als System.EventArgs) behandelt lstPtName.Click
LoadPtData ()
Me.txt NoRecs.Text = Me.BindingContext (dsPatient.Tables („Patienten“)). Count.ToString
Me.BindingContext (dsPatient.Tables („Patienten“)). Position = 0
Me.txt CurRec.Text = Me.BindingContext (dsPatient.Tables („Patienten“)). Position + 1
Enden-Unterseeboot
Privates VorbtnNext_Click (ByVal Absender als Gegenstand, ByVal e als System.EventArgs) behandelt btnNext.Click
Wenn Me.BindingContext (dsPatient.Tables („Patienten“)). Position < Me.BindingContext (dsPatient.Tables („Patienten“)). Zählimpuls - 1 dann
Me.BindingContext (dsPatient.Tables („Patienten“)). Position = Me.BindingContext (dsPatient.Tables („Patienten“)). Position + 1
Me.txt CurRec.Text = Me.BindingContext (dsPatient.Tables („Patienten“)). Position + 1
Beenden wenn
Unterseeboot beenden
Privates VorbtnLast_Click (ByVal Absender als Gegenstand, ByVal e als System.EventArgs) behandelt btnLast.Click
Me.BindingContext (dsPatient.Tables („Patienten“)). Position = Me.BindingContext (dsPatient.Tables („Patienten“)). Zählimpuls - 1
Me.txt CurRec.Text = Me.BindingContext (dsPatient.Tables („Patienten“)). Position + 1
Enden-Unterseeboot
Privates VorbtnPrev_Click (ByVal Absender als Gegenstand, ByVal e als System.EventArgs) behandelt btnPrev.Click
Wenn Me.BindingContext (dsPatient.Tables („Patienten“)). Position > 0 dann
Me.BindingContext (dsPatient.Tables („Patienten“)). Position = Me.BindingContext (dsPatient.Tables („Patienten“)). Position - 1
Me.txt CurRec.Text = Me.BindingContext (dsPatient.Tables („Patienten“)). Position + 1
Beenden wenn
Unterseeboot beenden
Privates VorbtnFirst_Click (ByVal Absender als Gegenstand, ByVal e als System.EventArgs) behandelt btnFirst.Click
Me.BindingContext (dsPatient.Tables („Patienten“)). Position = 0
Me.txt CurRec.Text = Me.BindingContext (dsPatient.Tables („Patienten“)). Position + 1
Enden-Unterseeboot
VorLoadPtData ()
dsPatient.Clear ()
Schwaches daPatient als neues SqlClient.SqlDataAdapter („* VON RawData VORWÄHLEN, WO PtName = „“ u. lstPtName.Text u. „“ „, Anschl.)
Versuch
Anschl. Öffnen ()
dapatient. Füllen (dsPatient, „Patienten“)
Anschl. Schließen ()
Fang ex als Ausnahme
MsgBox (ex. Mitteilung)
Enden-Versuch
Wenn txtPtName.DataBindings.Count = 0 dann
txtPtName.DataBindings.Add („Text“, dsPatient, „Patients.PtName“)
txtDOB.DataBindings.Add („Text“, dsPatient, „Patients.PtDOB“, zutreffendes, DataSourceUpdateMode.OnPropertyChanged, nichts, „DD MMM, yyyy“)
txtSex.DataBindings.Add („Text“, dsPatient, „Patients.PtSex“)
txtPhys.DataBindings.Add („Text“, dsPatient, „Patients.PhyName“)
txtTest.DataBindings.Add („Text“, dsPatient, „Patients.Test“)
txtResult.DataBindings.Add („Text“, dsPatient, „Patients.Result“)
txtUOM.DataBindings.Add („Text“, dsPatient, „Patients.UOM“)
txtCollDate.DataBindings.Add („Text“, dsPatient, „Patients.CollectDate“, zutreffendes, DataSourceUpdateMode.OnPropertyChanged, nichts, „DD MMM, yyyy“)
txtCollTime.DataBindings.Add („Text“, dsPatient, „Patients.CollectTime“)
Beenden wenn
Unterseeboot beenden
|