vb和数据库高手块来呀

[hermat]

我有几个问题:
1 .我想作一个可以检测时间是否过期的程序,在数据库里有几条数据,每条数据都有一个限定时间,我想作一个系统在每次LOAD窗体的时候,自动检测数据库,如果有过了期限的,条目,系统会自动把该条目列出来,并将过期的条目字体变成别的颜色.,请问高手们,这个怎么实现呀!!!

2我想作一个一点数据库搜索出来的条目,就可以自动探出条目的修改窗体,请问怎么实现呀

[gzqg]

你都把答案说出来了还要问什么?呵呵

[j4sxw]

UP

[gzqg]

还是说具体一点、那里遇到困难、不然怎么回答你啊、从语法讲起吗?

[wingchi]

'给你个例子看看
第一个问题
Sub GetData()
Set rs1 = New adodb.Recordset
rs1.Open "select * from jxc_kc_cgrkd where scbm='材料出库单'", cn1, 1, 1
While Not rs1.EOF
Grid1.AddItem rs1!id & vbTab & rs1!ckrq & vbTab & rs1!ck & vbTab & rs1!ckdh & vbTab & rs1!cgbm _
& vbTab & rs1!gys & vbTab & rs1!wlbm & vbTab & rs1!wlmc _
& vbTab & rs1!ggxh & vbTab & Abs(rs1!sl) & vbTab & rs1!dj & vbTab & rs1!je


rs1.MoveNext
Wend
Grid1.RowHeight(-1) = 300
If Grid1.RowSel > 1 Then
Grid1.RowSel = 1
Else
Grid1.RowSel = 0
End If


'如果数量为负 则字体的颜色为红色 反之为黑色

For i = 1 To Grid1.Rows - 1
If Val(Grid1.TextMatrix(i, 9)) < 0 Then
Grid1.Row = i
For j = 1 To Grid1.Cols - 1
Grid1.Col = j
Grid1.CellForeColor = vbRed
Next j
End If
Next i



End Sub

[wingchi]

第二个问题

Case "danju" '单据 察看出库时候的单据列表


For i = 14 To 17
frm_cgrkd.Toolbar1.Buttons(i).Enabled = True
Next i

If Grid1.Row = 0 Or Grid1.Row = -1 Then Exit Sub
Set rs1 = New adodb.Recordset
rs1.Open "select * from jxc_kc_cgrkd where ckdh='" & Grid1.TextMatrix(Grid1.RowSel, 3) & "'", cn1, 1, 1

With frm_clckd
.Text1(0).Text = rs1!llsqd
.Text1(1).Text = rs1!ck
.Text1(2).Text = rs1!ckdh
.Text1(3).Text = rs1!lybm
.Text1(4).Text = rs1!ckrq
.Text1(5).Text = rs1!cklb
.Text1(6).Text = rs1!llyt
.Text1(7).Text = rs1!llr
.Text1(8).Text = rs1!bz

'判断兰字还是红字
If rs1!sl > 0 Then
.Option1.value = False
Else
.Option1.value = False
End If


While Not rs1.EOF
.Grid1.AddItem rs1!id & vbTab & rs1!wlbm & vbTab & rs1!wlmc & vbTab & rs1!ggxh & vbTab & rs1!jldw & vbTab & Abs(rs1!sl) & vbTab & rs1!dj & vbTab & rs1!je
rs1.MoveNext
Wend
.Grid1.RowHeight(-1) = 300
.Toolbar1.Buttons(5).Enabled = False
.Toolbar1.Buttons(7).Enabled = False
.Toolbar1.Buttons(8).Enabled = False
.Toolbar1.Buttons(9).Enabled = False
.Show 1
End With