毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

SQL+VB图书管理系统(数据库+源代码+论文) 第6页

更新时间:2009-6-3:  来源:毕业论文
SQL+VB图书信息管理系统论文
     If Trim(Frm_data2.MSFlexGrid2.TextMatrix(Frm_data2.MSFlexGrid2.Row, 0)) = "借出" Then
              MsgBox "此书籍库存量为0不可借!", vbOKOnly + vbInformation, "信息"
              Exit Sub
            End If
           
            Frm_data2.MSFlexGrid2.Clear
            Frm_data2.MSFlexGrid2.Cols = 2
            Frm_data2.MSFlexGrid2.Rows = 2
           
            strSql2 = "select * from 图书罚款 where 图书ID='" + Trim(Frm_jhx.Txt_tsid.Text) + "'"
            ShowData strSql2, Frm_data2.MSFlexGrid2
           
            If Trim(Frm_data2.MSFlexGrid2.TextMatrix(Frm_data2.MSFlexGrid2.Row, 6)) = "否" Then
              MsgBox "此书籍逾期欠款,请先交款!", vbOKOnly + vbInformation, "信息"
              Frm_yqjk.Show 1
              Exit Sub
            End If
           
            Frm_data2.MSFlexGrid2.Clear
            Frm_data2.MSFlexGrid2.Cols = 2
            Frm_data2.MSFlexGrid2.Rows = 2
           
            strSql3 = "select * from 图书丢失 where 图书ID='" + Trim(Frm_jhx.Txt_tsid.Text) + "'"
            ShowData strSql3, Frm_data2.MSFlexGrid2
           
            If Trim(Frm_data2.MSFlexGrid2.TextMatrix(Frm_data2.MSFlexGrid2.Row, 7)) = "否" Then
              MsgBox "此书籍丢失未赔偿,请先赔偿!", vbOKOnly + vbInformation, "信息"
              Frm_dspc.Show 1
              Exit Sub
            End If
           
            Frm_data2.MSFlexGrid2.Clear
            Frm_data2.MSFlexGrid2.Cols = 2
            Frm_data2.MSFlexGrid2.Rows = 2
           
            strSql4 = "select * from 读者信息 where 借书证号='" + Trim(Frm_jhx.Txt_jszh.Text) + "'"
            ShowData strSql4, Frm_data2.MSFlexGrid2
           
            If Trim(Frm_data2.MSFlexGrid2.TextMatrix(Frm_data2.MSFlexGrid2.Row, 7)) = "普通读者" And Frm_jhx.MSFlexGrid1.Rows = 4 Then
              MsgBox "该读者借书数量已达到上限!", vbOKOnly + vbInformation, "信息"
              Exit Sub
            ElseIf Trim(Frm_data2.MSFlexGrid2.TextMatrix(Frm_data2.MSFlexGrid2.Row, 7)) = "高级读者" And Frm_jhx.MSFlexGrid1.Rows = 6 Then
              MsgBox "该读者借书数量已达到上限!", vbOKOnly + vbInformation, "信息"
              Exit Sub
            End If
           
            Frm_tsjyxz.Caption = "图书续借新增"
            Frm_tsjyxz.Toolbar1.Buttons(3).Caption = "确认续借"
            Frm_tsjyxz.Show 1
       
          End If
      End If
   End If
End Sub
Public Sub MoveFirst(ctr As Control)
With ctr
    .Row = 1
    .Col = 0
    .RowSel = .Row
    .ColSel = .Cols - 1
End With
End Sub

Public Sub MovePre(ctr As Control)
With ctr
    If .Row > 1 Then
    .Row = .Row - 1
    .Col = 0
    .RowSel = .Row

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

SQL+VB图书管理系统(数据库+源代码+论文) 第6页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。