vb中引用数据库中的数据在pictruebox中通过LINE工具画曲线.doc

vb中引用数据库中的数据在pictruebox中通过LINE工具画曲线 以下给出用于在pictruebox以LINE语句画曲线的代码: Option Explicit变量定义 Private gyhDate As String Private chaxun11 As String Private chaxun2 As String Private zsl As Integer Private wy_wy As Double Private br_br As Double Private quexian(9, 6000) As Variant曲线变量 Private zsl1 As Integer Private zsl11 As Integer Private i As Integer Private j As Integer Private X As Integer Private Y As Integer Private fnt As Integer Private txt As Variant Private dd As Variant 曲线显示文字函数 Public Function xp(colvb As Variant, xx As Variant, yy As Variant, txt As Variant) Picture1.ForeColor = colvb QBColor(14) Picture1.CurrentX = xx Picture1.CurrentY = yy Picture1.Print txt End Function 数据查询 Private Sub DataGrid3_Click() gyhDate = Adodc3.Recordset(0) chaxun1 = select * from jishijilu where gyh_riqi= gyhDate order by shijian mdh = chaxun1 Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Ldgz\wd.mdb;Persist Security Info=False Adodc1.RecordSource = mdh Adodc1.Refresh Adodc1.Recordset.MoveLast Text1 = gyhDate chaxun11 = select * from jishijilu where gyh_riqi= gyhDate chaxun2 = order by gyh_riqi,shijian mdh = chaxun11 chaxun2 Adodc2.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Ldgz\wd.mdb;Persist Security Info=False Adodc2.RecordSource = mdh Adodc2.Refresh zsl = Adodc2.Recordset.RecordCount Text2 = zsl Adodc2.Recordset.MoveFirst 将数据赋值于quexian(*, *)变量 For i = 0 To zsl - 1 quexian(0, i) = Adodc2.Recordset(0) For j = 2 To 9 quexian(j, i) = Adodc2.Recordset(j) Next j Adodc2.Recordset.MoveNext Next i cmdQuxian.SetFocus cmdRefh.Enabled = True cmdPrint.Enabled = True DataGrid3.Visible = False End Sub 初始化 Private Sub Form_Load() chaxun1 = select gyh_riqi from jishijilu where gyh_riqi group by gyh_riqi mdh = chaxun1 Adodc3.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Ldgz\wd.mdb;Persist Security Info=False Adodc3.RecordSource = mdh Adodc3.Refresh Adodc3.Recordset.MoveLast Picture2