База данных «приемная комиссия»
Реферат - Компьютеры, программирование
Другие рефераты по предмету Компьютеры, программирование
MainForm.WA.Selection.TypeText(DateToStr(StartDateDTP.Date));
except
end;
try
NameBookmakers:=Date2;
MainForm.WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);
MainForm.WA.Selection.TypeText(DateToStr(FinishDateDTP.Date));
except
end;
try
NameBookmakers:=Programm;
MainForm.WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);
MainForm.WA.Selection.TypeText(SpecialsEdit.Text);
except
end;
try
NameBookmakers:=Prepod;
MainForm.WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);
thenMainForm.WA.Selection.TypeText(PrepodEdit.Text)"> if PrepodEdit.Text<> then MainForm.WA.Selection.TypeText(PrepodEdit.Text)
else MainForm.WA.Selection.TypeText(_____________________________________________________________);
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]);
for g:=0 to 31 do
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 TListSlushForm.CreateReport;
var FileName, S1, S2, S3: OLEVariant;
i, n: LongInt;
Whatr: OLEVariant;
Which: OLEVariant;
Count: OLEVariant;
NameBookmakers: OLEVariant;
k: real;
begin
DataModule1.DogovorsTable.DisableControls;
//Путь до файла с бланком
FileName:=Path+\Data\List.dot;
if FileExists(FileName)=false then Application.MessageBox(Файл "\Data\List.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:=DATE;
MainForm.WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);
MainForm.WA.Selection.TypeText(DateToStr(Now));
except
end;
try
NameBookmakers:=START;
MainForm.WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);
n:=DataModule1.DogovorsTable.RecordCount;
MainForm.ProgressBar1.Visible:=true;
MainForm.ProgressBar1.Max:=n;
MainForm.ProgressBar1.Position:=0;
k:=0;
MainForm.Label1.Caption:=FloatToStr(k)+% ;
DataModule1.DogovorsTable.First;
S2:=wdCell;
S3:=1;
while not DataModule1.DogovorsTable.Eof do
for i:=0 to n-1 do
begin
//№ договора
MainForm.WA.Selection.TypeText(DataModule1.DogovorsTable.Fields.Fields[0].Text);
MainForm.WA.Selection.MoveRight(S2,S3,EmptyParam);
//ФИО заказчика
MainForm.WA.Selection.TypeText(DataModule1.DogovorsTable.Fields.Fields[3].Text+ +DataModule1.DogovorsTable.Fields.Fields[4].Text+ +DataModule1.DogovorsTable.Fields.Fields[5].Text);
MainForm.WA.Selection.MoveRight(S2,S3,EmptyParam);
//Курс
MainForm.WA.Selection.TypeText(DataModule1.DogovorsTable.Fields.Fields[16].Text);
MainForm.WA.Selection.MoveRight(S2,S3,EmptyParam);
//Переход к следующей записи
MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+1;
k:=k+(100/n);
MainForm.Label1.Caption:=FloatToStrF(k,ffFixed,0,0)+% ;
DataModule1.DogovorsTable.Next;
//Удаление последней строки
//если таблица заканчивается
if DataModule1.DogovorsTable.Eof then MainForm.WA.Selection.Rows.Delete;
end;
MainForm.Label1.Caption:=100% ;
except
Application.MessageBox(Не найдена закладка для СТАРТА! Прочитайте руководство пользователя для устранения ошибки!,Критическая ошибка,mb_ok+mb_IconError);
end;
try
NameBookmakers:=START;
MainForm.WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);
except
end;
//Сохранение документа во временной папки
S1:=Path+\Doc\Список.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_IconError);
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_IconError);
end;
end;
MainForm.ProgressBar1.Visible:=false;
DataModule1.DogovorsTable.