Traducción de código VB, urgente, se otorgarán 30 puntos primero y se agregarán 50 puntos

Dim shumu As Integer 'El número de libros que el lector ha pedido prestado

Dim maxnum As Integer 'El límite en el número de libros que el lector puede pedir prestado

Private Sub Combo1_Click()

Combo2.ListIndex = Combo1.End Sub

Private Sub Combo2_Click()

Combo1.ListIndex = Combo2.ListIndex = Combo2.ListIndex. Dim rs_borrowbook como nuevo ADODB.Recordset Abrir tabla de datos de Borrowbook

Dim sql como cadena Definir spl como tipo de datos

sql = "seleccione * de la información del lector donde ReaderNo='" & Combo1.amp ; "'" Busque el número de lector seleccionado en el cuadro combinado de la columna de número de lector en la tabla de información del lector

rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic

leibie = rs_borrowbook .Campos (3) Leer datos.

Open sql, conn, adOpenKeyset, adLockPessimistic search

qixian = rs_borrowbook.Fields(2) lee los datos de la fila del término donde se encuentran los datos

maxnum = rs_borrowbook.Fields(1 ) leer Encuentra los datos de la fila de datos, es decir, el número máximo de libros prestados por el lector hasta el momento

rs_borrowbook.Fields(1)Close Close

If shumu > = maxnum Luego determine si la cantidad de libros prestados actualmente es mayor que la cantidad máxima de libros prestados, sí, entonces

MsgBox "¡La cantidad de libros prestados por este lector está completa, vbOKOnly + vbOKOnly + vbOKOnly!" + vbOKOnly + vbOKOnly., vbOKOnly + vbExclamation indica que los libros prestados están llenos

Exit Sub sale de todo el proceso

End If

sql = "select * from Borrowing Information" De lo contrario, abra la tabla de información de préstamos

rs_borrowbook. conn, adOpenKeyset, adLockPessimistic

rs_borrowbook.Fields(4) = Label9.Caption

rs_borrowbook .Fields(4) = Label9.Caption

rs_borrowbook.Fields(5) = Fecha

rs_borrowbook.Fields(5) = Fecha

rs_borrowbook. Fields(6) = DateAdd("Ww", qixian, Date)

rs_borrowbook.Close Close

sql = "seleccione * de la información del libro donde book_num = '" & book_num & " '" Encuentra etiquetas de libros en la columna book_num en la tabla de información del libro Data

rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic

rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic

rs_borrowbook.Fields(8) = rs_borrowbook.Fields(8) + 1 Añade 1 al número actual de columnas de libros prestados

rs_borrowbook.Update update

rs_ lendbook.Close

MsgBox "¡Libro prestado exitosamente! ", vbOKOnly + vbExclamation Indica que el préstamo del libro se realizó correctamente

Descargarme Cierra la ventana actual

End Sub

Private Sub Command2_Click()

Descargarme Salir

Fin Sub

Sub privado Form_Load()

>

Atenuar rs_borrow como nuevo ADODB.Recordset está conectado a la tabla de préstamo

Atenuar rs_reader como nuevo ADODB.Recordset está conectado a la tabla de lectura

Atenuar rs_reader como nuevo ADODB. El conjunto de registros está conectado a la tabla del lector

Dim rs_reader como nuevo ADODB.RecordsetRecordset Conectarse a la tabla del lector

Dim sql como cadena

sql = "seleccione * de la información del libro donde book_num = ' " & book_num & "'" Busque datos sobre el número actual de libros prestados en la columna book_num en la tabla de información del libro

rs_borrow. Abrir sql, conn, adOpenKeyset, adLockPessimistic

Label8.Caption = rs_borrow.Fields(0) Salida

Label9..Caption = rs_borrow.Fields(2)

Label11.Caption = rs_borrow.Fields(3)

Label12.Caption = rs_borrow.Fields(4)

Label13.Caption = rs_borrow.Fields(5)

Label14.Caption = rs_borrow.Fields(6)

sql = "seleccionar * de la información del lector" Leer tabla de información del lector

rs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic

Si no es rs_reader.EOF, entonces si este lector está disponible

Hacer mientras no sea rs_reader..Fields(1) Encuentra el número de lector

Combo2.AddItem rs_reader. Campos (0) Buscar nombre del lector

rs_reader.MoveNext

Bucle

Else

MsgBox "¡Primero registre el lector!" , vbOKOnly + vbExclamation Si el lector no está disponible, solicite registrarse

Salir Sub

End If

rs_borrow.Close Cerrar el formulario

rs_reader.Close Cerrar el formulario

End Sub