Автоматизированная система по учету заселения и выселения студентов в общежитии №1 Барнаульского Государственного Педагогического колледжа

Исследование предметной области. Разработка проектных решений. Концепция информационной базы и её структура. Функции подсистем (модулей). Алгоритм работы программы. Требования к контролю, обновлению и восстановлению данных, защите данных от разрушений.

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык русский
Дата добавления 16.02.2016
Размер файла 139,5 K

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

DBGrid1.Columns.Items[3].Width:=Form1.DBGrid1.Columns.Items[2].Width;

DBGrid1.Columns.Items[4].FieldName := 'Komnata';

DBGrid1.Columns.Items[4].Title.Caption:='Комната';

DBGrid1.Columns.Items[4].Visible:=True;

DBGrid1.Columns.Items[4].Width:=Form1.DBGrid1.Columns.Items[1].Width;

DBGrid1.Columns.Items[5].Visible:=False;

DBGrid1.Columns.Items[6].Visible:=False;

DBGrid1.Columns.Items[7].Visible:=False;

DBGrid1.Columns.Items[8].Visible:=False;

DBGrid1.Columns.Items[9].Visible:=False;

DBGrid1.Columns.Items[10].Visible:=False;

DBGrid1.Columns.Items[11].Visible:=False;

DBGrid1.Columns.Items[12].Visible:=False;

end;

if DBGrid1.Columns.Items[0].Field.Text='' then begin

ShowMessage('Запись не найдена');

Edit1.Clear;

end;

end;

end;

procedure TForm14.BitBtn2Click(Sender: TObject);

begin

Form1.Show;

Form1.Enabled:=True;

Form1.Edit1.SetFocus;

Close;

end;

procedure TForm14.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form1.Show;

Form1.Enabled:=True;

Form1.Edit1.SetFocus;

DBGrid1.Columns.Items[0].Visible:=False;

DBGrid1.Columns.Items[1].Visible:=False;

DBGrid1.Columns.Items[2].Visible:=False;

DBGrid1.Columns.Items[3].Visible:=False;

DBGrid1.Columns.Items[4].Visible:=False;

DBGrid1.Columns.Items[5].Visible:=False;

DBGrid1.Columns.Items[6].Visible:=False;

DBGrid1.Columns.Items[7].Visible:=False;

DBGrid1.Columns.Items[8].Visible:=False;

DBGrid1.Columns.Items[9].Visible:=False;

DBGrid1.Columns.Items[10].Visible:=False;

DBGrid1.Columns.Items[11].Visible:=False;

DBGrid1.Columns.Items[12].Visible:=False;

DataModule2.ADOQuery3.Active:=False;

end;

procedure TForm14.Word1Click(Sender: TObject);

var

MsWord : Variant;

i:integer;

begin

if DBGrid1.Columns.Items[0].Visible=false then begin

ShowMessage('Сначало выберете поиск');

end

else

begin

if DBGrid1.Columns.Items[0].Title.Caption='Комната' then begin

if IsWordInstalled = false

then

begin

