home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue53 / DataMod / BusinessLogic / BusinessLogicU3.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-11-27  |  1.7 KB  |  80 lines
  1. unit BusinessLogicU3;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   DBCtrls, ExtCtrls, StdCtrls, Mask, ComCtrls, BusinessLogicDM, DB;
  8.  
  9. type
  10.   TForm3 = class(TForm)
  11.     Panel1: TPanel;
  12.     DBNavigator1: TDBNavigator;
  13.     StatusBar1: TStatusBar;
  14.     Label1: TLabel;
  15.     DBEdit1: TDBEdit;
  16.     Label2: TLabel;
  17.     DBEdit2: TDBEdit;
  18.     Label3: TLabel;
  19.     DBEdit3: TDBEdit;
  20.     Label4: TLabel;
  21.     DBEdit4: TDBEdit;
  22.     Label5: TLabel;
  23.     DBEdit5: TDBEdit;
  24.     Label6: TLabel;
  25.     DBEdit6: TDBEdit;
  26.     Label7: TLabel;
  27.     DBEdit7: TDBEdit;
  28.     Label8: TLabel;
  29.     DBEdit8: TDBEdit;
  30.     procedure FormCreate(Sender: TObject);
  31.     procedure FormShow(Sender: TObject);
  32.   private
  33.     { Private declarations }
  34.   public
  35.     { Public declarations }
  36.     DataModule: TDataModule1;
  37.     procedure BeforeEdit(DataSet: TDataSet);
  38.     procedure BeforeInsert(DataSet: TDataSet);
  39.     procedure AfterPost(DataSet: TDataSet);
  40.   end;
  41.  
  42. var
  43.   Form3: TForm3;
  44.  
  45. implementation
  46.  
  47. {$R *.DFM}
  48.  
  49. { TForm3 }
  50.  
  51. procedure TForm3.AfterPost(DataSet: TDataSet);
  52. begin
  53.   StatusBar1.SimpleText:='Saved';
  54. end;
  55.  
  56. procedure TForm3.BeforeEdit(DataSet: TDataSet);
  57. begin
  58.   StatusBar1.SimpleText:='Editing';
  59. end;
  60.  
  61. procedure TForm3.BeforeInsert(DataSet: TDataSet);
  62. begin
  63.   StatusBar1.SimpleText:='New record';
  64. end;
  65.  
  66. procedure TForm3.FormCreate(Sender: TObject);
  67. begin
  68.   DataModule:=TDataModule1.Create(self);
  69.   DataModule.Table1.BeforeInsert:=BeforeInsert;
  70.   DataModule.Table1.BeforeEdit  :=BeforeEdit;
  71.   DataModule.Table1.AfterPost   :=AfterPost;
  72. end;
  73.  
  74. procedure TForm3.FormShow(Sender: TObject);
  75. begin
  76.   DataModule.Name:='';
  77. end;
  78.  
  79. end.
  80.