Приложение "Записная книжка" в среде Delphi 7 + Microsoft Access 2016

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, Mask, DBCtrls, XPMan, Menus; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; SaveDialog1: TSaveDialog; DBGrid1: TDBGrid; Button5: TButton; XPManifest1: TXPManifest; MainMenu1: TMainMenu; D1: TMenuItem; N1: TMenuItem; procedure FormActivate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure N1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; f: text; implementation uses Unit2, Unit3, Unit4, Unit5, Unit7; {$R *.dfm} procedure TForm1.FormActivate(Sender: TObject); begin Form1.DBGrid1.Columns[0].Width := 119; Form1.DBGrid1.Columns[1].Width := 105; Form1.DBGrid1.Columns[2].Width := 56; Form1.DBGrid1.Columns[3].Width := 119; Form1.DBGrid1.Columns[4].Width := 99; Form1.DBGrid1.Columns[5].Width := 109; DataModule2.ADOQuery1.Active := False; DataModule2.ADOQuery1.Active := True; end; procedure TForm1.Button1Click(Sender: TObject); begin Form3.Close; Form3.Show; end; procedure TForm1.Button2Click(Sender: TObject); begin Form4.Close; Form4.Show; end; procedure TForm1.Button3Click(Sender: TObject); begin Form5.Close; Form5.Show; end; procedure TForm1.Button4Click(Sender: TObject); var i:integer; Str:string; begin AssignFile(f, 'Записная книжка.txt'); Rewrite(f); DataModule2.ADOQuery1.First; while not DataModule2.ADOQuery1.eof do begin Str:=''; for i:=0 to DataModule2.ADOQuery1.FieldCount-1 do Str:=Str+' | '+ DataModule2.ADOQuery1.Fields[i].AsString; WriteLn(f,Str); DataModule2.ADOQuery1.Next; end; CloseFile(f); ShowMessage ('Сохранено в файл Записная книжка.txt'); end; procedure TForm1.Button5Click(Sender: TObject); begin Form7.Show; end; procedure TForm1.N1Click(Sender: TObject); begin Form1.Close; end; end.