statcurve360_datalist_f.pas

来自「汽车行驶记录仪360小时的全程速度时间曲线图的组件。」· PAS 代码 · 共 52 行

unit StatCurve360_DataList_F;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, StrUtils;

type
  TfrmDataList = class(TForm)
    panMain: TPanel;
    ADOQuery: TADOQuery;
    DataSource: TDataSource;
    Panel1: TPanel;
    dbgDataListUp: TDBGrid;
    Panel2: TPanel;
    dbgDataList: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    ADOQueryUp: TADOQuery;
    DataSourceUp: TDataSource;
    procedure dbgDataListCellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDataList: TfrmDataList;

implementation
uses
  StatCurve360_F;
{$R *.dfm}

procedure TfrmDataList.dbgDataListCellClick(Column: TColumn);
begin
  if not ADOQuery.Eof then
  begin
    StatCurve360_F.rePaintType:=mPaintNext;
    frmStatCurve360.pbCanvas.Refresh;
    frmStatCurve360.getData(ADOQuery.FieldByName('实时时刻').AsString);
    frmStatCurve360.DrawLine;
    StatCurve360_F.rePaintType:=mRePaint;
    frmStatCurve360.labStartTime.Caption:='起始时刻（对应坐标原点）：'+LeftStr(ADOQuery.FieldByName('实时时刻').AsString,14)+'00';
    frmStatCurve360.Show;
  end;
end;

end.