База данных «приемная комиссия»
Реферат - Компьютеры, программирование
Другие рефераты по предмету Компьютеры, программирование
>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
then"> 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 Слушатели);
=#+OneD+#)AND(=#+OneD+#) AND (ДатаОкончанияОбучения<=#+TwoD+#));
try
Active:=true;
except
Application.MessageBox(Невозможно сформировать список. Задайте другие параметры!,Информация,mb_Ok+mb_IconInformation);
end;
DateSeparator:=.;
ShortDateFormat:=mm/dd/yyyy;
0then"> 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);
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:=Date1;
MainForm.WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);