frmbookinfo.frm

图书简明管理系统源代码(VB),可作为软件工程课程设计用,也可以作为学习用。

  Dim sql As String
  sql = "select * from cbslbb"     'cbslbb表'
  '将书籍资料表所有记录显示在frmbookinfo窗体的bookstylegrid表中'
  Dim i As Integer
   Set rs = TransactSQL(sql)
   If Not rs.EOF Then
      With booksourceGrid
         .Rows = 1
         While Not rs.EOF
         .Rows = .Rows + 1
         .TextMatrix(.Rows - 1, 0) = rs(0)
         .TextMatrix(.Rows - 1, 1) = rs(1)
         rs.MoveNext
         Wend
    End With
   End If
   rs.Close
End Function





Private Sub booksourceGrid_Click()

If booksourceGrid.Rows > 1 Then  '表格中有记录时显示对应记录到文本框
   txt出版社名 = booksourceGrid.TextMatrix(booksourceGrid.Row, 0)
   txt出版地点 = booksourceGrid.TextMatrix(booksourceGrid.Row, 1)
   cmdmodify2.Enabled = True
   cmddel2.Enabled = True
End If

End Sub

Private Sub bookstyleGrid_Click()

If bookstyleGrid.Rows > 1 Then  '表格中有记录时显示对应记录到文本框
   txt类别编号 = bookstyleGrid.TextMatrix(bookstyleGrid.Row, 0)
   txt类别名称 = bookstyleGrid.TextMatrix(bookstyleGrid.Row, 1)
   cmdmodify.Enabled = True
   cmddel.Enabled = True
End If
End Sub


Private Sub cmdadd_Click()
 Dim rs As New ADODB.Recordset
    Dim sql As String
    sql = "select * from tslbb"
    Dim sql2 As String
    sql2 = "select * from tslbb where 类别编号='" & txt类别编号.Text & "'"
    
    If Trim(txt类别编号.Text) = "" Then
       MsgBox "类别编号不能为空！", vbOKOnly
    ElseIf Trim(txt类别名称.Text) = "" Then
       MsgBox "类别名称不能为空！", vbOKOnly
    Else
       Set rs = TransactSQL(sql2)
       If rs.EOF = False Then
          MsgBox "该类别编号已经存在，请核对！", vbOKOnly
          rs.Close
       Else
          Set rs = TransactSQL(sql)
          rs.AddNew
          rs.Fields(0) = Trim(txt类别编号.Text)
          rs.Fields(1) = Trim(txt类别名称.Text)
          rs.Update
          'MsgBox "书籍类别添加成功！", vbOKOnly
          rs.Close
          
          bookstyleGrid.AddItem Trim(txt类别编号.Text) & vbTab & Trim(txt类别名称.Text)
          
          txt类别编号.Text = ""
          txt类别名称.Text = ""
    End If
End If
    
End Sub

Private Sub cmdadd2_Click()
 Dim rs As New ADODB.Recordset
    Dim sql As String
    sql = "select * from cbslbb"
    Dim sql2 As String
    sql2 = "select * from cbslbb where 出版社名='" & txt出版社名.Text & "'"

    If Trim(txt出版社名.Text) = "" Then
       MsgBox "出版社名不能为空！", vbOKOnly
    Else
       Set rs = TransactSQL(sql2)
       If rs.EOF = False Then
          MsgBox "该出版社名已经存在，请核对！", vbOKOnly
          rs.Close
       Else
          Set rs = TransactSQL(sql)
          rs.AddNew
          rs.Fields(0) = Trim(txt出版社名.Text)
          rs.Fields(1) = Trim(txt出版地点.Text)
          rs.Update
          'MsgBox "出版社信息添加成功！", vbOKOnly
          rs.Close
          
          booksourceGrid.AddItem Trim(txt出版社名.Text) & vbTab & Trim(txt出版地点.Text)
          
          txt出版社名.Text = ""
          txt出版地点.Text = ""
       End If
    End If
    
End Sub

Private Sub cmddel_Click()
 Dim resMsg As String
    Dim rs As New ADODB.Recordset
    Dim sql As String
    Dim sql2 As String
    sql = "select 类别编号 from tslbb where 类别编号 = '" & bookstyleGrid.TextMatrix(bookstyleGrid.Row, 0) & "'"
    sql2 = "delete from tslbb where 类别编号 = '" & bookstyleGrid.TextMatrix(bookstyleGrid.Row, 0) & "'"
    If Trim(bookstyleGrid.TextMatrix(bookstyleGrid.Row, 0)) = "" Then
       MsgBox "请选择一条要删除的l类别记录！", vbOKOnly
    Else
       Set rs = TransactSQL(sql)
       If rs.EOF = True Then
           MsgBox "没有该编号的书籍类别信息！", vbOKOnly
           rs.Close
       Else
          resMsg = MsgBox("真的要删除编号为" & bookstyleGrid.TextMatrix(bookstyleGrid.Row, 0) & "的书籍类别信息吗？", vbOKCancel, "警告")
          If resMsg = vbOK Then
             TransactSQL (sql2)
             'MsgBox "编号为" & bookstyleGrid.TextMatrix(bookstyleGrid.Row, 0) & "的的书籍类别信息已经删除！", vbOKOnly
             If bookstyleGrid.Rows = 2 Then
               bookstyleGrid.Rows = 1
            Else
             bookstyleGrid.RemoveItem (bookstyleGrid.Row)
            End If
            bookstyleGrid.Refresh
             txt类别编号.Text = ""
             txt类别名称.Text = ""
          End If
       End If
   
End If
End Sub

