Реферат: Учет общественной активности студентов академической группы

procedure N24Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure N25Click(Sender: TObject);

procedure N26Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Forml: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

begin

if DataModule2.ADOTablel .Modified then DataModule2.ADOTablel .Post;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

DataModule2.ADOTable1.Insert;

Form3.ShowModal;

end;

procedure TForml.N6Click(Sender: TObject);

begin