home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 January / Pcwk0198.iso / Zadarmo / CYBERCON / _SETUP.1 / DefAct.pas < prev    next >
Pascal/Delphi Source File  |  1997-07-05  |  1KB  |  57 lines
  1. unit DefAct;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls, Dialogs,
  7.   StdCtrls, Forms, DBCtrls, DB, DBGrids, Buttons, DBTables, Grids, ExtCtrls,
  8.   Wwdbigrd, Wwdbgrid;
  9.  
  10. type
  11.   TfrmDefActivity = class(TForm)
  12.     Panel1: TPanel;
  13.     Panel2: TPanel;
  14.     Panel3: TPanel;
  15.     BitBtn1: TBitBtn;
  16.     BitBtn2: TBitBtn;
  17.     Button1: TButton;
  18.     Button2: TButton;
  19.     grdMain: TwwDBGrid;
  20.     procedure Button1Click(Sender: TObject);
  21.     procedure Button2Click(Sender: TObject);
  22.     procedure BitBtn1Click(Sender: TObject);
  23.   private
  24.     { private declarations }
  25.   public
  26.     { public declarations }
  27.   end;
  28.  
  29. var
  30.   frmDefActivity: TfrmDefActivity;
  31.  
  32. implementation
  33. uses DataMod;
  34. {$R *.DFM}
  35.  
  36. procedure TfrmDefActivity.Button1Click(Sender: TObject);
  37. begin
  38.   frmDataModule.TBLActDesc.Insert;
  39.   grdMain.SetFocus;
  40. end;
  41.  
  42. procedure TfrmDefActivity.Button2Click(Sender: TObject);
  43. begin
  44.    if MessageDlg('Do You Want to Delete the Record ?', mtConfirmation, [mbYes,mbNo], 0)
  45.      = mrYes then
  46.       frmDataModule.TBLActDesc.Delete;
  47. end;
  48.  
  49. procedure TfrmDefActivity.BitBtn1Click(Sender: TObject);
  50. begin
  51.   if (frmDataModule.TBLActDesc.State = dsEdit) or
  52.     (frmDataModule.TBLActDesc.State = dsInsert) then
  53.        frmDataModule.TBLActDesc.Post;
  54.   ModalResult := mrOk;
  55. end;
  56.  
  57. end.