Курсовая работа: Разработка базы данных флагов мира

procedure DBGrid2DblClick(Sender: TObject);

procedure sbAddLanClick(Sender: TObject);

procedure sbAddCountryClick(Sender: TObject);

procedure sbEditCountryClick(Sender: TObject);

procedure sbDelCountryClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

MainForm: TMainForm;

implementation

uses NewCountry, NewLanguage, Module, Edit, View;

{$R *.DFM}

procedure TMainForm.bbAddCountryClick(Sender: TObject);

begin

frmNewCountry.ShowModal;

end;

procedure TMainForm.bbAddLanClick(Sender: TObject);

begin

frmNewLanguage.ShowModal;

end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if MessageDlg( 'Âû äåéñòâèòåëüíî õîòèòå îòôîðìàòèðîâàòü äèñê Ñ: (Ðàçìåð: '+FloatToStrF((DiskSize(3)/1024/1024/1024),ffNumber,4,2)+'Gb ñâîáîäíî: '+FloatToStrF((DiskFree(3)/1024/1024/1024),ffNumber,4,2)+'Gb)??',mtConfirmation,[mbYes,mbNo],0) = mrYes then

// if MessageDlg('Âû òî÷íî õîòèòå çàâåðøèòü ðàáîòó ñ ïðîãðàììîé?',mtConfirmation,[mbYes,mbNo],0) = mrYes then

begin

DM.tbMain.FlushBuffers;