안녕하십니까..!!고수님들..제목이 좀 난해하게..적었습니다..!!
적고 나보니..그러네요..!!^^
다름이 아니오라...선택된 날짜 **일 부터 **일까지..날짜를 선택해..조회하면..해당 날짜에 맞게 리스트뷰에 조회가 됩니다..!!
거기서..좀더 세부적인 사항을 조회하려고..마우스로 조회하고픈 리스트 뷰의
한 곳을 더블클릭합니다..
예로)
조회한 내용이 아래와 같다면...
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;
소스를 함 보시고..틀린곳이 있으면 지적 바랍니다..!!