Курсовая работа: Информационная система для автоматизации операций в отношениях между поставщиком и заказчиком

Рис.24 Вид четвертой формы.

На форму добавляем следующие компоненты:

ü LabeledEdit1-2 - комбинация однострочного редактора и метки. Впервые введен в версии 6.

ü WordApplication1 - запуск и соединение с сервером.

ü WordParagraphFormat1 - Для создания документа Microsoft Word из Delphi.

ü SaveDialog - диалог «Сохранить файл как...».

В Unit4 заносим программный код:

procedure TForm4.Button1Click(Sender: TObject);

begin

Form1.Close;

Form2.Close;

Form3.Close;

Form4.Close;

end;

procedure TForm4.FormCreate(Sender: TObject);

var TS: OleVariant;

NT: OleVariant;

begin

WordApplication1.Connect;

TS:='Normal';

NT:=FALSE;

WordApplication1.Documents.AddOld(TS,NT);

WordApplication1.ActiveDocument.PageSetup.LeftMargin:=15.0;

WordApplication1.ActiveDocument.PageSetup.TopMargin:=10.0;

WordApplication1.ActiveDocument.PageSetup.RightMargin:=10.0;

WordApplication1.ActiveDocument.PageSetup.BottomMargin:=10.0; // end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);

begin

WordApplication1.Disconnect