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:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:
456:
457:
458:
459:
460:
461:
462:
463:
464:
465:
466:
467:
468:
469:
470:
471:
472:
473:
474:
475:
476:
477:
478:
479:
480:
481:
482:
483:
484:
485:
486:
487:
488:
489:
490:
491:
492:
493:
494:
495:
496:
497:
498:
499:
500:
501:
502:
503:
504:
505:
506:
507:
508:
509:
510:
511:
512:
513:
514:
515:
516:
517:
518:
519:
520:
521:
522:
523:
524:
525:
526:
527:
528:
529:
530:
531:
532:
533:
534:
535:
536:
537:
538:
539:
540:
541:
542:
543:
544:
545:
546:
547:
548:
549:
550:
551:
552:
553:
554:
555:
556:
557:
558:
559:
560:
561:
562:
563:
564:
565:
566:
567:
568:
569:
570:
571:
572:
573:
574:
575:
576:
577:
578:
579:
580:
581:
582:
583:
584:
585:
586:
587:
588:
589:
590:
591:
592:
593:
594:
595:
596:
597:
598:
599:
600:
601:
602:
603:
604:
605:
606:
607:
608:
609:
610:
611:
612:
613:
614:
615:
616:
617:
618:
619:
620:
621:
622:
623:
624:
625:
626:
627:
628:
629:
630:
631:
632:
633:
634:
635:
636:
637:
638:
639:
640:
641:
642:
643:
644:
645:
646:
647:
648:
649:
650:
651:
652:
653:
654:
655:
656:
657:
658:
659:
660:
661:
662:
663:
664:
665:
666:
667:
668:
669:
670:
671:
672:
673:
674:
675:
676:
677:
678:
679:
680:
681:
682:
683:
684:
685:
686:
687:
688:
689:
690:
691:
692:
693:
694:
695:
696:
697:
698:
699:
700:
701:
702:
703:
704:
705:
706:
707:
708:
709:
710:
711:
712:
713:
714:
715:
716:
717:
718:
719:
720:
721:
722:
723:
724:
725:
726:
727:
728:
729:
730:
731:
732:
733:
734:
735:
736:
737:
738:
739:
740:
741:
742:
743:
744:
745:
746:
747:
748:
749:
750:
751:
752:
753:
754:
755:
756:
757:
758:
759:
760:
761:
762:
763:
764:
765:
766:
767:
768:
769:
770:
771:
772:
773:
774:
775:
776:
777:
778:
779:
780:
781:
782:
783:
784:
785:
786:
787:
788:
789:
790:
791:
792:
793:
794:
795:
796:
797:
798:
799:
800:
801:
802:
803:
804:
805:
806:
807:
808:
809:
810:
811:
812:
813:
814:
815:
816:
817:
818:
819:
820:
821:
822:
823:
824:
825:
826:
827:
828:
829:
830:
831:
832:
833:
834:
835:
836:
837:
838:
839:
840:
|
Imports System.IO
Public Class staff_form
Inherits System.Windows.Forms.Form
Private Grade As String
Private Status As String
Private Gender As String
Private FileName As String
Private DOB As Date
Private Sub openconnection()
If OleDbConnection1.State = ConnectionState.Closed Then OleDbConnection1.Open()
End Sub
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents Label14 As System.Windows.Forms.Label
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
Friend WithEvents btnbrowse As System.Windows.Forms.Button
Friend WithEvents txtfile As System.Windows.Forms.TextBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents Label15 As System.Windows.Forms.Label
Friend WithEvents Label16 As System.Windows.Forms.Label
Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
Friend WithEvents DateTimePicker2 As System.Windows.Forms.DateTimePicker
Friend WithEvents CB_grade As System.Windows.Forms.ComboBox
Friend WithEvents txtcontact As System.Windows.Forms.TextBox
Friend WithEvents txtpostcode As System.Windows.Forms.TextBox
Friend WithEvents txtaddress As System.Windows.Forms.TextBox
Friend WithEvents txtname As System.Windows.Forms.TextBox
Friend WithEvents txtid As System.Windows.Forms.TextBox
Friend WithEvents txtpassword2 As System.Windows.Forms.TextBox
Friend WithEvents txtpassword As System.Windows.Forms.TextBox
Friend WithEvents txtuser As System.Windows.Forms.TextBox
Friend WithEvents OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter
Friend WithEvents OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbInsertCommand1 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbUpdateCommand1 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbDeleteCommand1 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbConnection1 As System.Data.OleDb.OleDbConnection
Friend WithEvents btnadd As System.Windows.Forms.Button
Friend WithEvents Label17 As System.Windows.Forms.Label
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(staff_form))
Me.Label1 = New System.Windows.Forms.Label
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.ComboBox1 = New System.Windows.Forms.ComboBox
Me.Label17 = New System.Windows.Forms.Label
Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker
Me.Label16 = New System.Windows.Forms.Label
Me.CB_grade = New System.Windows.Forms.ComboBox
Me.Label15 = New System.Windows.Forms.Label
Me.RadioButton2 = New System.Windows.Forms.RadioButton
Me.RadioButton1 = New System.Windows.Forms.RadioButton
Me.Label9 = New System.Windows.Forms.Label
Me.btnbrowse = New System.Windows.Forms.Button
Me.Label14 = New System.Windows.Forms.Label
Me.txtfile = New System.Windows.Forms.TextBox
Me.Label13 = New System.Windows.Forms.Label
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.txtcontact = New System.Windows.Forms.TextBox
Me.txtpostcode = New System.Windows.Forms.TextBox
Me.txtaddress = New System.Windows.Forms.TextBox
Me.txtname = New System.Windows.Forms.TextBox
Me.txtid = New System.Windows.Forms.TextBox
Me.Label12 = New System.Windows.Forms.Label
Me.Label10 = New System.Windows.Forms.Label
Me.Label8 = New System.Windows.Forms.Label
Me.Label7 = New System.Windows.Forms.Label
Me.Label6 = New System.Windows.Forms.Label
Me.Label5 = New System.Windows.Forms.Label
Me.GroupBox2 = New System.Windows.Forms.GroupBox
Me.txtpassword2 = New System.Windows.Forms.TextBox
Me.txtpassword = New System.Windows.Forms.TextBox
Me.txtuser = New System.Windows.Forms.TextBox
Me.Label4 = New System.Windows.Forms.Label
Me.Label3 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Button1 = New System.Windows.Forms.Button
Me.btnadd = New System.Windows.Forms.Button
Me.Button3 = New System.Windows.Forms.Button
Me.Button4 = New System.Windows.Forms.Button
Me.Button5 = New System.Windows.Forms.Button
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
Me.PictureBox2 = New System.Windows.Forms.PictureBox
Me.Label11 = New System.Windows.Forms.Label
Me.OleDbDataAdapter1 = New System.Data.OleDb.OleDbDataAdapter
Me.OleDbDeleteCommand1 = New System.Data.OleDb.OleDbCommand
Me.OleDbConnection1 = New System.Data.OleDb.OleDbConnection
Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCommand
Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand
Me.OleDbUpdateCommand1 = New System.Data.OleDb.OleDbCommand
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.BackColor = System.Drawing.Color.Blue
Me.Label1.Location = New System.Drawing.Point(0, 448)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(600, 16)
Me.Label1.TabIndex = 0
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.ComboBox1)
Me.GroupBox1.Controls.Add(Me.Label17)
Me.GroupBox1.Controls.Add(Me.DateTimePicker2)
Me.GroupBox1.Controls.Add(Me.DateTimePicker1)
Me.GroupBox1.Controls.Add(Me.Label16)
Me.GroupBox1.Controls.Add(Me.CB_grade)
Me.GroupBox1.Controls.Add(Me.Label15)
Me.GroupBox1.Controls.Add(Me.RadioButton2)
Me.GroupBox1.Controls.Add(Me.RadioButton1)
Me.GroupBox1.Controls.Add(Me.Label9)
Me.GroupBox1.Controls.Add(Me.btnbrowse)
Me.GroupBox1.Controls.Add(Me.Label14)
Me.GroupBox1.Controls.Add(Me.txtfile)
Me.GroupBox1.Controls.Add(Me.Label13)
Me.GroupBox1.Controls.Add(Me.PictureBox1)
Me.GroupBox1.Controls.Add(Me.txtcontact)
Me.GroupBox1.Controls.Add(Me.txtpostcode)
Me.GroupBox1.Controls.Add(Me.txtaddress)
Me.GroupBox1.Controls.Add(Me.txtname)
Me.GroupBox1.Controls.Add(Me.txtid)
Me.GroupBox1.Controls.Add(Me.Label12)
Me.GroupBox1.Controls.Add(Me.Label10)
Me.GroupBox1.Controls.Add(Me.Label8)
Me.GroupBox1.Controls.Add(Me.Label7)
Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.GroupBox2)
Me.GroupBox1.Location = New System.Drawing.Point(8, 16)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(512, 424)
Me.GroupBox1.TabIndex = 1
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Staff Form"
'
'ComboBox1
'
Me.ComboBox1.Items.AddRange(New Object() {"FT (Fulltime)", "PT (Parttime)"})
Me.ComboBox1.Location = New System.Drawing.Point(344, 344)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(152, 21)
Me.ComboBox1.TabIndex = 32
Me.ComboBox1.Text = "Status...."
'
'Label17
'
Me.Label17.Location = New System.Drawing.Point(296, 344)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(48, 24)
Me.Label17.TabIndex = 31
Me.Label17.Text = "Status"
Me.Label17.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'DateTimePicker2
'
Me.DateTimePicker2.CustomFormat = "dd/mm/yyyy"
Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Short
Me.DateTimePicker2.Location = New System.Drawing.Point(88, 216)
Me.DateTimePicker2.MaxDate = New Date(2099, 12, 31, 0, 0, 0, 0)
Me.DateTimePicker2.Name = "DateTimePicker2"
Me.DateTimePicker2.Size = New System.Drawing.Size(176, 20)
Me.DateTimePicker2.TabIndex = 30
'
'DateTimePicker1
'
Me.DateTimePicker1.Location = New System.Drawing.Point(104, 376)
Me.DateTimePicker1.Name = "DateTimePicker1"
Me.DateTimePicker1.Size = New System.Drawing.Size(160, 20)
Me.DateTimePicker1.TabIndex = 29
'
'Label16
'
Me.Label16.Location = New System.Drawing.Point(24, 376)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(80, 24)
Me.Label16.TabIndex = 28
Me.Label16.Text = "Date of Joining"
Me.Label16.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'CB_grade
'
Me.CB_grade.Items.AddRange(New Object() {"Store Manager", "Stock Control Manager", "General Manager", "Office Manager", "Stock Control Assistant", "Office Assistant", "Shift Manager", "Slaes/ Check-out Assistant", "Delicatessen Assistant", "Help Desk Assistant", "Floating Assistant"})
Me.CB_grade.Location = New System.Drawing.Point(344, 312)
Me.CB_grade.Name = "CB_grade"
Me.CB_grade.Size = New System.Drawing.Size(152, 21)
Me.CB_grade.TabIndex = 27
Me.CB_grade.Text = "Positions...."
'
'Label15
'
Me.Label15.Location = New System.Drawing.Point(296, 312)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(48, 24)
Me.Label15.TabIndex = 26
Me.Label15.Text = "Grade"
Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'RadioButton2
'
Me.RadioButton2.Location = New System.Drawing.Point(152, 248)
Me.RadioButton2.Name = "RadioButton2"
Me.RadioButton2.Size = New System.Drawing.Size(64, 24)
Me.RadioButton2.TabIndex = 25
Me.RadioButton2.Text = "Female"
'
'RadioButton1
'
Me.RadioButton1.Location = New System.Drawing.Point(88, 248)
Me.RadioButton1.Name = "RadioButton1"
Me.RadioButton1.Size = New System.Drawing.Size(48, 24)
Me.RadioButton1.TabIndex = 24
Me.RadioButton1.Text = "Male"
'
'Label9
'
Me.Label9.Location = New System.Drawing.Point(24, 248)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(64, 24)
Me.Label9.TabIndex = 23
Me.Label9.Text = "Gender"
Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'btnbrowse
'
Me.btnbrowse.Location = New System.Drawing.Point(440, 272)
Me.btnbrowse.Name = "btnbrowse"
Me.btnbrowse.Size = New System.Drawing.Size(56, 24)
Me.btnbrowse.TabIndex = 22
Me.btnbrowse.Text = "Browse"
'
'Label14
'
Me.Label14.Location = New System.Drawing.Point(296, 256)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(100, 16)
Me.Label14.TabIndex = 21
Me.Label14.Text = "Image File Path:"
'
'txtfile
'
Me.txtfile.Location = New System.Drawing.Point(296, 272)
Me.txtfile.Name = "txtfile"
Me.txtfile.Size = New System.Drawing.Size(136, 20)
Me.txtfile.TabIndex = 20
Me.txtfile.Text = ""
'
'Label13
'
Me.Label13.Location = New System.Drawing.Point(296, 24)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(88, 16)
Me.Label13.TabIndex = 19
Me.Label13.Text = "Staff Picture:"
'
'PictureBox1
'
Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.PictureBox1.Location = New System.Drawing.Point(296, 48)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(152, 192)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage
Me.PictureBox1.TabIndex = 18
Me.PictureBox1.TabStop = False
'
'txtcontact
'
Me.txtcontact.Location = New System.Drawing.Point(88, 344)
Me.txtcontact.Name = "txtcontact"
Me.txtcontact.Size = New System.Drawing.Size(176, 20)
Me.txtcontact.TabIndex = 17
Me.txtcontact.Text = ""
'
'txtpostcode
'
Me.txtpostcode.Location = New System.Drawing.Point(88, 312)
Me.txtpostcode.Name = "txtpostcode"
Me.txtpostcode.Size = New System.Drawing.Size(176, 20)
Me.txtpostcode.TabIndex = 15
Me.txtpostcode.Text = ""
'
'txtaddress
'
Me.txtaddress.Location = New System.Drawing.Point(88, 280)
Me.txtaddress.Name = "txtaddress"
Me.txtaddress.Size = New System.Drawing.Size(176, 20)
Me.txtaddress.TabIndex = 13
Me.txtaddress.Text = ""
'
'txtname
'
Me.txtname.Location = New System.Drawing.Point(88, 184)
Me.txtname.Name = "txtname"
Me.txtname.Size = New System.Drawing.Size(176, 20)
Me.txtname.TabIndex = 11
Me.txtname.Text = ""
'
'txtid
'
Me.txtid.Enabled = False
Me.txtid.Location = New System.Drawing.Point(88, 152)
Me.txtid.Name = "txtid"
Me.txtid.Size = New System.Drawing.Size(56, 20)
Me.txtid.TabIndex = 10
Me.txtid.Text = ""
'
'Label12
'
Me.Label12.Location = New System.Drawing.Point(24, 344)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(64, 24)
Me.Label12.TabIndex = 9
Me.Label12.Text = "Contact"
Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label10
'
Me.Label10.Location = New System.Drawing.Point(24, 312)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(64, 24)
Me.Label10.TabIndex = 7
Me.Label10.Text = "Postcode"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label8
'
Me.Label8.Location = New System.Drawing.Point(24, 280)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(64, 24)
Me.Label8.TabIndex = 5
Me.Label8.Text = "Address"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label7
'
Me.Label7.Location = New System.Drawing.Point(24, 216)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(64, 24)
Me.Label7.TabIndex = 4
Me.Label7.Text = "DOB"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label6
'
Me.Label6.Location = New System.Drawing.Point(24, 184)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(64, 24)
Me.Label6.TabIndex = 3
Me.Label6.Text = "Name"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(24, 152)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(64, 24)
Me.Label5.TabIndex = 2
Me.Label5.Text = "Staff No."
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.txtpassword2)
Me.GroupBox2.Controls.Add(Me.txtpassword)
Me.GroupBox2.Controls.Add(Me.txtuser)
Me.GroupBox2.Controls.Add(Me.Label4)
Me.GroupBox2.Controls.Add(Me.Label3)
Me.GroupBox2.Controls.Add(Me.Label2)
Me.GroupBox2.Location = New System.Drawing.Point(16, 24)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(248, 112)
Me.GroupBox2.TabIndex = 1
Me.GroupBox2.TabStop = False
'
'txtpassword2
'
Me.txtpassword2.Location = New System.Drawing.Point(112, 80)
Me.txtpassword2.Name = "txtpassword2"
Me.txtpassword2.Size = New System.Drawing.Size(120, 20)
Me.txtpassword2.TabIndex = 5
Me.txtpassword2.Text = ""
'
'txtpassword
'
Me.txtpassword.Location = New System.Drawing.Point(112, 48)
Me.txtpassword.Name = "txtpassword"
Me.txtpassword.Size = New System.Drawing.Size(120, 20)
Me.txtpassword.TabIndex = 4
Me.txtpassword.Text = ""
'
'txtuser
'
Me.txtuser.Location = New System.Drawing.Point(112, 16)
Me.txtuser.Name = "txtuser"
Me.txtuser.Size = New System.Drawing.Size(120, 20)
Me.txtuser.TabIndex = 3
Me.txtuser.Text = ""
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(8, 80)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(104, 16)
Me.Label4.TabIndex = 2
Me.Label4.Text = "Confirm Password"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(8, 48)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(104, 16)
Me.Label3.TabIndex = 1
Me.Label3.Text = "Password"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(8, 16)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(104, 16)
Me.Label2.TabIndex = 0
Me.Label2.Text = "Username"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(528, 56)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(56, 56)
Me.Button1.TabIndex = 2
Me.Button1.Text = "New"
'
'btnadd
'
Me.btnadd.Location = New System.Drawing.Point(528, 128)
Me.btnadd.Name = "btnadd"
Me.btnadd.Size = New System.Drawing.Size(56, 56)
Me.btnadd.TabIndex = 3
Me.btnadd.Text = "Add"
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(528, 200)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(56, 56)
Me.Button3.TabIndex = 4
Me.Button3.Text = "Save"
'
'Button4
'
Me.Button4.Location = New System.Drawing.Point(528, 272)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(56, 56)
Me.Button4.TabIndex = 5
Me.Button4.Text = "Edit"
'
'Button5
'
Me.Button5.Location = New System.Drawing.Point(528, 344)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(56, 56)
Me.Button5.TabIndex = 6
Me.Button5.Text = "Delete"
'
'OpenFileDialog1
'
Me.OpenFileDialog1.DefaultExt = "jpg"
Me.OpenFileDialog1.InitialDirectory = "pictures\staff\"
Me.OpenFileDialog1.RestoreDirectory = True
'
'PictureBox2
'
Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
Me.PictureBox2.Location = New System.Drawing.Point(0, 464)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(104, 96)
Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox2.TabIndex = 7
Me.PictureBox2.TabStop = False
'
'Label11
'
Me.Label11.BackColor = System.Drawing.Color.Black
Me.Label11.Font = New System.Drawing.Font("BankGothic Md BT", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label11.ForeColor = System.Drawing.Color.White
Me.Label11.Location = New System.Drawing.Point(104, 464)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(496, 96)
Me.Label11.TabIndex = 8
Me.Label11.Text = "SSTT Pos System"
Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'OleDbDataAdapter1
'
Me.OleDbDataAdapter1.DeleteCommand = Me.OleDbDeleteCommand1
Me.OleDbDataAdapter1.InsertCommand = Me.OleDbInsertCommand1
Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1
Me.OleDbDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "ID", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("ID", "ID"), New System.Data.Common.DataColumnMapping("Name", "Name"), New System.Data.Common.DataColumnMapping("Password", "Password"), New System.Data.Common.DataColumnMapping("picture", "picture"), New System.Data.Common.DataColumnMapping("Postcode", "Postcode"), New System.Data.Common.DataColumnMapping("Status", "Status"), New System.Data.Common.DataColumnMapping("Username", "Username"), New System.Data.Common.DataColumnMapping("Address", "Address"), New System.Data.Common.DataColumnMapping("Contact", "Contact"), New System.Data.Common.DataColumnMapping("Date of joining", "Date of joining"), New System.Data.Common.DataColumnMapping("DOB", "DOB"), New System.Data.Common.DataColumnMapping("Gender", "Gender"), New System.Data.Common.DataColumnMapping("Grade", "Grade")})})
Me.OleDbDataAdapter1.UpdateCommand = Me.OleDbUpdateCommand1
'
'OleDbDeleteCommand1
'
Me.OleDbDeleteCommand1.CommandText = "DELETE FROM ID WHERE (ID = ?) AND (Address = ? OR ? IS NULL AND Address IS NULL) " & _
"AND (Contact = ? OR ? IS NULL AND Contact IS NULL) AND (DOB = ? OR ? IS NULL AND" & _
" DOB IS NULL) AND ([Date of joining] = ? OR ? IS NULL AND [Date of joining] IS N" & _
"ULL) AND (Gender = ? OR ? IS NULL AND Gender IS NULL) AND (Grade = ? OR ? IS NUL" & _
"L AND Grade IS NULL) AND (Name = ? OR ? IS NULL AND Name IS NULL) AND ([Password" & _
"] = ? OR ? IS NULL AND [Password] IS NULL) AND (Postcode = ? OR ? IS NULL AND Po" & _
"stcode IS NULL) AND (Status = ? OR ? IS NULL AND Status IS NULL) AND (Username =" & _
" ? OR ? IS NULL AND Username IS NULL) AND (picture = ? OR ? IS NULL AND picture " & _
"IS NULL)"
Me.OleDbDeleteCommand1.Connection = Me.OleDbConnection1
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Contact", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Contact", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Contact1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Contact", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DOB", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DOB", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DOB1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DOB", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Date_of_joining", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Date of joining", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Date_of_joining1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Date of joining", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Gender", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Gender", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Gender1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Gender", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Grade", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Grade", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Grade1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Grade", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Name", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Name", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Name1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Name", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Password", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Password", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Password1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Password", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Postcode", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Postcode", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Postcode1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Postcode", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Status", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Status", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Status1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Status", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Username", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Username", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Username1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Username", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_picture", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "picture", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_picture1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "picture", System.Data.DataRowVersion.Original, Nothing))
'
'OleDbConnection1
'
Me.OleDbConnection1.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
"ocking Mode=1;Jet OLEDB:Database Password=;Data Source=""possystem.mdb"";Password=" & _
";Jet OLEDB:Engine Type=5;Jet OLEDB:Global Bulk Transactions=1;Provider=""Microsof" & _
"t.Jet.OLEDB.4.0"";Jet OLEDB:System database=;Jet OLEDB:SFP=False;Extended Propert" & _
"ies=;Mode=Share Deny None;Jet OLEDB:New Database Password=;Jet OLEDB:Create Syst" & _
"em Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact" & _
" Without Replica Repair=False;User ID=Admin;Jet OLEDB:Encrypt Database=False"
'
'OleDbInsertCommand1
'
Me.OleDbInsertCommand1.CommandText = "INSERT INTO ID(Name, [Password], picture, Postcode, Status, Username, Address, Co" & _
"ntact, [Date of joining], DOB, Gender, Grade) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?," & _
" ?, ?, ?)"
Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Name", System.Data.OleDb.OleDbType.VarWChar, 50, "Name"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Password", System.Data.OleDb.OleDbType.VarWChar, 50, "Password"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("picture", System.Data.OleDb.OleDbType.VarWChar, 50, "picture"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Postcode", System.Data.OleDb.OleDbType.VarWChar, 50, "Postcode"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Status", System.Data.OleDb.OleDbType.VarWChar, 50, "Status"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Username", System.Data.OleDb.OleDbType.VarWChar, 50, "Username"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Address", System.Data.OleDb.OleDbType.VarWChar, 50, "Address"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Contact", System.Data.OleDb.OleDbType.Integer, 0, "Contact"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Date_of_joining", System.Data.OleDb.OleDbType.VarWChar, 50, "Date of joining"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("DOB", System.Data.OleDb.OleDbType.DBDate, 0, "DOB"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Gender", System.Data.OleDb.OleDbType.VarWChar, 50, "Gender"))
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Grade", System.Data.OleDb.OleDbType.Integer, 0, "Grade"))
'
'OleDbSelectCommand1
'
Me.OleDbSelectCommand1.CommandText = "SELECT ID, Name, [Password], picture, Postcode, Status, Username, Address, Contac" & _
"t, [Date of joining], DOB, Gender, Grade FROM ID"
Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
'
'OleDbUpdateCommand1
'
Me.OleDbUpdateCommand1.CommandText = "UPDATE ID SET Name = ?, [Password] = ?, picture = ?, Postcode = ?, Status = ?, Us" & _
"ername = ?, Address = ?, Contact = ?, [Date of joining] = ?, DOB = ?, Gender = ?" & _
", Grade = ? WHERE (ID = ?) AND (Address = ? OR ? IS NULL AND Address IS NULL) AN" & _
"D (Contact = ? OR ? IS NULL AND Contact IS NULL) AND (DOB = ? OR ? IS NULL AND D" & _
"OB IS NULL) AND ([Date of joining] = ? OR ? IS NULL AND [Date of joining] IS NUL" & _
"L) AND (Gender = ? OR ? IS NULL AND Gender IS NULL) AND (Grade = ? OR ? IS NULL " & _
"AND Grade IS NULL) AND (Name = ? OR ? IS NULL AND Name IS NULL) AND ([Password] " & _
"= ? OR ? IS NULL AND [Password] IS NULL) AND (Postcode = ? OR ? IS NULL AND Post" & _
"code IS NULL) AND (Status = ? OR ? IS NULL AND Status IS NULL) AND (Username = ?" & _
" OR ? IS NULL AND Username IS NULL) AND (picture = ? OR ? IS NULL AND picture IS" & _
" NULL)"
Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Name", System.Data.OleDb.OleDbType.VarWChar, 50, "Name"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Password", System.Data.OleDb.OleDbType.VarWChar, 50, "Password"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("picture", System.Data.OleDb.OleDbType.VarWChar, 50, "picture"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Postcode", System.Data.OleDb.OleDbType.VarWChar, 50, "Postcode"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Status", System.Data.OleDb.OleDbType.VarWChar, 50, "Status"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Username", System.Data.OleDb.OleDbType.VarWChar, 50, "Username"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Address", System.Data.OleDb.OleDbType.VarWChar, 50, "Address"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Contact", System.Data.OleDb.OleDbType.Integer, 0, "Contact"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Date_of_joining", System.Data.OleDb.OleDbType.VarWChar, 50, "Date of joining"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("DOB", System.Data.OleDb.OleDbType.DBDate, 0, "DOB"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Gender", System.Data.OleDb.OleDbType.VarWChar, 50, "Gender"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Grade", System.Data.OleDb.OleDbType.Integer, 0, "Grade"))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Contact", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Contact", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Contact1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Contact", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DOB", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DOB", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DOB1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DOB", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Date_of_joining", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Date of joining", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Date_of_joining1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Date of joining", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Gender", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Gender", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Gender1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Gender", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Grade", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Grade", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Grade1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Grade", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Name", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Name", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Name1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Name", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Password", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Password", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Password1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Password", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Postcode", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Postcode", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Postcode1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Postcode", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Status", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Status", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Status1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Status", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Username", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Username", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Username1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Username", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_picture", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "picture", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_picture1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "picture", System.Data.DataRowVersion.Original, Nothing))
'
'staff_form
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(592, 558)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.PictureBox2)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.btnadd)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.Label1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "staff_form"
Me.Text = "Staff Form"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub staff_form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DateTimePicker2.Value = Now
Dim OriginalImage As Image = Image.FromFile("pictures\staff\default.jpg")
Dim StretchedImage As Image = New Bitmap(OriginalImage, New Size(200, 200))
PictureBox1.Image = StretchedImage
End Sub
Private Sub btnbrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbrowse.Click
Try
With OpenFileDialog1
'With statement is used to execute statements using a particular object, here,_
'OpenFileDialog1
.Filter = "Picture files (*.jpg)|*.jpg|" & "All files|*.*"
'setting filters so that Text files and All Files choice appears in the Files of Type box
'in the dialog
If .ShowDialog() = DialogResult.OK Then
'showDialog method makes the dialog box visible at run time
FileName = .FileName
txtfile.Text = FileName
Dim OriginalImage As Image = Image.FromFile(FileName)
Dim StretchedImage As Image = New Bitmap(OriginalImage, New Size(200, 200))
PictureBox1.Image = StretchedImage
End If
End With
Catch es As Exception
MessageBox.Show(es.Message)
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show(DateTimePicker2.Value)
End Sub
Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click
If txtpassword.Text = txtpassword2.Text Then
Try
openconnection()
' create the SQL query to insert a row
With OleDbDataAdapter1.InsertCommand
.CommandText = "INSERT INTO ID(Name, [Password], DOB) VALUES (?,?,?)"
', picture, Postcode, Status, Username, Address, Co" & _
' "ntact, [Date of joining], DOB, Gender, Grade) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?," & _
' " ?, ?, ?)"
.Parameters("Name").Value = txtname.Text
.Parameters("Password").Value = txtpassword.Text
'.Parameters("picture").Value = txtfile.Text
'.Parameters("Postcode").Value = txtpostcode.Text
'.Parameters("Status").Value = Status
'.Parameters("Username").Value = txtuser.Text
'.Parameters("Address").Value = txtaddress.Text
'.Parameters("Contact").Value = txtcontact.Text
'.Parameters("Date_of_joining").Value = DateTimePicker1.Text
.Parameters("DOB").Value = DateTimePicker2.Value
'.Parameters("Gender").Value = Gender
'.Parameters("Grade").Value = Grade
.ExecuteNonQuery()
End With
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
Else
MessageBox.Show("Password doesn't match. ", "error", MessageBoxButtons.OK, MessageBoxIcon.Stop)
End If
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Gender = "male"
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
Gender = "female"
End Sub
Private Sub CB_grade_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CB_grade.SelectedIndexChanged
Try
Select Case Me.CB_grade.SelectedIndex
Case 0
Grade = "Store Manager"
Case 1
Grade = "Stock Control Manager"
Case 2
Grade = "GeneralManager"
Case 3
Grade = "OfficeManager"
Case 4
Grade = "Stock Control Assistant"
Case 5
Grade = "OfficeAssistant"
Case 6
Grade = "ShiftManager"
Case 7
Grade = "Slaes/ Check-out Staff"
Case 8
Grade = "Delicatessen Staff"
Case 9
Grade = "Help Desk Staff"
Case 10
Grade = "Floating Staff"
End Select
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Try
Select Case Me.ComboBox1.SelectedIndex
Case 0
Status = "FT"
Case 1
Status = "PT"
End Select
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
Private Sub DateTimePicker2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker2.ValueChanged
DOB = DateTimePicker2.Value
End Sub
End Class
|