发布时间 : 星期一 文章(完整版)计算机信息管理毕业论文更新完毕开始阅读
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