Размещено на http://www.allbest.ru/

Министерство образования оренбургской области

Государственное бюджетное образовательное учреждение

Среднего профессионального образования

Оренбургский колледж статистики, экономики и информатики

ОТЧЁТ

По учебной практике «Технология разработки ПО»

Место прохождения практики - ОКЭИ

Интеграция информационных программных модулей для страховой компании

Разработал Рощенко С.А. 4пк1

Руководитель Баловнева К.А.

Оренбург 2014



Содержание

1. Руководство системного программиста

2. Руководство оператора

3. Программа и методика испытаний

4. Список использованных источников

Приложения



1. Руководство системного программиста

Данная программа: «Учет полисов в страховой компании» предназначена для ведения учета в копании, которая предоставляет услуги по перевозке груза из одного места в другое, с помощью транспорта. В базе данных хранится вся информация о системе, которая может изменяться, добавляться и удаляться. Система способна принимать данные с входных документов, для ведения учёта. Программа за определенный месяц способна формировать отчет, который можно просмотреть или отправить на печать.

Для выполнения программы «Учет полисов в страховой компании» необходимо минимум 2 Мб свободной оперативной памяти. Данное значение обеспечивает только запуск приложения. Для просмотра данных, создания отчетов требуют дополнительно 2 Мб на каждые 1000 записей в базе данных. В состав технических средств должен входить персональный компьютер. В случае работы системы в сети все компьютеры должны быть подобны. Так же необходимы кабеля для создания сети, сетевые карты на каждом компьютере и маршрутизатор.

При предоставлении возможности поступления информации через сеть Интернет, один из компьютеров в сети, не являющийся сервером, должен иметь модем. Системные программные средства, используемые программой, должны быть представлены лицензированной версией операционной системы Microsoft Windows 2000/2003/XP/Vista/7 и установленным набором компонент и среды Borland Delphi7. Дополнительными требованиями является наличие установленных и настроенных драйверов для принтера, а также наличие офисных пакетов Ms Office Word и Ms Office Excel 2003 и выше.

Система «Учет полисов в страховой компании» имеет базу данных созданную в Ms Access, в которой хранятся данные об учёте, для более эффективной работы программы было решено связать базу данных Ms Excel со средой разработки Delphi7, для более наглядного представления программы. Программа позволяет разрабатывать формы с таблицами и формами для отчетов и документов.

Для того чтобы эксплуатировать программу необходимо в папку Borland, которая находится на диске C поместить в неё базу данных для взаимодействия с самой программой. Если этого не сделать то программа будет работать не полностью, в ней не будет таблиц. После того как мы подключили базу данных к программе, нам нужны документы входные и выходные. Для этого берем документы и помещаем их в папку с программой Borland на диске C.

Для использования ПО нужно проверить программу на ошибки, если они есть то программа не будет запускаться или будет выдавать сообщение об ошибке, которая не даст программе работать корректно. В данной программе использовалась технология ODBC , которая позволяет соединить базу данных, созданную в Ms Access со средой разработки Delphi 7. Данная технология заключается в простоте разработки приложений, обусловленной высоким уровнем абстрактности интерфейса доступа к данным практически любых существующих типов СУБД. При этом возможно создание источника данных, связанного с любым типом базы данных. Для создания документов была использована технология, используемая через модуль ComObj.

Проверка данной программы осуществляется с помощью встроенного программного языка в Delphi 7, которая при запуске или выполнении определенной функции выдает ошибку о неисправности программы и выделяет её красным цветом для наглядности. Программа позволяет разработчику тем, что пишет сообщения об ошибке снизу программного кода. В данной программе ошибок после отладки не найдено, так как программа исправна и готова к работе.

При использовании данной программы сообщения, передаваемые ею, помогают системному программисту лучше понять и даже быстрее закончить создавать её. Одно из таких сообщений является запрос на пользователя и пароль рисунок 1.

Рисунок 1 - Сообщение о запросе пользователя и пароля

При работе с записями в таблице, кода мы хотим удалить выбранную строку, появляется сообщение о предупреждении, оно не дает программисту ошибиться, поэтому предостерегает его.

2. Руководство оператора