MessageDlg('Не установлен Microsoft Word'+#13+'установка решит этупроблемму',mtWarning,[mbok],0);

exit;

end;

MSWord := CreateOLEObject('Word.Application');

MsWord.Visible := true;

MsWord.documents.add;

MsWord.ActiveDocument.PageSetup.Orientation := 1;

MsWord.Selection.Font.Bold := 1;

MsWord.Selection.Font.Size := 14;

MsWord.Selection.ParagraphFormat.Alignment := 1;

MsWord.selection.TypeText('Список студентов');

MsWord.Selection.Font.Bold := 0;

MsWord.Selection.Font.Size := 12;

MsWord.Selection.Tables.add(MsWord.selection.Range,1,13,EmptyParam);

MsWord.Selection.Tables.Item(1).Columns.Item(1).Width:=DBGrid1.Columns.Items[0].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(2).Width:=DBGrid1.Columns.Items[1].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(3).Width:=DBGrid1.Columns.Items[2].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(4).Width:=DBGrid1.Columns.Items[3].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(5).Width:=DBGrid1.Columns.Items[4].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(6).Width:=DBGrid1.Columns.Items[5].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(7).Width:=DBGrid1.Columns.Items[6].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(8).Width:=DBGrid1.Columns.Items[7].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(9).Width:=DBGrid1.Columns.Items[8].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(10).Width:=DBGrid1.Columns.Items[9].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(11).Width:=DBGrid1.Columns.Items[10].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(12).Width:=DBGrid1.Columns.Items[11].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(13).Width:=DBGrid1.Columns.Items[12].Width;

MsWord.Selection.Tables.Item(1).Cell(1,1).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Комната');

MsWord.Selection.Tables.Item(1).Cell(1,2).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('ФИО студента');

MsWord.Selection.Tables.Item(1).Cell(1,3).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Дата рождения');

MsWord.Selection.Tables.Item(1).Cell(1,4).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Район');

MsWord.Selection.Tables.Item(1).Cell(1,5).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Город');

MsWord.Selection.Tables.Item(1).Cell(1,6).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Адрес');

MsWord.Selection.Tables.Item(1).Cell(1,7).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Телефон');

MsWord.Selection.Tables.Item(1).Cell(1,8).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Сотовый');

MsWord.Selection.Tables.Item(1).Cell(1,9).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Группа');

MsWord.Selection.Tables.Item(1).Cell(1,10).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Куратор');

MsWord.Selection.Tables.Item(1).Cell(1,11).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Дата заселения');

MsWord.Selection.Tables.Item(1).Cell(1,12).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Примечание');

MsWord.Selection.Tables.Item(1).Cell(1,13).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('ФИО родителей');

i:=2;

DBGrid1.SelectedRows.Clear;

with DBGrid1.Datasource.DataSet do

begin

First;

DisableControls;

try

while not EOF do

begin

DBGrid1.SelectedRows.CurrentRowSelected := True;

MsWord.Selection.Tables.Item(1).Rows.Add(EmptyParam);

MsWord.Selection.Tables.Item(1).Cell(i,1).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[0].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,2).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[1].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,3).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[2].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,4).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[3].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,5).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[4].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,6).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[5].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,7).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[6].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,8).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[7].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,9).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[8].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,10).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[9].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,11).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[10].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,12).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[11].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,13).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[12].Field.AsString);

inc(i);

Next;

end;

finally

EnableControls;

end;

end;

end;

If DBGrid1.Columns.Items[0].Title.Caption='ФИО родителей' then begin

if IsWordInstalled = false

then

begin

MessageDlg('Не установлен Microsoft Word'+#13+'установка решит этупроблемму',mtWarning,[mbok],0);

exit;

end;

MSWord := CreateOLEObject('Word.Application');

MsWord.Visible := true;

MsWord.documents.add;

MsWord.ActiveDocument.PageSetup.Orientation := 1;

MsWord.Selection.Font.Bold := 1;

MsWord.Selection.Font.Size := 14;

MsWord.Selection.ParagraphFormat.Alignment := 1;

MsWord.selection.TypeText('Список родителей студентов');

MsWord.Selection.Font.Bold := 0;

MsWord.Selection.Font.Size := 12;

MsWord.Selection.Tables.add(MsWord.selection.Range,1,5,EmptyParam);

MsWord.Selection.Tables.Item(1).Columns.Item(1).Width:=DBGrid1.Columns.Items[0].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(2).Width:=DBGrid1.Columns.Items[1].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(3).Width:=DBGrid1.Columns.Items[2].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(4).Width:=DBGrid1.Columns.Items[3].Width;

MsWord.Selection.Tables.Item(1).Columns.Item(5).Width:=DBGrid1.Columns.Items[4].Width;

MsWord.Selection.Tables.Item(1).Cell(1,1).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('ФИО родителей');

MsWord.Selection.Tables.Item(1).Cell(1,2).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Телефон родителей');

MsWord.Selection.Tables.Item(1).Cell(1,3).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Сотовый телефон родителей');

MsWord.Selection.Tables.Item(1).Cell(1,4).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('ФИО студента');

MsWord.Selection.Tables.Item(1).Cell(1,5).Select;

MSWord.Selection.Font.Size := 12;

MsWord.Selection.TypeText('Комната');

i:=2;

DBGrid1.SelectedRows.Clear;

with DBGrid1.Datasource.DataSet do

begin

First;

DisableControls;

try

while not EOF do

begin

DBGrid1.SelectedRows.CurrentRowSelected := True;

MsWord.Selection.Tables.Item(1).Rows.Add(EmptyParam);

MsWord.Selection.Tables.Item(1).Cell(i,1).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[0].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,2).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[1].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,3).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[2].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,4).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[3].Field.AsString);

