72
38. Трубилин закрепление И.Т., Семенов М.И., Лойко разработка В.И., Барановская Т.П.
Автоматизированные консалтинг информационные технологии данную в экономике. М.:
Финансы пользователей и статистика, 2012. глобального –413 с.
39. Харитонов гост С.А. Введение в конфигурирование классификаторы в системе «1С –
Предприятие титоренко 8.1». Основные объекты экономической. СПб.: Питер, 2011. кранные –89 с.
40. Хрусталева Е.Ю. Разработка информационной сложных отчетов«1С windows –Предприятие
8». Система базу компоновки данных месяцев. СПб.: Питер, 2012. унок –483с.
41. Хрусталева procedure Е.Ю. Разработка отчетов качестве «1С –Предприятие 8». СПб.:
Питер ресурсам, 2013. –275с данных.
73
ПРИЛОЖЕНИЕ А
Листинг приложение АРМ
unit Unit стратегии1;
procedure TForm1.BitBtn1Click(Sender страняется: TObject);
begin базу
DataModule5.Q_IN.Close;
DataModule5.Q_IN.Active список := False;
DataModule5.Q_IN.Parameters.ParamByName('ID').Value финансы := Edit1.Text;
DataModule5.Q_IN.Open стоимостные;
DataModule5.Q_IN.Active := True сформулировать;
if DataModule5.Q_IN.FieldByName('PAROL').AsString = Edit2.Text среди then
begin неограниченно
Form2.ShowModal;
Form1.Hide приложение;
end
else
ShowMessage('Неправильный программист пользователь и/или зависит пароль. Повторите унок
попытку');
end;
procedure решения TForm1.BitBtn2Click(Sender: TObject актуальную);
begin
Close поля;
end;
end.
unit Unit содержащая2;
procedure TForm2.N10Click(Sender папки: TObject);
begin описание
DataModule5.T_SPR_CAT.Active := True procedure;
74
DataModule5.T_PRICE.Active := True раза;
Form3.ShowModal;
end;
procedure результате TForm2.N3Click(Sender: TObject работы);
begin
DataModule5.T_SPR_STO.Active теория := True;
DataModule5.T_SPR_SPO.Active факел := True;
DataModule5.T_DOG.Active прежде := True;
Form8.ShowModal дополнительные;
end;
procedure TForm2.N4Click(Sender адаптивный: TObject);
begin оболочку
Close;
Form1.Close диаграмма;
end;
procedure TForm2.N5Click(Sender высоких: TObject);
begin модель
DataModule5.T_SPR_CAT.Active := True продаж;
Form4.ShowModal;
end;
procedure реалистичной TForm2.N6Click(Sender: TObject документов);
begin
DataModule5.T_SPR_CLIENT.Active используется := True;
Form6.ShowModal после;
end;
procedure TForm2.N7Click(Sender справочник: TObject);
begin автоматизации
Form4.ShowModal;
end;
75
procedure информационной TForm2.N8Click(Sender: TObject времени);
begin
DataModule5.T_SPR_CLIENT.Active унок := True;
Form6.ShowModal именно;
end;
procedure TForm2.N9Click(Sender обоснование: TObject);
begin определяющим
DataModule5.T_SALE.Active := True другие;
Form7.ShowModal;
end;
end.
unit этап Unit3;
procedure управления TForm3.BitBtn1Click(Sender: TObject данные);
begin
Close сведения;
end;
procedure TForm3.BitBtn2Click(Sender можно: TObject);
var
xlsApp система, xlsBook, xlsSheet собственной: Variant;
RowCount базы, NumRow, NumCol базу: Integer;
begin системе
try
//создаем объект документов Excel
xlsApp госстандарт := CreateOleObject('Excel.Application');
except сервере
ShowMessage('Возможно не установлен фазе MS Excel.');
Exit анализ;
end;
76
xlsApp.Visible := True более;
xlsApp.DisplayAlerts := False повышает;
try
xlsBook :=
Ошибка!
\Прейскурант');
xlsSheet этого := xlsBook.Worksheets.Item[1];
DataModule5.T_PRICE.First клиентов;
while not DataModule5.T_PRICE.Eof должна do
begin
xlsSheet.Cells[DataModule5.T_PRICE.RecNo можно+1,1] :=
IntToStr(DataModule5.T_PRICE.FieldByName('ID_PRICE').AsInteger);
xlsSheet.Cells[DataModule5.T_PRICE.RecNo обоснование+1,2] :=
DataModule5.T_PRICE.FieldByName('NAME_PROD').AsString;
xlsSheet.Cells[DataModule5.T_PRICE.RecNo индекс+1,3] :=
DataModule5.T_PRICE.FieldByName('CAT_NAME').AsString;
xlsSheet.Cells[DataModule5.T_PRICE.RecNo издержками+1,4] :=
FloatToStr(DataModule5.T_PRICE.FieldByName('PRICE_ED').AsFloat);
DataModule5.T_PRICE.Next приводит;
end;
except
ShowMessage('Невозможно приведе открыть файл управления.');
end;
xlsSheet := xlsBook.Worksheets.Item отсутствие[1];
end;
procedure TForm3.FormActivate(Sender регистрации: TObject);
begin своей
DataModule5.T_SPR_CAT.Active := True server;
DataModule5.T_PRICE.Active := True информационной;
end;
procedure TForm3.FormCloseQuery(Sender спирали: TObject; var CanClose пересекающихся: Boolean);
77
begin виде
DataModule5.T_PRICE.Active := False организации;
end;
procedure TForm3.RadioButton1Click(Sender пособие: TObject);
begin преимущества
DataModule5.T_PRICE.Sort := '[NAME_PROD кранные] ASC';
end;
procedure входа TForm3.RadioButton2Click(Sender: TObject внешние);
begin
DataModule5.T_PRICE.Sort относительного := '[NAME_PROD] DESC архитектуры';
end;
end.
unit Unit договора4;
procedure TForm4.BitBtn1Click(Sender всей: TObject);
begin системе
Close;
end;
procedure управления TForm4.FormActivate(Sender: TObject procedure);
begin
DataModule5.T_SPR_CAT.Active приведены := True;
end;
procedure текущем TForm4.FormCloseQuery(Sender: TObject главного; var CanClose: Boolean среда);
begin
DataModule5.T_SPR_CAT.Active работы := False;
end;
procedure справочники TForm4.RadioButton1Click(Sender: TObject выполнения);
begin
78
DataModule5.T_SPR_CAT.Sort учет := '[NAME_CAT] ASC далее';
end;
procedure TForm4.RadioButton2Click(Sender данных: TObject);
begin contact
DataModule5.T_SPR_CAT.Sort := '[NAME_CAT идентификатор] DESC';
end;
end.
unit поддерживает Unit6;
procedure заставляет TForm6.BitBtn1Click(Sender: TObject основные);
begin
Close каскадной;
end;
procedure TForm6.BitBtn2Click(Sender контроль: TObject);
var
xlsApp клиентах, xlsBook, xlsSheet малых: Variant;
RowCount сценарий, NumRow, NumCol помимо: Integer;
begin основных
try
//создаем объект различные Excel
xlsApp программы := CreateOleObject('Excel.Application');
except основные
ShowMessage('Возможно не установлен поступающая MS Excel.');
Exit защиты;
end;
xlsApp.Visible := True применения;
xlsApp.DisplayAlerts := False преимущества;
try
xlsBook :=
Ошибка!
\Список
Ошибка!
');
79
xlsSheet := xlsBook.Worksheets.Item пользователей[1];
DataModule5.T_SPR_CLIENT.First;
while менеджер not DataModule5.T_SPR_CLIENT.Eof do
begin объектом
xlsSheet.Cells[DataModule5.T_SPR_CLIENT.RecNo+1,1] :=
IntToStr(DataModule5.T_SPR_CLIENT.FieldByName('ID_CLIENT').AsInteger кроме);
xlsSheet.Cells[DataModule5.T_SPR_CLIENT.RecNo+1,2] :=
DataModule5.T_SPR_CLIENT.FieldByName('NAME_CLIENT').AsString программный;
xlsSheet.Cells[DataModule5.T_SPR_CLIENT.RecNo+1,3] :=
DataModule5.T_SPR_CLIENT.FieldByName('NAME_CONTACT').AsString совместно;
xlsSheet.Cells[DataModule5.T_SPR_CLIENT.RecNo+1,4] :=
DataModule5.T_SPR_CLIENT.FieldByName('PHONE').AsString procedure;
DataModule5.T_SPR_CLIENT.Next;
end;
except стратегии
ShowMessage('Невозможно показатели открыть файл следующей.');
end;
xlsSheet := xlsBook.Worksheets.Item меню[1];
end;
procedure TForm6.FormActivate(Sender среде: TObject);
begin изучение
DataModule5.T_SPR_CLIENT.Active := True себя;
end;
procedure TForm6.FormCloseQuery(Sender трудовые: TObject; var CanClose состоящее: Boolean);
begin заставляет
DataModule5.T_SPR_CLIENT.Active := False хранения;
end;
procedure TForm6.RadioButton1Click(Sender самом: TObject);
begin больших
80
DataModule5.T_SPR_CLIENT.Sort := '[NAME_CLIENT оболочку] ASC';
end;
procedure регистрации TForm6.RadioButton2Click(Sender: TObject базу);
begin
DataModule5.T_SPR_CLIENT.Sort среди := '[NAME_CLIENT] DESC продаж';
end;
end.
unit Unit среди7;
procedure TForm7.BitBtn1Click(Sender модель: TObject);
begin программный
Close;
end;
procedure проектирование TForm7.BitBtn2Click(Sender: TObject основные);
var
xlsApp, xlsBook унок, xlsSheet: Variant таблице;
RowCount, NumRow internet, NumCol: Integer анализ;
begin
try
//создаем которых объект Excel выбранного
xlsApp := CreateOleObject('Excel.Application автоматизации');
except
ShowMessage('Возможно приложение не установлен MS Excel использованной.');
Exit;
end;
xlsApp.Visible учета := True;
xlsApp.DisplayAlerts решения := False;
try
81
xlsBook качестве := xlsApp.Workbooks.Open('C:\Temp\PRODAZHI\docs\Журнал принятия
продаж');
xlsSheet предприятии := xlsBook.Worksheets.Item[1];
DataModule5.T_SALE.First begin;
while not DataModule5.T_SALE.Eof рублей do
begin
xlsSheet.Cells[DataModule5.T_SALE.RecNo свободная+1,1] :=
IntToStr(DataModule5.T_SALE.FieldByName('ID_REC').AsInteger);
xlsSheet.Cells[DataModule5.T_SALE.RecNo качественной+1,2] :=
DataModule5.T_SALE.FieldByName('NCLIENT').AsString;
xlsSheet.Cells[DataModule5.T_SALE.RecNo проекта+1,3] :=
DataModule5.T_SALE.FieldByName('NPRICE').AsString;
xlsSheet.Cells[DataModule5.T_SALE.RecNo собой+1,4] :=
IntToStr(DataModule5.T_SALE.FieldByName('KOLVO').AsInteger);
xlsSheet.Cells[DataModule5.T_SALE.RecNo хрусталева+1,6] :=
IntToStr(DataModule5.T_SALE.FieldByName('NUM_DOG').AsInteger);
DataModule5.T_SALE.Next ведение;
end;
except
ShowMessage('Невозможно компоненты открыть файл разработки.');
end;
xlsSheet := xlsBook.Worksheets.Item устранить[1];
end;
procedure TForm7.FormActivate(Sender продаж: TObject);
begin входа
DataModule5.T_SALE.Active := True универсален;
end;
procedure TForm7.FormCloseQuery(Sender антивирусной: TObject; var CanClose стоимость: Boolean);
begin текущем