Private Sub cmddel2_Click()
Dim resMsg As String
    Dim rs As New ADODB.Recordset
    Dim sql As String
    Dim sql2 As String
    sql = "select 出版社名 from cbslbb where 出版社名 = '" & booksourceGrid.TextMatrix(booksourceGrid.Row, 0) & "'"
    sql2 = "delete from cbslbb where 出版社名 = '" & booksourceGrid.TextMatrix(booksourceGrid.Row, 0) & "'"
    If Trim(booksourceGrid.TextMatrix(booksourceGrid.Row, 0)) = "" Then
       MsgBox "请选择一条要删除的l出版社记录！", vbOKOnly
    Else
       Set rs = TransactSQL(sql)
       If rs.EOF = True Then
           MsgBox "没有该名的出版社信息！", vbOKOnly
           rs.Close
       Else
          resMsg = MsgBox("真的要删除名为" & booksourceGrid.TextMatrix(booksourceGrid.Row, 0) & "的出版社信息吗？", vbOKCancel, "警告")
          If resMsg = vbOK Then
             TransactSQL (sql2)
             'MsgBox "名为" & booksourceGrid.TextMatrix(booksourceGrid.Row, 0) & "的出版社信息已经删除！", vbOKOnly
             If booksourceGrid.Rows = 2 Then
               booksourceGrid.Rows = 1
            Else
             booksourceGrid.RemoveItem (booksourceGrid.Row)
            End If
            booksourceGrid.Refresh
             txt出版社名.Text = ""
             txt出版地点.Text = ""
             cmddel2.Enabled = False
          End If
       End If
   End If
End Sub

Private Sub cmdexit_Click()
Unload Me
End Sub



Private Sub cmdexit2_Click()
Unload Me
End Sub

Private Sub cmdmodify_Click()
'书籍类别编号不为空,表示选择了记录,反之,没选择要修改的记录
 
       Dim sql, sql2 As String
       sql = "update tslbb set 类别编号='" & Trim(txt类别编号.Text) & "',类别名称='" & Trim(txt类别名称.Text) & "' where 类别编号='" & Trim(bookstyleGrid.TextMatrix(bookstyleGrid.Row, 0)) & "' and 类别名称 = '" & bookstyleGrid.TextMatrix(bookstyleGrid.Row, 1) & "'"
       sql2 = "update tsxxb set 类别编号='" & Trim(txt类别编号.Text) & "',类别名称='" & Trim(txt类别名称.Text) & "' where 类别编号='" & Trim(bookstyleGrid.TextMatrix(bookstyleGrid.Row, 0)) & "' and 类别名称 = '" & bookstyleGrid.TextMatrix(bookstyleGrid.Row, 1) & "'"
       
    If Trim(txt类别编号.Text) = "" Then
       MsgBox "类别编号不能为空！", vbOKOnly
    ElseIf Trim(txt类别名称.Text) = "" Then
       MsgBox "类别名称不能为空！", vbOKOnly
    Else
       TransactSQL (sql) 'tslbb
       TransactSQL (sql2) 'tsxxb
       
       Call bookstylelist_update   '更新frmbookstylegrid的记录'
      
       cmdmodify.Enabled = False
    
       txt类别编号.Text = ""
       txt类别名称.Text = ""
       
    End If
End Sub

Private Sub cmdmodify2_Click()
    Dim sql, sql2 As String
       sql = "update cbslbb set 出版社名='" & Trim(txt出版社名.Text) & "',出版地点='" & Trim(txt出版地点.Text) & "'  where 出版社名='" & Trim(booksourceGrid.TextMatrix(booksourceGrid.Row, 0)) & "'and 出版地点 = '" & booksourceGrid.TextMatrix(booksourceGrid.Row, 1) & "'"
       sql2 = "update tsxxb set 出版社名='" & Trim(txt出版社名.Text) & "',出版地点='" & Trim(txt出版地点.Text) & "'  where 出版社名='" & Trim(booksourceGrid.TextMatrix(booksourceGrid.Row, 0)) & "'and 出版地点 = '" & booksourceGrid.TextMatrix(booksourceGrid.Row, 1) & "'"
    If Trim(txt出版社名.Text) = "" Then
       MsgBox "出版社名不能为空！", vbOKOnly
    Else
       TransactSQL (sql)
       TransactSQL (sql2)
       
       Call booksourcelist_update   '更新frmbooksourcegrid的记录'

       cmdmodify2.Enabled = False
        txt出版社名.Text = ""
       txt出版地点.Text = ""
    End If
End Sub

Private Sub Form_Load()

'Me.Icon = LoadPicture(App.Path & "\varios.ico")
Me.Left = (frmmain.ScaleWidth - Me.Width) / 2
Me.Top = (frmmain.ScaleHeight - Me.Height) / 2
cmdmodify.Enabled = False
cmdmodify2.Enabled = False
cmddel.Enabled = False
cmddel2.Enabled = False

With bookstyleGrid
         .TextMatrix(0, 0) = "类别编号"
         .TextMatrix(0, 1) = "类别名称"
         .ColAlignment(0) = 0
         .ColAlignment(1) = 0
         .ColWidth(0) = 2000
         .ColWidth(1) = 3100
         .Rows = 1
         
End With
Call bookstylelist_update

With booksourceGrid
         .TextMatrix(0, 0) = "出版社名"
         .TextMatrix(0, 1) = "出版地点"
         .ColAlignment(0) = 0
         .ColAlignment(1) = 0
         .ColWidth(0) = 2000
         .ColWidth(1) = 3100
         .Rows = 1
End With

Call booksourcelist_update
End Sub