record.txt

经过几个月的设计和开发

Option Explicit

Private Sub Command1_Click()
Dim sql1, sql2 As String
Dim num As Integer
'检测用户名及书号正确否
sql1 = "select * from worker where [工号]=?"
sql2 = "select * from book where [图书编码]=?"
Dim param1, param2, param3 As ADODB.Parameter
Dim cmd1, cmd2, cmd3 As ADODB.Command
Set cmd1 = New ADODB.Command
Set cmd2 = New ADODB.Command
Set cmd3 = New ADODB.Command
Set param1 = New ADODB.Parameter
Set param2 = New ADODB.Parameter
Set param3 = New ADODB.Parameter

    With param1
      .Direction = adParamInput
      .Type = adBSTR
      .Size = 8
      .Value = Text1.Text
    End With
    
    cmd1.Parameters.Append param1
    cmd1.CommandText = sql1
    cmd1.CommandType = adCmdText
   Set cmd1.ActiveConnection = con
   Set rst = cmd1.Execute
   If rst.RecordCount <= 0 Then
     frmMsg.Show
     frmMsg.notice.Visible = True
  frmMsg.Text1.Text = "没有此工号!"
     Exit Sub
   End If
   
    
    With param2
      .Direction = adParamInput
      .Type = adBSTR
      .Size = 8
      .Value = Text2.Text
    End With
    
    cmd2.Parameters.Append param2
    cmd2.CommandText = sql2
    cmd2.CommandType = adCmdText
   Set cmd2.ActiveConnection = con
   Set rst1 = cmd2.Execute
   If rst1.RecordCount <= 0 Then
      frmMsg.Show
     frmMsg.notice.Visible = True
  frmMsg.Text1.Text = "没有此图书编号!"
      Exit Sub
   End If
  
   
    sql1 = "select * from record where [工号]=?"
     With param3
      .Direction = adParamInput
      .Type = adBSTR
      .Size = 8
      .Value = Text1.Text
    End With
    
    cmd3.Parameters.Append param1
    cmd3.CommandText = sql1
    cmd3.CommandType = adCmdText
   Set cmd3.ActiveConnection = con
   Set rst = cmd3.Execute
 
      If rst.RecordCount = 0 Then
         num = 0
         Label3.Caption = str(num)
        frmMsg.Show
     frmMsg.notice.Visible = True
  frmMsg.Text1.Text = "您没有借阅此图书!"
         Exit Sub
       Else
         num = rst.RecordCount - 1
         
         sql1 = "select * from record where [图书编码]='" & Trim(Text2.Text) & "'" & "and [工号]='" & Trim(Text1.Text) & "'"
         Set rst1 = New ADODB.Recordset
         rst1.Open sql1, con, adOpenDynamic, adLockOptimistic
         If rst1.RecordCount <= 0 Then
           frmMsg.Show
     frmMsg.notice.Visible = True
  frmMsg.Text1.Text = "您没有借阅此图书!"
           Exit Sub
         End If
  
          sql1 = "delete from record where [图书编码]='" & Trim(Text2.Text) & "'"
          Set rst = New ADODB.Recordset
          rst.Open sql1, con, adOpenDynamic, adLockOptimistic
         frmMsg.Show
     frmMsg.notice.Visible = True
  frmMsg.Text1.Text = "还书成功!"
           Label3.Caption = str(num)
       End If
   
       
End Sub
    
Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim sql1, sql2 As String
sql1 = "select * from book"
sql2 = "select * from worker"
Set rst = New ADODB.Recordset
Set rst1 = New ADODB.Recordset
Call connect_db
rst.Open sql2, con, adOpenDynamic, adLockOptimistic
rst1.Open sql1, con, adOpenDynamic, adLockOptimistic
End Sub

Private Sub Image1_Click()

End Sub

Private Sub xptopbuttons1_Click()
Unload Me
End Sub

Private Sub xptopbuttons2_Click()
Me.WindowState = 1
End Sub