home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1999 February / DPPCPRO0299.ISO / February / Delphi / Install / DATA.Z / CTRLFORM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-06-11  |  1.8 KB  |  88 lines
  1. unit CtrlForm;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   DBCtrls, StdCtrls, ExtCtrls, Mask, DBTables, DB, Grids, DBGrids, Menus,
  8.   DBCGrids;
  9.  
  10. type
  11.   TFmCtrlGrid = class(TForm)
  12.     DBCtrlGrid1: TDBCtrlGrid;
  13.     DBGrid1: TDBGrid;
  14.     DBEdit1: TDBEdit;
  15.     DBEdit2: TDBEdit;
  16.     DBEdit3: TDBEdit;
  17.     DBEdit4: TDBEdit;
  18.     Label1: TLabel;
  19.     Label2: TLabel;
  20.     Label3: TLabel;
  21.     Label4: TLabel;
  22.     Label5: TLabel;
  23.     Label6: TLabel;
  24.     Label7: TLabel;
  25.     Button1: TButton;
  26.     Bevel1: TBevel;
  27.     Label8: TLabel;
  28.     Label9: TLabel;
  29.     Label10: TLabel;
  30.     Label11: TLabel;
  31.     lPurchase: TLabel;
  32.     lTotalCost: TLabel;
  33.     lTotalShares: TLabel;
  34.     lDifference: TLabel;
  35.     DBNavigator1: TDBNavigator;
  36.     MainMenu1: TMainMenu;
  37.     About1: TMenuItem;
  38.     procedure Button1Click(Sender: TObject);
  39.     procedure FormShow(Sender: TObject);
  40.     procedure DBGrid1Enter(Sender: TObject);
  41.     procedure DBCtrlGrid1Enter(Sender: TObject);
  42.     procedure About1Click(Sender: TObject);
  43.   private
  44.     { Private declarations }
  45.   public
  46.     { Public declarations }
  47.   end;
  48.  
  49. var
  50.   FmCtrlGrid: TFmCtrlGrid;
  51.  
  52. implementation
  53.  
  54. uses DM, About;
  55.  
  56. {$R *.DFM}
  57.  
  58. procedure TFmCtrlGrid.Button1Click(Sender: TObject);
  59. begin
  60.   Close;
  61. end;
  62.  
  63. procedure TFmCtrlGrid.FormShow(Sender: TObject);
  64. begin
  65.   DM1.CalculateTotals( Sender, NIL );
  66. end;
  67.  
  68. procedure TFmCtrlGrid.DBGrid1Enter(Sender: TObject);
  69. begin
  70.   dbNavigator1.DataSource := DM1.dsMaster;
  71. end;
  72.  
  73. procedure TFmCtrlGrid.DBCtrlGrid1Enter(Sender: TObject);
  74. begin
  75.   dbNavigator1.DataSource := DM1.dsHoldings;
  76. end;
  77.  
  78. procedure TFmCtrlGrid.About1Click(Sender: TObject);
  79. var
  80.   fmAboutBox : TFmAboutBox;
  81. begin
  82.   fmAboutBox := TFmAboutBox.create(nil);
  83.   fmAboutBox.showModal;
  84.   fmAboutBox.free;
  85. end;
  86.  
  87. end.
  88.