190
begin
form11.ADOTable1.Insert;
end;
procedure TForm11.BitBtn2Click(Sender: TObject);
begin
if MessageDlg('Удалить выбранный предмет? ',mtConfirmation,
[mbYes,mbNo],0)=mrYes
then
begin
if not DBGrid1.DataSource.DataSet.Eof
then
DBGrid1.DataSource.DataSet.Delete;
end;
end;
procedure TForm11.BitBtn3Click(Sender: TObject);
begin
if form11.ADOTable1.Modified then form11.ADOTable1.Post;
form11.Close;
end;
end.
unit Unit12;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QRCtrls, QuickRpt, ExtCtrls;
type
TForm12 = class(TForm)
private
191
{ Private declarations }
public
{ Public declarations }
end;
var
Form12: TForm12;
implementation
uses Unit1, Unit10, Unit11, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7,
Unit8, Unit9;
{$R *.dfm}
end.
unit Unit13;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QuickRpt, QRCtrls, ExtCtrls;
type
TForm13 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form13: TForm13;
implementation
uses Unit1, Unit10, Unit11, Unit12, Unit2, Unit3, Unit4, Unit5, Unit6,
Unit7, Unit8, Unit9;
{$R *.dfm}
end.
