MsgBox "Please select a reader type", vbOKOnly+vbaclouse, ""

Combo 1。 SetFocus

outlet connection

If ... it will be over.

If Trim(Text 1。 Text) = ""So

MsgBox "Reader's name cannot be empty", vbOKOnly+VB example, ""

Text 1。 SetFocus

outlet connection

If ... it will be over.

If you trim (text 2. Text) = ""So

MsgBox "Reader number cannot be empty", vbOKOnly+vbacnoully, ""

Text 2. SetFocus

outlet connection

If ... it will be over.

- ! ! !

SQL = " select * from reader information where reader number = ' " &； Text 2. Text & "

rs_addreader。 Open sql, conn, adOpenKeyset, adlock pessimism.

If rs_addreader. So EOF

rs_addreader。 Add new content

rs_addreader。 Fields(0) = Trim(Text 1。 Text)

rs_addreader。 Field (1) = Trim(Text2. Text)

rs_addreader。 Field (2) = Trim(Combo2. Text)

rs_addreader。 Field (3) = Trim(Combo 1. Text)

rs_addreader。 Field (4) = Trim (Text 3. Text)

rs_addreader。 Field (5) = Trim (Text 4. Text)

rs_addreader。 Field (6) = Trim (Text 5. Text)

rs_addreader。 field(7)= CDate(text 6。 Text)

-

MsgBox "Reader information added successfully!" ，vbOKOnly，“”

rs_addreader。 close

other

MsgBox "Duplicate card reader number!" , vbOKOnly+VB exclamation point, ""

Text 1。 SetFocus

Text 1。 Text = ""

rs_addreader。 close

outlet connection

If ... it will be over.

-