entry.txt

经过几个月的设计和开发

Option Explicit

Private Sub cmdmodify_Click()       '修改记录按钮
Dim sqlstr As String
Dim rst1 As New ADODB.Recordset
Dim param As ADODB.Parameter
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
Set param = New ADODB.Parameter

sqlstr = "select * from book where [图书编码]= '" & Trim(Text1.Text) & "'"
  With param
    .Direction = adParamInput
    .Type = adBSTR
    .Size = 8
    .Value = Text1.Text
    End With
   cmd.Parameters.Append param
   cmd.CommandText = sqlstr
   cmd.CommandType = adCmdText
   Set cmd.ActiveConnection = con
   Set rst1 = cmd.Execute
   
  If rst1.RecordCount > 0 Then
     frmMsg.Show
       frmMsg.notice.Visible = True
    frmMsg.Text1.Text = "此书号已经存在!"
       rst.Cancel
       Exit Sub
   End If
    rst.Update
   frmMsg.Show
   frmMsg.info.Visible = True
  frmMsg.Text1.Text = "修改成功!"
End Sub

Private Sub Command1_Click()
Dim sql As String
Dim param As ADODB.Parameter
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
Set param = New ADODB.Parameter
sql = "select * from book where [图书编码]= ? "

If Command1.Caption = "添加记录" Then
   Command1.Caption = "确   定"
   Command2.Enabled = False          '屏蔽删除、修改、下一记录、上一记录按钮，避免出现数据库错误
   Command3.Enabled = False
   Command4.Enabled = False
   cmdmodify.Enabled = False
   rst.AddNew
Else
     If Text1.Text = "" Then
    frmMsg.Show
    frmMsg.notice.Visible = True
  frmMsg.Text1.Text = "图书编号不能为空!"
       Command2.Enabled = True
       Command3.Enabled = True
       Command4.Enabled = True
       Command1.Caption = "添加记录"
      Exit Sub
     End If
    With param
    .Direction = adParamInput
    .Type = adBSTR
    .Size = 8
    .Value = Text1.Text
    End With
   cmd.Parameters.Append param
   cmd.CommandText = sql
   cmd.CommandType = adCmdText
   Set cmd.ActiveConnection = con
   Set rst1 = cmd.Execute
   
  If rst1.RecordCount > 0 Then
      frmMsg.Show
      frmMsg.notice.Visible = True
  frmMsg.Text1.Text = "此书号已经存在!"
       rst.Cancel
     Command2.Enabled = True
     Command3.Enabled = True
     Command4.Enabled = True
      cmdmodify.Enabled = True
     Command1.Caption = "添加记录"
     Command2.Enabled = True
       Exit Sub
   End If

   rst.Update
   Command2.Enabled = True                  '数据库更新结束后才可以点击其他几个按钮
   Command3.Enabled = True
   Command4.Enabled = True
    cmdmodify.Enabled = True
   Command1.Caption = "添加记录"
 
End If
End Sub

Private Sub Command2_Click()                  '删除记录
Dim ans As String
ans = Msgbox("确定要删除此记录吗？", vbYesNo, "提示")
If ans = vbYes Then
   rst.Delete
   rst.Requery
Else
 Exit Sub
End If
End Sub

Private Sub Command3_Click()                  '上一记录
If rst.BOF Then
   frmMsg.Show
   frmMsg.info.Visible = True
  frmMsg.Text1.Text = "已经到达记录顶端!"
   Exit Sub
 Else
   rst.MovePrevious
End If
 
End Sub

Private Sub Command4_Click()              '下一记录
If rst.EOF Then
  frmMsg.Show
  frmMsg.info.Visible = True
  frmMsg.Text1.Text = "已经到达记录底端! "
   Exit Sub
 Else
   rst.MoveNext
End If
End Sub

Private Sub Command5_Click()
Unload Me
End Sub

Private Sub Form_Load()

Dim sql1 As String
Set rst = New ADODB.Recordset
sql1 = "select * from book"

Call connect_db
rst.Open sql1, con, adOpenDynamic, adLockOptimistic
Set Text1.DataSource = rst
Set Text2.DataSource = rst
Set Text3.DataSource = rst
Set Text4.DataSource = rst
Set Text5.DataSource = rst

Text1.DataField = "图书编码"
Text2.DataField = "图书名称"
Text3.DataField = "作者"
Text4.DataField = "出版社"
Text5.DataField = "入库时间"

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