Q&A

  • 선택된 리스트뷰의 값을 차트로 나타낼때..!!
안녕하십니까..!!고수님들..제목이 좀 난해하게..적었습니다..!!
적고 나보니..그러네요..!!^^
다름이 아니오라...선택된 날짜 **일 부터 **일까지..날짜를 선택해..조회하면..해당 날짜에 맞게 리스트뷰에 조회가 됩니다..!!
거기서..좀더 세부적인 사항을 조회하려고..마우스로 조회하고픈 리스트 뷰의
한 곳을 더블클릭합니다..

예로)
조회한 내용이 아래와 같다면...

A      2002-01-12 13:40:10       1000
b      2002-01-12 13:50:50       2000
...

여기서 마우스로 'A'를 더블클릭하면....다른 페이지에 선택된 'A' 의 값만 차트를 그려주려 합니다..
차트에...선택된 'A' 의 1000 이라는 수치를 그래프로 나타내려 합니다..!!

DataModule에 sql문은
select  AA,  Date,  HoldTime from test
where AA = :aPro             --> aPro는 ftString으로 주었구요..!!

소스는 아래와 같이...
procedure TForm1.ListViewDailyDblClick(Sender: TObject);
var
  i : Integer;
  ListProfile_Item : TListItem;
begin
    if (Sender as TListView).Selected = nil then
        MessageBox(0,'해당 주소를 선택해주십시요.','Reporter',MB_OK)
    else
    begin
        for i := 0 to ListViewDaily.Items.Count-1 do
        begin
            if ListViewDaily.Items[i].Selected then
            begin
                PageMain.ActivePage := TabProfile;
                with DataModule.TimeProfileQry do
                begin
                    Active := False;
                    ParamByName('aPro').AsString := ChartTimeProfile.LeftAxis.AxisValuesFormat;    --> 여기서 차트에 정의 해주는게 맞는건지.?
                    Active := True;
                end;
                ChartTimeProfile.LeftAxis.SetMinMax(Series10.MinYValue, Series10.MaxYValue);
                ChartTimeProfile.BottomAxis.SetMinMax(Series10.MinXValue, Series10.MaxXValue);
                ChartTimeProfile.BottomAxis.Automatic := True;
            end;
        end;
    end;
end;

소스를 함 보시고..틀린곳이 있으면 지적 바랍니다..!!
0  COMMENTS