Курсовая работа: База данных предприятия

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, StdCtrls;

type

TTownBookForm = class(TForm)

DBGrid1: TDBGrid;

OK: TButton;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure OKClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

TownBookForm: TTownBookForm;

implementation

uses DataModuleUnit;

{$R *.dfm}

procedure TTownBookForm.Button1Click(Sender: TObject);

begin

DataModule2.TownTable.Insert;

DBGrid1.SetFocus;

end;

procedure TTownBookForm.Button2Click(Sender: TObject);