MsWord.Selection.Tables.Item(1).Cell(i,5).Select;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.typetext(DBGrid1.Columns.Items[4].Field.AsString);

inc(i);

Next;

end;

finally

EnableControls;

end;

end;

end;

end;

end;

procedure TForm14.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then BitBtn1.Click;

end;

procedure TForm14.Excel1Click(Sender: TObject);

var XL: Variant;

i,j,n:integer;

begin

if DBGrid1.Columns.Items[0].Visible=false then begin

ShowMessage('Сначало выберете поиск');

end

else

begin

if DBGrid1.Columns.Items[0].Title.Caption='Комната' then begin

try

XL:=CreateOleObject('Excel.Application');

XL.Visible:=true;

except

Exception.Create('Error');

end;

XL.WorkBooks.Add;

XL.WorkBooks[1].WorkSheets[1].Name :='Студент';

XL.WorkBooks[1].WorkSheets[1].Cells[3,1]:='Комната';

XL.WorkBooks[1].WorkSheets[1].Cells[3,2]:='ФИО студента';

XL.WorkBooks[1].WorkSheets[1].Cells[3,3]:='Дата рождения';

XL.WorkBooks[1].WorkSheets[1].Cells[3,4]:='Район';

XL.WorkBooks[1].WorkSheets[1].Cells[3,5]:='Город';

XL.WorkBooks[1].WorkSheets[1].Cells[3,6]:='Адрес';

XL.WorkBooks[1].WorkSheets[1].Cells[3,7]:='Телефон';

XL.WorkBooks[1].WorkSheets[1].Cells[3,8]:='Телефон сотовый';

XL.WorkBooks[1].WorkSheets[1].Cells[3,9]:='Группа';

XL.WorkBooks[1].WorkSheets[1].Cells[3,10]:='Куратор';

XL.WorkBooks[1].WorkSheets[1].Cells[3,11]:='Дата заселения';

XL.WorkBooks[1].WorkSheets[1].Cells[3,12]:='Примечание';

XL.WorkBooks[1].WorkSheets[1].Cells[3,13]:='ФИО родителей';

Inc(i);

DataModule2.ADOQuery3.Open;//открытие таблицы

DataModule2.ADOQuery3.First;// регистр(маркер) в начале таблицы

while not DataModule2.ADOQuery3.Eof do

Begin XL.WorkBooks[1].WorkSheets[1].Cells[i+3,1]:=DBGrid1.Columns.Items[0].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,2]:=DBGrid1.Columns.Items[1].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,3]:=DBGrid1.Columns.Items[2].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,4]:=DBGrid1.Columns.Items[3].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,5]:=DBGrid1.Columns.Items[4].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,6]:=DBGrid1.Columns.Items[5].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,7]:=DBGrid1.Columns.Items[6].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,8]:=DBGrid1.Columns.Items[7].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,9]:=DBGrid1.Columns.Items[8].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,10]:=DBGrid1.Columns.Items[9].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,11]:=DBGrid1.Columns.Items[10].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,12]:=DBGrid1.Columns.Items[11].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,13]:=DBGrid1.Columns.Items[12].Field.Text;

Inc(i);

DataModule2.ADOQuery3.Next; //переход на следующую запись таблицы

End;

