Разработка информационной системы по регистрации абитуриентов в учебном заведении
Характеристика функциональных возможностей разрабатываемой программы в среде Delphi для регистрации абитуриентов. Описание алгоритма и структуры данной программы. Поиск данных в базе по заданным параметрам. Описание модулей и листинг программы.
Рубрика | Программирование, компьютеры и кибернетика |
Вид | курсовая работа |
Язык | русский |
Дата добавления | 19.07.2011 |
Размер файла | 801,5 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
Курсовая работа
РАЗРАБОТКА ИНФОРМАЦИОННОЙ СИСТЕМЫ ПО РЕГИСТРАЦИИ АБИТУРИЕНТОВ В УЧЕБНОМ ЗАВЕДЕНИИ
Содержание
информационная система регистрация абитуриент delphi
- Введение
- Постановка и описание задачи
- Описание алгоритма
- Структура программы
- Описание модулей программы
- Заключение
- Список литературы
- Приложение 1. Листинг программы
- Приложение 2
- Приложение 3
- Приложение 4
- Приложение 5
- Приложение 6
- Приложение 7
Введение
Целью данного курсового проекта разработать информационную систему по регистрации абитуриентов в учебном заведении.
Цель любой информационной системы является обработка данных об объектах реального мира. В широком смысле слова ИС -- это совокупность сведений о конкретных объектах реального мира в какой-либо предметной области. Под предметной областью принято понимать часть реального мира, подлежащего изучению для организации управления и, в конечном счете, автоматизации, например предприятие, вуз и т д.
Создавая информационную систему, пользователь стремится упорядочить информацию по различным признакам и быстро извлекать выборку с произвольным сочетанием признаков. Сделать это возможно, только если данные структурированы.
Структурирование -- это введение соглашений о способах представления данных.
Пользователями информационной системы могут быть различные прикладные программы, программные комплексы, а также специалисты предметной области, выступающие в роли потребителей или источников данных, называемые конечными пользователями.
Таким образом информационная система (ИТ) -- это поименованная совокупность структурированных данных, относящихся к определенной предметной области.
Постановка и описание задачи
Задачей данного курсового проекта является разработать систему регистрации абитуриентов в учебном заведении.
Данная программа должна иметь следующие функциональные возможности:
1. Ввод абитуриентов в базу.
2. Поиск абитуриентов в базе по заданным атрибутам.
3. Просмотр количества баллов набранных абитуриентами.
Описание алгоритма
Данные хранятся в файле. Для просмотра данных был использован компонент StringGrid [1] (см. Рис1).
Рис. 1 Форма Система регистрации абитуриентов в учебном заведении
Данные из таблицы сохраняются при помощи компоненты SaveDialog (см. Рис 2)
Рис 2. Диалоговое окно Сохранить как…
Структура программы
Добавления, поиска и просмотра проходного бала набранного абитуриентами
Добавления записей в базу
Поиск данных в базе по заданным параметрам
Описание модулей программы
Модуль UBAZA.pas
Процедура N16Click(Sender: TObject)
Формируется отчет в Excel.
Процедура N14Click(Sender: TObject)
Все данные из таблицы экспортируются в Excel (см. Приложение 4).
Процедура Button2Click(Sender: TObject)
Происходит считывание из таблицы находящийся на форме Система регистрации абитуриентов в учебном заведении и отображается в таблице формы Балы абитуриентов (см. Приложение1).
Процедура N9Click(Sender: TObject)
Открывает форму Поиск.
Процедура N8Click(Sender: TObject)
Удаляет строки в таблице.
Процедура N3Click(Sender: TObject)
Вызывается диалоговое окно Сохранить. Данные из таблицы StringGrid [1] сохраняются в отдельный файл (см. Приложение 3).
Процедура N2Click(Sender: TObject)
Вызывается для открытия файлов (см. Приложение 5).
Процедура ShowHint(Sender: TObject)
Позволяет делать подсказку для компонентов на панели инструментов (см. Приложение 2).
Также в данном модуле были использованы следующие процедуры: N6Click(Sender: TObject), N4Click(Sender: TObject) открытие закрытие формы.
Модуль UBal.pas
Процедура N2Click(Sender: TObject)
Вызывает диалоговое окно Открыть.
Процедура N3Click(Sender: TObject)
Вызывает диалоговое окно Сохранить.
Процедура Button1Click(Sender: TObject)
Оператором Form1.StringGrid1.RowCount:=2 удаляются строки из таблицы, и закрывается форма.
Процедура FormCreate(Sender: TObject)
В данной процедуре происходит визуальная настройка таблицы. В таблице отображаются названия столбцов.
Модуль UBlank.pas
Процедура Button6Click(Sender: TObject)
При нажатии на кнопку происходит вызов процедуры er().
Процедура procedure er()
Добавления записей в таблицу (см. Приложение 6).
Процедуры Button5Click(Sender: TObject), Button4Click(Sender: TObject), Button3Click(Sender: TObject), Button2Click(Sender: TObject), Button1Click(Sender: TObject) открывают формы.
Модуль USearch.pas
Процедура Button1Click(Sender: TObject)
Поиск данных в таблице по заданным параметрам (см. Приложение 7).
Заключение
В ходе выполнения курсового проекта были получены навыки по работе с компонентами в визуальной среде разработки Delphi. Разработанная программа продемонстрировала простоту в использовании, так как имеет привычный интерфейс. удовлетворяет условию поставленной задачи.
Список литературы
1. Архангельский А.Я. Программирование в Delphi для Windows. Версия 2006, 2007, Turbo Delphi. - M.: ООО «Бином-Пресс», 2007 г. -1248 с.: ил.
Приложение 1. Листинг программы
procedure TForm5.Button2Click(Sender: TObject);
var
i1,i2,i3,i4,i5,j:integer;
begin
//Проверка на "пустоту" в ячейках формы Балы абитуриентов
if (Form1.StringGrid1.Cells[0,1] = ' ') and (Form1.StringGrid1.Cells[1,1]= ' ') and (Form1.StringGrid1.Cells[2,1] = ' ') and (Form1.StringGrid1.Cells[3,1]= ' ') and (Form1.StringGrid1.Cells[4,1] = ' ') then
begin
//Происходит считывание из таблицы находящийся на форме Система
//регистрации абитуриентов в учебном заведении в таблицу формы Балы //абитуриентов
Form1.StringGrid1.Cells[0,1]:=Form5.StringGrid1.Cells[0,1];
Form1.StringGrid1.Cells[1,1]:=Form5.StringGrid1.Cells[1,1];
Form1.StringGrid1.Cells[2,1]:=Form5.StringGrid1.Cells[2,1];
Form1.StringGrid1.Cells[3,1]:=Form5.StringGrid1.Cells[3,1];
If (Form5.StringGrid1.Cells[9,1]) <> ' ' Then
i1:=StrToInt(Form5.StringGrid1.Cells[9,1]);
If (Form5.StringGrid1.Cells[10,1]) <> ' ' Then
i2:=StrToInt(Form5.StringGrid1.Cells[10,1]);
If (Form5.StringGrid1.Cells[11,1]) <> ' ' Then
i3:=StrToInt(Form5.StringGrid1.Cells[11,1]);
If (Form5.StringGrid1.Cells[12,1]) <> ' ' Then
i4:=StrToInt(Form5.StringGrid1.Cells[12,1]);
If (Form5.StringGrid1.Cells[13,1]) <> ' ' Then
i5:=StrToInt(Form5.StringGrid1.Cells[13,1]);
Form1.StringGrid1.Cells[4,1]:=inttostr(i1+i2+i3+i4+i5);
Form1.Close;
exit;
end
else
j:=Form1.StringGrid1.RowCount-1;
begin
For i:= 1 to (Form5.StringGrid1.RowCount-1) do begin
Form1.StringGrid1.Cells[0,i]:=Form5.StringGrid1.Cells[0,i];
Form1.StringGrid1.Cells[1,i]:=Form5.StringGrid1.Cells[1,i];
Form1.StringGrid1.Cells[2,i]:=Form5.StringGrid1.Cells[2,i];
Form1.StringGrid1.Cells[3,i]:=Form5.StringGrid1.Cells[3,i];
if (Form5.StringGrid1.Cells[9,i])<> '' then
i1:=StrToInt(Form5.StringGrid1.Cells[9,i]);
If (Form5.StringGrid1.Cells[10,i]) <> ' ' Then
i2:=StrToInt(Form5.StringGrid1.Cells[10,i]);
If (Form5.StringGrid1.Cells[11,i]) <> ' ' Then
i3:=StrToInt(Form5.StringGrid1.Cells[11,i]);
If (Form5.StringGrid1.Cells[12,i]) <> ' ' Then
i4:=StrToInt(Form5.StringGrid1.Cells[12,i]);
If (Form5.StringGrid1.Cells[13,i]) <> ' ' Then
i5:=StrToInt(Form5.StringGrid1.Cells[13,i]);
Form1.StringGrid1.Cells[4,i]:=IntToStr(i1+i2+i3+i4+i5);
Form1.StringGrid1.RowCount:=j+1;
j:=Form1.StringGrid1.RowCount;
end;
Form1.Close;
end;
end;
Приложение 2
//Процедура позволяющая делать подсказку
Procedure TForm5.ShowHint(Sender: TObject);
begin
if length(Application.Hint)>0 then
begin
Form5.StatusBar1.SimplePanel:=True;
Form5.StatusBar1.SimplePanel:=False;
end
else
Form5.StatusBar1.SimplePanel:=False;
end;
Приложение 3
//Сохранение данных
procedure TForm5.N3Click(Sender: TObject);
var
f: TextFile;
i, k: Integer;
begin
if not SaveDialog1.Execute then exit;
AssignFile(f, SaveDialog1.FileName);
Rewrite(f);
with StringGrid1 do
begin
Writeln(f, ColCount);
Writeln(f, RowCount);
for i := 0 to ColCount - 1 do
for k := 0 to RowCount - 1 do
Writeln(F, Cells[i, k]);
end;
CloseFile(F);
end;
Приложение 4
//Все данные из таблицы экспортируются в Excel
procedure TForm5.N14Click(Sender: TObject);
begin
if fontdialog1.Execute then
StringGrid1.Font.Assign(fontdialog1.Font);
end;
procedure TForm5.N16Click(Sender: TObject);
var
Excel, WorkBook, Sheet,rows: Variant;
a,b,a1,b1 : integer;
begin
Excel:=CreateOleObject('Excel.Application');
Excel.SheetsInNewWorkbook:=1;
WorkBook:=Excel.WorkBooks.Add;
Sheet:=WorkBook.WorkSheets[1];
a:=StringGrid1.ColCount;
a1:=0;
Rows:=WorkBook.WorkSheets[1].rows;
Rows.Rows[2].Font.bold:=true;
Rows.Rows[2].Font.Size:=12;
while a>a1 do
begin
b:=StringGrid1.RowCount;
b1:=0;
while b>b1 do
begin
Sheet .Cells[b1+2, a1+2]:=StringGrid1.Cells[a1, b1];
b1:=b1+1;
end;
a1:=a1+1;
end;
Sheet.Cells.Columns.AutoFit;
Excel.Visible:=True;
end;
Приложение 5
//Открытие файлов
procedure TForm5.N2Click(Sender: TObject);
var
f: TextFile;
iTmp, i, k: Integer;
strTemp: String;
begin
if not OpenDialog1.Execute then exit;
AssignFile(f, OpenDialog1.FileName);
Reset(f);
with StringGrid1 do
begin
Readln(f, iTmp);
ColCount := iTmp;
Readln(f, iTmp);
RowCount := iTmp;
for i := 0 to ColCount - 1 do
for k := 0 to RowCount - 1 do
begin
Readln(f, strTemp);
Cells[i, k] := strTemp;
end;
end;
CloseFile(f);
end;
Приложение 6
//Добавление записей в таблицу
procedure er();
begin
if Form5.StringGrid1.Cells[0,1] = ' ' then
begin
i:= Form5.StringGrid1.RowCount;
Form5.StringGrid1.Cells[0,1]:=form2.Edit1.Text;
Form5.StringGrid1.Cells[1,1]:=form2.Edit2.Text;
Form5.StringGrid1.Cells[2,1]:=form2.Edit3.Text;
Form5.StatusBar1.Panels[0].Text:=Form2.Edit1.Text + ' ' + Form2.Edit2.Text + ' ' + Form2.Edit3.Text + ' ' + 'добавлен в базу ';
Form5.StringGrid1.Cells[4,1]:=form2.MaskEdit1.Text;
Form5.StringGrid1.Cells[9,1]:=form13.Edit1.Text;
Form5.StringGrid1.Cells[13,1]:=form13.Edit2.Text;
Form5.StringGrid1.Cells[14,1]:=form13.Edit6.Text;
Form5.StringGrid1.Cells[16,1]:=form6.Edit1.Text;
Form5.StringGrid1.Cells[17,1]:=form6.Edit2.Text;
Form5.StringGrid1.Cells[18,1]:=form6.Edit3.Text;
Form5.StringGrid1.Cells[19,1]:=form6.Edit4.Text;
Form5.StringGrid1.Cells[20,1]:=form6.Edit5.Text;
Form5.StringGrid1.Cells[23,1]:=form8.Edit1.Text;
Form5.StringGrid1.Cells[24,1]:=form8.Edit3.Text;
Form5.StringGrid1.Cells[21,1]:=form8.Edit2.Text;
Form5.StringGrid1.Cells[22,1]:=form8.Edit4.Text;
Form5.StringGrid1.Cells[5,1]:=form12.Edit1.Text;
Form5.StringGrid1.Cells[6,1]:=form12.MaskEdit1.Text;
Form5.StringGrid1.Cells[7,1]:=form12.Edit2.Text;
if Form2.RadioButton1.Checked = True then
Form5.StringGrid1.Cells[8,1]:=Form2.RadioButton1.Caption
else
Form5.StringGrid1.Cells[8,1]:=Form2.RadioButton2.Caption;
Form5.StringGrid1.Cells[3,1]:=form13.Edit4.Text;
Form1.StringGrid1.Cells[0,1]:=form2.Edit1.Text;
Form1.StringGrid1.Cells[1,1]:=form2.Edit2.Text;
Form1.StringGrid1.Cells[2,1]:=form2.Edit3.Text;
Form1.StringGrid1.Cells[3,1]:=form13.Edit4.Text;
Form1.StringGrid1.Cells[4,1]:=form13.Edit5.Text;
if Form13.ComboBox1.Text = 'Физика' then
Form5.StringGrid1.Cells[10,i-1]:=Form13.Edit3.Text;
if Form13.ComboBox1.Text = 'Информатика' then
Form5.StringGrid1.Cells[11,i-1]:=Form13.Edit3.Text;
if Form13.ComboBox1.Text = 'История России' then
Form5.StringGrid1.Cells[12,i-1]:=Form13.Edit3.Text;
if Form4.CheckBox1.Checked = True then
Form5.StringGrid1.Cells[15,1]:=Form5.StringGrid1.Cells[15,1] + Form4.CheckBox1.Caption+ ';';
if Form4.CheckBox2.Checked = True then
Form5.StringGrid1.Cells[15,1]:=Form5.StringGrid1.Cells[15,1] + Form4.CheckBox2.Caption+ ';';
if Form4.CheckBox3.Checked = True then
Form5.StringGrid1.Cells[15,1]:=Form5.StringGrid1.Cells[15,1] + Form4.CheckBox3.Caption+ ';';
if Form4.CheckBox4.Checked = True then
Form5.StringGrid1.Cells[15,1]:=Form5.StringGrid1.Cells[15,1] + Form4.CheckBox4.Caption+ ';';
if Form4.CheckBox5.Checked = True then
Form5.StringGrid1.Cells[15,1]:=Form5.StringGrid1.Cells[15,1] + Form4.CheckBox5.Caption+ ';';
form2.Edit1.Clear;
form2.Edit2.Clear;
form2.Edit3.Clear;
form2.MaskEdit1.Clear;
form13.Edit1.Clear;
form13.Edit2.Clear;
form13.Edit6.Clear;
form6.Edit1.Clear;
form6.Edit2.Clear;
form6.Edit3.Clear;
form6.Edit4.Clear;
form6.Edit5.Clear;
form8.Edit1.Clear;
form8.Edit3.Clear;
form8.Edit2.Clear;
form8.Edit4.Clear;
form12.Edit1.Clear;
form12.MaskEdit1.Clear;
form12.Edit2.Clear;
Form2.Close;
exit;
end
else
begin
i:= Form5.StringGrid1.RowCount;
Form5.StringGrid1.RowCount:= Form5.StringGrid1.RowCount+1;
Form5.StringGrid1.Cells[0,i]:=form2.Edit1.Text;
Form5.StringGrid1.Cells[1,i]:=form2.Edit2.Text;
Form5.StringGrid1.Cells[2,i]:=form2.Edit3.Text;
Form5.StatusBar1.Panels[0].Text:=Form2.Edit1.Text + ' ' + Form2.Edit2.Text + ' ' + Form2.Edit3.Text + ' ' + 'добавлен в базу ';
Form5.StringGrid1.Cells[4,i]:=form2.MaskEdit1.Text;
Form5.StringGrid1.Cells[9,i]:=form13.Edit1.Text;
Form5.StringGrid1.Cells[13,i]:=form13.Edit2.Text;
Form5.StringGrid1.Cells[14,i]:=form13.Edit6.Text;
Form5.StringGrid1.Cells[16,i]:=form6.Edit1.Text;
Form5.StringGrid1.Cells[17,i]:=form6.Edit2.Text;
Form5.StringGrid1.Cells[18,i]:=form6.Edit3.Text;
Form5.StringGrid1.Cells[19,i]:=form6.Edit4.Text;
Form5.StringGrid1.Cells[20,i]:=form6.Edit5.Text;
Form5.StringGrid1.Cells[23,i]:=form8.Edit1.Text;
Form5.StringGrid1.Cells[24,i]:=form8.Edit3.Text;
Form5.StringGrid1.Cells[21,i]:=form8.Edit2.Text;
Form5.StringGrid1.Cells[22,i]:=form8.Edit4.Text;
Form5.StringGrid1.Cells[5,i]:=form12.Edit1.Text;
Form5.StringGrid1.Cells[6,i]:=form12.MaskEdit1.Text;
Form5.StringGrid1.Cells[7,i]:=form12.Edit2.Text;
if Form2.RadioButton1.Checked = True then
Form5.StringGrid1.Cells[8,i]:=Form2.RadioButton1.Caption
else
Form5.StringGrid1.Cells[8,i]:=Form2.RadioButton2.Caption;
Form5.StringGrid1.Cells[3,i]:=form13.Edit4.Text;
Form1.StringGrid1.Cells[0,i]:=form2.Edit1.Text;
Form1.StringGrid1.Cells[1,i]:=form2.Edit2.Text;
Form1.StringGrid1.Cells[2,i]:=form2.Edit3.Text;
Form1.StringGrid1.Cells[3,i]:=form13.Edit4.Text;
if Form13.ComboBox1.Text = 'Физика' then
Form5.StringGrid1.Cells[10,i-1]:=Form13.Edit3.Text;
if Form13.ComboBox1.Text = 'Информатика' then
Form5.StringGrid1.Cells[11,i-1]:=Form13.Edit3.Text;
if Form13.ComboBox1.Text = 'История России' then
Form5.StringGrid1.Cells[12,i-1]:=Form13.Edit3.Text;
if Form4.CheckBox1.Checked = True then
Form5.StringGrid1.Cells[15,i-1]:=Form5.StringGrid1.Cells[15,i-1] + Form4.CheckBox1.Caption+ ';';
if Form4.CheckBox2.Checked = True then
Form5.StringGrid1.Cells[15,i-1]:=Form5.StringGrid1.Cells[15,i-1] + Form4.CheckBox2.Caption+ ';';
if Form4.CheckBox3.Checked = True then
Form5.StringGrid1.Cells[15,i-1]:=Form5.StringGrid1.Cells[15,i-1] + Form4.CheckBox3.Caption+ ';';
if Form4.CheckBox4.Checked = True then
Form5.StringGrid1.Cells[15,i-1]:=Form5.StringGrid1.Cells[15,i-1] + Form4.CheckBox4.Caption+ ';';
if Form4.CheckBox5.Checked = True then
Form5.StringGrid1.Cells[15,i-1]:=Form5.StringGrid1.Cells[15,i-1] + Form4.CheckBox5.Caption+ ';';
form2.Edit1.Clear;
form2.Edit2.Clear;
form2.Edit3.Clear;
form2.MaskEdit1.Clear;
form13.Edit1.Clear;
form13.Edit2.Clear;
form13.Edit6.Clear;
form6.Edit1.Clear;
form6.Edit2.Clear;
form6.Edit3.Clear;
form6.Edit4.Clear;
form6.Edit5.Clear;
form8.Edit1.Clear;
form8.Edit3.Clear;
form8.Edit2.Clear;
form8.Edit4.Clear;
form12.Edit1.Clear;
form12.MaskEdit1.Clear;
form12.Edit2.Clear;
Form2.Close;
end;
end;
Приложение 7
//поиск данных в таблице по заданным параметрам
procedure TForm14.Button1Click(Sender: TObject);
var
i, j : Integer;
Shablon, Shablon1, Shablon2: String;
begin
Shablon:= Form14.Edit1.Text;
Shablon1:= Form14.Edit2.Text;
Shablon2:= Form14.Edit3.Text;
with Form5.StringGrid1 do
for j:= 1 to RowCount - 1 do
if (Cells[0,j] = Shablon) and (Cells[1,j] = Shablon1) and (Cells[2,j] = Shablon2)then
begin
Form7.Show;
Form7.Caption:=Edit1.Text + ' ' + Edit2.Text + ' ' + Edit3.Text;
Form7.Edit1.Text:=Cells[0,j];
Form7.Edit2.Text:=Cells[1,j];
Form7.Edit3.Text:=Cells[2,j];
Form7.Edit4.Text:=Cells[3,j];
Form7.MaskEdit1.Text:=Cells[4,j];
Form7.Edit5.Text:=Cells[5,j];
Form7.MaskEdit2.Text:=Cells[6,j];
Form7.Edit6.Text:=Cells[7,j];
Form7.Edit7.Text:=Cells[8,j];
Form7.Edit8.Text:=Cells[9,j];
Form7.Edit9.Text:=Cells[10,j];
Form7.Edit10.Text:=Cells[11,j];
Form7.Edit11.Text:=Cells[12,j];
Form7.Edit12.Text:=Cells[13,j];
Form7.Edit13.Text:=Cells[14,j];
Form7.Memo1.Text:=Cells[15,j];
Form7.Edit14.Text:=Cells[16,j];
Form7.Edit15.Text:=Cells[17,j];
Form7.Edit16.Text:=Cells[18,j];
Form7.Edit17.Text:=Cells[19,j];
Form7.Edit18.Text:=Cells[20,j];
Form7.Edit19.Text:=Cells[21,j];
Form7.Edit20.Text:=Cells[22,j];
Form7.Edit21.Text:=Cells[23,j];
Form7.Edit22.Text:=Cells[24,j];
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
//Form14.Close;
end;
with Form5.StringGrid1 do
begin
for j:= 1 to RowCount - 1 do
if (Cells[0,j] <> Shablon) and (Cells[1,j] <> Shablon1) and (Cells[2,j] <> Shablon2)then
MessageDlg('Абитуриент' + ' ' +Edit1.Text + ' ' + Edit2.Text + ' ' + Edit3.Text + ' ' + 'не найден', mtInformation, [mbOk],0 );
end;
end;
Размещено на Allbest.ru
Подобные документы
Характеристика программы на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит результаты на экран. Описание переменных в программе, ее блок-схема и алгоритм работы. Листинг программы. Описание входных данных и результат вычислений.
курсовая работа [721,4 K], добавлен 10.11.2010Разработка программы обработки типизированных файлов с кодом на языке Object Pascal, с использованием компонентов Delphi для ввода и вывода данных. Разработка экранных форм и алгоритма программы. Описание программных модулей и инструкция оператору.
курсовая работа [1,5 M], добавлен 08.02.2011Общая характеристика организации Муниципального автономного учреждение "Хоккейная команда Кузбасс". Разработка программы регистрации в системе программирования Delphi. Тестирование разработанной программы. Руководства пользователю и администратору.
дипломная работа [1,3 M], добавлен 07.06.2012Существующие альтернативы программы. Описание формул для выкроек, используемых в разработке. Описание разрабатываемой программы, а также структура ее интерфейса. Детальное описание возможностей и спецификация, функциональные особенности программы.
курсовая работа [427,4 K], добавлен 10.10.2015Разработка программы тестирования студентов по MS PowerPoint с кодом на языке Delphi. Создание алгоритма для решения функциональных требований задачи. Описание переменных, вспомогательных процедур, входных и выходных данных для реализации программы.
курсовая работа [1,5 M], добавлен 21.09.2010Программа поиска в базе данных в среде Borland Delphi 7.0 Enterprise. Условия и блок-схемы задач. Ввод массива. Текст программ в Delphi, в Паскаль. Текст программы поиска в базе данных. Кодирование материала. Изготовление реляционной базы данных.
практическая работа [27,6 K], добавлен 11.10.2008Проектирование программы в среде Delphi для тестирования знаний студентов по программированию, с выводом оценки по окончанию тестирования. Разработка экранных форм и алгоритма программы. Описание программных модулей. Алгоритм процедуры BitBtn1Click.
курсовая работа [365,0 K], добавлен 18.05.2013Разработка программы тестирования для выявления акцентуаций типа человека в среде Delphi и Microsoft Access. Проектирование алгоритма реализации модели. Описание программы и модулей, руководство пользователя. Меры обеспечения информационной безопасности.
дипломная работа [2,7 M], добавлен 15.06.2012Особенности разработки приложений для операционной системы с помощью императивного, структурированного, объектно-ориентированного языка программирования Delphi. Формальное начало программы. Выделение конца программного блока. Листинг и описание программы.
курсовая работа [1,2 M], добавлен 04.08.2014Составление алгоритма и разработка в среде программирования Delphi 7 программы, вычисляющей макроэкономические индексы цен. Реализация программы в виде 4 форм и 1 диалогового окна. Описание алгоритма решения задачи. Текст программы, руководство оператора.
курсовая работа [1,4 M], добавлен 04.06.2013