(完整版)计算机信息管理毕业论文

sql1 = \工号]=?\ rst.Close With param4

.Direction = adParamInput .Type = adBSTR .Size = 8

.Value = Text1.Text End With

cmd4.Parameters.Append param4 cmd4mandText = sql1 cmd4mandType = adCmdText Set cmd4.ActiveConnection = con Set rst = cmd4.Execute '规定可借阅图书数目检测 If rst.RecordCount = 0 Then num = rst.RecordCount + 1 Label3.Caption = str(num) ElseIf rst.RecordCount <= 3 Then num = rst.RecordCount + 1 Label3.Caption = str(num) ElseIf rst.RecordCount > 3 Then frmMsg.Show

frmMsg.notice.Visible = True

frmMsg.Text1.Text = \借阅图书已超限（>4）!\ Label3.Caption = str(rst.RecordCount)

Exit Sub End If rst.Close

rst.Open sql, con, adOpenDynamic, adLockOptimistic rst.AddNew

rst![工号] = Text1.Text rst![图书编码] = Text2.Text rst![借阅时间] = Date rst.Update frmMsg.Show

frmMsg.info.Visible = True frmMsg.Text1.Text = \借阅成功！\End Sub

Private Sub Command2_Click() Unload Me End Sub

Private Sub Form_Load() Dim sql1, sql2 As String sql1 = \sql2 = \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 3. 还书

还书这一环节，也同样关键，用户在知道工号的前提下，只要知道借书信息的图书编号，就能方便的还书。代码见code目录下: record.txt Option Explicit

Private Sub Command1_Click() Dim sql1, sql2 As String Dim num As Integer '检测用户名及书号正确否

sql1 = \工号]=?\sql2 = \图书编码]=?\Dim param1, param2, param3 As ADODB.Parameter Dim cmd1, cmd2, cmd3 As ADODBmand Set cmd1 = New ADODBmand Set cmd2 = New ADODBmand Set cmd3 = New ADODBmand

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 cmd1mandText = sql1 cmd1mandType = 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