¡Cómo referenciar datos en la base de datos en vb y dibujar curvas en Pictruebox a través de la herramienta LINE! ¡Mejor da el código!
Opción explícita 'Definición de variable'
Privada gyhDate como cadena
Privada chaxun11 como Cadena
Privado chaxun2 como cadena
Privado zsl como entero
Privado wy_wy como doble
Privado br_br como doble
Privado quexian(9, 6000) como variable 'variable de curva
Privado zsl1 como entero
Privado zsl11 como entero
Privado i como entero
J privado como entero
X privado como entero
Y privado como entero
Fnt privado como entero
Txt privado Como variante
DD privado como variante
'Función de texto de visualización de curva
Función pública xp(colvb Como variante, xx como variante, yy como variante, txt como Variante)
Picture1.Recordset(0)
chaxun1 = "seleccionar * de jishijilu donde gyh_riqi='" & gyhDate & "' ordenar por shijian"
mdh = chaxun1
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Fuente de datos=C:\Ldgz\wd.mdb;Seguridad persistente información=Falso "
Adodc2.
RecordSource = mdh
Adodc2.Refresh
zsl = Adodc2.Recordset.RecordCount
Text2 = zsl
Adodc2.Recordset.MoveFirst< pMoveFirst
'Asignar datos a variables quexian(*, *)
For i = 0 To zsl - 1
quexian(0, i) = Adodc2.Recordset(0)
Para j = 2 a 9
quexian(j, i) = Adodc2.Recordset(j)Picture1.Line (500, 566.7)-(550, 566.7)
Imagen1.Línea (500, 733.3)-(550, 733.3)
Imagen1.Línea (500, 900)-(550, 900)
Imagen1.Línea ( 500, 1066.7)-(550, 1066.7)
Imagen1.Línea (500, 1233.3)-(550, 1233.3)
Imagen1.Línea (500, 1400)-(550, 1400)
Imagen1.Línea (500, 1566.7)-(550, 1566.7)
Imagen1.Línea (500, 1733.3)-(550, 1733.Línea(500, 4400) -(550, 4400)
Imagen1.Línea (500, 4566.7)-(550, 4566.7)
Imagen1.Línea (500, 4733.3)-( 550, 4733.3) p>
Imagen1.Línea (500, 5066.Línea (500, 5400)
Imagen1.Línea (500, 5566.7)-(550, 5566.7)
Imagen1 .Línea (500, 5733.3)-(550, 5733.3)
Imagen 1. (500, 5900)-(550, 5733.3)
Imagen 1.5900)-(550, 5900 )
Imagen1.Línea (500, 6066.7)-(550, 6066.7)
Imagen1.Línea (500, 6233.3)-(550, 6233.3)
Imagen1. Línea (450, 6400) - (25700, 6400)
Imagen1. (450, 2200) - Línea (450, 2500) - (500, 2200)
Imagen1. . Línea (450, 2500)-(500, 2500)
Imagen 1. (450, 2800)-(500, 2800)
Imagen 1.3100)
Imagen1.Línea(450,3700)-(500,3700)
Imagen1.Línea(450,4000)-(500,4000)
Imagen1.Línea(450, 4300) - (500, 4300)
Imagen1.Línea (450, 4600) - (500, 4600)
Imagen 1.30 + 3401), vbAmarillo, BF
Imagen1.Línea (j * 5 +
500, quexian(6, j) * -30 + 3399)-(j * 5 + 500, quexian(6, j) * -30 + 3401), vbGreen, BF
'Procesamiento cuasi logarítmico
Si quexian(8, j) < 1 Entonces
wy_wy = 0 + 166,7
br_br = 55
De lo contrario, si quexian(8 , j) >= 1 And quexian(8, j) < 10 Entonces
wy_wy = -1500 + 166.7
br_br = 5.5556
ElseIf quexian(8 , j) >= 10 And quexian(8, j) < 100 Entonces
wy_wy = -3000 + 166.7
br_br = 0.555555
ElseIf quexian(8 , j) >= 100 And quexian(8, j) < 1000 Entonces
wy_wy = -4500 + 166.7
br_br = 0.055555
Fin Si
Imagen1.Línea (j * 5 + 500, quexian(8, j) * br_br * -30 + wy_wy + 3395 + 3000)-(j * 5 + 500, quexian(8, j) * br_br * -30 + wy_wy + 3405 + 3000), QBColor(11), BF
Next j
cmdExit.SetFocus
End Sub
El código anterior requiere Modifíquelo de acuerdo con su situación real de procesamiento de datos y ¡le deseo éxito!
El código anterior debe modificarse de acuerdo con su situación real de procesamiento de datos. ¡Le deseo éxito!