Проектування автоматизованої інформаційної системи обліку аудиторного фонду, яка має виконувати наступні функції: ініціалізацію; додавання і видалення елементів; переміщення по структурі даних; пошук елементів. Розробка інтерфейсу, інструкції користувача.
При низкой оригинальности работы "Автоматизована інформаційна система Облік аудиторного фонду університету", Вы можете повысить уникальность этой работы до 80-100%
ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД «УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ» ІНЖЕНЕРНО-ТЕХНІЧНИЙ ФАКУЛЬТЕТ КАФЕДРА КОМП’ЮТЕРНИХ СИСТЕМ ТА МЕРЕЖ КУРСОВА РОБОТА з дисципліни Програмування напрям підготовки 0915 - «Комп’ютерна інженерія» Тема роботи АІС «Облік аудиторного фонду університету» Ужгород - 2012 ЗМІСТ ІНДИВІДУАЛЬНЕ ТЕХНІЧНЕ ЗАВДАННЯ ВСТУП 1. ІНСТРУКЦІЯ ДЛЯ КОРИСТУВАЧА ВИСНОВКИ СПИСОК ВИКОРИСТАНОЇ ЛІТЕРАТУРИ ДОДАТКИ ІНДИВІДУАЛЬНЕ ТЕХНІЧНЕ ЗАВДАННЯ Завдання та вимоги до реалізації: Аудиторний фонд університету складається з певної кількості корпусів, кожен з яких містить різну кількість поверхів. Реалізувати можливість збереження даних у файл та редагування збережених даних. Практична реалізація повинна забезпечити можливість виконання наступних операцій над створеною структурою даних: 1) ініціалізацію; 2) додавання нових елементів; 3) видалення елементів; 4) переміщення по структурі даних (її обхід); 5) пошук елементів структури даних, що відповідають заданим критеріям; 6) виведення всіх елементів структури даних. В такий список програм входить і програмне середовище Delphi. Наприклад клітинка, що розташована у 3-му рядку 2-го стовпчика має значення StringGrid1.Cells[nc,nr], де nc - номер стовпчика, nr - номер рядка. 1 Лістинг головного вікна програми 1.Процедура відкриття даних: procedure TForm1.Button2Click(Sender: TObject); var a:Aic; n,i:integer; begin lich:=0; AssignFile(f,ss); reset(f); n:=Filesize(f); stringgrid1.RowCount:=n 1; stringgrid1.FixedRows:=1; for i:=1 to n do begin seek(f,i-1); read(f,a); Stringgrid1.Cells[0,i]:=inttostr(i); Stringgrid1.Cells[1,i]:=a.Nomerayd; Stringgrid1.Cells[2,i]:=inttostr(a.Poverh); Stringgrid1.Cells[3,i]:=inttostr(a.Nkor); Stringgrid1.Cells[4,i]:=a.Adrkorp; Stringgrid1.Cells[5,i]:=a.Fakyijtet; Stringgrid1.Cells[6,i]:=a.Prumitka; end; closefile(f); end; 2.Процедура закриття даних: procedure TForm1.Button1Click(Sender: TObject); begin lich:=0; stringgrid1.RowCount:=1; end; 3.Процедура обновлення даних: procedure TForm1.Button6Click(Sender: TObject); var i:integer; begin Assignfile(f,ss); reset(f); For i:=1 to stringgrid1.RowCount-1 do begin a.Nomerayd:=Stringgrid1.Cells[1,i]; a.Poverh:= strtoint(Stringgrid1.Cells[2,i]); a.Nkor:=strtoint(Stringgrid1.Cells[3,i]); a.Adrkorp:=Stringgrid1.Cells[4,i]; a.Fakyijtet:=Stringgrid1.Cells[5,i]; a.Prumitka:=Stringgrid1.Cells[6,i]; seek(f,i-1); write(f,a) end; end; 4.Процедура видалиння елемента: procedure TForm1.Button4Click(Sender: TObject); var i,n:integer; b:array[0..100] of Aic; begin k:=strtoint(edit1.text); l:=0; AssignFile(f,ss); reset(f); n:=Filesize(f); Form1.stringgrid1.RowCount:=n 1; for i:=1 to n do begin seek(f,i-1); if i
Вы можете ЗАГРУЗИТЬ и ПОВЫСИТЬ уникальность своей работы
