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

procedure TEditRecordForm.Button2Click(Sender: TObject);

begin

DataModule2.BookTable.Cancel;

Close;

end;

end.

3.5 код модуля FindResultUnit.

unitFindResultUnit; форма «результат поиска»

interface

uses

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

Dialogs, Grids, DBGrids;

type

TFindResultForm = class(TForm)

DBGrid1: TDBGrid;

private

{ Private declarations }

public

{ Public declarations }

end;

var

FindResultForm: TFindResultForm;

implementation

uses DataModuleUnit, EditFormunit, TownBookUnit, Unit1;

{$R *.dfm}

end.

3.6. Код модуля AboutFormUnit

unitAboutFormUnit; форма «о программе»

interface

uses

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