Приложение "Телефонный справочник" в среде Delphi 7 + Microsoft Access 2016

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls; type TForm1 = class(TForm) DBGrid1: TDBGrid; RadioGroup1: TRadioGroup; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure DBGrid1CellClick(Column: TColumn); private { Private declarations } public { Public declarations } end; var Form1: TForm1; t: integer; id: string; implementation uses Unit2, Unit3, Unit4, Unit5, Unit6; {$R *.dfm} procedure TForm1.Button3Click(Sender: TObject); begin Form3.Show; end; procedure TForm1.Button4Click(Sender: TObject); begin Form4.Show; end; procedure TForm1.Button6Click(Sender: TObject); begin Form1.Close; end; procedure TForm1.Button1Click(Sender: TObject); begin Form6.Edit1.Text := ''; case RadioGroup1.ItemIndex of 0: begin t := 1; Form6.Close; Form6.Show; Form6.Label1.Caption := '¬ведите фамилию:'; end; 1: begin t := 2; Form6.Close; Form6.Show; Form6.Label1.Caption := '¬ведите им¤:'; end; 2: begin t := 3; Form6.Close; Form6.Show; Form6.Label1.Caption := '¬ведите номер телефона:'; end; end; end; procedure TForm1.Button2Click(Sender: TObject); begin DataModule2.ADOQuery1.Close; DataModule2.ADOQuery1.SQL.Clear; DataModule2.ADOQuery1.SQL.Text:='SELECT * FROM Tel'; DataModule2.ADOQuery1.Active:=True; DataModule2.ADOQuery1.ExecSQL; Form6.Close; DataModule2.ADOQuery1.Active:=False; DataModule2.ADOQuery1.Active:=True; end; procedure TForm1.Button5Click(Sender: TObject); begin Form5.Show; end; procedure TForm1.DBGrid1CellClick(Column: TColumn); var i: integer; begin i:= DBGrid1.SelectedIndex; //определ¤ем номер выделенной колонки id := DBGrid1.DataSource.DataSet.Fields.Fields[i].Value; //выводим, например, на метку значение ¤чейки end; end.