MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='Pasport';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(SeriaDBEdit.Text+' № '+NumDBEdit.Text+' выдан '+VudanDBEdit.Text+' от '+DateVudachDBEdit.Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='AdressZakazchik';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(PropiskaDBEdit.Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='TelZakazchik';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(TelDBEdit.Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='FIOZakazchikNiz';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(Copy(NameDBEdit.Text,0,1)+'. '+Copy(SurNameDBEdit.Text,0,1)+'. '+FamDBEdit.Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='START';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  //Сохранение документа во временной папки

  S1:=Path+'\Doc\Договор №'+DogovorDBEdit.Text+'.doc';

  try

    WA.ActiveDocument.SaveAs(S1, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

    Application.MessageBox('Не удалось сохранить документ во временную папку! Все документы MS Word будут закрыты. Попытаться снова создать документ?','Критическая ошибка',mb_Ok+mb_IconError);

    WA.Disconnect;

    WA.Quit(EmptyParam,EmptyParam,EmptyParam);

  end;

  WA.Visible:=true;

  WA.Activate;

  WA.Disconnect;

  MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+6;

  MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

    Application.MessageBox('Связь с MS Word завершилась неудачей! Закройте все документы MS Word и попробуйте снова.','Критическая ошибка',mb_ok+mb_IconError);

  end;

  end;

MainForm.ProgressBar1.Position:=100;

MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

MainForm.ProgressBar1.Visible:=false;

end;

Приложение Г

//Процедура поиска слушателей по заданным критериям для формирования списка группы

procedure TListGroupForm.RunButtonClick(Sender: TObject);

var SelectIndex, i: integer;

    OneD, TwoD: string;

begin

with DataModule1.GroupQuery do

  begin

  DateSeparator:='/';

  ShortDateFormat:='mm/dd/yyyy';

  OneD:=DateToStr(StartDateDTP.Date);

  TwoD:=DateToStr(FinishDateDTP.Date);

  try

    if SpecialsLB.Items.Strings[SpecialsLB.ItemIndex]<>'' then

      begin

      DataModule1.SpecialsTable.Active:=true;

      DataModule1.SpecialsTable.Locate('ПолноеНаименование',SpecialsLB.Items.Strings[SpecialsLB.ItemIndex],[loCaseInsensitive, loPartialKey]);

      end;

    SelectIndex:=DataModule1.SpecialsTable.Fields.Fields[0].AsInteger;

  except

  end;

  SpecialsEdit.Text:=SpecialsLB.Items.Strings[SpecialsLB.ItemIndex];

  Active:=false;

  SQL.Clear;

  SQL.Add('SELECT ФИО, ДатаНачалаОбучения, ДатаОкончанияОбучения');

  SQL.Add('FROM Слушатели');

  SQL.Add('WHERE (Специальность='+IntToStr(SelectIndex)+') AND (ДатаНачалаОбучения>=#'+OneD+'#) AND (ДатаОкончанияОбучения<=#'+TwoD+'#)');

  try

    Active:=true;

  except

    Application.MessageBox('Невозможно сформировать список. Задайте другие параметры!','Информация',mb_Ok+mb_IconInformation);

  end;

  DateSeparator:='.';

  ShortDateFormat:='mm/dd/yyyy';

  if DataModule1.GroupQuery.RecordCount>0 then

    begin

    ListCLB.Clear;

    DataModule1.GroupQuery.First;

    while not DataModule1.GroupQuery.Eof do

      begin

      ListCLB.Items.Add(DataModule1.GroupQuery.Fields.Fields[0].Text);

      DataModule1.GroupQuery.Next;

      end;

    for i:=0 to ListCLB.Count do

      try

        ListCLB.State[i]:=cbChecked;

      except

      end;

    Report1Button.Enabled:=true;

    Report2Button.Enabled:=true;

    end else

    begin

    ListCLB.Clear;

    Report1Button.Enabled:=false;

    Report2Button.Enabled:=true;

    Application.MessageBox('Невозможно сформировать список. По заданным критериям слушатели не найдены!','Информация',mb_Ok+mb_IconInformation);

    end;

  end;

end;

Приложение Д

//Формирование простого списка группы

procedure TListGroupForm.CreateSimpleReport;

var FileName, S1, S2, S3: OLEVariant;

    i, n, g, j: LongInt;

    Whatr: OLEVariant;

    Which: OLEVariant;

    Count: OLEVariant;

    NameBookmakers: OLEVariant;

    k: real;

begin

//Путь до файла с бланком

FileName:=Path+'\Data\ListGroup.dot';

if FileExists(FileName)=false then Application.MessageBox('Файл "\Data\ListGroup.dot" не найден. Возможно файл был переименован либо удален.'#13'Обратитесь к администратору для устранения ошибки.','Критическая ошибка',mb_Ok+mb_IconError) else

  begin

  try

    //Настройка соединения с Word

    MainForm.WA.Connect;

    //Настройка параметров документа

    MainForm.WA.WindowState:=wdWindowStateMaximize;

    MainForm.WA.Documents.OpenOld(FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);

    MainForm.WA.ActiveWindow.ActivePane.View.Zoom.Percentage:=100;

    Whatr:=wdGoToBookmark;

    Which:=unAssigned;

    Count:=unAssigned;

    try

      NameBookmakers:='Group';

      MainForm.WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

      MainForm.WA.Selection.TypeText(NumEdit.Text);

    except

    end;

    try

      NameBookmakers:='Programm';

      MainForm.WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

      MainForm.WA.Selection.TypeText(SpecialsEdit.Text);

    except

    end;

    try

      NameBookmakers:='START';

      MainForm.WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

      n:=ListCLB.Items.Count;

      k:=0;

      S2:=wdCell;

      S3:=1;

      j:=0;

      for i:=0 to n-1 do

        begin

        if ListCLB.State[i]=cbChecked then

          begin

          //№ п/п

          j:=j+1;

          MainForm.WA.Selection.TypeText(IntToStr(j));

          MainForm.WA.Selection.MoveRight(S2,S3,EmptyParam);

          //ФИО

          MainForm.WA.Selection.TypeText(ListCLB.Items.Strings[i]);

          MainForm.WA.Selection.MoveRight(S2,S3,EmptyParam);

          end;

        end;

        //Удаление последней строки

        //если таблица заканчивается

        MainForm.WA.Selection.Rows.Delete;

    except

      Application.MessageBox('Не найдена закладка для СТАРТА! Прочитайте руководство пользователя для устранения ошибки!','Информация',mb_ok+mb_IconInformation);

    end;

  try

    NameBookmakers:='START';

    MainForm.WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

  except

  end;

  //Сохранение документа во временной папки

  S1:=Path+'\Doc\Список группы №'+NumEdit.Text+'.doc';

  try

    MainForm.WA.ActiveDocument.SaveAs(S1, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);

  except

    Application.MessageBox('Не удалось сохранить документ во временную папку! Все документы MS Word будут закрыты. Попытаться снова создать документ?','Информация',mb_Ok+mb_IconInformation);

    MainForm.WA.Disconnect;

    MainForm.WA.Quit(EmptyParam,EmptyParam,EmptyParam);

  end;

  //Видимость документа

  MainForm.WA.Visible:=true;

  //Активизация соединения

  MainForm.WA.Activate;

  //Разрыв соединения с MS Word(Quit, Preview, Print)

  MainForm.WA.Disconnect;

  except

    Application.MessageBox('Связь с MS Word завершилась неудачей! Закройте все документы MS Word и попробуйте снова.','Информация',mb_ok+mb_IconInformation);

  end;

  end;

end;

Приложение Е

//Формирование списка группы для ведомости посещаемости

procedure TListGroupForm.CreateUspReport;

var FileName, S1, S2, S3: OLEVariant;

    i, n, g, j: LongInt;

    Whatr: OLEVariant;

    Which: OLEVariant;

    Count: OLEVariant;

    NameBookmakers: OLEVariant;

    k: real;

begin

//Путь до файла с бланком

FileName:=Path+'\Data\Vedom.dot';

if FileExists(FileName)=false then Application.MessageBox('Файл "Data\Vedom.dot" не найден. Возможно файл был переименован либо удален.'#13'Обратитесь к администратору для устранения ошибки.','Критическая ошибка',mb_Ok+mb_IconError) else

  begin

  try

    //Настройка соединения с Word

    MainForm.WA.Connect;

    //Настройка параметров документа

    MainForm.WA.WindowState:=wdWindowStateMaximize;

    MainForm.WA.Documents.OpenOld(FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9