Программа «Учет полисов в страховой компании» предназначена для ведения более правильного и быстрого учета в компании, которая занимается перевозкой товара из точки отправления в точку прибытия. Программа со временем может быть доработана, но она уже способна вести учет в предприятии. Программа не привязана к одному предприятию, она универсальная. При запуске программы открывается главная форма.

- Условия выполнения программы.

Данная система не требует специфического технического обеспечения. Для функционирования данной системы достаточно обычного рабочего компьютера. Параметры этого компьютера должны соответствовать современным нормам. Оперативная память не менее 256 мб, жесткий диск должен иметь объем не менее 100 гб. Для работы необходим монитор, принтер. Для быстроты заполнения базы данных возможно пользование сканером, необходимо так же наличие такого устройства как CD-ROM и наличия USB.

Необходима установка:

- OC Windows XP;

- Delphi 7;

- Microsoft Office 2003;

- Драйверы принтера.

При запуске программы открывается форма рисунок. 2, в которой расположено название темы курсового проекта «Учет полисов в страховой компании», меню со списком таблиц, входных/выходных документов и кнопка выхода в режим разработки программы.

Рисунок 2 - Главная форма

Форма, в которой находится таблица «Вид страхования» рис. 3, открывается нажатием на кнопку из списка главной формы. В форме мы видим саму таблицу из базы данных, которую можем изменить с помощью кнопок ниже, такие кнопки как перемещение по записям в начало/конец таблицы, так и перемещение по каждой таблице вверх/вниз. При выборе определенной строки можно её изменить или удалить. Так же можно добавить запись в таблицу.



Рисунок 3 - форма таблицы «Вид страхования»

Форма, в которой находится таблица «Города» рис. 4, открывается нажатием на кнопку из списка главной формы. В форме мы видим саму таблицу из базы данных, которую можем изменить с помощью кнопок ниже, такие кнопки как перемещение по записям в начало/конец таблицы, так и перемещение по каждой таблице вверх/вниз. При выборе определенной строки можно её изменить или удалить. Так же можно добавить запись в таблицу.

Рисунок 4 - Форма таблицы «Города»



Форма, в которой находится таблица «Клиент» рис. 5, открывается нажатием на кнопку из списка главной формы. В форме мы видим саму таблицу из базы данных, которую можем изменить с помощью кнопок ниже, такие кнопки как перемещение по записям в начало/конец таблицы, так и перемещение по каждой таблице вверх/вниз. При выборе определенной строки можно её изменить или удалить.

Рисунок 5 - форма таблицы «Клиент»

Форма, в которой находится таблица «Страхование» рис. 6, открывается нажатием на кнопку из списка главной формы. В форме мы видим саму таблицу из базы данных, которую можем изменить с помощью кнопок ниже, такие кнопки как перемещение по записям в начало/конец таблицы, так и перемещение по каждой таблице вверх/вниз. При выборе определенной строки можно её изменить или удалить.

Рисунок 6 - форма таблицы «Страхования»

Форма, в которой находится таблица «Улица» рис. 7, открывается нажатием на кнопку из списка главной формы. В форме мы видим саму таблицу из базы данных, которую можем изменить с помощью кнопок ниже, такие кнопки как перемещение по записям в начало/конец таблицы, так и перемещение по каждой таблице вверх/вниз. При выборе определенной строки можно её изменить или удалить.

Рисунок 7 - Форма таблицы «Улица»

Входной документ «Паспорт» рис. 8 (Приложение А), открывается с главной формы выбором из списка документов. Форма содержит кнопку, которая позволяет просмотреть выбранный документ, документ можно изменить или отправить на печать. Так же форма содержит кнопку выхода в меню.

Входной документ «Диагностическая карта» рис. 9 (Приложение А) открывается с главной формы выбором из списка документов. Форма содержит кнопку, которая позволяет просмотреть выбранный документ, документ можно изменить или отправить на печать. Так же форма содержит кнопку выхода в меню.

Входной документ «Свидетельство о регистрации ТС» рис. 10, (Приложение А), открывается с главной формы выбором из списка документов. Форма содержит кнопку, которая позволяет просмотреть выбранный документ, документ можно изменить или отправить на печать.