DataModule2.ADOQuery3.close;//закрытие таблицы XL.WorkBooks[1].WorkSheets[1].Columns[1].ColumnWidth:=DBGrid1.Columns.Items[0].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[2].ColumnWidth:=DBGrid1.Columns.Items[1].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[3].ColumnWidth:=DBGrid1.Columns.Items[2].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[4].ColumnWidth:=DBGrid1.Columns.Items[3].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[5].ColumnWidth:=DBGrid1.Columns.Items[4].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[6].ColumnWidth:=DBGrid1.Columns.Items[5].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[7].ColumnWidth:=DBGrid1.Columns.Items[6].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[8].ColumnWidth:=DBGrid1.Columns.Items[7].Width/2.5; XL.WorkBooks[1].WorkSheets[1].Columns[9].ColumnWidth:=DBGrid1.Columns.Items[8].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[10].ColumnWidth:=DBGrid1.Columns.Items[9].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[11].ColumnWidth:=DBGrid1.Columns.Items[10].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[12].ColumnWidth:=DBGrid1.Columns.Items[11].Width/5.5;

XL.WorkBooks[1].WorkSheets[1].Columns[13].ColumnWidth:=DBGrid1.Columns.Items[1].Width/5.5;

XL.WorkBooks[1].WorkSheets[1].PageSetup.LeftMargin:=1;

XL.WorkBooks[1].WorkSheets[1].PageSetup.RightMargin:=1;

XL.WorkBooks[1].WorkSheets[1].Range['A2:M2'].Merge;

XL.WorkBooks[1].WorkSheets[1].Cells[2,1]:='Таблица студентов';

j:=13+DBGrid1.FieldCount;

n:=1;

XL.WorkBooks[1].WorkSheets[1].Rows[2].HorizontalAlignment:=3;

XL.WorkBooks[1].WorkSheets[1].Rows[2].Font.Bold := True;

XL.WorkBooks[1].WorkSheets[1].Rows[2].Font.Color := clBlack;

XL.WorkBooks[1].WorkSheets[1].Rows[2].Font.Size := 16;

XL.WorkBooks[1].WorkSheets[1].Rows[3].Font.Bold := True;

// присвоение ячейке значения

// XL.WorkBooks[1].WorkSheets[1].Cells[1, 1] := 'AIS_for_KFX';

//XL.Visible := true;

DataModule2.ADOQuery3.Active:=true;

end;

if DBGrid1.Columns.Items[0].Title.Caption='ФИО родителей' then begin

try

XL:=CreateOleObject('Excel.Application');

XL.Visible:=true;

except

Exception.Create('Error');

end;

XL.WorkBooks.Add;

XL.WorkBooks[1].WorkSheets[1].Name :='Родители';

XL.WorkBooks[1].WorkSheets[1].Cells[3,1]:='ФИО родителей';

XL.WorkBooks[1].WorkSheets[1].Cells[3,2]:='Телефон родителей';

XL.WorkBooks[1].WorkSheets[1].Cells[3,3]:='Сотовый телефон родителей';

XL.WorkBooks[1].WorkSheets[1].Cells[3,4]:='ФИО студента';

XL.WorkBooks[1].WorkSheets[1].Cells[3,5]:='Комната';

Inc(i);

DataModule2.ADOQuery3.Open;//открытие таблицы

DataModule2.ADOQuery3.First;// регистр(маркер) в начале таблицы

while not DataModule2.ADOQuery3.Eof do

Begin XL.WorkBooks[1].WorkSheets[1].Cells[i+3,1]:=DBGrid1.Columns.Items[0].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,2]:=DBGrid1.Columns.Items[1].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,3]:=DBGrid1.Columns.Items[2].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,4]:=DBGrid1.Columns.Items[3].Field.Text; XL.WorkBooks[1].WorkSheets[1].Cells[i+3,5]:=DBGrid1.Columns.Items[4].Field.Text;

Inc(i);

DataModule2.ADOQuery3.Next; //переход на следующую запись таблицы

End;

DataModule2.ADOQuery3.close;//закрытие таблицы XL.WorkBooks[1].WorkSheets[1].Columns[1].ColumnWidth:=DBGrid1.Columns.Items[0].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[2].ColumnWidth:=DBGrid1.Columns.Items[1].Width/5.5;

XL.WorkBooks[1].WorkSheets[1].Columns[3].ColumnWidth:=DBGrid1.Columns.Items[2].Width/5.5;

XL.WorkBooks[1].WorkSheets[1].Columns[4].ColumnWidth:=DBGrid1.Columns.Items[3].Width/5.5; XL.WorkBooks[1].WorkSheets[1].Columns[5].ColumnWidth:=DBGrid1.Columns.Items[4].Width/5.5;

