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:
6:
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
Teilweises Kategorie overzichtpnnr
Übernimmt System.Web.UI.Page
Geschütztes VorBtnzoek_Click (ByVal Absender als Gegenstand, ByVal e als System.EventArgs) behandelt btnzoek. Klicken
Schwaches strverzuim als Schnur = System.Configuration.ConfigurationManager.ConnectionStrings („DBverzuimCS“) .ConnectionString
Schwacher Anschl. als neues OleDbConnection (strverzuim)
Schwaches cm als neues OleDbCommand
cm.CommandText = „AUSERWÄHLTES tblverzuim. Identifikation, tblverzuim.datumvan, tblverzuim.datumtot, tblverzuim.datumziekteattest, [IGPNNR] u. „„u. RTrim ([IGVRNM]) u.““ u. RTrim ([IGNAAM]) ALS Naam, tblverzuim.controle, tblverzuim.datumcontrole, tblverzuim.controleannulatie, tblverzuim.opmerkingen, tblverzuim.datumingave, tblverzuim.resultaatcontrole " _
u. „VON INNEREM tblPersoneelAS400 tblverzuim AUF sich ANSCHLIESSEN tblPersoneelAS400.IGPNNR = tblverzuim.pnnr“ _
u. „WO tblPersoneelAS400.IGPNNR=? UND tblverzuim.wissen=False“ _
u. „GRUPPE DURCH tblverzuim. Identifikation, tblverzuim.datumvan, tblverzuim.datumtot, tblverzuim.datumziekteattest, [IGPNNR] u. „„u. RTrim ([IGVRNM]) u.““ u. RTrim ([IGNAAM]), tblverzuim.controle, tblverzuim.datumcontrole, tblverzuim.controleannulatie, tblverzuim.opmerkingen, tblverzuim.datumingave, tblverzuim.resultaatcontrole " _
u. „AUFTRAG DURCH tblverzuim.datumvan DESC, tblverzuim.datumtot DESC; “
Schwaches p2 als neues OleDbParameter
p2.ParameterName = „pnnr“
p2.OleDbType = OleDbType.Double
p2.Value = Me.txt pnnrzoek. Text
cm. Anschluss = Anschl.
cm. Connection.Open ()
cm. Parameters.Add (p2)
Me.dgOverzicht.DataSource = cm.ExecuteReader ()
Me.dgOverzicht.DataBind ()
Me.lblok.Visible = falsch
Me.btnexcel.Visible = richten aus
cm. Connection.Close ()
cm. Parameters.Clear ()
Enden-Unterseeboot
'' Kleur De rijen sterben vandaag gemaakt zijn groen u. rijen sterben vandaag verlopen zijn Kreuz. Hier Wort geselecteerd OP Kolom „datumingave“ uit de Tabel „tblVerzuim“ van DbVerzuim
Geschütztes VordgOverzicht_RowDataBound (ByVal Absender als Gegenstand, ByVal e als System.Web.UI.WebControls.GridViewRowEventArgs) behandelt dgOverzicht.RowDataBound
Wenn e.Row.RowType = DataControlRowType.DataRow dann
Schwach als Schnur = DataBinder.Eval (e.Row.DataItem, „datumingave“ groen)
Kreuz als Schnur = DataBinder.Eval (e.Row.DataItem, „datumtot“ verdunkeln)
Wenn groen = heute dann
e.Row.ForeColor = Drawing.Color.Green
Beenden wenn
Wenn Kreuz = heute dann
e.Row.ForeColor = Drawing.Color.Red
Beenden wenn
Beenden wenn
Unterseeboot beenden
Allgemeines Vor dgOverzicht_SelectedIndexChanged (ByVal Absender als Gegenstand, ByVal e als System.EventArgs) behandelt dgOverzicht.SelectedIndexChanged
Schwaches strverzuim als Schnur = System.Configuration.ConfigurationManager.ConnectionStrings („DBverzuimCS“) .ConnectionString
Schwacher Anschl. als neues OleDbConnection (strverzuim)
Schwaches cm als neues OleDbCommand
cm.CommandText = „AUSERWÄHLTES tblverzuim.datumvan, tblverzuim.datumtot, tblverzuim.datumziekteattest, tblverzuim.pnnr, tblverzuim.wissen, tblverzuim.opmerkingen, tblverzuim. Identifikation, tblverzuim.controle, tblverzuim.datumcontrole, tblverzuim.controleannulatie, tblverzuim.useringave, tblverzuim.datumingave, tblverzuim.userannulatiecontrole, tblverzuim.datumannulatiecontrole, tblverzuim.userwissen, tblverzuim.datumwissen, tblverzuim.usergewijzigd, tblverzuim.datumgewijzigd, tblverzuim.resultaatcontrole“ _
u. „vom tblverzuim“ _
u. „WO tblverzuim. Id=? ; “
Schwaches p1 als neues OleDbParameter
p1.ParameterName = „Identifikation“
p1.OleDbType = OleDbType.Double
p1.Value = C (Me.dgOverzicht.SelectedRow.FindControl („lblid“), Aufkleber). Text
cm. Anschluss = Anschl.
cm. Connection.Open ()
cm. Parameters.Add (p1)
Me.DetailsView1.DataSource = cm.ExecuteReader
Me.DetailsView1.DataBind ()
cm. Connection.Close ()
cm. Parameters.Clear ()
'' hier Packwagen Resultaat Controle zich mee Vultde Dropdownlist OP
Schwaches Ctrl als Steuerung
Ctrl = DetailsView1.FindControl („drpResultaatControle“)
Wenn nicht Ctrl nichts dann ist
Schwaches mylistbox als DropDownList = DirectCast (Ctrl, DropDownList)
Wenn nicht mylistbox nichts dann ist
'die sQl-Frage vorbereiten
sqlCmd verdunkeln, wie Schnur = „AUSERWÄHLTES tblkeuzelijst.IdKeuze, tblKeuzelijst.keuzemogelijkheden vom tblKeuzelijst“
VulListbox (mylistbox, sqlCmd)
Beenden wenn
Beenden wenn
Unterseeboot beenden
Privates VorVulListbox (ByVal lstObj als DropDownList, ByVal sqlCmd als Schnur)
Schwaches p1 als neues OleDbParameter
Schwaches strverzuim als Schnur = System.Configuration.ConfigurationManager.ConnectionStrings („DBverzuimCS“) .ConnectionString
Schwacher Anschl. als neues OleDbConnection (strverzuim)
Schwaches cm als neues OleDbCommand
cm.CommandText = sqlCmd
cm. Anschluss = Anschl.
cm. Connection.Open ()
lstObj.DataSource = cm.ExecuteReader ()
lstObj.DataValueField = „IdKeuze“
lstObj.DataTextField = „keuzemogelijkheden“
lstObj.DataBind ()
'sluit af
cm. Connection.Close ()
cm. Parameters.Clear ()
Enden-Unterseeboot
Geschütztes VorbtnOpslaan_Click (ByVal Absender als Gegenstand, ByVal e als System.EventArgs)
Schwaches strverzuim als Schnur = System.Configuration.ConfigurationManager.ConnectionStrings („DBverzuimCS“) .ConnectionString
Schwacher Anschl. als neues OleDbConnection (strverzuim)
Schwaches cm als neues OleDbCommand
cm.CommandText = „UPDATE tblverzuim GESETZT tblverzuim.datumvan =? , tblverzuim.datumtot =? , tblverzuim.datumziekteattest =? , tblverzuim.opmerkingen =? , tblverzuim.usergewijzigd =? , tblverzuim.datumgewijzigd =? , tblverzuim.controle=? , tblverzuim.datumcontrole=? , tblverzuim.resultaatcontrole=?“ _
u. „WO (((tblverzuim. Identifikation) =?)); “
Schwaches p1, p2, p3, p4, p5, p6, p7, p8, p9, p10 als neues OleDbParameter
p1.ParameterName = „Identifikation“
p2.ParameterName = „datumvan“
p3.ParameterName = „datumtot“
p4.ParameterName = „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“), Aufkleber). Text
p2.Value = C (Me.DetailsView1.FindControl („txtdatumvan“), area per informazioni). Text
p3.Value = C (Me.DetailsView1.FindControl („txtdatumtot“), area per informazioni). Text
p4.Value = C (Me.DetailsView1.FindControl („txtdatumziekteattest“), area per informazioni). Text
p5.Value = C (Me.DetailsView1.FindControl („txtopmerkingen“), area per informazioni). Text
p6.Value = User.Identity.Name
p7.Value = System.DateTime.Now
p8.Value = C (Me.DetailsView1.FindControl („slkcontrole“), CheckBox). Überprüft
p9.Value = C (Me.DetailsView1.FindControl („txtcontrole“), area per informazioni). Text
p10.Value = C (Me.DetailsView1.FindControl („drpResultaatControle“), DropDownList) .SelectedValue
cm. Anschluss = Anschl.
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 = richten aus
Me.DetailsView1.DataSource = nichts
Me.DetailsView1.DataBind ()
Me.dgOverzicht.DataSource = nichts
Me.dgOverzicht.DataBind ()
Enden-Unterseeboot
Geschütztes VorbtnWissen_Click (ByVal Absender als Gegenstand, ByVal e als System.EventArgs)
Schwaches strverzuim als Schnur = System.Configuration.ConfigurationManager.ConnectionStrings („DBverzuimCS“) .ConnectionString
Schwacher Anschl. als neues OleDbConnection (strverzuim)
Schwaches cm als neues OleDbCommand
cm.CommandText = „UPDATE tblverzuim GESETZT tblverzuim.wissen = -1, tblverzuim.userwissen =? , tblverzuim.datumwissen =?“ _
u. „WO (((tblverzuim. Identifikation) =?)); “
Schwaches p1, p2, p3 als neues OleDbParameter
p1.ParameterName = „Identifikation“
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“), Aufkleber). Text
p2.Value = User.Identity.Name
p3.Value = System.DateTime.Now
cm. Anschluss = Anschl.
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 = richten aus
Me.DetailsView1.DataSource = nichts
Me.DetailsView1.DataBind ()
Me.dgOverzicht.DataSource = nichts
Me.dgOverzicht.DataBind ()
Enden-Unterseeboot
Geschütztes Vorbtnannulatiecontrole_Click (ByVal Absender als Gegenstand, ByVal e als System.EventArgs)
Schwaches strverzuim als Schnur = System.Configuration.ConfigurationManager.ConnectionStrings („DBverzuimCS“) .ConnectionString
Schwacher Anschl. als neues OleDbConnection (strverzuim)
Schwaches cm als neues OleDbCommand
cm.CommandText = „UPDATE tblverzuim GESETZT tblverzuim.controleannulatie = -1, tblverzuim.userannulatiecontrole =? , tblverzuim.datumannulatiecontrole =?“ _
u. „WO (((tblverzuim. Identifikation) =?)); “
Schwaches p1, p2, p3 als neues OleDbParameter
p1.ParameterName = „Identifikation“
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“), Aufkleber). Text
p2.Value = User.Identity.Name
p3.Value = System.DateTime.Now
cm. Anschluss = Anschl.
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 = richten aus
Me.DetailsView1.DataSource = nichts
Me.DetailsView1.DataBind ()
Me.dgOverzicht.DataSource = nichts
Me.dgOverzicht.DataBind ()
Enden-Unterseeboot
Geschütztes Vorbtnexcel_Click (ByVal Absender als Gegenstand, ByVal e als System.EventArgs) behandelt btnexcel. Klicken
Schwaches Sb als neues System.Text.StringBuilder
Schwaches rij als ganze Zahl
'Schwaches kolom als ganze Zahl
Schwacher Dateiname als Schnur
Dateiname = „verzuim.txt“
Sb. Hinzufügen („pnnr/Naam“ u. Chr (9) u. „Ziekte Packwagen“ u. Chr (9) u. „Ziekte Tot“ u. Chr (9) u. „Datum ziekteattest“ u. Chr (9) u. „controle“ u. Chr (9) u. „Datum controle“ u. Chr (9) u. „annulatie controle“ u. Chr (9) u. „opmerkingen“ u. vbCrLf)
Für rij = 0 zu Me.dgOverzicht.Rows.Count - 1
Me.dgOverzicht.SelectedIndex = rij
'gegevens uit gridview meenemen
Sb. Hinzufügen (C (Me.dgOverzicht.SelectedRow.FindControl („lblpnnr“), Aufkleber). Text u. Chr (9))
Sb. Hinzufügen (C (Me.dgOverzicht.SelectedRow.FindControl („lbldatumvan“), Aufkleber). Text u. Chr (9))
Sb. Hinzufügen (C (Me.dgOverzicht.SelectedRow.FindControl („lbldatumtot“), Aufkleber). Text u. Chr (9))
Sb. Hinzufügen (C (Me.dgOverzicht.SelectedRow.FindControl („lbldatumziekteattest“), Aufkleber). Text u. Chr (9))
Sb. Hinzufügen (C (Me.dgOverzicht.SelectedRow.FindControl („slkcontrole“), CheckBox). Überprüft u. Chr (9))
Sb. Hinzufügen (C (Me.dgOverzicht.SelectedRow.FindControl („lbldatumcontrole“), Aufkleber). Text u. Chr (9))
Sb. Hinzufügen (C (Me.dgOverzicht.SelectedRow.FindControl („slkcontroleannulatie“), CheckBox). Überprüft u. Chr (9))
Sb. Hinzufügen (C (Me.dgOverzicht.SelectedRow.FindControl („txtopmerkingen“), area per informazioni). Text u. vbCrLf)
Zunächst
Response.ContentType = „Application/x-msexcel“
Response.AddHeader („Inhalteinteilung“, „attachement; filename= """ u. Dateiname u. """")
Response.Write (sb.ToString)
Response.End ()
Enden-Unterseeboot
Enden-Kategorie
|