cmd2.Parameters.Append param2 cmd2mandText = sql2 cmd2mandType = 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 = \工号]=?\ With param3
.Direction = adParamInput .Type = adBSTR .Size = 8
.Value = Text1.Text End With
cmd3.Parameters.Append param1 cmd3mandText = sql1 cmd3mandType = 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 = \* from record where [图书编码]='\& Trim(Text2.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 = \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 = \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 4. 图书查询
点击 xpcmdbutton5控件按纽，数据控件将显示 当前 表“BOOK”信息，如管理员,图书编码，图书名称，作者，出版社等，一目了然，无权限。 程序代码:
Private Sub xpcmdbutton5_Click() open_connection (\tablename = \
Set DataGrid1.DataSource = rst End Sub 窗体图：
5. 图书录入
新书录入窗口中显示的是员工必要信息。可供用户增加、修改、删除、显示上一记录、下一记录等功能。向数据库中添加新的记录、删除不需要的记录、修改错误的记录、对数据库中的信息进行查询。当用户想修改某条记录时，只要双击“修改记录”安扭控件中修改要修改的记录，就会自动弹出详细信息窗体，该窗体已经显示了你要得信息，你就可以对其该条记录进行修改了。 本系统的一大特点可以直接在TEXT
相关推荐：
loading