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

发布时间 : 星期日 文章(完整版)计算机信息管理毕业论文更新完毕开始阅读

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