Выходной документ «Полис» рис. 10, (Приложение А) открывается с главной формы выбором из списка документов. Форма содержит кнопку, которая позволяет просмотреть выбранный документ, документ можно изменить или отправить на печать.

При работе с записями в таблице, кода мы хотим удалить выбранную строку, появляется сообщение о предупреждении (рис. 11), оно не дает программисту ошибиться, поэтому предостерегает его.

Рисунок 11 - Сообщение о предупреждения пользователя при удалении

3. Программа и методика испытания

Объект испытаний

Объектом испытания является автоматизированная система по учету грузоперевозок в ОАО САК «Энергогарант», осуществляющая ввод данных о должности, заказах, клиентах и сотрудниках, ведения документа по доверенности на получение материальных ценностей, счет-фактуре, формирование отчетов о журнале учета движения путевых листов, акт сдачи-приемки выполненных работ.

Заказчика интересует на сколько хорошо, просто, надежно и эффективно можно использовать данную автоматизированную систему в ее исходном виде, насколько она удобна в эксплуатации, легка для понимания, модифицирования, повторных испытаний и можно ли использовать ее при изменении условий применения.

Целью испытания данной системы, является выявление степени ее работоспособности, т.е. подтверждения, что она работает правильно и безошибочно, либо констатация ее полной или частичной несостоятельности и неспособности решить поставленные перед ней задачи, а так же выявить все возникающие ошибки, возникающие при работе программы до ее введения в эксплуатацию и исправить их.

Тестирование проводится с целью выяснения, отвечает ли система требованиям заказчика, все ли поставленные в постановке задачи функции система выполняет, а главное, правильно ли она формирует выходные документы.

Функции, которые должна выполнять система:

1 «Ведение справочников»:

- должностям;

- клиентам;

- сотрудникам;

2 «Ввод данных»:

- о доверенности на получение материальных ценностей;

- о счет-фактуре;

3 «Формирование отчетов»:

- журнале учета движения путевых листов;

- акт сдачи-приемки выполненных работ.

Продолжительность опытной эксплуатации, достаточную для проверки правильности функционирования АС при выполнении каждой функции системы 2 месяца. С сотрудником ОАО САК «Энергогарант» был проведен инструктаж по работе с АС, согласно инструкции оператора.

При проведении практики данная система тестировалась стандартным набором данных и случайным набором данных. Все проведенные тесты свидетельствуют о безошибочной работе главного модуля.

Тестирование проводится после создания загрузочного модуля. Результаты работы программы должны быть известны до ее выполнения и должны совпадать с полученным результатом после прогона контрольных примеров, только тогда можно считать, что программа отлажена и готова к использованию.

Для проверки работоспособности программы могут быть использованы следующие методы:

1. статистический - базируется на правилах структурного построения программ и обработки данных. Проверка степени выполнения этих правил проводится без изменения объектного кода программы путем формального анализа текста программы на языке программирования.

2. детерминированное тестирование, которое требует многократного выполнения программы на ЭВМ с использованием определенных, специальным образом подобранных тестовых наборов данных. При детерминированном тестировании контролируется каждая комбинация исходных данных и соответствующие результаты, а также каждое утверждение в спецификации тестируемой программы.

3 стохастическое тестирование используется, когда невозможно перебрать все комбинации исходных данных и проконтролировать результаты функционирования на каждый из них. Стохастическое тестирование наилучшим образом подвергается автоматизации путем использования датчиков случайных значений.

Для проверки автоматизированной системы учета сотрудников в ОАО «Аналог 56» использовался стохастический метод.

Для проведения испытаний программы необходимо иметь в наличие следующее: оперативная память не менее 256 мб, жесткий диск должен иметь объем не менее 100 гб. Для работы необходим монитор, принтер. Для быстроты заполнения базы данных возможно пользование сканером, необходимо так же наличие такого устройства как CD-ROM и наличия USB.

Осуществление запуск программы, с рабочего стола выбрав ярлык с названием «Project1 - Ярлык»



Список использованных источников

1. Стивене Р. «Delphi. Готовые алгоритмы»

