Автоматизированная система по учету заселения и выселения студентов в общежитии №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