Env Delphi 2007
The code below has worked fine for many years giving the results
the histogram graphs have now started appearing as (I have added a grid to show the source data)
pie charts using similar code continue to work as expected.
Things I have done lately
1. Install the December update to Delphi 2007
2. Install Report Builder 10.9
I tried running the re compile but it came up with the following error....
I can not re install the program for the reasons documented in my newsgroup postings of 22/11/07 and 23/11/07DclTeePro811
CodeGear Delphi for Win32 compiler version 18.5
Copyright (c) 1983,2007 CodeGear
8247 lines, 1.65 seconds, 63152 bytes code, 340 bytes data.
--------------------------------------------------------------------------------
DclTeeProStd811
CodeGear Delphi for Win32 compiler version 18.5
Copyright (c) 1983,2007 CodeGear
8244 lines, 0.59 seconds, 58392 bytes code, 324 bytes data.
--------------------------------------------------------------------------------
TeeChart Installation
VERSION: 8
RAD 2007.Win32 v11 (BDS v5 Professional)
EXCEPTION:
File not found
--------------------------------------------
EXCEPTION:
Operation aborted
--------------------------------------------
Advice greatfully appreciated
Philip L Jackson
Code: Select all
if Items[18].selected then // Count of PM Visits per month
begin //
ChartVisible(TRUE);
GridVisible(FALSE);
ChartTypeGroup.ItemIndex := 1;
GraphsDataModule.Query13.Active := FALSE;
GraphsDataModule.Query13.AdsCloseSQLStatement;
DBChart1.Height := Panel6.Height - 139;
With MySeries do
begin
XValues.ValueSource := '';
YValues.ValueSource := '';
XLabelsSource := '';
ParentChart := DBChart1;
DataSource := GraphsDataModule.Query13;
GraphsDataModule.Query13.SQL.Clear;
GraphsDataModule.Query13.SQL.Add('select sum(diary.est_hrs) as sNumber, diary.due, periods1.desc1, periods1.lineno');
GraphsDataModule.Query13.SQL.Add('from diary , periods1');
GraphsDataModule.Query13.SQL.Add('where diary.due = periods1.desc1');
if BranchCount > 0 then GraphsDataModule.Query13.SQL.Add('and diary.branch in ' + sBranchList) ;
GraphsDataModule.Query13.SQL.Add('group by periods1.lineno, periods1.desc1, diary.due');
GraphsDataModule.Query13.Active := TRUE;
XLabelsSource := 'Due';
if HorizBarSelect then
XValues.ValueSource := 'sNumber'
else YValues.ValueSource := 'sNumber';
Marks.Visible := True;
CheckDatasource;
ChartDisplayed := 'Y';
end;
With DBChart1.Title.Text do
begin
Clear;
Add('Preventative');
Add('Maint By Hours');
end;
DBChart1.Repaint;
end;// end of if Items[18].selected then // Hours of PM Visits per month