2. Фленов М. Е. «Программирование в Delphi глазами хакера»

3. Фленов М.Е. «Библия для программиста в среде Delphi»

4. Культин Н.Б. «Delphi в задачах и примерах»

5. Галисеев Г.В. «Программирование в среде Delphi 7»

6. Митчелл К. Керман «Программирование и отладка в Delphi»

информационный программный страховой учет



Приложение А

Входной документ «Паспорт»

Входной документ «Свидетельство о регистрации ТС »



Входной документ «Диагностическая карта»



Выходной документ «Полис»



Приложение Б

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, StdCtrls;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

Label1: TLabel;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

Label2: TLabel;

procedure N5Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }



Приложение В

end;

var

Form1: TForm1;

implementation

uses Unit3, Unit5, Unit4, Unit6, Unit7, Unit8, Unit9, Unit10;

{$R *.dfm}

procedure TForm1.N5Click(Sender: TObject);

begin

Form1.Hide;

Form3.show;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Form1.Hide;

Form5.show;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Form1.Hide;

Form4.show;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

Form1.Hide;

Form6.show;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Form9.show;

Form1.Hide;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

Form10.Show;

Form1.Hide;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

Form7.Show;

Form1.Hide;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

Form8.Show;

Form1.Hide;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

end;

end.

unit Unit2;

interface

uses

SysUtils, Classes, DB, ADODB;

type

TDataModule2 = class(TDataModule)

ADOConnection1: TADOConnection;

ADOdoljnost: TADOTable;

ADOzakaz: TADOTable;

ADOklient: TADOTable;

ADOsotrudnik: TADOTable;

Datadoljnost: TDataSource;

Datazakaz: TDataSource;

Dataklient: TDataSource;

Datasotrudnik: TDataSource;

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule2: TDataModule2;

implementation

{$R *.dfm}

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;

type

TForm3 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button1: TButton;

Label1: TLabel;

procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1, Unit2, Unit4, Unit5, Unit6;

{$R *.dfm}

procedure TForm3.DBNavigator1Click(Sender: TObject; Button:

TNavigateBtn);

var

ButtonName:string;

begin

case Button of

nbFirst : ButtonName:= 'nbFirst';

nbPrior : ButtonName:= 'nbPrior';

nbNext : ButtonName:= 'nbNext';

nbLast : ButtonName:= 'nbLast';

nbInsert : ButtonName:= 'nbInsert';

nbDelete : ButtonName:= 'nbDelete';

nbEdit : ButtonName:= 'nbEdit';

nbPost : ButtonName:= 'nbPost';

nbRefresh : ButtonName:= 'nbRefresh';

end;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

Form3.Hide;

Form1.Show;

end;

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls;

type

TForm4 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button1: TButton;

Label1: TLabel;

procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1, Unit2, Unit3, Unit5, Unit6;

{$R *.dfm}

procedure TForm4.DBNavigator1Click(Sender: TObject; Button:

TNavigateBtn);

var

ButtonName:string;

begin

case Button of

nbFirst : ButtonName:= 'nbFirst';

nbPrior : ButtonName:= 'nbPrior';

nbNext : ButtonName:= 'nbNext';

nbLast : ButtonName:= 'nbLast';

nbInsert : ButtonName:= 'nbInsert';

nbDelete : ButtonName:= 'nbDelete';

nbEdit : ButtonName:= 'nbEdit';

nbPost : ButtonName:= 'nbPost';

nbRefresh : ButtonName:= 'nbRefresh';

end;

end;

procedure TForm4.Button1Click(Sender: TObject);

begin

Form4.Hide;

Form1.Show;

end;

end.

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls;

type

TForm5 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button1: TButton;

Label1: TLabel;

procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit1, Unit2, Unit3, Unit4, Unit6;

{$R *.dfm}

procedure TForm5.DBNavigator1Click(Sender: TObject; Button:

TNavigateBtn);

var

ButtonName:string;

begin

case Button of

nbFirst : ButtonName:= 'nbFirst';

nbPrior : ButtonName:= 'nbPrior';

nbNext : ButtonName:= 'nbNext';

nbLast : ButtonName:= 'nbLast';

