СУБД "Библиотека" - Дипломная работа

СУБД «Библиотека» - база данных версии InterBase6.5, построенная с помощью программ ERWin, IBConsole, IBExpert, выполнена в среде Delphi7. Главная форма unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Unit3, Unit2, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10, Unit11, Unit12, Unit13, Unit14, Unit15, Unit16, Unit17, Unit18, Unit19, Menus, IBDatabase, DB, jpeg, ExtCtrls; type TForm1 = 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; N14: TMenuItem; IBDatabase1: TIBDatabase; IBTransaction1: TIBTransaction; Image1: TImage; N13: TMenuItem; N15: TMenuItem; N16: TMenuItem; N17: TMenuItem; N18: TMenuItem; N19: TMenuItem; N20: TMenuItem; N21: TMenuItem; procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure N4Click(Sender: TObject); procedure N5Click(Sender: TObject); procedure N6Click(Sender: TObject); procedure N7Click(Sender: TObject); procedure N9Click(Sender: TObject); procedure N10Click(Sender: TObject); procedure N11Click(Sender: TObject); procedure N12Click(Sender: TObject); procedure N13Click(Sender: TObject); procedure N14Click(Sender: TObject); procedure N15Click(Sender: TObject); procedure N16Click(Sender: TObject); procedure N17Click(Sender: TObject); procedure N19Click(Sender: TObject); procedure N18Click(Sender: TObject); procedure N20Click(Sender: TObject); procedure N21Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.N2Click(Sender: TObject); begin Application.CreateForm(Tform2, Form2); Form2.Show; end; procedure TForm1.N3Click(Sender: TObject); begin Application.CreateForm(Tform3, Form3); Form3.Show; end; procedure TForm1.N4Click(Sender: TObject); begin Application.CreateForm(Tform4, Form4); Form4.Show; end; procedure TForm1.N5Click(Sender: TObject); begin Application.CreateForm(Tform5, Form5); Form5.Show; end; procedure TForm1.N6Click(Sender: TObject); begin Application.CreateForm(Tform6, Form6); Form6.Show; end; procedure TForm1.N7Click(Sender: TObject); begin Application.CreateForm(Tform7, Form7); Form7.Show; end; procedure TForm1.N9Click(Sender: TObject); begin Application.CreateForm(Tform8, Form8); Form8.Show; end; procedure TForm1.N10Click(Sender: TObject); begin Application.CreateForm(Tform9, Form9); Form9.Show; end; procedure TForm1.N11Click(Sender: TObject); begin Application.CreateForm(Tform10, Form10); Form10.Show; end; procedure TForm1.N12Click(Sender: TObject); begin Application.CreateForm(Tform11, Form11); Form11.Show; end; procedure TForm1.N13Click(Sender: TObject); begin Application.CreateForm(Tform12, Form12); Form12.Show; end; procedure TForm1.N14Click(Sender: TObject); begin close; end; procedure TForm1.N15Click(Sender: TObject); begin Application.CreateForm(Tform14, Form14); Form14.Show; end; procedure TForm1.N16Click(Sender: TObject); begin Application.CreateForm(Tform13, Form13); Form13.Show; end; procedure TForm1.N17Click(Sender: TObject); begin Application.CreateForm(Tform15, Form15); Form15.Show; end; procedure TForm1.N19Click(Sender: TObject); begin Application.CreateForm(Tform16, Form16); Form16.Show; end; procedure TForm1.N18Click(Sender: TObject); begin Application.CreateForm(Tform17, Form17); Form17.Show; end; procedure TForm1.N20Click(Sender: TObject); begin Application.CreateForm(Tform18, Form18); Form18.Show; end; procedure TForm1.N21Click(Sender: TObject); begin Application.CreateForm(Tform19, Form19); Form19.Show; end; end. 2.