МИНИСТЕРСТВО ОБРАЗОВАНИЯИ НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ
МОСКОВСКАЯ АКАДЕМИЯПРЕДПРИНИМАТЕЛЬСТВА
ПРИ ПРАВИТЕЛЬСТВЕ МОСКВЫ
Сургутский филиал
Контрольная работа
Разработка истандартизация программных средств информационных технологий
Выполнил: Чернобровкин Виталий Викторович
Специальность: Прикладная информатика в экономике
Проверил: Анисимов Валерий Алексеевич
г. Сургут, 2009 г.
1.Техническое задание на объект автоматизации
1.1 Общиесведения
Исполнительныйфайл (программа) написанная на высокоуровневом языке программирования “Delphi”,представляющая собой графический интерфейс в виде кнопочной формы.
Заказчик: Руководителькафедры информационных технологий к. т. н. Анисимов В. А.
Разработчик:Чернобровкин Виталий Викторович студент 5-го курса МосАП, г Сургут.
Исполнительныйфайл (программа), разрабатывается согласно ГОСТ 34-602-89 ИТ.
Срок началоработы по созданию программы: 7.03.2009.
Окончаниеработы 21. 04. 2009
Порядок оформленияи предъявления заказчику результатов работ по созданию системы (ее частей), поизготовлению и наладке: 1) демонстрация программы в приложении PowerPointнаписанной с помощью ВЯП “Delphi”.
1.2 Назначениепрограммы
Автоматизацияприложения мини — СУБД. Автоматизированная выборка данных. Упрощениепереработки информации при использовании СУБД. Так как, обработка бумажнойдокументации в ручную долговременный и затратный труд.
1.3 Цельсоздания
Демонстрациязнаний в изучении ВЯП “Delphi”, навыков в работе с данным языком программирования.Изучение и закрепление знаний в ЕСПД (ГОСТ 19.001-77 и т.д. по порядку)
1.4 Объектыавтоматизации
АРМ секретаряучебно-методического кабинета. В программное обеспечение ПК секретаря входитОперационная система Windows XP Professional.
1.5Требования к численности и квалификации персонала
Квалификацияпользователей должна быть на уровне “уверенного пользователя”. Т.е.пользователь должен уверенно разбираться и работать в СУБД написанной на ВЯП“Delphi”.
1.6Требования к защите информации
Конфиденциальнаяинформация и доступ к базе данных должен содержать пароль. (К данной программетакое требование не нужно).
1.2Требования к видам обеспечения
1.2.1Лингвистическое обеспечение
Представляетсобой языки программирования на которых пишется программа т.е. ВЯП – “Delphi”.
1.2.2Информационное обеспечение
Состав,структура и способ организации данных должны быть просты в понимании, содержатьте данные, которые должны соответствовать свойствам данного языка написанияпрограммы
Информационныйобмен между данными должен быть как последовательным, так и выборочным
Рекомендуемыетехнические средства и операционная система: ПЭВМ типа IBM PC и ОС MicrosoftWindows. Рекомендуемая СУБД – “Delphi”
1.2.3Программное обеспечение
Дляразработки формы применялась программа написанная на ВЯП “Delphi”.
1.3 Состав исодержание работ
Таблица 2.1№п/п Наименование работы Результат работы 1 ТЭО Обоснование и смысл разработки программы 2 Построение алгоритма Основа написания программы 3 Написание программы Основной листинг программы 4 Прогонка программы Анализ и выявление ошибок 5 Отладка программы Устранение синтаксических и семантических ошибок 6 Ввод в эксплуатацию Работа с программой
2. Программаи методика испытаний
Согласно ЕСПДГОСТ 19.301-79 содержит следующие разделы:
2.1 Объект испытаний
Программа –исполнительный файл, по сущности – графический интерфейс СУБД, кнопочная форма.
2.2 Цель испытаний
Проверкавыполнения задания, испытание программы в работе. Проверка выполнениеназначенных функций в программе
2.3 Требованияк программе
Даннаяпрограмма должна иметь четкую, последовательную, легковоспринимаемую организованнуюструктуру. Простейшую Базу данных. Слаженно и бесперебойно функционировать: спомощью нажатия кнопок в интерфейсе формы, показывать информацию согласнотекстовому заданию для данной задачи (программы) см. ниже.
Ввиду своейупрощенности, программа должна эксплуатироваться единичным, пользователям.
Программадолжна выводить информацию согласно введенным для нее требованиям.
Приэксплуатации программа должна иметь удобный и понятный интерфейс. Каждая кнопкадолжна соответствовать своему назначению.
Если впрограмме имеется особая или секретная информация, то она должна иметь коддоступа (пароль). В данной программе таковой информации нет.
2.4 Требованияк программной документации
Состав иструктура программного документа устанавливается по ГОСТ 19.105-78. Программныйдокумент выполняют одним из следующих печатных способов:
машинописным- на одной стороне листа, через два интервала; допускается через один илиполтора интервала, если обеспечивается пригодность к микрофильмированию по ГОСТ13.102-72 (разд.1);
машинным — наодной стороне листа, с расстояниями между основаниями строк, обеспечивающимпригодность к микрофильмированию;
типографским- в соответствии с требованиями, предъявленными к изданиям, изготавливаемымтипографским способом.
2.5 Состав ипорядок испытаний
Структура иоформление документа устанавливается в соответствии с ГОСТ 19.105-78.
Дляпроведения испытаний (запуск, отладка, останов) программы был задействован ПКтипа Pentium VI с операционной системой Windows XP.
3. Листингприкладной программы
unit Unit1;
interface
uses
Windows,Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,StdCtrls, Grids, ValEdit, CheckLst;
type
TForm1 =class(TForm)
Button1:TButton;
Memo1: TMemo;
Button2:TButton;
procedureButton1Click(Sender: TObject);
procedureButton2Click(Sender: TObject);
private
{ Privatedeclarations }
public
{ Publicdeclarations }
end;
constfilename = 'students.txt'; {файл с исходными данными}
type
student_record= record {структура для хранения данных о студенте}
name:ShortString; {ФИО}
examen1:ShortString; {Балл за первый экзамен}
examen2:ShortString; {Балл за второй}
zachet:ShortString; {1- сдан зачет, 0-не сдан}
faculty:ShortString; {факультет}
profession:ShortString; {специальность}
end;
plan = record{структура для хранения данных о плане приема на специальности}
name:ShortString; {наименование специальности}
ball: word; {проходнойбалл на специальность}
students: arrayof student_record; {студенты, зачисленные на специальность}
end;
var
Form1:TForm1;
f: textfile;
student_kniga:array of student_record; {массив студентов(данные из файла)}
plans: arrayof plan;{план приема и зачисленные студенты}
implementation
{$R *.dfm}
{открытие ичтение файла данных}
procedureopen_file;
var i, ii, t:word;
s:ShortString;
begin
AssignFile(f,filename);
Reset(f);
i:=1;
SetLength(student_kniga,0);
while not eof(f)do {в цикле считываем данные из файла в переменные}
begin
t:=0;
SetLength(student_kniga,i);
readln(f, s);{читаем построчно}
for ii:=1 toLength(s) do {перебираем посимвольно строку}
begin
if (s[ii] ='+') then t:=t+1{если встречаем символ-разделитель данных, переходим к считываниюследующей переменной}
else
if t=0 then
student_kniga[i-1].name:=student_kniga[i-1].name + s[ii] {запоминаем фамилию}
else
if t=1 then
student_kniga[i-1].examen1:=student_kniga[i-1].examen1 + s[ii] {запоминаем балл первого экзамена}
else
if t=2 then
student_kniga[i-1].examen2:=student_kniga[i-1].examen2 + s[ii] {запоминаем балл второго экзамена}
else
if t=3 then
student_kniga[i-1].zachet:=student_kniga[i-1].zachet + s[ii] {запоминаем результат зачета}
else
if t=4 then
student_kniga[i-1].faculty:=student_kniga[i-1].faculty + s[ii] {запоминаем факультет}
else
if t=5 then
student_kniga[i-1].profession:=student_kniga[i-1].profession + s[ii]; {запоминаем специальность}
end;
i:= i+1;
end;
closefile(f);{закрываем файл данных}
end;
{процедураотображения загруженных данных на форме}
proceduredisplay;
var i: word;
begin
form1.Memo1.Clear;{очищаем окно вывода данных}
for i:=0 tolength(student_kniga)-1 do {цикл по студентам}
begin
form1.Memo1.Lines.add(student_kniga[i].name{заносим данные о студенте в окно вывода}
+ #09 +student_kniga[i].examen1
+ #09 +student_kniga[i].examen2
+ #09 +student_kniga[i].zachet
+ #09 +student_kniga[i].faculty
+ #09 +student_kniga[i].profession);
end;
end;
{сохранениерезультатов вычислений}
proceduresave_file;
var i, ii:word;
begin
for i:=0 tolength(plans)-1 do {цикл по всем специальностям}
begin
ifplans[i].name '' then
AssignFile(f,plans[i].name+'.txt'); {создаем файл с названием специальности}
reWrite(f);//открываемфайл на перезапись
iflength(plans[i].students) >0 then
begin
form1.Memo1.Lines.add('Студентызачисленные на специальность '+plans[i].name+': ');
for ii:=0 to length(plans[i].students)-1do {цикл по зачисленным студентам на данную специальность}
begin
writeln(f,plans[i].students[ii].name); {записываем имя студента в файл}
end;
end
else
writeln(f,'Студенты не зачислены'); {сообщаем, если нет зачисленных студентов на даннуюспециальность}
closefile(f);{закрываем файл}
end;
end;
{процедуразагрузки данных (кнопка «Загрузка»)}
procedureTForm1.Button1Click(Sender: TObject);
begin
open_file; {открытиеи чтение файла данных}
display; {процедураотображения данных на форме}
end;
{процедураобработки данных (кнопка «Зачислить студентов»)}
procedureTForm1.Button2Click(Sender: TObject);
var sname:shortstring;
i, ii, iii,ball: word;
popal:boolean;
begin
for i:=0 tolength(student_kniga)-1 do {строим массив специальностей.}
begin
setlength(plans,i+1);{увеличиваем размерность массива на единицу}
plans[i].name:=student_kniga[i].profession; {запоминаем специальность}
end;
end;
for i:=0 tolength(plans)-1 do {удаляем повторяющиеся специальности}
begin
sname:=plans[i].name; {запоминаем первую специальность для сравнения с последующими}
for ii:=i+1to length(plans)-1 do
begin
if sname =plans[ii].name then plans[ii].name:= ''; {если специальность повторяется обнуляемэлемент массива спец}
end;
end;
for i:=0 tolength(plans)-1 do {цикл по специальностям чтобы определить проходной балл длякаждой}
begin
{еслиназвание спец-ти не пустое, выводим окно ввода данных о проходном балле наданную специальность}
ifplans[i].name '' then plans[i].ball:= strtoint(InputBox('Введитепроходной балл','Проходной балл для '+plans[i].name+': ',''));
end;
{в цикле определяетсяпрошел студент на свою специальность или нет(по проходному баллу}
for i:=0 tolength(student_kniga)-1 do
begin
ball:= {вычисляемнабранный балл студентом}
strtoint(student_kniga[i].examen1)+
strtoint(student_kniga[i].examen2)+
strtoint(student_kniga[i].zachet);
for ii:=0 tolength(plans)-1 do
begin
{проверка насоответствие текущей спец-ти и выбранной студентом}
ifplans[ii].name = student_kniga[i].profession then {если совпадает, смотримпроходит студент по набранному баллу или нет}
ifplans[ii].ball
begin
setlength(plans[ii].students,length(plans[ii].students)+1); {увеличиваем размерность массива студентов на 1}
plans[ii].students[length(plans[ii].students)-1].name:=student_kniga[i].name; {добавляем студента в список зачисленных}
popal:=true; {запоминаемв переменную, что студент проходит}
end
else
popal:=false;{иначе смотрим на какую специальность может быть зачислен}
end;
if not(popal)then
begin
for iii:=0 tolength(plans)-1 do {смотрим проходные баллы по специальностям и определяем кудаможно зачислить студента}
begin
if(plans[iii].ball '') then {еслинабранный студентом балл больше проходного}
begin
setlength(plans[iii].students,length(plans[iii].students)+1); {увеличиваем размерность массива студентов на 1}
plans[iii].students[length(plans[iii].students)-1].name:=student_kniga[i].name; {добавляем студента в список зачисленных}
break; {прерываемцикл}
end;
end;
end;
end;
save_file;//сохраняем данные в файл
end;
end.
Пример вводаисходных данных
/>
/>
/>
/>
/>
/>
4. Описаниепрограммы
Приведенныйалгоритм, на основе текстового задания.
/>
5.Руководство системного программиста
5.1 Общие сведенияо программе
Даннаяпрограмма предназначена для выполнения таких функций как:
Загрузка вСУБД (форму) информации о студентах – ФИО, количество балов, наименованиефакультета (сокр.), номер специальности.
Послевведения количества баллов, показ результат прохождения по той или иной специальности(номер специальности), т. е. прошел тот или иной студент или нет.
Вывод надисплей информации о студентах, которые получили проходной балл и зачислены нафакультеты.
5.2 Структурапрограммы
Библиотеки:Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, Grids, ValEdit, CheckLst;
Типы классов,процедур, объектов: TForm1 = class (TForm)
Button1:TButton;
Memo1: TMemo;
Button2:TButton;
procedureButton1Click(Sender: TObject);
procedureButton2Click(Sender: TObject);
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
Типыпеременных: student_record = record {структура для хранения данных о студенте}
name:ShortString; {ФИО}
examen1:ShortString; {Балл за первый экзамен}
examen2:ShortString; {Балл за второй}
zachet:ShortString; {1- сдан зачет, 0-не сдан}
faculty:ShortString; {факультет}
profession:ShortString; {специальность}
end;
plan = record{структура для хранения данных о плане приема на специальности}
name:ShortString; {наименование специальности}
ball: word;{проходной балл на специальность}
students:array of student_record; {студенты, зачисленные на специальность}
end.
Переменные: var
Form1:TForm1;
f: textfile;
student_kniga:array of student_record; {массив студентов(данные из файла)}
plans: arrayof plan;{план приема и зачисленные студенты}
Телопрограммы:
begin
...
...
end.
5.3 Настройкапрограммы
Открыть файл– Project1.exe, после того как на дисплее, появится Form1, навести курсор накнопку “запуск” и нажать.
Появитсясписок студентов, после чего нажать на кнопку “зачислить студентов”.
Появитсяформа “введите проходной балл” для специальности 22031. Вводим допустимоезначение (цифру)
Появитсяформа “введите проходной балл” для специальности 22032. Вводим допустимоезначение (цифру)
Появитсяформа “введите проходной балл” для специальности 23150. Вводим допустимоезначение (цифру)
Появитсяформа “введите проходной балл” для специальности 23152. Вводим допустимоезначение (цифру)
После вводаво все формы всех допустимых значений нажимаем “ок”.
Читаемрезультат (студенты зачислены на специальность _номер).
5.4 Проверка программы
Посленаписания программы, в меню приложения “Delphi” нажимаем кнопку debug (отладка)и делаем пошаговую отладку. Если появляются синтаксические ошибки, то исправляемих. Далее проверка идет на выявление семантических ошибок.
5.5 Дополнительныевозможности
В даннойпрограмме отсутствуют.
5.6 Сообщениясистемному программисту.
Смотри менюотладка программы “Delphi”
6.Руководство программиста
6.1 Назначениеи условия применения программ.
Программапредназначена для автоматизации процесса зачисления абитуриентов. Легкоисполняема. Для исполнения минимально требуется ПК с операционной системойWindows любой версии.
6.2 Характеристикапрограммы
Пользованиепрограммой по времени не ограничено. Режим работы – последовательное исполнениефайлов. Средства контроля правильности выполнения и самовосстанавливаемостипрограмм не имеет, т.е написана так, что ошибок не имеет.
6.3 Обращениек программе
Начинаем спроцедуры открытие файла: procedure open_file; Далее идет составной оператор, вкотором описываются переменные, операторы, комментарии (связано с запоминаниемпроходного балла, фамилии, имени, студента и т.д.) Затем идет процедуразакрытия файла: closefile(f); процедура отображения загруженных данных наформе: procedure display; процедура сохранение результатов вычислений: proceduresave_file;
Далее смотрилистинг программы.
6.4 Входные ивыходные данные
Входные –цифры от 0 до 9 (проходной балл). Выходные – строковые. Вся информациявыводится на дисплей с помощью форм написанных в программе “Delphi”.
6.5 Сообщения
Все сообщенияпо ходу выполнения программы смотреть в меню самой программы на писанной вприложении “Delphi”.
7 Руководствооператора
7.1 Назначениепрограммы
Программапредназначена для АРМ секретаря учебно — методического отдела. В ней автоматическиопределяется зачисление либо нет, того или иного студента на заданнуюспециальность.
7.2 Условиявыполнения программы
Минимальныетребования – ПК с операционной системой Widows любой версии, ОЗУ 64 Mb.
7.3 Выполнениепрограммы
1. Открытьфайл (Project1.exe) в приложении “Delphi”. В появившейся форме1 курсором нажатьна кнопку “запуск”. В окне формы появится список студентов, проходные баллы попредметам, номера специальностей.
2. Послепоявления списка, нажимаем кнопку “зачислить”. Поочередно будут появлятьсямаленькие формы для ввода проходного балла на ту, или иную специальность.Вводим необходимые цифры.
3. Послеввода последней формы, в интерфейсе основной формы1 появится информация остудентах зачисленных на специальность под указанным номером.
7.4 Сообщенияоператору
В даннойпрограмме:
Зачислитьстудентов, Проходной балл – группа(номер), Зачислено (группа).