ftest.pas

suite component ace report

procedure TformTest.AceTutorial1Click(Sender: TObject);
begin
  RunAceTutorial(Sender);
end;

procedure TformTest.CodeCreated1Click(Sender: TObject);
begin
  RunCodeCreated(Sender);
end;

procedure TformTest.OrderForms1Click(Sender: TObject);
begin
  RunOrdersForm(Sender);
end;

procedure TformTest.CustomPreview1Click(Sender: TObject);
begin
  RunCustomPreview(Sender);
end;

procedure TformTest.CrossTab1Click(Sender: TObject);
begin
  RunCrossTab(Sender);
end;

procedure TformTest.TabSet1Change(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin
  Notebook1.PageIndex := TabSet1.TabIndex;
end;

procedure TformTest.CrossrefTableCalcFields(DataSet: TDataset);
begin
  ReportTable.Open;
  ReportTable.FindKey([CrossrefTable.FieldByName('RepCode').AsString]);
  CrossRefTable.FieldByName('ReportName').AsString := ReporttableRepName.AsString;
end;

procedure TformTest.CrossrefTable1CalcFields(DataSet: TDataset);
begin
  FeatureTable1.Open;
  FeatureTable1.FindKey([CrossrefTable1.FieldByName('FeatureCod').AsString]);
  CrossRefTable1.FieldByName('Feature').AsString := FeatureTable1Feature.AsString;
end;

procedure TFormTest.RunEmployeeListing (Sender: TObject);
var
  Rep: Tformlist;
begin
  Rep := Tformlist.Create(Application);
  Rep.employeelist.Run;
  Rep.Free;
end;

procedure TFormTest.RunOrderListing (Sender: TObject);
var
  Rep: TformOrders;
begin
  Rep := TformOrders.Create(Application);
  Rep.rptorder.Run;
  Rep.Free;
end;

procedure TFormTest.RunBiolifeListing (Sender: TObject);
var
  Rep: TMemoReport;
begin
  Rep := TMemoReport.Create(Application);
  Rep.rmemo.Run;
  Rep.Free;
end;

procedure TFormTest.RunCustomerOrders (Sender: TObject);
var
  Rep: Trptcust;
begin
  Rep := Trptcust.Create(Application);
  Rep.Show;
end;

procedure TFormTest.RunAnimalListing (Sender: TObject);
var
  Rep: TFormRpt4;
begin
  Rep := TFormRpt4.Create(Application);
  Rep.RReport1.Run;
  Rep.Free;
end;

procedure TFormTest.RunCountryListing (Sender: TObject);
var
  rep: TFormMany;
begin
  rep := TFormMany.Create(Application);
  rep.Show;
end;

procedure TFormTest.RunAllOrders (Sender: TObject);
var
  rep: TAllOrd;
begin
  rep := TAllOrd.Create(Application);
  rep.sctreport1.Run;
  rep.Free;
end;

procedure TFormTest.RunLabels (Sender: TObject);
var
  rep: TLabelsForm;
begin
  rep := TLabelsForm.Create(Application);
  rep.sctreport1.Run;
  rep.Free;
end;

procedure TFormTest.RunAceTutorial (Sender: TObject);
var
  rep: TAceTutor;
begin
  rep := TAceTutor.Create(Application);
  rep.show;
end;

procedure TFormTest.RunCodeCreated (Sender: TObject);
var
  rep: TFormCode;
begin
  rep := TFormCode.Create(Application);
  rep.SctReport1.Run;
  rep.free;
end;

procedure TFormTest.RunCustomPreview (Sender: TObject);
begin
  with TCustomPreview.Create(Application) do Show;
end;

procedure TFormTest.RunCrossTab (Sender: TObject);
begin
  with TCrossForm.Create(Application) do Show;
end;

procedure TFormTest.RunOrdersForm (Sender: TObject);
var
  rep: TOrdForm;
begin
  rep := TOrdForm.Create(Application);
  rep.show;
end;

procedure TFormTest.RunAceCanvas (Sender: TObject);
begin
  with TCanvasForm.Create(Application) do Show;
end;

procedure TFormTest.RunTwoDetail (Sender: TObject);
var
  TwoDetForm: TTwoDetForm;
begin
  TwoDetForm := TTwoDetForm.Create(Application);
  TwoDetForm.Show;
end;

procedure TFormTest.RunBarGraph (Sender: TObject);
var
  BarGraphForm: TBarGraphForm;
begin
  BarGraphForm := TBarGraphForm.Create(Application);
  BarGraphForm.Show;
end;

procedure TFormTest.RunColumnGroup (Sender: TObject);
var
  Group3: TGroup3;
begin
  Group3 := TGroup3.Create(Application);
  Group3.SctReport1.Run;
  Group3.Free;
end;

procedure TFormTest.RunNonDbf(Sender: TObject);
var
  nondbf: TNonDbfMasterDetail;
begin
  nondbf := TNonDbfMasterDetail.Create(Application);
  nondbf.SctReport1.Run;
  nondbf.Free;
end;

procedure TformTest.DBGrid2DblClick(Sender: TObject);
begin
  case StrToInt(CrossRefTable.FieldByName('RepCode').AsString) of
    rpEmployee       :  RunEmployeeListing(Sender);
    rpOrders         :  RunOrderListing(Sender);
    rpBiolife        :  RunBiolifeListing(Sender);
    rpCustOrders     :  RunCustomerOrders(Sender);
    rpAnimals        :  RunAnimalListing(Sender);
    rpCountry        :  RunCountryListing(Sender);
    rpAllOrders      :  RunAllOrders(Sender);
    rpLabels         :  RunLabels(Sender);
    rpAceTutorial    :  RunAceTutorial(Sender);
    rpCodeCreated    :  RunCodeCreated(Sender);
    rpOrdersForm     :  RunOrdersForm(Sender);
    rpCrossTab       :  RunCrossTab(Sender);
    rpCustomPreview  :  RunCustomPreview(Sender);
    rpAceCanvas      :  RunAceCanvas(Sender);
    rpTwoDetail      :  RunTwoDetail(Sender);
    rpBarGraph       :  RunBarGraph(Sender);
    rpColumnGroup    :  RunColumnGroup(Sender);
    rpNonDbf         :  RunNonDbf(Sender);
  end;
end;

procedure TformTest.DBGrid1DblClick(Sender: TObject);
begin
  case StrToInt(ReportTable1.FieldByName('RepCode').AsString) of
    rpEmployee       :  RunEmployeeListing(Sender);
    rpOrders         :  RunOrderListing(Sender);
    rpBiolife        :  RunBiolifeListing(Sender);
    rpCustOrders     :  RunCustomerOrders(Sender);
    rpAnimals        :  RunAnimalListing(Sender);
    rpCountry        :  RunCountryListing(Sender);
    rpAllOrders      :  RunAllOrders(Sender);
    rpLabels         :  RunLabels(Sender);
    rpAceTutorial    :  RunAceTutorial(Sender);
    rpCodeCreated    :  RunCodeCreated(Sender);
    rpOrdersForm     :  RunOrdersForm(Sender);
    rpCrossTab       :  RunCrossTab(Sender);
    rpCustomPreview  :  RunCustomPreview(Sender);
    rpAceCanvas      :  RunAceCanvas(Sender);
    rpTwoDetail      :  RunTwoDetail(Sender);
    rpBarGraph       :  RunBarGraph(Sender);
    rpColumnGroup    :  RunColumnGroup(Sender);
    rpNonDbf         :  RunNonDbf(Sender);
  end;
end;

function TformTest.SubDetailBand1PrintWhen(band: TSctBand): Boolean;
begin
  result := band.continued;
end;

function TformTest.DetailBand1PrintWhen(band: TSctBand): Boolean;
begin
  result := not band.continued;
end;

procedure TformTest.SubDataDetailBand1HeadPrintWhen(band: TSctBand; var Result: Boolean);
begin
  result := band.continued;
end;

procedure preview(Page: TSctPage);
var
  av: TViewer;
begin
  av := TViewer.Create(Application);
  av.SetAceFile(Page.PrintTo.AceFile);
  av.OnAbort := Page.AbortGeneration;
  Page.OnUpdate := av.UpdateStatus;
  av.Show;
end;

procedure TformTest.CheckBox2Click(Sender: TObject);
begin
  if TCheckBox(Sender).Checked then sctrep.CustomPrompt := MyPrompt
  else sctrep.CustomPrompt := nil;
end;

procedure MyPrompt(Page: TSctPage; var Result: Boolean);
var
  outForm: TSampleReportDest;
begin
  outform := nil;
  try
    outForm := TSampleReportDest.Create(Application);
    outForm.PageSetup := Page.PageSetup;
    result := (outForm.ShowModal = mrOk);
  finally
    outForm.Free;
  end;
end;

procedure TformTest.CheckBox3Click(Sender: TObject);
begin
  if TCheckBox(Sender).Checked then sctrep.CustomStatus := MyStat
  else sctrep.CustomStatus := nil;
end;

procedure MyStat(Page: TSctPage);
var
  stat: TMyStatus;
begin
  stat := TMyStatus.Create(Application);
  stat.Show;
  stat.Report := Page.Report;
  Page.OnUpdateStatus := stat.UpdateStatus;

end;

procedure OldPreview(Page: TSctPage);
var
  av: TSctPreview;
begin
  av := TSctPreview.Create(Application);
  av.SetAceFile(Page.PrintTo.AceFile);
  av.OnAbort := Page.AbortGeneration;
  Page.OnUpdate := av.UpdateStatus;
  av.Show;
end;

procedure TformTest.FormCreate(Sender: TObject);
var
  path: String;
begin
  path := ExtractFilePath(Application.ExeName);

  RadioButton1.Enabled := False;
  RadioButton2.Enabled := False;
  FeatureTable.Active := False;
  CrossrefTable.Active := False;
  ReportTable.Active := False;
  ReportLookupTable.Active := False;
  ReportTable1.Active := False;
  CrossrefTable1.Active := False;
  FeatureTable1.Active := False;
  FeatureLookupTable.Active := False;

  FeatureTable.DatabaseName := Path;
  CrossrefTable.DatabaseName := Path;
  ReportTable.DatabaseName := Path;
  ReportLookupTable.DatabaseName := Path;
  ReportTable1.DatabaseName := Path;
  CrossrefTable1.DatabaseName := Path;
  FeatureTable1.DatabaseName := Path;
  FeatureLookupTable.DatabaseName := Path;

  FeatureTable.Active := True;
  CrossrefTable.Active := True;
  ReportTable.Active := True;
  ReportLookupTable.Active := True;
  ReportTable1.Active := True;
  CrossrefTable1.Active := True;
  FeatureTable1.Active := True;
  FeatureLookupTable.Active := True;

  ClientHeight := NoteBook1.Top + FeatureDescript.Top
               + FeatureDescript.Height + Tabset1.Height + 15;
  ClientWidth := CancelButton.Left + CancelButton.Width + 15;
end;

procedure TformTest.RadioButton1Click(Sender: TObject);
begin
  if CheckBox5.Checked and RadioButton1.Checked then
      sctrep.CustomPreview := preview
  else sctrep.CustomPreview := nil;
end;

procedure TformTest.CheckBox5Click(Sender: TObject);
begin
  if CheckBox5.Checked then
   begin
     RadioButton1.Enabled := True;
     RadioButton2.Enabled := True;
   end
  else
   begin
     RadioButton1.Enabled := False;
     RadioButton2.Enabled := False;
     RadioButton1.Checked := False;
     RadioButton2.Checked := False;
     sctrep.CustomPreview := nil;
   end;
end;

procedure TformTest.RadioButton2Click(Sender: TObject);
begin
   if CheckBox5.Checked and RadioButton2.Checked then
     sctrep.CustomPreview := OldPreview
   else sctrep.CustomPreview := nil;
end;

procedure TformTest.AceCanvas1Click(Sender: TObject);
begin
  RunAceCanvas (Sender);
end;

procedure TformTest.DualDetailReport1Click(Sender: TObject);
begin
  RunTwoDetail(Sender);
end;

procedure TformTest.BarGraphReport1Click(Sender: TObject);
begin
  RunBarGraph(Sender);
end;

procedure TformTest.ColumnGroups1Click(Sender: TObject);
begin
  RunColumnGroup(Sender);
end;

procedure TformTest.NonDbfMasterDetail1Click(Sender: TObject);
begin
  RunNonDbf(Sender);
end;

end.