home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap21 / insert2 / main.pas < prev    next >
Pascal/Delphi Source File  |  1995-03-20  |  1KB  |  65 lines
  1. unit Main;
  2.  
  3. { Program copyright (c) 1994 by Charles Calvert }
  4. { Project Name: INSERT2 }
  5.  
  6. { After you do an insert, the call to Refresh won't
  7.   work unless you set RequestLive to True }
  8.  
  9. interface
  10.  
  11. uses 
  12.   WinTypes, WinProcs, Classes, 
  13.   Graphics, Forms, Controls, 
  14.   DB, DBGrids, DBTables,
  15.   StdCtrls, Grids;
  16.  
  17. type
  18.   TForm1 = class(TForm)
  19.     Query1: TQuery;
  20.     DataSource1: TDataSource;
  21.     DBGrid1: TDBGrid;
  22.     Insert: TButton;
  23.     Query2: TQuery;
  24.     Delete: TButton;
  25.     Query3: TQuery;
  26.     procedure InsertClick(Sender: TObject);
  27.     procedure DeleteClick(Sender: TObject);
  28.   private
  29.     { Private declarations }
  30.   public
  31.     { Public declarations }
  32.   end;
  33.  
  34. var
  35.   Form1: TForm1;
  36.  
  37. implementation
  38. uses
  39.   Dialogs;
  40.  
  41. {$R *.DFM}
  42.  
  43. procedure TForm1.InsertClick(Sender: TObject);
  44. begin
  45.   Query2.Prepare;
  46.   Query2.Params[0].AsString := 'Erehwon';
  47.   Query2.Params[1].AsString := 'None';
  48.   Query2.Params[2].AsString := 'Imagination';
  49.   Query2.Params[3].AsFloat := 0.0;
  50.   Query2.Params[4].AsFloat := 1.0;
  51.   Query2.ExecSQL;
  52.   Query1.Refresh;
  53. end;
  54.  
  55. procedure TForm1.DeleteClick(Sender: TObject);
  56. begin
  57.   if MessageDlg('Delete?', mtConfirmation, [mbYes,mbNo], 0) <> idYes then Exit;
  58.   Query3.Prepare;
  59.   Query3.Params[0].AsString := Query1.Fields[0].AsString;
  60.   Query3.ExecSQL;
  61.   Query1.Refresh;
  62. end;
  63.  
  64. end.
  65.