【聚杰网VB】VB+Access设计图书管理系统

　　If Not IsNull(rs_data1.Fields(2)) Then MSFlexGrid1.Text = rs_data1.Fields(2) Else

　　MSFlexGrid1.Text = ""

　　MSFlexGrid1.Col = 3

　　If Not IsNull(rs_data1.Fields(3)) Then MSFlexGrid1.Text = rs_data1.Fields(3) Else

　　MSFlexGrid1.Text = ""

　　MSFlexGrid1.Col = 4

　　If Not IsNull(rs_data1.Fields(4)) Then MSFlexGrid1.Text = rs_data1.Fields(4) Else

　　MSFlexGrid1.Text = ""

　　MSFlexGrid1.Col = 5

　　If Not IsNull(rs_data1.Fields(5)) Then MSFlexGrid1.Text = rs_data1.Fields(5) Else

　　MSFlexGrid1.Text = ""

　　rs_data1.MoveNext

　　Loop

　　End If

　　displayerror:

　　If Err.Number <> 0 Then

　　MsgBox Err.Description

　　End If

　　End Sub

　　Public Sub setgrid()

　　Dim i As Integer

　　On Error GoTo seterror

　　With MSFlexGrid1

　　.ScrollBars = flexScrollBarBoth

　　.FixedCols = 0

　　.Rows = rs_data1.RecordCount + 1

　　.Cols = 6

　　.SelectionMode = flexSelectionByRow

　　For i = 0 To .Rows - 1

　　.RowHeight(i) = 315

　　Next

　　For i = 0 To .Cols - 1

　　.ColWidth(i) = 1300

　　Next i

　　End With

　　Exit Sub

　　seterror:

　　MsgBox Err.Description

　　End Sub

　　Public Sub setgridhead()

　　On Error GoTo setheaderror

　　MSFlexGrid1.Row = 0

　　MSFlexGrid1.Col = 0

　　MSFlexGrid1.Text = "编号"

　　MSFlexGrid1.Col = 1

　　MSFlexGrid1.Text = "购买日期"

　　MSFlexGrid1.Col = 2

　　MSFlexGrid1.Text = "书名"

　　MSFlexGrid1.Col = 3

　　MSFlexGrid1.Text = "类型"

　　MSFlexGrid1.Col = 4

　　MSFlexGrid1.Text = "定价"

　　MSFlexGrid1.Col = 5

　　MSFlexGrid1.Text = "备注"

　　Exit Sub

　　setheaderror:

　　MsgBox Err.Description

　　End Sub

　　Private Sub Form_Unload(Cancel As Integer)

　　findok = False

　　rs_data1.Close

　　rs_custom.Close

　　End Sub

　　Private Sub MSFlexGrid1_Click()

　　On Error GoTo griderror

　　Dim getrow As Long

　　getrow = MSFlexGrid1.Row

　　If MSFlexGrid1.Rows = 1 Then

　　MsgBox "无相关记录", vbOKOnly + vbExclamation, ""

　　Else

　　select_row = MSFlexGrid1.TextMatrix(getrow, 0)

　　End If

　　griderror:

　　If Err.Number <> 0 Then

　　MsgBox Err.Description

　　End If

　　End Sub

　　Public Sub showdata()

　　With MSFlexGrid2

　　.Rows = rs_data2.RecordCount + 1

　　.Row = 0

　　If Not rs_data2.EOF Then

　　rs_data2.MoveFirst

　　Do While Not rs_data2.EOF

　　.Row = .Row + 1

　　.Col = 0

　　If Not IsNull(rs_data2.Fields(0)) Then .Text = rs_data2.Fields(0) Else .Text = ""

　　.Col = 1

　　If Not IsNull(rs_data2.Fields(1)) Then .Text = rs_data2.Fields(1) Else .Text = ""

　　.Col = 2

　　If Not IsNull(rs_data2.Fields(2)) Then .Text = rs_data2.Fields(2) Else .Text = ""

　　.Col = 3

　　If Not IsNull(rs_data2.Fields(3)) Then .Text = rs_data2.Fields(3) Else .Text = ""

　　.Col = 4

　　If Not IsNull(rs_data2.Fields(4)) And CDbl(rs_data2.Fields(4)) < 0 Then

　　.Text = -CDbl(rs_data2.Fields(4))

　　Else

　　.Text = rs_data2.Fields(4)

　　End If

　　.Col = 5

　　If Not IsNull(rs_data2.Fields(5)) Then .Text = rs_data2.Fields(5) Else .Text = ""

　　.Col = 6

　　If Not IsNull(rs_data2.Fields(6)) Then .Text = rs_data2.Fields(6) Else .Text = ""

　　.Col = 7

　　If Not IsNull(rs_data2.Fields(7)) And CDbl(rs_data2.Fields(4)) < 0 Then

上一页 1 2 3 4 5 6 7 8 9 下一页