home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 February / Chip_2004-02_cd1.bin / program / delphi / navody / d56 / ec1vr2.exe / #setuppath# / Delphi / MultiLevelHeader / Main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2003-12-09  |  3.3 KB  |  126 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   vivrep20, Menus, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, Db,
  8.   DBTables, ImgList, ActnList, ComCtrls, ToolWin, ExtDlgs, jpeg;
  9.  
  10. type
  11.   TMainForm = class(TForm)
  12.     MainMenu: TMainMenu;
  13.     FilePrintItem: TMenuItem;
  14.     FilePrintSetupItem: TMenuItem;
  15.     FileExitItem: TMenuItem;
  16.     HelpAboutItem: TMenuItem;
  17.     Preview: TMenuItem;
  18.     ImageList: TImageList;
  19.     ActionList: TActionList;
  20.     ExitAction: TAction;
  21.     PrintSetupAction: TAction;
  22.     PrintAction: TAction;
  23.     PrintPreviewAction: TAction;
  24.     AboutAction: TAction;
  25.     ToolBar1: TToolBar;
  26.     ToolButton1: TToolButton;
  27.     ToolButton2: TToolButton;
  28.     ToolButton3: TToolButton;
  29.     ToolButton4: TToolButton;
  30.     ToolButton5: TToolButton;
  31.     ToolButton6: TToolButton;
  32.     ToolButton7: TToolButton;
  33.     TargetsPanel: TPanel;
  34.     Label1: TLabel;
  35.     TargetsGrid: TDBGrid;
  36.     DebtsTable: TTable;
  37.     TargetsSource: TDataSource;
  38.     DebtsTableCompany: TStringField;
  39.     DebtsTableFirstQuarter: TCurrencyField;
  40.     DebtsTableSecondQuarter: TCurrencyField;
  41.     DebtsTableThirdQuarter: TCurrencyField;
  42.     DebtsTableFourthQuarter: TCurrencyField;
  43.     DebtsTableYear: TCurrencyField;
  44.     TotalQuery: TQuery;
  45.     TotalSource: TDataSource;
  46.     TotalQueryFirst: TCurrencyField;
  47.     TotalQuerySecond: TCurrencyField;
  48.     TotalQueryThird: TCurrencyField;
  49.     TotalQueryFourth: TCurrencyField;
  50.     TotalQueryYear: TCurrencyField;
  51.  
  52.     procedure ExitActionExecute(Sender: TObject);
  53.     procedure AboutActionExecute(Sender: TObject);
  54.     procedure PrintSetupActionExecute(Sender: TObject);
  55.     procedure PrintActionExecute(Sender: TObject);  
  56.     procedure PrintPreviewActionExecute(Sender: TObject);
  57.     procedure DebtsTableCalcFields(DataSet: TDataSet);
  58.     procedure TotalQueryCalcFields(DataSet: TDataSet);
  59.  
  60.   private
  61.     { Private declarations }
  62.   public
  63.     { Public declarations }
  64.     constructor Create (AOwner: TComponent); override;
  65.   end;
  66.  
  67. var
  68.   MainForm: TMainForm;
  69.  
  70. implementation
  71.  
  72. uses Rep, About;
  73.  
  74. {$R *.DFM}
  75.  
  76. constructor TMainForm.Create (AOwner: TComponent);
  77. begin
  78.   inherited Create (AOwner);
  79.   DebtsTable.Active := true;
  80.   TotalQuery.Active := true;
  81. end;
  82.  
  83. procedure TMainForm.ExitActionExecute(Sender: TObject);
  84. begin
  85.   Close;
  86. end;
  87.  
  88. procedure TMainForm.AboutActionExecute(Sender: TObject);
  89. begin
  90.   AboutBox.ShowModal;
  91. end;
  92.  
  93. procedure TMainForm.PrintSetupActionExecute(Sender: TObject);
  94. begin
  95.   RepForm.VividReport.PrinterSetup;
  96. end;
  97.  
  98. procedure TMainForm.PrintActionExecute(Sender: TObject);  
  99. begin
  100.   if RepForm.VividReport.PrintSetup then RepForm.VividReport.Print;
  101. end;
  102.  
  103. procedure TMainForm.PrintPreviewActionExecute(Sender: TObject);
  104. begin
  105.   RepForm.VividReport.PrintPreview (RepForm.VRPreview);
  106. end;
  107.  
  108. procedure TMainForm.DebtsTableCalcFields(DataSet: TDataSet);
  109. begin
  110.  DebtsTableYear.AsCurrency := DebtsTableFirstQuarter.AsCurrency +
  111.                   DebtsTableSecondQuarter.AsCurrency +
  112.                   DebtsTableThirdQuarter.AsCurrency +
  113.                   DebtsTableFourthQuarter.AsCurrency +
  114.                   DebtsTableYear.AsCurrency;
  115. end;
  116.  
  117. procedure TMainForm.TotalQueryCalcFields(DataSet: TDataSet);
  118. begin
  119.   TotalQueryYear.AsCurrency := TotalQueryFirst.AsCurrency +
  120.                   TotalQuerySecond.AsCurrency +
  121.                   TotalQueryThird.AsCurrency +
  122.                   TotalQueryFourth.AsCurrency;
  123. end;
  124.  
  125. end.
  126.