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
Częściowy Klasowy overzichtpnnr
Dziedziczyć System.Web.UI.Page
Ochraniać Okręt podwodny Btnzoek_Click (ByVal nadawca Jako Przedmiot, ByVal e Jako System.EventArgs) Obchodzić się btnzoek. Stuknięcie
Ciemnawy strverzuim Jako Sznurek = System.Configuration.ConfigurationManager.ConnectionStrings ("DBverzuimCS") .ConnectionString
Ciemnawy conn Jako Nowy OleDbConnection (strverzuim)
Ciemnawy cm Jako Nowy OleDbCommand
cm.CommandText = "WYBRANY tblverzuim. Id, tblverzuim.datumvan, tblverzuim.datumtot, tblverzuim.datumziekteattest, [IGPNNR] & '' & RTrim ([IGVRNM]) & '' & RTrim ([IGNAAM]) JAKO Naam, tblverzuim.controle, tblverzuim.datumcontrole, tblverzuim.controleannulatie, tblverzuim.opmerkingen, tblverzuim.datumingave, tblverzuim.resultaatcontrole " _
& "OD tblPersoneelAS400 WEWNĘTRZNY ŁĄCZYĆ tblverzuim NA tblPersoneelAS400.IGPNNR = tblverzuim.pnnr" _
& "GDZIE tblPersoneelAS400.IGPNNR=? I tblverzuim.wissen=False" _
& "GRUPA Tblverzuim. Id, tblverzuim.datumvan, tblverzuim.datumtot, tblverzuim.datumziekteattest, [IGPNNR] & '' & RTrim ([IGVRNM]) & '' & RTrim ([IGNAAM]), tblverzuim.controle, tblverzuim.datumcontrole, tblverzuim.controleannulatie, tblverzuim.opmerkingen, tblverzuim.datumingave, tblverzuim.resultaatcontrole " _
& "ROZKAZ Tblverzuim.datumvan DESC, tblverzuim.datumtot DESC; "
Ciemnawy p2 Jako Nowy OleDbParameter
p2.ParameterName = "pnnr"
p2.OleDbType = OleDbType.Double
p2.Value = Me.txt pnnrzoek. Tekst
cm. Związek = conn
cm. Connection.Open ()
cm. Parameters.Add (p2)
Me.dgOverzicht.DataSource = cm.ExecuteReader ()
Me.dgOverzicht.DataBind ()
Me.lblok.Visible = Fałszywy
Me.btnexcel.Visible = Prawdziwy
cm. Connection.Close ()
cm. Parameters.Clear ()
Końcówka Okręt podwodny
'' Kleur de rijen kostkowy vandaag gemaakt zijn groen & rijen kostkowy vandaag verlopen zijn rood. Hier słowo geselecteerd dbVerzuim Kolom "datumingave" uit de Tabel "tblVerzuim" samochód dostawczy dbVerzuim
Ochraniać Okręt podwodny dgOverzicht_RowDataBound (ByVal nadawca Jako Przedmiot, ByVal e Jako System.Web.UI.WebControls.GridViewRowEventArgs) Obchodzić się dgOverzicht.RowDataBound
Jeżeli e.Row.RowType = DataControlRowType.DataRow Wtedy
Ciemnawy groen Jako Sznurek = DataBinder.Eval (e.Row.DataItem, "datumingave")
Ćmić rood Jako Sznurek = DataBinder.Eval (e.Row.DataItem, "datumtot")
Jeżeli groen = Dzisiaj Wtedy
e.Row.ForeColor = Drawing.Color.Green
Kończyć Jeżeli
Jeżeli rood = Dzisiaj Wtedy
e.Row.ForeColor = Drawing.Color.Red
Kończyć Jeżeli
Kończyć Jeżeli
Kończyć Okręt podwodny
Jawny Okręt podwodny dgOverzicht_SelectedIndexChanged (ByVal nadawca Jako Przedmiot, ByVal e Jako System.EventArgs) Rękojeść dgOverzicht.SelectedIndexChanged
Ciemnawy strverzuim Jako Sznurek = System.Configuration.ConfigurationManager.ConnectionStrings ("DBverzuimCS") .ConnectionString
Ciemnawy conn Jako Nowy OleDbConnection (strverzuim)
Ciemnawy cm Jako Nowy OleDbCommand
cm.CommandText = "WYBRANY tblverzuim.datumvan, tblverzuim.datumtot, tblverzuim.datumziekteattest, tblverzuim.pnnr, tblverzuim.wissen, tblverzuim.opmerkingen, tblverzuim. Id, tblverzuim.controle, tblverzuim.datumcontrole, tblverzuim.controleannulatie, tblverzuim.useringave, tblverzuim.datumingave, tblverzuim.userannulatiecontrole, tblverzuim.datumannulatiecontrole, tblverzuim.userwissen, tblverzuim.datumwissen, tblverzuim.usergewijzigd, tblverzuim.datumgewijzigd, tblverzuim.resultaatcontrole" _
& "OD tblverzuim" _
& "DOKĄD tblverzuim. Id=? ; "
Ciemnawy p1 Jako Nowy OleDbParameter
p1.ParameterName = "ID"
p1.OleDbType = OleDbType.Double
p1.Value = CType (Me.dgOverzicht.SelectedRow.FindControl ("lblid"), Etykietka). Tekst
cm. Związek = 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 samochód dostawczy Resultaat Controle zich mee hier
Ciemnawy ctrl Kontrola
ctrl = DetailsView1.FindControl ("drpResultaatControle")
Jeśli nie ctrl Być Nic Wtedy
Ciemnawy mylistbox Jako DropDownList = DirectCast (ctrl, DropDownList)
Jeśli nie mylistbox Być Nic Wtedy
'przygotowywać the SQl zapytanie
Ćmić sqlCmd Jako Sznurek = "WYBRANY tblkeuzelijst.IdKeuze, tblKeuzelijst.keuzemogelijkheden OD tblKeuzelijst"
VulListbox (mylistbox, sqlCmd)
Kończyć Jeżeli
Kończyć Jeżeli
Kończyć Okręt podwodny
Intymny Okręt podwodny VulListbox (ByVal lstObj Jako DropDownList, ByVal sqlCmd Sznurek)
Ciemnawy p1 Jako Nowy OleDbParameter
Ciemnawy strverzuim Jako Sznurek = System.Configuration.ConfigurationManager.ConnectionStrings ("DBverzuimCS") .ConnectionString
Ciemnawy conn Jako Nowy OleDbConnection (strverzuim)
Ciemnawy cm Jako Nowy OleDbCommand
cm.CommandText = sqlCmd
cm. Związek = conn
cm. Connection.Open ()
lstObj.DataSource = cm.ExecuteReader ()
lstObj.DataValueField = "IdKeuze"
lstObj.DataTextField = "keuzemogelijkheden"
lstObj.DataBind ()
'sluit af
cm. Connection.Close ()
cm. Parameters.Clear ()
Końcówka Okręt podwodny
Ochraniać Okręt podwodny btnOpslaan_Click (ByVal nadawca Jako Przedmiot, ByVal e Jako System.EventArgs)
Ciemnawy strverzuim Jako Sznurek = System.Configuration.ConfigurationManager.ConnectionStrings ("DBverzuimCS") .ConnectionString
Ciemnawy conn Jako Nowy OleDbConnection (strverzuim)
Ciemnawy cm Jako Nowy OleDbCommand
cm.CommandText = "AKTUALIZACJA tblverzuim USTALONY tblverzuim.datumvan =? , tblverzuim.datumtot =? , tblverzuim.datumziekteattest =? , tblverzuim.opmerkingen =? , tblverzuim.usergewijzigd =? , tblverzuim.datumgewijzigd =? , tblverzuim.controle=? , tblverzuim.datumcontrole=? , tblverzuim.resultaatcontrole=?" _
& "DOKĄD (((tblverzuim. Id) =?)); "
Ciemnawy p1, p2, p3, p4, p5, p6, p7, p8, p9, p10 Jako Nowy OleDbParameter
p1.ParameterName = "ID"
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 = CType (Me.DetailsView1.FindControl ("lblid"), Etykietka). Tekst
p2.Value = CType (Me.DetailsView1.FindControl ("txtdatumvan"), TextBox). Tekst
p3.Value = CType (Me.DetailsView1.FindControl ("txtdatumtot"), TextBox). Tekst
p4.Value = CType (Me.DetailsView1.FindControl ("txtdatumziekteattest"), TextBox). Tekst
p5.Value = CType (Me.DetailsView1.FindControl ("txtopmerkingen"), TextBox). Tekst
p6.Value = User.Identity.Name
p7.Value = System.DateTime.Now
p8.Value = CType (Me.DetailsView1.FindControl ("slkcontrole"), CheckBox). Sprawdzać
p9.Value = CType (Me.DetailsView1.FindControl ("txtcontrole"), TextBox). Tekst
p10.Value = CType (Me.DetailsView1.FindControl ("drpResultaatControle"), DropDownList) .SelectedValue
cm. Związek = 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 = Prawdziwy
Me.DetailsView1.DataSource = Nic
Me.DetailsView1.DataBind ()
Me.dgOverzicht.DataSource = Nic
Me.dgOverzicht.DataBind ()
Końcówka Okręt podwodny
Ochraniać Okręt podwodny btnWissen_Click (ByVal nadawca Jako Przedmiot, ByVal e Jako System.EventArgs)
Ciemnawy strverzuim Jako Sznurek = System.Configuration.ConfigurationManager.ConnectionStrings ("DBverzuimCS") .ConnectionString
Ciemnawy conn Jako Nowy OleDbConnection (strverzuim)
Ciemnawy cm Jako Nowy OleDbCommand
cm.CommandText = "AKTUALIZACJA tblverzuim USTALONY tblverzuim.wissen = -1, tblverzuim.userwissen =? , tblverzuim.datumwissen =?" _
& "DOKĄD (((tblverzuim. Id) =?)); "
Ciemnawy p1, p2, p3 Jako Nowy OleDbParameter
p1.ParameterName = "ID"
p2.ParameterName = "userwissen"
p3.ParameterName = "datumwissen"
p2.OleDbType = OleDbType.Char
p3.OleDbType = OleDbType.Date
p1.OleDbType = OleDbType.Double
p1.Value = CType (Me.DetailsView1.FindControl ("lblid"), Etykietka). Tekst
p2.Value = User.Identity.Name
p3.Value = System.DateTime.Now
cm. Związek = 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 = Prawdziwy
Me.DetailsView1.DataSource = Nic
Me.DetailsView1.DataBind ()
Me.dgOverzicht.DataSource = Nic
Me.dgOverzicht.DataBind ()
Końcówka Okręt podwodny
Ochraniać Okręt podwodny btnannulatiecontrole_Click (ByVal nadawca Jako Przedmiot, ByVal e Jako System.EventArgs)
Ciemnawy strverzuim Jako Sznurek = System.Configuration.ConfigurationManager.ConnectionStrings ("DBverzuimCS") .ConnectionString
Ciemnawy conn Jako Nowy OleDbConnection (strverzuim)
Ciemnawy cm Jako Nowy OleDbCommand
cm.CommandText = "AKTUALIZACJA tblverzuim USTALONY tblverzuim.controleannulatie = -1, tblverzuim.userannulatiecontrole =? , tblverzuim.datumannulatiecontrole =?" _
& "DOKĄD (((tblverzuim. Id) =?)); "
Ciemnawy p1, p2, p3 Jako Nowy OleDbParameter
p1.ParameterName = "ID"
p2.ParameterName = "userwissen"
p3.ParameterName = "datumwissen"
p2.OleDbType = OleDbType.Char
p3.OleDbType = OleDbType.Date
p1.OleDbType = OleDbType.Double
p1.Value = CType (Me.DetailsView1.FindControl ("lblid"), Etykietka). Tekst
p2.Value = User.Identity.Name
p3.Value = System.DateTime.Now
cm. Związek = 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 = Prawdziwy
Me.DetailsView1.DataSource = Nic
Me.DetailsView1.DataBind ()
Me.dgOverzicht.DataSource = Nic
Me.dgOverzicht.DataBind ()
Końcówka Okręt podwodny
Ochraniać Okręt podwodny btnexcel_Click (ByVal nadawca Jako Przedmiot, ByVal e Jako System.EventArgs) Obchodzić się btnexcel. Stuknięcie
Ciemnawy sb Jako Nowy System.Text.StringBuilder
Ciemnawy rij Jako Integer
'Ciemnawy kolom Jako Integer
Ciemnawy filename Sznurek
filename = "verzuim.txt"
sb. Append ("pnnr/Naam" & Chr (9) & "Ziekte samochód dostawczy" & Chr (9) & "Ziekte duduś" & Chr (9) & "datum ziekteattest" & Chr (9) & "controle" & Chr (9) & "datum controle" & Chr (9) & "annulatie controle" & Chr (9) & "opmerkingen" & vbCrLf)
Dla rij = (0) Me.dgOverzicht.Rows.Count - (1)
Me.dgOverzicht.SelectedIndex = rij
'gegevens uit gridview meenemen
sb. Append (CType (Me.dgOverzicht.SelectedRow.FindControl ("lblpnnr"), Etykietka). Tekst & Chr (9))
sb. Append (CType (Me.dgOverzicht.SelectedRow.FindControl ("lbldatumvan"), Etykietka). Tekst & Chr (9))
sb. Append (CType (Me.dgOverzicht.SelectedRow.FindControl ("lbldatumtot"), Etykietka). Tekst & Chr (9))
sb. Append (CType (Me.dgOverzicht.SelectedRow.FindControl ("lbldatumziekteattest"), Etykietka). Tekst & Chr (9))
sb. Append (CType (Me.dgOverzicht.SelectedRow.FindControl ("slkcontrole"), CheckBox). & Chr (9))
sb. Append (CType (Me.dgOverzicht.SelectedRow.FindControl ("lbldatumcontrole"), Etykietka). Tekst & Chr (9))
sb. Append (CType (Me.dgOverzicht.SelectedRow.FindControl ("slkcontroleannulatie"), CheckBox). & Chr (9))
sb. Append (CType (Me.dgOverzicht.SelectedRow.FindControl ("txtopmerkingen"), TextBox). Tekst & vbCrLf)
Następnie
Response.ContentType = "Application/x-msexcel"
Response.AddHeader ("zadawalać-usposobienie", "attachement; filename= """ & filename & """")
Response.Write (sb.ToString)
Response.End ()
Końcówka Okręt podwodny
Końcówka Klasa
|