Steema Central

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

Code: Select all

; ANSI Character Set
; Default = Use the currently configured ANSI character set that is active
;           on the workstation.
; If you do not wish to use the ANSI character set that is active on the
;   current workstation, the available ANSI character sets to be used are:
;     Danish, Dutch, Engl(Amer), Engl(UK), Engl(Can), Finnish, French,
;     French Can, German, Icelandic, Italian, Norwegian, Portuguese, Spanish,
;     Span(Mod), Swedish, Russian, ASCII, Turkish, Polish, Baltic, or
;     Ukrainian
ANSI_CHAR_SET=Engl(UK)
;
; OEM/Localized Character Set
; Default = USA
; Options are:
;   USA, DANISH, DUTCH, FINNISH, FRENCH, GERMAN, GREEK437, GREEK851, ICELD850,
;   ICELD861, ITALIAN, NORWEGN, PORTUGUE, SPANISH, SWEDISH, MAZOVIA, PC_LATIN,
;   ISOLATIN, RUSSIAN, NTXCZ852, NTXCZ895, NTXSL852, NTXSL895, NTXHU852,
;   NTXPL852, TURKISH, or BOSNIAN
OEM_CHAR_SET=USA
;

Code: Select all

         DBChart1.Axes.Left.Automatic:=true;