Файл: "Проектирование реализации операций бизнес-процесса «Управление документооборотом".pdf
Добавлен: 18.06.2023
Просмотров: 92
Скачиваний: 3
СОДЕРЖАНИЕ
Выбор комплекса задач автоматизации
Характеристика существующих бизнес –процессов
Определение Характеристика документооборота, возникающего при решении задачи
Обоснование проектных решений по информационному обеспечению
Обоснование проектных решений по программному обеспечению
Информационная модель и её описание
Характеристика нормативно-справочной, входной и оперативной информации
Характеристика результатной информации
Общие положения (дерево функций и сценарий диалога)
Структурная схема пакета (дерево вызова программных модулей)
procedure RzToolbarButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
{$R *.dfm}
uses mainclients;
procedure TChildTemplateForm.Button1Click(Sender: TObject);
var put,asFileName:string;
var
XlApplication: OleVariant;
XLWorkSheet: OleVariant;
var
vVarApp,vVarBooks,vVarBook,
vVarSheets,vVarSheet,vVarCell,ws: Variant;
i,j:integer;
a:string;
begin
if mainclientsform.ADOQuery2.RecordCount>0 then
begin
try
XlApplication := GetActiveOleObject('Excel.Application');
except
XlApplication := CreateOleObject('Excel.Application');
end;
XlApplication.Workbooks.Open[ExtractFilePath(Application.ExeName)+'zayavka.xlt', 0, true]; XlApplication.Visible := true;
XLWorkSheet := XlApplication.ActiveWorkBook.ActiveSheet;
if nomer_poisk<>8 then
XLWorkSheet.cells[3,3]:=''
else
XLWorkSheet.cells[3,3]:='';
mainclientsform.ADOQuery2.First;
for i:=1 to mainclientsform.ADOQuery2.RecordCount do
begin
j:= 0;
A:= mainclientsform.ADOQuery2.FieldByName('Фамилия').AsString;
XLWorkSheet.cells[i+5,2]:=A ;
A:= mainclientsform.ADOQuery2.FieldByName('Имя').AsString;
XLWorkSheet.cells[i+5,3]:=A ;
A:= mainclientsform.ADOQuery2.FieldByName('Отчество').AsString;
XLWorkSheet.cells[i+5,4]:=A ;
A:= mainclientsform.ADOQuery2.FieldByName('телефон1').AsString;
XLWorkSheet.cells[i+5,5]:=A ;
A:= mainclientsform.ADOQuery2.FieldByName('город').AsString;
XLWorkSheet.cells[i+5,6]:=A ;
A:= mainclientsform.ADOQuery2.FieldByName('улица').AsString;
XLWorkSheet.cells[i+5,7]:=A ;
A:= mainclientsform.ADOQuery2.FieldByName('дом').AsString;
XLWorkSheet.cells[i+5,8]:=A ;
A:= mainclientsform.ADOQuery2.FieldByName('квартира').AsString;
XLWorkSheet.cells[i+5,9]:=A ;
mainclientsform.ADOQuery2.Next;
end ;
end;
end;
procedure TChildTemplateForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
XlApplication.Visible := true;
XLWorkSheet := XlApplication.ActiveWorkBook.ActiveSheet;
if nomer_poisk<>8 then
XLWorkSheet.cells[3,3]:=''
else
XLWorkSheet.cells[3,3]:='';
mainclientsform.ADOQuery2.First;
for i:=1 to mainclientsform.ADOQuery2.RecordCount do
begin
j:= 0;
A:= mainclientsform.ADOQuery2.FieldByName('Фамилия').AsString;
XLWorkSheet.cells[i+5,2]:=A ;
A:= mainclientsform.ADOQuery2.FieldByName('Имя').AsString;
XLWorkSheet.cells[i+5,3]:=A ;
A:= mainclientsform.ADOQuery2.FieldByName('Отчество').AsString;
XLWorkSheet.cells[i+5,4]:=A ;
A:= mainclientsform.ADOQuery2.FieldByName('телефон1').AsString;
XLWorkSheet.cells[i+5,5]:=A ;
A:= mainclientsform.ADOQuery2.FieldByName('город').AsString;
XLWorkSheet.cells[i+5,6]:=A ;
A:= mainclientsform.ADOQuery2.FieldByName('улица').AsString;
XLWorkSheet.cells[i+5,7]:=A ;
A:= mainclientsform.ADOQuery2.FieldByName('дом').AsString;
XLWorkSheet.cells[i+5,8]:=A ;
A:= mainclientsform.ADOQuery2.FieldByName('квартира').AsString;
XLWorkSheet.cells[i+5,9]:=A ;
mainclientsform.ADOQuery2.Next;
end ;
end;
end;
procedure TChildTemplateForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
XlApplication.Visible := true;
XLWorkSheet := XlApplication.ActiveWorkBook.ActiveSheet;
if nomer_poisk<>8 then
XLWorkSheet.cells[3,3]:=''
else
XLWorkSheet.cells[3,3]:='';
mainclientsform.ADOQuery2.First;
for i:=1 to mainclientsform.ADOQuery2.RecordCount do
begin
j:= 0;
A:= mainclientsform.ADOQuery2.FieldByName('Фамилия').AsString;
XLWorkSheet.cells[i+5,2]:=A ;
A:= mainclientsform.ADOQuery2.FieldByName('Имя').AsString;
XLWorkSheet.cells[i+5,3]:=A ;
A:= mainclientsform.ADOQuery2.FieldByName('Отчество').AsString;
XLWorkSheet.cells[i+5,4]:=A ;
A:= mainclientsform.ADOQuery2.FieldByName('телефон1').AsString;