home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / Runimage / Delphi50 / Demos / Db / Ctrlgrid / ctrlform.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-11  |  1.8 KB  |  89 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. begin
  80.   with TFMAboutBox.Create(nil) do
  81.   try
  82.     ShowModal;
  83.   finally
  84.     Free;
  85.   end;
  86. end;
  87.  
  88. end.
  89.