home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Programming Unleashed
/
Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso
/
chap20
/
inserts
/
main.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-03-20
|
1KB
|
57 lines
unit Main;
{ Program copyright (c) 1994 by Charles Calvert }
{ Project Name: INSERTS }
interface
uses
WinTypes, WinProcs, Classes,
Graphics, Forms, Controls,
DB, DBGrids, StdCtrls, DBTables, Grids;
type
TForm1 = class(TForm)
Table1: TTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Insert: TButton;
Delete: TButton;
procedure InsertClick(Sender: TObject);
procedure DeleteClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses
Dialogs;
{$R *.DFM}
procedure TForm1.InsertClick(Sender: TObject);
begin
Table1.Insert;
Table1.FieldByName('Name').AsString := 'Erehwon';
Table1.FieldByName('Capital').AsString := 'None';
Table1.FieldByName('Continent').AsString := 'Imagination';
Table1.FieldByName('Area').AsString := '0';
Table1.FieldByName('Population').AsString := '1';
Table1.Post;
end;
procedure TForm1.DeleteClick(Sender: TObject);
begin
if MessageDlg('Are you sure you want to delete?',
mtConfirmation, [mbYes, mbNo], 0) = idYes then
Table1.Delete;
end;
begin
end.