home *** CD-ROM | disk | FTP | other *** search
- unit Main;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- vivrep20, Menus, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls;
-
- type
- TMainForm = class(TForm)
- MainMenu: TMainMenu;
- PrintItem: TMenuItem;
- PrintSetupItem: TMenuItem;
- ExitItem: TMenuItem;
- AboutItem: TMenuItem;
- SpeedBar: TPanel;
- SpeedButton1: TSpeedButton; // &Print...
- SpeedButton2: TSpeedButton; // P&rint Setup...
- SpeedButton3: TSpeedButton; // E&xit
- SpeedButton4: TSpeedButton; // &About...
- PrintPreviewItem: TMenuItem;
- SpeedButton5: TSpeedButton;
- CurPrintItem: TMenuItem;
- AllPrintItem: TMenuItem;
- PrevCurrentItem: TMenuItem;
- PrevAllItem: TMenuItem;
- CustPanel: TPanel;
- CustLabel: TLabel;
- CustGrid: TDBGrid;
- Splitter1: TSplitter;
- OrderPanel: TPanel;
- OrderLabel: TLabel;
- OrderGrid: TDBGrid;
- ListPrintItem: TMenuItem;
- PrevListItem: TMenuItem;
- VRPreview: TVRPreview;
- VRPrintProgress: TVRPrintProgress;
-
- procedure PrintSetup(Sender: TObject);
- procedure Exit(Sender: TObject);
- procedure About(Sender: TObject);
- procedure AllPrint(Sender: TObject);
- procedure CurPrint(Sender: TObject);
- procedure PrevCurrent(Sender: TObject);
- procedure PrevAll(Sender: TObject);
- procedure ListPrint(Sender: TObject);
- procedure PrevList(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- MainForm: TMainForm;
-
- implementation
-
- uses Rep, About, Dm;
-
- {$R *.DFM}
-
- procedure TMainForm.PrintSetup(Sender: TObject);
- begin
- RepForm.VividReport.PrinterSetup;
- end;
-
- procedure TMainForm.Exit(Sender: TObject);
- begin
- Close;
- end;
-
- procedure TMainForm.About(Sender: TObject);
- begin
- AboutBox.ShowModal;
- end;
-
- procedure TMainForm.AllPrint(Sender: TObject);
- begin
- if RepForm.VividReport.PrintSetup then RepForm.VividReport.Print;
- end;
-
- procedure TMainForm.CurPrint(Sender: TObject);
- begin
- RepForm.ChildReport.DataSource := Nil;
- try
- DModule.RepCustTable.GotoCurrent (DModule.ViewCustTable);
- if RepForm.ChildReport.PrintSetup then RepForm.ChildReport.Print;
- finally
- RepForm.ChildReport.DataSource := DModule.RepCustDSource;
- end;
- end;
-
- procedure TMainForm.PrevCurrent(Sender: TObject);
- begin
- RepForm.ChildReport.DataSource := Nil;
- try
- DModule.RepCustTable.GotoCurrent (DModule.ViewCustTable);
- RepForm.ChildReport.PrintPreview (VRPreview);
- finally
- RepForm.ChildReport.DataSource := DModule.RepCustDSource;
- end;
- end;
-
- procedure TMainForm.PrevAll(Sender: TObject);
- begin
- RepForm.VividReport.PrintPreview (VRPreview);
- end;
-
- procedure TMainForm.ListPrint(Sender: TObject);
- begin
- RepForm.Page3.Printed := false;
- try
- if RepForm.VividReport.PrintSetup then RepForm.VividReport.Print;
- finally
- RepForm.Page3.Printed := true;
- end;
- end;
-
- procedure TMainForm.PrevList(Sender: TObject);
- begin
- RepForm.Page3.Printed := false;
- try
- RepForm.VividReport.PrintPreview (VRPreview);
- finally
- RepForm.Page3.Printed := true;
- end;
- end;
-
- end.
-