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

procedure TForm4.Button2Click(Sender: TObject);

var CD: OleVariant;

FN: OleVariant;

FT: OleVariant;

begin

if SaveDialog.Execute then

begin

CD:=wdCollapseEnd;

FN:=SaveDialog.FileName;

FT:=wdFormatDocument;

WordApplication1.Selection.ParagraphFormat.Alignment:=wdAlignParagraphCenter; WordApplication1.Selection.InsertBefore(labeledEdit1.text+' '+ #30);

WordApplication1.Selection.Collapse(CD); WordApplication1.Selection.InsertBefore(LabeledEdit2.Text+#13);

WordApplication1.Selection.Collapse(CD); WordApplication1.ActiveDocument.SaveAs(FN,FT,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);

WordApplication1.Visible:=TRUE

end

end;

procedure TForm4.WordApplicationQuit(Sender: TObject);

begin

Close

end; end.

5. Результат машинного эксперимента и их анализ

После того как программа полностью составлена, производим ее отладку и запуск (рис.25).

Рис.25 Вход в систему

Администратор при каждом входе в систему должен вводить логин, который используется для идентификации, и пароль (рис.26).

Рис.26 Ввод данных для идентификации

После нажатия на кнопку Вход программа проанализирует введенные данные, а затем предоставит информацию об Ассортименте (рис.27).