МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
МОСКОВСЬКА АКАДЕМІЯ ПІДПРИЄМНИЦТВА
ПРИ УРЯДІ МОСКВИ
Сургутський філія
Контрольна робота
Розробка і стандартизація програмних засобів інформаційних технологій
Виконав: Чернобровкін Віталій Вікторович
Спеціальність: Прикладна інформатика в економіці
Перевірив: Анісімов Валерій Олексійович
м. Сургут, 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 і ОС Microsoft Windows. Рекомендована СУБД - "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;
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
const filename = '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: array of student_record; {студенти, зараховані на спеціальність}
end;
var
Form1: TForm1;
f: textfile;
student_kniga: array of student_record; {масив студентів (дані з файлу)}
plans: array of plan; {план прийому та зараховані студенти}
implementation
{$ R *. dfm}
{Відкриття і читання файлу даних}
procedure open_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 to Length (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;
{Процедура відображення завантажених даних на формі}
procedure display;
var i: word;
begin
form1.Memo1.Clear; {очищаємо вікно виведення даних}
for i: = 0 to length (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;
{Збереження результатів обчислень}
procedure save_file;
var i, ii: word;
begin
for i: = 0 to length (plans) -1 do {цикл по всіх спеціальностях}
begin
if plans [i]. name <>''then
AssignFile (f, plans [i]. Name + '. Txt'); {створюємо файл з назвою спеціальності}
reWrite (f); / / відкриваємо файл на перезапис
if length (plans [i]. students)> 0 then
begin
form1.Memo1.Lines.add ('Студенти зараховані на спеціальність' + plans [i]. name + ':');
for ii: = 0 to length (plans [i]. students) -1 do {цикл по зарахованим студентам на дану спеціальність}
begin
writeln (f, plans [i]. students [ii]. name); {записуємо ім'я студента в файл}
end;
end
else
writeln (f, 'Студенти не зараховані'); {повідомляємо, якщо немає зарахованих студентів на дану спеціальність}
closefile (f); {закриваємо файл}
end;
end;
{Процедура завантаження даних (кнопка "Завантаження")}
procedure TForm1.Button1Click (Sender: TObject);
begin
open_file; {відкриття і читання файлу даних}
display; {процедура відображення даних на формі}
end;
{Процедура обробки даних (кнопка "Зарахувати студентів")}
procedure TForm1.Button2Click (Sender: TObject);
var sname: shortstring;
i, ii, iii, ball: word;
popal: boolean;
begin
for i: = 0 to length (student_kniga) -1 do {будуємо масив спеціальностей.}
begin
setlength (plans, i +1); {збільшуємо розмірність масиву на одиницю}
plans [i]. name: = student_kniga [i]. profession; {запам'ятовуємо спеціальність}
end;
end;
for i: = 0 to length (plans) -1 do {видаляємо повторювані спеціальності}
begin
sname: = plans [i]. name; {запам'ятовуємо першу спеціальність для порівняння з наступними}
for ii: = i +1 to length (plans) -1 do
begin
if sname = plans [ii]. name then plans [ii]. name: =''; {якщо спеціальність повторюється Обнуляємо елемент масиву спец}
end;
end;
for i: = 0 to length (plans) -1 do {цикл за спеціальностями щоб визначити прохідний бал для кожної}
begin
{Якщо назва спец-ти не пусте, виводимо вікно введення даних про прохідний бал на цю спеціальність}
if plans [i]. name <>''then plans [i]. ball: = strtoint (InputBox ('Введіть прохідний бал', 'Прохідний бал для' + plans [i]. name + ':','')) ;
end;
{В циклі визначається пройшов студент на свою спеціальність чи ні (по прохідному балу}
for i: = 0 to length (student_kniga) -1 do
begin
ball: = {обчислюємо набраний бал студентом}
strtoint (student_kniga [i]. examen1) +
strtoint (student_kniga [i]. examen2) +
strtoint (student_kniga [i]. zachet);
for ii: = 0 to length (plans) -1 do
begin
{Перевірка на відповідність поточної спец-ти та обраної студентом}
if plans [ii]. name = student_kniga [i]. profession then {якщо співпадає, дивимося проходить студент за набраним балом чи ні}
if plans [ii]. ball <= ball then
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 to length (plans) -1 do {дивимося прохідні бали за спеціальностями і визначаємо куди можна зарахувати студента}
begin
if (plans [iii]. ball <= ball) and (plans [iii]. name <>'') 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;
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
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: array of 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; процедура збереження результатів обчислень: procedure save_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 Повідомлення оператору
У даній програмі:
Зарахувати студентів, Прохідний бал - група (номер), Зараховано (група).