Курсовая работа: База данных предприятия

Sheet.Cells[2,3]:='Город';

Sheet.Cells[2,4]:='Адрес';

Sheet.Cells[2,5]:='Телефоны';

Sheet.Cells[2,6]:='Специализация';

Sheet.Cells[2,7]:='Перечень оказаваемых услуг';

Sheet.Cells[2,8]:='Форма собственности';

Sheet.Cells[2,9]:='Часы и дни работы';

index:=3;

DataModule2.BookTable.First;

for i:=0 to DataModule2.BookTable.RecordCount-1 do

begin

Sheet.Cells[index,1]:=DataModule2.BookTable.Fields.Fields[1].AsString;

Sheet.Cells[index,2]:=DataModule2.BookTable.Fields.Fields[2].AsString;

Sheet.Cells[index,3]:=DataModule2.BookTable.Fields.Fields[3].AsString;

Sheet.Cells[index,4]:=DataModule2.BookTable.Fields.Fields[4].AsString;

Sheet.Cells[index,5]:=DataModule2.BookTable.Fields.Fields[5].AsString;

Sheet.Cells[index,6]:=DataModule2.BookTable.Fields.Fields[6].AsString;

Sheet.Cells[index,7]:=DataModule2.BookTable.Fields.Fields[7].AsString;

Sheet.Cells[index,8]:=DataModule2.BookTable.Fields.Fields[8].AsString;

Sheet.Cells[index,9]:=DataModule2.BookTable.Fields.Fields[9].AsString;

Inc(index);

DataModule2.BookTable.Next;

end;

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

DataModule2.BookTable.Insert;

EditRecordForm.ShowModal;

end;