form3历史记录.txt

来自「利用VB6.0写的应用程序」· 文本 代码 · 共 62 行

Dim cn As ADODB.Connection
   Dim rs As ADODB.Recordset

Private Sub Command1_Click()
   Dim i, j As Integer
   Dim s, r As Single
   Dim strn, strm, strl As String

   Set cn = New ADODB.Connection
   cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;Data Source=mymdb.mdb"
      
   Set rs = New ADODB.Recordset
   rs.CursorType = adOpenKeyset
   rs.LockType = adLockOptimistic
   rs.Open "select * from 历史", cn
   
   If rs.RecordCount >= 30 Then
      rs.MoveFirst
      rs.Delete
   End If
   
   rs.MoveFirst
   For i = 1 To rs.RecordCount
       strn = rs.Fields("序号")
       j = Val(strn)
       j = j - 1
       strm = Str(j)
       rs.Fields("序号") = strm
       rs.Update
       rs.MoveNext
       If rs.EOF = True Then rs.MoveFirst
   Next
   
   rs.AddNew
   rs.Fields("序号") = "30"
   rs.Fields("日期") = Text1.Text
   rs.Fields("湿度") = Text2.Text
   rs.Fields("等级") = Text3.Text
   rs.Update
   Text1.Text = ""
   Text2.Text = ""
   Text3.Text = ""
   
   rs.MoveFirst
   s = 0
   For i = 1 To rs.RecordCount
       strl = rs.Fields("湿度")
       s = s + Val(strl)
       rs.MoveNext
       If rs.EOF = True Then rs.MoveFirst
   Next
   r = s / 30
   Form1.Text1.Text = Str(r)
   Form2.Text1.Text = Str(r)
   If r < 10 Then Form1.Text4.Text = "过干"
   If 10 <= r < 20 Then Form1.Text4.Text = "干燥"
   If 20 <= r < 50 Then Form1.Text4.Text = "适宜"
   If 50 <= r < 90 Then Form1.Text4.Text = "湿润"
   If r >= 90 Then Form1.Text4.Text = "过湿"
   rs.Close
   MsgBox "成功插入一条记录"
End Sub