class= " lineNumbers "
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:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
|
class=
class= frmMHContactLogAll_Load " id= " codeSnippet810629 Private Sub (прислужник ByVal как System.Object, ByVal e как System.EventArgs) регулирует MyBase.Load
treeload = ложно
Connection1.Open ()
Me.Size = новый размер ((Me.MdiParent.Size.Width - 50), Me.MdiParent.Size.Height - 100)
MHIntakeID = ничего
'Если программа () = «ClientContact» после этого
'Me.Width = Me.MdiParent.Size.Width - 80
'Me.Height = 300
'Me.Top = 250
'Еще
'Me.Width = Me.MdiParent.Size.Width - 80
'Me.Height = Me.MdiParent.Size.Height - 150
'TreeView1.Height = Me.MdiParent.Size.Height - 150
'Закончитесь если
Timer1.Enabled = True
Me.Show ()
'treeloadall ()
Подводная лодка конца
Приватное Sub treeloadall ()
objDS.Clear ()
Тусклое servicetype
servicetype = «ОБСЛУЖИВАНИЕ»
'Если программа = «ContactLog» после этого
daSections = новое SqlDataAdapter («ОТБОРНАЯ ОПРЕДЕЛЕННАЯ ВЕРХНЯЯ ЧАСТЬ новообращенный 100 ПРОЦЕНТОВ (varchar (10), dbo.tblMHCIntake.dtmIntake, 101) как intakedate, dtmintake, DATENAME (dw, dbo.tblMHCIntake.dtmIntake) КАК dayname ОТ dbo.tblMHCIntake где dtmintake > '01/01/2005'ORDER dbo.tblMHCIntake.dtmIntake DESC», Connection1)
daContent = новое SqlDataAdapter («ОТБОРНАЯ ОПРЕДЕЛЕННАЯ ВЕРХНЯЯ ЧАСТЬ 100 ПРОЦЕНТОВ tblPatient.strLName + «,» + tblPatient.strFName имя КАК, НОВООБРАЩЕННЫЙ (varchar (10), tblMHCIntake.dtmIntake, 101) КАК intakedate, DATENAME (dw, dbo.tblMHCIntake.dtmIntake) КАК dayname, tblMHCIntake.dtmIntake, tblMHCIntake.strStaff, НОВООБРАЩЕННЫЙ (varchar (10), tblPatient.dtmDOB, 101) КАК dtmdob, tblPatient.strPatientId, tblMHCIntakeDetail.lngIntakeId ОТ tblMHCIntake ВНУТРЕННЕГО СОЕДИНЯЮТ tblMHCIntakeDetail НА tblMHCIntake.lngIntakeId = tblMHCIntakeDetail.lngIntakeId ВНУТРЕННЕЕ СОЕДИНЯЮТ tblLUMHCData НА tblMHCIntakeDetail.lngDataId = tblLUMHCData.lngDataID СПРАВЕДЛИВО НАРУЖНОЕ СОЕДИНЯЮТ tblPatient НА tblMHCIntake.lngPatientId = tblPatient.lngPatientId ГДЕ (tblMHCIntake.dtmIntake > «1/1/2005») ЗАКАЗ tblMHCIntake.dtmIntake DESC», Connection1)
datype = новое SqlDataAdapter («ОТБОРНЫЙ ОПРЕДЕЛЕННЫЙ ПРОЦЕНТ tblMHCIntakeDetail.lngIntakeId ВЕРХНЕЙ ЧАСТИ 100, tblMHCIntakeDetail.lngDataId, tblLUMHCData.strData ОТ tblMHCIntake ВНУТРЕННЕГО СОЕДИНЯЮТ tblMHCIntakeDetail НА tblMHCIntake.lngIntakeId = tblMHCIntakeDetail.lngIntakeId ВНУТРЕННЕЕ СОЕДИНЯЮТ tblLUMHCData НА tblMHCIntakeDetail.lngDataId = tblLUMHCData.lngDataID СПРАВЕДЛИВО НАРУЖНОЕ СОЕДИНЯЮТ tblPatient НА tblMHCIntake.lngPatientId = tblPatient.lngPatientId ГДЕ (tblMHCIntake.dtmIntake > «1/1/2005») и tblLUMHCData.strtype = «» & servicetype & «» «, Connection1)
'Еще
«daContent = новое SqlDataAdapter («ОТБОРНАЯ ОПРЕДЕЛЕННАЯ ВЕРХНЯЯ ЧАСТЬ 100 ПРОЦЕНТОВ tblPatient.strLName +», «+ tblPatient.strFName имя КАК, НОВООБРАЩЕННЫЙ (varchar (10), tblMHCIntake.dtmIntake, 101) КАК intakedate, tblMHCIntake.dtmIntake, tblMHCIntake.strStaff, НОВООБРАЩЕННЫЙ (varchar (10), tblPatient.dtmDOB, 101) КАК dtmdob, tblPatient.strPatientId, tblMHCIntakeDetail.lngIntakeId ОТ tblMHCIntake ВНУТРЕННЕГО СОЕДИНЯЮТ tblMHCIntakeDetail НА tblMHCIntake.lngIntakeId = tblMHCIntakeDetail.lngIntakeId ВНУТРЕННЕЕ СОЕДИНЯЮТ tblLUMHCData НА tblMHCIntakeDetail.lngDataId = tblLUMHCData.lngDataID СПРАВЕДЛИВО НАРУЖНОЕ СОЕДИНЯЮТ tblPatient НА tblMHCIntake.lngPatientId = tblPatient.lngPatientId ГДЕ tblPatient.lngPatientId =» «& SqlParametersDB.Name.lngpatientid &» 'ЗАКАЗ tblMHCIntake.dtmIntake DESC ", Connection1)
«datype = новое SqlDataAdapter («ОТБОРНЫЙ ОПРЕДЕЛЕННЫЙ ПРОЦЕНТ tblMHCIntakeDetail.lngIntakeId ВЕРХНЕЙ ЧАСТИ 100, tblMHCIntakeDetail.lngDataId, tblLUMHCData.strData ОТ tblMHCIntake ВНУТРЕННЕГО СОЕДИНЯЮТ tblMHCIntakeDetail НА tblMHCIntake.lngIntakeId = tblMHCIntakeDetail.lngIntakeId ВНУТРЕННЕЕ СОЕДИНЯЮТ tblLUMHCData НА tblMHCIntakeDetail.lngDataId = tblLUMHCData.lngDataID СПРАВЕДЛИВО НАРУЖНОЕ СОЕДИНЯЮТ tblPatient НА tblMHCIntake.lngPatientId = tblPatient.lngPatientId ГДЕ tblPatient.lngPatientId =» «& SqlParametersDB.Name.lngpatientid &» «и tblLUMHCData.strtype =» «& servicetype &» '«, Connection1)
«daSections = новое SqlDataAdapter («ОТБОРНАЯ ОПРЕДЕЛЕННАЯ ВЕРХНЯЯ ЧАСТЬ новообращенный 100 ПРОЦЕНТОВ (varchar (10), dbo.tblMHCIntake.dtmIntake, 101) как intakedate, dtmintake, DATENAME (dw, dbo.tblMHCIntake.dtmIntake) КАК dayname ОТ dbo.tblMHCIntake ГДЕ dbo.tblMHCIntake.lngPatientId =» «& SqlParametersDB.Name.lngpatientid &» 'ЗАКАЗ dbo.tblMHCIntake.dtmIntake DESC ", Connection1)
'Закончитесь если
Попытка
daSections.Fill (objDS, «dtSections»)
Задвижка ex как исключение
MsgBox (ex. Сообщение)
Попытка конца
Попытка
daContent.Fill (objDS, «dtContent»)
Задвижка ex как исключение
MsgBox (ex. Сообщение)
Попытка конца
Попытка
Тусклое counttype
counttype = datype. Заполните (objDS, «dtType»)
Уловите ex как исключение
MsgBox (ex. Сообщение)
Попытка конца
Если программа = «contactLog» после этого
System.Threading.Thread.Sleep (100000)
Закончитесь если
objDS.Relations.Add («SectionToContent», _
objDS.Tables («dtSections»). Колонки («dtmIntake»), _
objDS.Tables («dtContent»). Колонки («dtmIntake»))
objDS.Relations.Add («SectionToType», _
objDS.Tables («dtContent»). Колонки («lngIntakeId»), _
objDS.Tables («dtType»). Колонки («lngIntakeId»))
nodenew = новое TreeNode
nodenew. Текст = «создает новый контакт клиента…»
nodenew. Бирка = «ново»
TreeView1.Nodes.Add (nodenew)
Для каждого rowSupp в objDS.Tables («dtSections»). Рядки
nodeSupp = новое TreeNode
nodeSupp.Text = rowSupp («dtmIntake») &» - «& rowSupp («dayname»)
nodeSupp.Tag = «дата входа»
Тусклое dotw
nodeSupp.Expand ()
TreeView1.Nodes.Add (nodeSupp)
Для каждого rowProd в rowSupp.GetChildRows («SectionToContent»)
nodeProd = новое TreeNode
nodeProd.Text = rowProd («intakedate») &» - «& rowProd («strStaff») &» - «& rowProd («имя») &» - «& rowProd («dtmdob») &» - «& rowProd («strPatientid»)
nodeProd.Tag = rowProd («lngIntakeID»)
nodeSupp.Nodes.Add (nodeProd)
Для каждого rowType в rowProd.GetChildRows («SectionToType»)
nodetype = новое TreeNode
nodetype. Текст = rowType («strData»)
nodeProd.Nodes.Add (nodetype)
Затем
Затем
Затем
'TreeView1.ExpandAll ()
'TreeView1.SelectedNode = TreeView1.Nodes.Item (2)
TreeView1.Focus ()
pageload = True
Подводная лодка конца
|
