Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Описание алгоритма реализации

Читайте также:
  1. A]цены предложения, цены реализации, цены спроса
  2. II. АНАЛИЗ РЕАЛИЗАЦИИ СТРАТЕГИИ СОЦИАЛЬНО-ЭКОНОМИЧЕСКОГО РАЗВИТИЯ СОЛИКАМСКОГО ГОРОДСКОГО ОКРУГА ДО 2018 ГОДА
  3. II. Информация о положительном опыте апробации в процессе реализации курса ОРКСЭ
  4. II. Информация о положительном опыте апробации в процессе реализации курса ОРКСЭ
  5. II. Информация о положительном опыте апробации в процессе реализации курса ОРКСЭ
  6. II. Информация о положительном опыте апробации в процессе реализации курса ОРКСЭ
  7. II. Информация о положительном опыте апробации в процессе реализации курса ОРКСЭ

Во время запуска программы произойдёт вызов первой формы.

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

Для реализации операции добавления данных в документ MS Word были назначены стандартные закладки:

WORD.free;

WORD:=TWordApplication.Create(First_form);

WORD.connectkind:=ckNewInstance;

docname:='results\'+FAMILY.text+' '+F_NAME.Text+'.doc';

deletefile(docname);

copyfile(pchar(getcurrentdir+'\forms\T2.doc'),pchar(docname),errorcode);

file_name:=getcurrentdir+'\'+docname;

WORD.Documents.Open(file_name,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);

bookmark_out ('Org_name',curent_org.orgname);

 

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

if Sl_table.RecordCount<>0 then Sl_table.FindFirst;

move_to:='sl';

WORD.ActiveDocument.Bookmarks.Item(move_to).Select;

for i:=1 to Sl_table.RecordCount do

begin

Word.Selection.Text:=Sl_table.FieldByName('Наименование льгот').AsString;

Word.Selection.MoveRight(Unit_,count,EmptyParam);

 

Вывод всех остальных данных в документ производится также при помощи данных функций, изменяется лишь сама языковая структура.

Добавление, удаление и изменение данных будет проводиться при помощи компонента DBNavigator.

Так же при помощи стандартных SQL-запросов будет происходить отбор данных по необходимым критериям, пример запроса на выборку данных:

SELECT Pers.*

FROM Pers

WHERE ([Имя] like(First_name))

AND ([Фамилия] like(Family_name))

AND ([Должность] like(Dolg))

 

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

procedure TForm1.FormActivate(Sender: TObject);

var

i:integer;

begin

ADOTable1.First;

if (DBGrid1.DataSource.DataSet.Fields[1].AsString<>'') then

Begin

for i:=1 to ADOTable1.RecordCount do

begin

dayz:=DBGrid1.DataSource.DataSet.Fields[1].AsString;

srok:=StrToDate(dayz)- Date;

If (srok>0)then

begin

ADOTable1.Edit;

ADOTable1.FieldByName('srokOD').Value:=FloatToStr(srok);

ADOTable1.Post;

end;

end;

end;

 

begin

ADOTable2.First;

if (DBGrid2.DataSource.DataSet.Fields[1].AsString<>'') then

Begin

for i:=1 to ADOTable2.RecordCount do

begin

dayzf:=DBGrid2.DataSource.DataSet.Fields[1].AsString;

srokf:=StrToDate(dayzf)- Date;

If (srokf>0)then

begin

ADOTable2.Edit;

ADOTable2.FieldByName('srokOF').Value:=FloatToStr(srokf);

ADOTable2.Post;

end;

end.


 


Дата добавления: 2015-10-13; просмотров: 70 | Нарушение авторских прав


Читайте в этой же книге: Назначение и область применения | Тестирование | Руководство пользователя | Полный листинг |
<== предыдущая страница | следующая страница ==>
Обоснование инструментов разработки| Логическая структура

mybiblioteka.su - 2015-2024 год. (0.005 сек.)