XL.WorkBooks[1].WorkSheets[1].PageSetup.LeftMargin:=1;

XL.WorkBooks[1].WorkSheets[1].PageSetup.RightMargin:=1;

XL.WorkBooks[1].WorkSheets[1].Range['A2:E2'].Merge;

XL.WorkBooks[1].WorkSheets[1].Cells[2,1]:='Таблица родителей';

j:=5+DBGrid1.FieldCount;

n:=1;

XL.WorkBooks[1].WorkSheets[1].Rows[2].HorizontalAlignment:=3;

XL.WorkBooks[1].WorkSheets[1].Rows[2].Font.Bold := True;

XL.WorkBooks[1].WorkSheets[1].Rows[2].Font.Color := clBlack;

XL.WorkBooks[1].WorkSheets[1].Rows[2].Font.Size := 16;

XL.WorkBooks[1].WorkSheets[1].Rows[3].Font.Bold := True;

// присвоение ячейке значения

// XL.WorkBooks[1].WorkSheets[1].Cells[1, 1] := 'AIS_for_KFX';

//XL.Visible := true;

DataModule2.ADOQuery3.Active:=true;

end;

end;

end;

end.

Размещено на Allbest.ur


Подобные документы

  • Разработка проектных решений по созданию подсистемы учета студентов в деканате различных форм и видов обучения, диагностический анализ системы управления. Проектирование информационной базы данных, построение инфологической и датологической модели.

    дипломная работа [1,1 M], добавлен 24.06.2011

  • Технико-экономическая характеристика предметной области. Необходимость и цели использования вычислительной техники. Определение требований к информационной системе. Характеристика базы данных. Сквозная проверка функций. Алгоритм работы основных модулей.

    дипломная работа [3,5 M], добавлен 19.01.2017

  • Описание предметной области и структуры базы данных. Экономическая сущность информационных задач, построение диаграмм проекта и обособление проектных решений. Технологическое обеспечение и внешний вид программы, описание её работы и программный код.

    курсовая работа [910,1 K], добавлен 03.04.2015

  • Алгоритм работы программы. Анализ предметной области. Структура таблиц БД "Библиотека". Инфологическое и даталогическое проектирование. Запросы для поиска и извлечения только требуемых данных. Формы для просмотра, добавления, изменения данных в таблицах.

    курсовая работа [5,1 M], добавлен 14.06.2014

  • Анализ данных предметной области. Информационно-логическая модель базы данных. Физическое проектирование и мероприятия по защите и обеспечению целостности базы данных. Приложение интерфейса для SQL-сервера базы данных на языке программирования Delphi.

    курсовая работа [2,2 M], добавлен 30.05.2013

  • Назначение программного модуля (базы данных). Разработка информационной базы данных для колледжа. Поиск пользователями информации о преподавателях и дисциплинах. Анализ входной и выходной информации. Разработка алгоритма работы программы-приложения.

    реферат [513,1 K], добавлен 22.10.2012

  • Возможности создания баз данных средствами программного продукта SQL. Изучение предметной области и разработка проекта базы данных по учету студентов "Журнал классного руководителя". Задачи реализации программного средства, его тестирование и отладка.

    курсовая работа [3,7 M], добавлен 07.12.2012

  • Общие сведения об автоматизированных информационных системах библиотек. Разработка графического макета, интерфейса и дизайна информационной системы. Требования к функциональной части системы. Создание программных модулей. Алгоритмы обработки данных.

    дипломная работа [1,7 M], добавлен 04.11.2016

  • Анализ предметной области, определение сущностей и связей. Разработка базы данных, создание таблиц и запросов. Исходные тексты процедур модулей. Тестирование информационной системы на корректность работы. Схема инфологической модели предметной области.

    курсовая работа [4,3 M], добавлен 19.12.2011

  • Анализ предметной области. Обоснование проектных решений по разработке автоматизированного рабочего места сотрудника канцелярии банка. Проектирование структуры базы данных и интерфейса системы. Разработка программных модулей и алгоритмов их работы.

    дипломная работа [2,1 M], добавлен 18.10.2015

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.