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:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
| Imports System.Data.OleDb
Gedeeltelijke Klasse overzichtpnnr
Erft System.Web.UI.Page
Beschermde SubBtnzoek_Click (ByVal afzender als Voorwerp, ByVal e als System.EventArgs) behandelt btnzoek. Klik
Verduister strverzuim als Koord = System.Configuration.ConfigurationManager.ConnectionStrings („DBverzuimCS“) .ConnectionString
Verduister conn als Nieuwe OleDbConnection (strverzuim)
Verduister cm als Nieuwe OleDbCommand
cm.CommandText = „SELECTEER tblverzuim. Identiteitskaart, tblverzuim.datumvan, tblverzuim.datumtot, tblverzuim.datumziekteattest, [IGPNNR] & „„& RTrim ([IGVRNM]) &““ & RTrim ([IGNAAM]) ALS Naam, tblverzuim.controle, tblverzuim.datumcontrole, tblverzuim.controleannulatie, tblverzuim.opmerkingen, tblverzuim.datumingave, tblverzuim.resultaatcontrole " _
& „VAN tblPersoneelAS400 BINNEN TREED tblverzuim toe OP tblPersoneelAS400.IGPNNR = tblverzuim.pnnr“ _
& „WAAR tblPersoneelAS400.IGPNNR=? EN tblverzuim.wissen=False“ _
& „GROEP DOOR tblverzuim. Identiteitskaart, tblverzuim.datumvan, tblverzuim.datumtot, tblverzuim.datumziekteattest, [IGPNNR] & „„& RTrim ([IGVRNM]) &““ & RTrim ([IGNAAM]), tblverzuim.controle, tblverzuim.datumcontrole, tblverzuim.controleannulatie, tblverzuim.opmerkingen, tblverzuim.datumingave, tblverzuim.resultaatcontrole " _
& „ORDE DOOR tblverzuim.datumvan DESC, tblverzuim.datumtot DESC; “
Schemerige p2 als Nieuwe OleDbParameter
p2.ParameterName = „pnnr“
p2.OleDbType = OleDbType.Double
p2.Value = Me.txt pnnrzoek. Tekst
cm. Verbinding = conn
cm. Connection.Open ()
cm. Parameters.Add (p2)
Me.dgOverzicht.DataSource = cm.ExecuteReader ()
Me.dgOverzicht.DataBind ()
Me.lblok.Visible = Vals
Me.btnexcel.Visible = Waar
cm. Connection.Close ()
cm. Parameters.Clear ()
Sub van het eind
'' Kleur DE rijen matrijs vandaag gemaakt zijn groen & rijen matrijs vandaag verlopen zijn kruisbeeld. Van Hier het woord geselecteerd op Kolom „datumingave“ uit DE Tabel „tblVerzuim“ van dbVerzuim
Beschermde SubdgOverzicht_RowDataBound (ByVal afzender als Voorwerp, ByVal e als System.Web.UI.WebControls.GridViewRowEventArgs) behandelt dgOverzicht.RowDataBound
Als e.Row.RowType = DataControlRowType.DataRow toen
Schemerig groen als Koord = DataBinder.Eval (e.Row.DataItem, „datumingave“)
Verduister kruisbeeld als Koord = DataBinder.Eval (e.Row.DataItem, „datumtot“)
Als = vandaag toen groen
e.Row.ForeColor = Drawing.Color.Green
Eind als
Als kruisbeeld = vandaag toen
e.Row.ForeColor = Drawing.Color.Red
Eind als
Eind als
Sub van het eind
Openbare Sub dgOverzicht_SelectedIndexChanged (ByVal afzender als Voorwerp, ByVal e als System.EventArgs) Handvatten dgOverzicht.SelectedIndexChanged
Schemerige strverzuim als Koord = System.Configuration.ConfigurationManager.ConnectionStrings („DBverzuimCS“) .ConnectionString
Schemerige conn als Nieuwe OleDbConnection (strverzuim)
Schemerig cm als Nieuwe OleDbCommand
cm.CommandText = „UITGEZOCHTE tblverzuim.datumvan, tblverzuim.datumtot, tblverzuim.datumziekteattest, tblverzuim.pnnr, tblverzuim.wissen, tblverzuim.opmerkingen, tblverzuim. Identiteitskaart, tblverzuim.controle, tblverzuim.datumcontrole, tblverzuim.controleannulatie, tblverzuim.useringave, tblverzuim.datumingave, tblverzuim.userannulatiecontrole, tblverzuim.datumannulatiecontrole, tblverzuim.userwissen, tblverzuim.datumwissen, tblverzuim.usergewijzigd, tblverzuim.datumgewijzigd, tblverzuim.resultaatcontrole“ _
& „VAN tblverzuim“ _
& „WAAR tblverzuim. Id=? ; “
Schemerige p1 als Nieuwe OleDbParameter
p1.ParameterName = „identiteitskaart“
p1.OleDbType = OleDbType.Double
p1.Value = C (Me.dgOverzicht.SelectedRow.FindControl („lblid“), Etiket). Tekst
cm. Verbinding = conn
cm. Connection.Open ()
cm. Parameters.Add (p1)
Me.DetailsView1.DataSource = cm.ExecuteReader
Me.DetailsView1.DataBind ()
cm. Connection.Close ()
cm. Parameters.Clear ()
'' hier vult DE dropdownlist bestelwagen Resultaat Controle zich mee op
Schemerig CTRL als Controle
CTRL = DetailsView1.FindControl („drpResultaatControle“)
Als niet CTRL dan niets is
Schemerige mylistbox als DropDownList = DirectCast (CTRL, DropDownList)
Als niet mylistbox dan niets is
'bereid de SQl vraag voor
Verduister sqlCmd als Koord = „UITGEZOCHTE tblkeuzelijst.IdKeuze, tblKeuzelijst.keuzemogelijkheden VAN tblKeuzelijst“
VulListbox (mylistbox, sqlCmd)
Eind als
Eind als
Sub van het eind
Privé SubVulListbox (ByVal lstObj als DropDownList, ByVal sqlCmd als Koord)
Schemerige p1 als Nieuwe OleDbParameter
Schemerige strverzuim als Koord = System.Configuration.ConfigurationManager.ConnectionStrings („DBverzuimCS“) .ConnectionString
Schemerige conn als Nieuwe OleDbConnection (strverzuim)
Schemerig cm als Nieuwe OleDbCommand
cm.CommandText = sqlCmd
cm. Verbinding = conn
cm. Connection.Open ()
lstObj.DataSource = cm.ExecuteReader ()
lstObj.DataValueField = „IdKeuze“
lstObj.DataTextField = „keuzemogelijkheden“
lstObj.DataBind ()
'sluit af
cm. Connection.Close ()
cm. Parameters.Clear ()
Sub van het eind
Beschermde SubbtnOpslaan_Click (ByVal afzender als Voorwerp, ByVal e als System.EventArgs)
Schemerige strverzuim als Koord = System.Configuration.ConfigurationManager.ConnectionStrings („DBverzuimCS“) .ConnectionString
Schemerige conn als Nieuwe OleDbConnection (strverzuim)
Schemerig cm als Nieuwe OleDbCommand
cm.CommandText = de „UPDATE tblverzuim PLAATSTE tblverzuim.datumvan =? , tblverzuim.datumtot =? , tblverzuim.datumziekteattest =? , tblverzuim.opmerkingen =? , tblverzuim.usergewijzigd =? , tblverzuim.datumgewijzigd =? , tblverzuim.controle=? , tblverzuim.datumcontrole=? , tblverzuim.resultaatcontrole=?“ _
& „WAAR (((tblverzuim. Identiteitskaart) =?)); “
Schemerige p1, p2, p3, p4, p5, p6, p7, p8, p9, p10 als Nieuwe OleDbParameter
p1.ParameterName = „identiteitskaart“
p2.ParameterName = „datumvan“
p3.ParameterName = „datumtot“
p4.ParameterName = „het meest datumattest“
p5.ParameterName = „opmerkingen“
p6.ParameterName = „usergewijzigd“
p7.ParameterName = „datumgewijzigd“
p8.ParameterName = „controlejanee“
p9.ParameterName = „datumcontrole“
p10.ParameterName = „resultaatcontrole“
p1.OleDbType = OleDbType.Double
p2.OleDbType = OleDbType.Date
p3.OleDbType = OleDbType.Date
p4.OleDbType = OleDbType.Date
p5.OleDbType = OleDbType.Char
p6.OleDbType = OleDbType.Char
p7.OleDbType = OleDbType.Date
p8.OleDbType = OleDbType.Boolean
p9.OleDbType = OleDbType.Date
p10.OleDbType = OleDbType.Char
p1.Value = C (Me.DetailsView1.FindControl („lblid“), Etiket). Tekst
p2.Value = C (Me.DetailsView1.FindControl („txtdatumvan“), TextBox). Tekst
p3.Value = C (Me.DetailsView1.FindControl („txtdatumtot“), TextBox). Tekst
p4.Value = C (Me.DetailsView1.FindControl („het meest txtdatumziekteattest“), TextBox). Tekst
p5.Value = C (Me.DetailsView1.FindControl („txtopmerkingen“), TextBox). Tekst
p6.Value = User.Identity.Name
p7.Value = System.DateTime.Now
p8.Value = C (Me.DetailsView1.FindControl („slkcontrole“), CheckBox). Gecontroleerd
p9.Value = C (Me.DetailsView1.FindControl („txtcontrole“), TextBox). Tekst
p10.Value = C (Me.DetailsView1.FindControl („drpResultaatControle“), DropDownList) .SelectedValue
cm. Verbinding = conn
cm. Connection.Open ()
cm. Parameters.Add (p2)
cm. Parameters.Add (p3)
cm. Parameters.Add (p4)
cm. Parameters.Add (p5)
cm. Parameters.Add (p6)
cm. Parameters.Add (p7)
cm. Parameters.Add (p8)
cm. Parameters.Add (p9)
cm. Parameters.Add (p10)
cm. Parameters.Add (p1)
cm.ExecuteNonQuery ()
cm. Connection.Close ()
cm. Parameters.Clear ()
Me.lblok.Visible = Waar
Me.DetailsView1.DataSource = niets
Me.DetailsView1.DataBind ()
Me.dgOverzicht.DataSource = niets
Me.dgOverzicht.DataBind ()
Sub van het eind
Beschermde SubbtnWissen_Click (ByVal afzender als Voorwerp, ByVal e als System.EventArgs)
Schemerige strverzuim als Koord = System.Configuration.ConfigurationManager.ConnectionStrings („DBverzuimCS“) .ConnectionString
Schemerige conn als Nieuwe OleDbConnection (strverzuim)
Schemerig cm als Nieuwe OleDbCommand
cm.CommandText = de „UPDATE tblverzuim PLAATSTE tblverzuim.wissen = -1, tblverzuim.userwissen =? , tblverzuim.datumwissen =?“ _
& „WAAR (((tblverzuim. Identiteitskaart) =?)); “
Schemerige p1, p2, p3 als Nieuwe OleDbParameter
p1.ParameterName = „identiteitskaart“
p2.ParameterName = „userwissen“
p3.ParameterName = „datumwissen“
p2.OleDbType = OleDbType.Char
p3.OleDbType = OleDbType.Date
p1.OleDbType = OleDbType.Double
p1.Value = C (Me.DetailsView1.FindControl („lblid“), Etiket). Tekst
p2.Value = User.Identity.Name
p3.Value = System.DateTime.Now
cm. Verbinding = conn
cm. Connection.Open ()
cm. Parameters.Add (p2)
cm. Parameters.Add (p3)
cm. Parameters.Add (p1)
cm.ExecuteNonQuery ()
cm. Connection.Close ()
cm. Parameters.Clear ()
Me.lblok.Visible = Waar
Me.DetailsView1.DataSource = niets
Me.DetailsView1.DataBind ()
Me.dgOverzicht.DataSource = niets
Me.dgOverzicht.DataBind ()
Sub van het eind
Beschermde Subbtnannulatiecontrole_Click (ByVal afzender als Voorwerp, ByVal e als System.EventArgs)
Schemerige strverzuim als Koord = System.Configuration.ConfigurationManager.ConnectionStrings („DBverzuimCS“) .ConnectionString
Schemerige conn als Nieuwe OleDbConnection (strverzuim)
Schemerig cm als Nieuwe OleDbCommand
cm.CommandText = de „UPDATE tblverzuim PLAATSTE tblverzuim.controleannulatie = -1, tblverzuim.userannulatiecontrole =? , tblverzuim.datumannulatiecontrole =?“ _
& „WAAR (((tblverzuim. Identiteitskaart) =?)); “
Schemerige p1, p2, p3 als Nieuwe OleDbParameter
p1.ParameterName = „identiteitskaart“
p2.ParameterName = „userwissen“
p3.ParameterName = „datumwissen“
p2.OleDbType = OleDbType.Char
p3.OleDbType = OleDbType.Date
p1.OleDbType = OleDbType.Double
p1.Value = C (Me.DetailsView1.FindControl („lblid“), Etiket). Tekst
p2.Value = User.Identity.Name
p3.Value = System.DateTime.Now
cm. Verbinding = conn
cm. Connection.Open ()
cm. Parameters.Add (p2)
cm. Parameters.Add (p3)
cm. Parameters.Add (p1)
cm.ExecuteNonQuery ()
cm. Connection.Close ()
cm. Parameters.Clear ()
Me.lblok.Visible = Waar
Me.DetailsView1.DataSource = niets
Me.DetailsView1.DataBind ()
Me.dgOverzicht.DataSource = niets
Me.dgOverzicht.DataBind ()
Sub van het eind
Beschermde Subbtnexcel_Click (ByVal afzender als Voorwerp, ByVal e als System.EventArgs) behandelt btnexcel. Klik
Verduister Sb als Nieuwe System.Text.StringBuilder
Verduister rij als Geheel
'Verduister kolom als Geheel
Verduister filename als Koord
filename = „verzuim.txt“
Sb. Voeg toe („pnnr/bestelwagen Naam“ & Chr (9) & „Ziekte“ & peuter Chr (9) & „Ziekte“ & Chr (9) & „het meest ziekteattest gegeven“ & Chr (9) & „controle“ & Chr (9) & „gegeven controle“ & Chr (9) & „annulatie controle“ & Chr (9) & „opmerkingen“ & vbCrLf)
Voor rij = 0 aan Me.dgOverzicht.Rows.Count - 1
Me.dgOverzicht.SelectedIndex = rij
'gegevens uit gridview meenemen
Sb. Voeg toe (C (Me.dgOverzicht.SelectedRow.FindControl („lblpnnr“), Etiket). Tekst & Chr (9))
Sb. Voeg toe (C (Me.dgOverzicht.SelectedRow.FindControl („lbldatumvan“), Etiket). Tekst & Chr (9))
Sb. Voeg toe (C (Me.dgOverzicht.SelectedRow.FindControl („lbldatumtot“), Etiket). Tekst & Chr (9))
Sb. Voeg toe (C (Me.dgOverzicht.SelectedRow.FindControl („het meest lbldatumziekteattest“), Etiket). Tekst & Chr (9))
Sb. Voeg toe (C (Me.dgOverzicht.SelectedRow.FindControl („slkcontrole“), CheckBox). Gecontroleerd & Chr (9))
Sb. Voeg toe (C (Me.dgOverzicht.SelectedRow.FindControl („lbldatumcontrole“), Etiket). Tekst & Chr (9))
Sb. Voeg toe (C (Me.dgOverzicht.SelectedRow.FindControl („slkcontroleannulatie“), CheckBox). Gecontroleerd & Chr (9))
Sb. Voeg toe (C (Me.dgOverzicht.SelectedRow.FindControl („txtopmerkingen“), TextBox). Tekst & vbCrLf)
Daarna
Response.ContentType = „Application/x-msexcel“
Response.AddHeader („tevreden-regeling“, „attachement; filename= """ & filename & """")
Response.Write (sb.ToString)
Response.End ()
Sub van het eind
De Klasse van het eind
|