关 键 词：

毕业设计论文

资源描述：

JSJ06-369@计算机图书管理系统,毕业设计论文

内容简介：

Option ExplicitPrivate Sub cmdmodify_Click() 修改记录按钮Dim sqlstr As StringDim rst1 As New ADODB.RecordsetDim param As ADODB.ParameterDim cmd As ADODB.CommandSet cmd = New ADODB.CommandSet param = New ADODB.Parametersqlstr = select * from book where 图书编码= & Trim(Text1.Text) & With param.Direction = adParamInput.Type = adBSTR.Size = 8.Value = Text1.TextEnd Withcmd.Parameters.Append paramcmd.CommandText = sqlstrcmd.CommandType = adCmdTextSet cmd.ActiveConnection = conSet rst1 = cmd.ExecuteIf rst1.RecordCount 0 ThenfrmMsg.ShowfrmMsg.notice.Visible = TruefrmMsg.Text1.Text = 此书号已经存在!rst.CancelExit SubEnd Ifrst.UpdatefrmMsg.ShowfrmM.Visible = TruefrmMsg.Text1.Text = 修改成功!End SubPrivate Sub Command1_Click()Dim sql As StringDim param As ADODB.ParameterDim cmd As ADODB.CommandSet cmd = New ADODB.CommandSet param = New ADODB.Parametersql = select * from book where 图书编码= ? If Command1.Caption = 添加记录 ThenCommand1.Caption = 确 定Command2.Enabled = False 屏蔽删除、修改、下一记录、上一记录按钮，避免出现数据库错误Command3.Enabled = FalseCommand4.Enabled = Falsecmdmodify.Enabled = Falserst.AddNewElseIf Text1.Text = ThenfrmMsg.ShowfrmMsg.notice.Visible = Truents frmMsg.Text1.Text = 图书编号不能为空!Command2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand1.Caption = 添加记录Exit SubEnd IfWith param.Direction = adParamInput.Type = adBSTR.Size = 8.Value = Text1.TextEnd Withcmd.Parameters.Append paramcmd.CommandText = sqlcmd.CommandType = adCmdTextSet cmd.ActiveConnection = conSet rst1 = cmd.ExecuteIf rst1.RecordCount 0 ThenfrmMsg.ShowfrmMsg.notice.Visible = TruefrmMsg.Text1.Text = 此书号已经存在!rst.CancelCommand2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = Truecmdmodify.Enabled = TrueCommand1.Caption = 添加记录Command2.Enabled = TrueExit SubEnd Ifrst.UpdateCommand2.Enabled = True 数据库更新结束后才可以点击其他几个按钮Command3.Enabled = TrueCommand4.Enabled = Truecmdmodify.Enabled = TrueCommand1.Caption = 添加记录End IfEnd SubPrivate Sub Command2_Click() 删除记录Dim ans As Stringans = Msgbox(确定要删除此记录吗？, vbYesNo, 提示)If ans = vbYes Thenrst.Deleterst.RequeryElseExit SubEnd IfEnd SubntsPrivate Sub Command3_Click() 上一记录If rst.BOF ThenfrmMsg.ShowfrmM.Visible = TruefrmMsg.Text1.Text = 已经到达记录顶端!Exit SubElserst.MovePreviousEnd IfEnd SubPrivate Sub Command4_Click() 下一记录If rst.EOF ThenfrmMsg.ShowfrmM.Visible = TruefrmMsg.Text1.Text = 已经到达记录底端! Exit SubElserst.MoveNextEnd IfEnd SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim sql1 As StringSet rst = New ADODB.Recordsetsql1 = select * from bookCall connect_dbrst.Open sql1, con, adOpenDynamic, adLockOptimisticSet Text1.DataSource = rstSet Text2.DataSource = rstSet Text3.DataSource = rstSet Text4.DataSource = rstSet Text5.DataSource = rstText1.DataField = 图书编码Text2.DataField = 图书名称Text3.DataField = 作者Text4.DataField = 出版社Text5.DataField = 入库时间End Sub