SQL+VB图书管理系统(数据库+源代码+论文) 第5页
  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
     
      If Frm_jhx.Cmd_jhxs.Caption = "归还此书" Then
     
          If MsgBox("是否归还此书?", vbOKCancel + vbQuestion, "询问") = vbOK Then
            sql = "select * from 图书归还 where 图书ID='" + Frm_jhx.Txt_tsid.Text + "'"
            ShowData sql, Frm_jhx.MSFlexGrid1
            Frm_jhx.StatusBar1.Panels(1).Text = "总共有" & Frm_jhx.MSFlexGrid1.Rows - 1 & "条记录"
           
            strSql1 = "select * from 图书借阅 where 图书ID='" + Trim(Frm_jhx.Txt_tsid.Text) + "'"
            ShowData strSql1, Frm_data2.MSFlexGrid2
            If Frm_data2.MSFlexGrid2.TextMatrix(Frm_data2.MSFlexGrid2.Row, 0) = "借书编号" Then
              MsgBox "您未借阅此图书！", vbOKOnly + vbInformation, "信息"
              Frm_jhx.MSFlexGrid1.Clear
              Frm_jhx.MSFlexGrid1.Cols = 2
              Frm_jhx.MSFlexGrid1.Rows = 2
              Frm_jhx.StatusBar1.Panels(1).Text = "总共有0条记录"
              Exit Sub
            Else
              Frm_tsghsz.Show 1
            End If
           
          End If
      End If
     
     If Frm_jhx.Cmd_jhxs.Caption = "续借此书" Then
     
          If MsgBox("是否续借此书?", vbOKCancel + vbQuestion, "询问") = vbOK Then
           
            sql = "select * from 图书借阅 where 借书证号='" + Trim(Frm_jhx.Txt_jszh.Text) + "'"
            ShowData sql, Frm_jhx.MSFlexGrid1
            Frm_jhx.StatusBar1.Panels(1).Text = "总共有" & Frm_jhx.MSFlexGrid1.Rows - 1 & "条记录"
           
            strSql1 = "select * from 图书借阅 where 图书ID='" + Trim(Frm_jhx.Txt_tsid.Text) + "'"
            ShowData strSql1, Frm_data2.MSFlexGrid2
           
            If Frm_data2.MSFlexGrid2.TextMatrix(Frm_data2.MSFlexGrid2.Row, 0) = "借书编号" Then
              MsgBox "您未借阅此图书！不能续借！", vbOKOnly + vbInformation, "信息"
              Frm_jhx.MSFlexGrid1.Clear
              Frm_jhx.MSFlexGrid1.Cols = 2
              Frm_jhx.MSFlexGrid1.Rows = 2
              Frm_jhx.StatusBar1.Panels(1).Text = "总共有0条记录"
              Exit Sub
            End If
           
            strSql1 = "select 状态 from 图书信息 where 图书ID='" + Trim(Frm_jhx.Txt_tsid.Text) + "'"
            ShowData strSql1, Frm_data2.MSFlexGrid2

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