nbInsert : ButtonName:= 'nbInsert';

nbDelete : ButtonName:= 'nbDelete';

nbEdit : ButtonName:= 'nbEdit';

nbPost : ButtonName:= 'nbPost';

nbRefresh : ButtonName:= 'nbRefresh';

end;

end;

procedure TForm5.Button1Click(Sender: TObject);

begin

Form5.Hide;

Form1.Show;

end;

end.

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls;

type

TForm6 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button1: TButton;

Label1: TLabel;

procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit1, Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm6.DBNavigator1Click(Sender: TObject; Button:

TNavigateBtn);

var

ButtonName:string;

begin

case Button of

nbFirst : ButtonName:= 'nbFirst';

nbPrior : ButtonName:= 'nbPrior';

nbNext : ButtonName:= 'nbNext';

nbLast : ButtonName:= 'nbLast';

nbInsert : ButtonName:= 'nbInsert';

nbDelete : ButtonName:= 'nbDelete';

nbEdit : ButtonName:= 'nbEdit';

nbPost : ButtonName:= 'nbPost';

nbRefresh : ButtonName:= 'nbRefresh';

end;

end;

procedure TForm6.Button1Click(Sender: TObject);

begin

Form6.Hide;

Form1.Show;

end;

end.

unit Unit7;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, OleServer, ExcelXP, ComObj;

type

TForm7 = class(TForm)

Label1: TLabel;

Button1: TButton;

ExcelApplication1: TExcelApplication;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

excel:olevariant;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm7.Button1Click(Sender: TObject);

begin

Form7.hide;

Form1.Show;

end;

procedure TForm7.Button2Click(Sender: TObject);

begin

excel:=CreateOleObject('Excel.Application');

excel.Visible:=false;

excel.workbooks.Add;

excel.workbooks.open( 'C:\Program Files

(x86)\Borland\Delphi7\Projects\kyrsovoy\proect.xls');

excel.Visible:=true;

end;

end.

unit Unit8;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComObj;

type

TForm8 = class(TForm)

Label1: TLabel;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

excel:olevariant;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm8.Button1Click(Sender: TObject);

begin

Form8.Hide;

Form1.show;

end;

procedure TForm8.Button2Click(Sender: TObject);

begin

excel:=CreateOleObject('Excel.Application');

excel.Visible:=false;

excel.workbooks.Add;

excel.workbooks.open('C:\Program Files

(x86)\Borland\Delphi7\Projects\kyrsovoy\proect2.xls');

excel.Visible:=true;

end;

end.

unit Unit9;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComObj, OleServer, WordXP;

type

TForm9 = class(TForm)

Label1: TLabel;

Button1: TButton;

Button2: TButton;

WordApplication1: TWordApplication;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

msWord:olevariant;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm9.Button1Click(Sender: TObject);

begin

Form9.Hide;

Form1.show;

end;

procedure TForm9.Button2Click(Sender: TObject);

var MsWord:Variant;

begin

try

MsWord := CreateOleObject('Word.Application');

except

Exception.Create('Error');

end;

MsWord.Documents.Add('C:\Program Files

(x86)\Borland\Delphi7\Projects\kyrsovoy\doverennost.doc');

// MsWord.Application.Open('C:\Program Files

(x86)\Borland\Delphi7\Projects\kyrsovoy\doverennost.doc');

MsWord.Visible := True;

//msWord.Visible:=Visible;

end;

end.

unit Unit10;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComObj, OleServer, ExcelXP;

type

TForm10 = class(TForm)

Label1: TLabel;

Button1: TButton;

Button2: TButton;

ExcelApplication1: TExcelApplication;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

excel:olevariant;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm10.Button1Click(Sender: TObject);

begin

Form10.Hide;

Form1.show;

end;

procedure TForm10.Button2Click(Sender: TObject);

begin

excel:=CreateOleObject('Excel.Application');

excel.Visible:=false;

excel.workbooks.Add;

excel.workbooks.open('C:\Program Files

(x86)\Borland\Delphi7\Projects\kyrsovoy\schet.xls');

excel.Visible:=true;

end;

end.

Размещено на Allbest.ru