SQL+VB图书管理系统(数据库+源代码+论文) 第6页
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] ... 下一页 >>