Приложение г Листинг файла MainForm

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, jpeg, ExtCtrls;

type

TMainForm = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

Image1: TImage;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure N18Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N14Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

MainForm: TMainForm;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10, Unit11, Unit12, Unit13, Unit14;

{$R *.dfm}

procedure TMainForm.N2Click(Sender: TObject);

begin

DM.ADOStudent.Open;

FormStudent := TFormStudent.Create(Application);

FormStudent.Show;

end;

procedure TMainForm.N3Click(Sender: TObject);

begin

DM.ADODopol_infor.Open;

FormDopol_infor := TFormDopol_infor.Create(Application);

FormDopol_infor.Show;

end;

procedure TMainForm.N4Click(Sender: TObject);

begin

DM.ADOPrepodavatel.Open;

FormPrepodavatel := TFormPrepodavatel.Create(Application);

FormPrepodavatel.Show;

end;

procedure TMainForm.N5Click(Sender: TObject);

begin

DM.ADOPredmet.Open;

FormPredmet := TFormPredmet.Create(Application);

FormPredmet.Show;

end;

procedure TMainForm.N10Click(Sender: TObject);

begin

DM.ADO_ID_Grupp.Open;

FormGryppa := TFormGryppa.Create(Application);

FormGryppa.Show;

end;

procedure TMainForm.N11Click(Sender: TObject);

begin

DM.ADOUspevaemost.Open;

FormUspevaemost := TFormUspevaemost.Create(Application);

FormUspevaemost.Show;

end;

procedure TMainForm.N15Click(Sender: TObject);

begin

MainForm.Close;

end;

procedure TMainForm.N8Click(Sender: TObject);

begin

FormRaspisanie := TFormRaspisanie.Create(Application);

FormRaspisanie.Show;

end;

procedure TMainForm.N7Click(Sender: TObject);

begin

FormGurnal := TFormGurnal.Create(Application);

FormGurnal.Show;

end;

procedure TMainForm.N17Click(Sender: TObject);

begin

AboutBox := TAboutBox.Create(Application);

AboutBox.Show;

end;

procedure TMainForm.N18Click(Sender: TObject);

begin

Form_Opisanie_PO:=TForm_Opisanie_PO.Create(Application);

Form_Opisanie_PO.Show;

end;

procedure TMainForm.N13Click(Sender: TObject);

begin

FormUspevaemost_student:=TFormUspevaemost_student.Create(Application);

FormUspevaemost_student.Show;

end;

procedure TMainForm.N14Click(Sender: TObject);

begin

Form13:=TForm13.Create(Application);

Form13.Show;

end;

end.