class= " lineNumbers " do
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
|
class= do
o class= lstPtName_Click secundário " do id= " codeSnippet791938 do Private " notpretty " (remetente de ByVal como o objeto, ByVal e como System.EventArgs) segura lstPtName.Click
LoadPtData ()
Me.txt NoRecs.Text = Me.BindingContext (dsPatient.Tables (“pacientes”)). Count.ToString
Me.BindingContext (dsPatient.Tables (“pacientes”)). Posição = 0
Me.txt CurRec.Text = Me.BindingContext (dsPatient.Tables (“pacientes”)). Posição + 1
Submarino da extremidade
O btnNext_Click secundário confidencial (remetente de ByVal como o objeto, ByVal e como System.EventArgs) segura btnNext.Click
Se Me.BindingContext (dsPatient.Tables (“pacientes”)). Posição < Me.BindingContext (dsPatient.Tables (“pacientes”)). Contagem - 1 então
Me.BindingContext (dsPatient.Tables (“pacientes”)). Posição = Me.BindingContext (dsPatient.Tables (“pacientes”)). Posição + 1
Me.txt CurRec.Text = Me.BindingContext (dsPatient.Tables (“pacientes”)). Posição + 1
Terminar se
Terminar o submarino
O btnLast_Click secundário confidencial (remetente de ByVal como o objeto, ByVal e como System.EventArgs) segura btnLast.Click
Me.BindingContext (dsPatient.Tables (“pacientes”)). Posição = Me.BindingContext (dsPatient.Tables (“pacientes”)). Contagem - 1
Me.txt CurRec.Text = Me.BindingContext (dsPatient.Tables (“pacientes”)). Posição + 1
Submarino da extremidade
O btnPrev_Click secundário confidencial (remetente de ByVal como o objeto, ByVal e como System.EventArgs) segura btnPrev.Click
Se Me.BindingContext (dsPatient.Tables (“pacientes”)). Posição > 0 então
Me.BindingContext (dsPatient.Tables (“pacientes”)). Posição = Me.BindingContext (dsPatient.Tables (“pacientes”)). Posição - 1
Me.txt CurRec.Text = Me.BindingContext (dsPatient.Tables (“pacientes”)). Posição + 1
Terminar se
Terminar o submarino
O btnFirst_Click secundário confidencial (remetente de ByVal como o objeto, ByVal e como System.EventArgs) segura btnFirst.Click
Me.BindingContext (dsPatient.Tables (“pacientes”)). Posição = 0
Me.txt CurRec.Text = Me.BindingContext (dsPatient.Tables (“pacientes”)). Posição + 1
Submarino da extremidade
LoadPtData secundário ()
dsPatient.Clear ()
daPatient não ofuscante como SqlClient.SqlDataAdapter novo (“SELECIONAR * de RawData ONDE PtName = “” & lstPtName.Text & “” “, conexão)
Tentativa
conexão. Abrir ()
dapatient. Encher (dsPatient, “pacientes”)
conexões. Fecham-se ()
Prendedor ex como a exceção
MsgBox (ex. Mensagem)
Tentativa do fim
Se txtPtName.DataBindings.Count = 0 então
txtPtName.DataBindings.Add (“texto”, dsPatient, “Patients.PtName”)
txtDOB.DataBindings.Add (“texto”, dsPatient, “Patients.PtDOB”, verdadeiro, DataSourceUpdateMode.OnPropertyChanged, nada, “dd MMM, yyyy”)
txtSex.DataBindings.Add (“texto”, dsPatient, “Patients.PtSex”)
txtPhys.DataBindings.Add (“texto”, dsPatient, “Patients.PhyName”)
txtTest.DataBindings.Add (“texto”, dsPatient, “Patients.Test”)
txtResult.DataBindings.Add (“texto”, dsPatient, “Patients.Result”)
txtUOM.DataBindings.Add (“texto”, dsPatient, “Patients.UOM”)
txtCollDate.DataBindings.Add (“texto”, dsPatient, “Patients.CollectDate”, verdadeiro, DataSourceUpdateMode.OnPropertyChanged, nada, “dd MMM, yyyy”)
txtCollTime.DataBindings.Add (“texto”, dsPatient, “Patients.CollectTime”)
Terminar se
Terminar o submarino
|