Размещено на http://www.allbest.ru/

КУРСОВАЯ РАБОТА

На тему: Разработка информационно-поисковой системы "Паспортный стол"



Содержание

• Введение
• 1. Анализ современных программных комплексов для решения поставленной задачи
• 1.1 Среда для разработки приложений Borland Delphi 2007
• 1.2 Microsoft Visual Basic
• 2. Разработка информационно-поисковой системы "Паспортный стол" на языке программирования Delphi
• 2.1 Постановка задачи
• 2.2 Описание алгоритма задачи
• 2.3 Практическая часть выполнения задачи на языке программирования Delphi
• 2.4 Результаты работы программы
• Заключение
• Список используемой литературы


Введение

Создание и широкое внедрение электронно-вычислительных машин, современных средств переработки и передачи информации послужило началом нового процесса, называемым информатизацией общества. Её отличительной особенностью является компьютеризация практически всех сфер человеческой деятельности.

Сейчас компьютер является неотъемлемой частью практически любой сферы профессиональной деятельности человека. Компьютеры используются на предприятиях, фирмах, в магазинах, учреждениях, учебных заведениях и т.п. Они позволяют систематизировать информацию, с которой работают сотрудники данной организации, и в дальнейшем оперативно получать необходимые сведения.

Для получения максимальной эффективности от процесса внедрения компьютеров для каждой организации разрабатываются соответствующие информационные системы.

Цель курсовой работы: создать приложение Windows, позволяющее автоматизировать процесс обработки информации о паспортном столе.

Задачи:

1. Определить необходимые структуры данных, форматы исходных, промежуточных и результирующих данных для предметной области "Паспортный стол", а также используемые основные алгоритмы и их особенности.

2. Проанализировать возможности среды Delphi для создания приложения Windows для предметной области "Паспортный стол".

3. Разработать приложение Windows, реализующее обработку информации для предметной области "Паспортный стол".

4. Описать основные приёмы работы с созданным программным средством (сеанс работы).



1. Анализ современных программных комплексов для решения поставленной задачи

Любому человеку постоянно приходится сталкиваться с различными задачами и решать их различными способами. Одни задачи появляться довольно часто, другие - довольно редко, а некоторые вообще являются редким случаем. Задача характеризуется исходными данными и отношениями между ними, а также величинами или отношениями, значения которых неизвестны и должны быть определены в результате решения задачи. Именно для этого используются приложения, созданные с помощью современных программных комплексов и средств программирования.

Ниже будут рассмотрены наиболее популярные программные средства используемые для создания различных приложений.

Прогресс компьютерных технологий определил процесс появления новых разнообразных знаковых систем для записи алгоритмов - языков программирования. Смысл появления такого языка - оснащенный набор вычислительных формул дополнительной информации, превращает данный набор в алгоритм.

Язык программирования служит двум связанным между собой целям: он дает программисту аппарат для задания действий, которые должны быть выполнены, и формирует концепции, которыми пользуется программист, размышляя о том, что делать. Первой цели идеально отвечает язык, который настолько "близок к машине", что всеми основными машинными аспектами можно легко и просто оперировать достаточно очевидным для программиста образом. Второй цели идеально отвечает язык, который настолько "близок к решаемой задаче", чтобы концепции ее решения можно было выражать прямо и коротко.



1.1 Среда для разработки приложений Borland Delphi 2007

Среди большого разнообразия продуктов для разработки приложений Delphi занимает одно из ведущих мест. Delphi отдают предпочтение разработчики с разным стажем, привычками, профессиональными интересами. С помощью Delphi написано колоссальное количество приложений, десятки фирм и тысячи программистов-одиночек разрабатывают для Delphi дополнительные компоненты.

Пакет Delphi - продолжение линии компиляторов языка Pascal корпорации Borland. Pascal как язык очень прост, а строгий контроль типов данных способствует раннему обнаружению ошибок и позволяет быстро создавать надежные и эффективные программы. Корпорация Borland постоянно обогащала язык. Когда-то в версию 4.0 были включены средства раздельной трансляции, позже, начиная с версии 5.5, появились объекты, а в состав шестой версии пакета вошла полноценная библиотека классов Turbo Vision, реализующая оконную систему в текстовом режиме работы видеоадаптера. Это был один из первых продуктов, содержавших интегрированную среду разработки программ.

В классе инструментальных средств для начинающих программистов продуктам компании Borland пришлось конкурировать со средой Visual Basic корпорации Microsoft, где вопросы интеграции и удобства работы были решены лучше. Когда в начале 70-х годов Н. Вирт опубликовал сообщение о Pascal, это был компактный, с небольшим количеством основных понятий и зарезервированных слов язык программирования, нацеленный на обучение студентов. Язык, на котором предстоит работать пользователю Delphi, отличается от исходного не только наличием множества новых понятий и конструкций, но и идейно: в нем вместо минимизации числа понятий и использования самых простых конструкций (что, безусловно, хорошо для обучения, но не всегда оправдано в практической работе), предпочтение отдается удобству работы профессионального пользователя. Как язык Turbo Pascal естественно сравнивать с его ближайшими конкурентами - многочисленными вариациями на тему языка Basic (в первую очередь с Visual Basic корпорации Microsoft) и с C++. Turbo Pascal существенно превосходит Basic за счет полноценного объектного подхода, включающего в себя развитые механизмы инкапсуляции, наследование и полиморфизм. Последняя версия языка, применяемая в Delphi, по своим возможностям приближается к C++. Из основных механизмов, присущих C++, отсутствует только множественное наследование. (Впрочем, этим красивым и мощным механизмом порождения новых классов пользуется лишь небольшая часть программистов, пишущих на С++.) Плюсы применения языка Pascal очевидны: с одной стороны, в отличие от Visual Basic, основанного на интерпретации промежуточного кода, для него имеется компилятор, генерирующий машинный код, что позволяет получать значительно более быстрые программы. С другой - в отличие от C++ синтаксис языка Pascal способствует построению очень быстрых компиляторов.

Delphi содержит полноценный текстовый редактор типа Brief, назначения клавиш в котором соответствуют принятым в Windows стандартам, а глубина иерархии операций Undo неограниченна. Как это стало уже обязательным, реализовано цветовое выделение различных лексических элементов программы. Процесс построения приложения достаточно прост. Нужно выбрать форму (в понятие формы входят обычные, диалоговые, родительские и дочерние окна MDI), задать ее свойства и включить в нее необходимые компоненты (видимые и, если понадобится, неотображаемые): меню, инструментальные панели, строку состояния и т. п., задать их свойства и далее написать (с помощью редактора исходного кода) обработчики событий. Object Browser Окна типа Object Browser стали неотъемлемой частью систем программирования на объектно-ориентированных языках. Работа с ними становится возможной сразу после того, как вы скомпилировали приложение.

Projeсt Manager - это отдельное окно, где перечисляются модули и формы, составляющие проект. При каждом модуле указывается маршрут к каталогу, в котором находится исходный текст. Жирным шрифтом выделяются измененные, но еще не сохраненные части проекта. В верхней части окна имеется набор кнопок: добавить, удалить, показать исходный текст, показать форму, задать опции и синхронизировать содержимое окна с текстом файла проекта, т. е. с головной программой на языке Pascal.

1.2 Microsoft Visual Basic

приложение программирование delphi basic

Microsoft Visual Basic -- средство разработки программного обеспечения, разрабатываемое корпорацией Microsoft и включающее язык программирования и среду разработки. Язык Visual Basic унаследовал дух, стиль и отчасти синтаксис своего предка -- языка Бейсик, у которого есть немало диалектов. В то же время Visual Basic сочетает в себе процедуры и элементы объектно-ориентированных и компонентно-ориентированных языков программирования. Среда разработки VB включает инструменты для визуального конструирования пользовательского интерфейса.

Visual Basic считается хорошим средством быстрой разработки прототипов программы, для разработки приложений баз данных и вообще для компонентного способа создания программ, работающих под управлением операционных систем семейства Microsoft Windows.

В Visual Basic высокая скорость создания приложений с графическим интерфейсом для MS Windows, также простой синтаксис, позволяющий очень быстро освоить язык.

Есть возможность компиляции как в машинный код, так и в P-код (по выбору программиста). В режиме отладки программа всегда (вне зависимости от выбора) компилируется в P-код, что позволяет приостанавливать выполнение программы, вносить значительные изменения в исходный код, а затем продолжать выполнение: полная перекомпиляция и перезапуск программы при этом не требуется.

Защита от ошибок, связанных с применением указателей и доступом к памяти. Этот аспект делает Visual Basic приложения более стабильными, но также является объектом критики.

Недостатки Visual Basic заключаются в следующем:

Поддержка операционных систем только семейства Windows и Mac OS X (Исключение -- VB1 for DOS). Отсутствие механизма наследования реализации объектов. Существующее в языке наследование позволяет наследовать только интерфейсы, но не их реализацию.

Требует установленную msvbvmXX.dll для работы программы.

Медленная скорость работы, обусловленная тем, что практически все встроенные функции языка реализованы через библиотеку времени исполнения (runtime library), которая, в свою очередь, производит много "лишней" работы по проверке и/или преобразованию типов.

При создании информационно-поисковой системы по "Паспортный стол" вполне обоснованно рекомендуется использовать именно среду разработки Borland Delphi.



2. Разработка информационно-поисковой системы "Паспортный стол" на языке программирования Delphi

2.1 Постановка задачи

Разработать программу создания информационно-поисковой системы "Паспортный стол" на языке программирования Delphi.

Назначением программного продукта является предоставление пользователю информацию о серии и номере паспорта, кем был выдан и т. д., а также ряд операций над этими данными.

Функции, выполняемые информационно-поисковой системой "Паспортный стол" заключаются в следующем:

- ввод новых данных в таблицу. Данная функция подразумевает загрузку новой информации;

- удаление данных. Данная функция позволяет удалить не нужную информацию;

- сортировка данных. Такая функция дает возможность сортировать данные по определенному параметру выбранным пользователем;

- поиск по запросу пользователя. Данная функция подразумевает поиск данных, содержащихся в таблице;

Все операции с файлом оформляются в виде меню.

2.2 Описание алгоритма задачи

Процедуры мы вызываем с помощью меню основной программы, выбирая соответствующие пункты.

В программе содержатся процедуры.

a) procedure speedButton1Click - открытие рабочей формы;

b) procedure speedButton2Click - закрытие информационно-поисковой системы;

c) procedure FormCreate - Для настройки внешнего вида компонентов при создании формы (Рис. 1);

d) procedure SpeedButton1Click - добавление данных в таблицу. Предназначена для добавления новых записей в таблицу;

e) procedure N3Click - процедура сохранения таблицы. Позволяет сохранить данную таблицу;

f) procedure Showlist - для вывода информации из файла в таблицу. Эта процедура будет использоваться дважды: при загрузке таблицы и при выполнении действия вывода полного списка (Рис. 2);

g) procedure N4Click - процедура загрузить таблицу. Позволяет загрузить сохраненную таблицу.

h) procedure SpeedButton2Click - Выполнить выбранные действия;

i) procedure Sort - процедура сортировки. Позволяет отсортировать нужное поле по возрастанию;

j) procedure Button1Click - процедура удаления. Предназначена для удаления необходимой нам строки;

k) procedure poisk - процедура поиска предназначенная для поиска нужных записей в нужном поле таблицы;

l) procedure filter - фильтрация данных по заданному критерию.

Для запуска программы необходимо открыть файл "Project4.exe".

В программе использовались переменные

n,ip: integer; //N-строк в таблице, ip -индекс для поиска

s:string; //имя файла загруженной таблицы



Рис. 1 Блок-схема 1



Рис 2. Блок-схема 2

2.3 Практическая часть выполнения задачи на языке программирования Delphi

Ниже уточняется состав объектов, обеспечивающих функциональность всего клиентского приложения (Таблица 1).

Таблица 1 Компоненты формы

№	Страница	Имя компонента	Свойство
1	Standard	Panel1 (рабочая панель)	Align = alRight BorderWidth =12
2	Standard	Panel2 (панель таблицы)	Align = alClient BorderWidth = 3
3	Additional	StringGrid1 (основная таблица)	ColCount = 6 DefaultColWidth ? 1/6 ширины таблицы ScrollBars = ssVertical
4	Standard	MainMenu1 (главное меню)	Items Команды меню: Файл Загрузить таблицу Сохранить таблицу Выход Справка О программе Об авторе
5	Dialogs	OpenDialog1 (диалог открытия файла)	Filter Задать шаблон: Filter name | Filter Таблицы | *.tab Все файлы | *.*
6	Dialogs	SaveDialog1 (диалог сохранения файла)	Filter Задать шаблон: Filter name | Filter Таблицы | *.tab Все файлы | *.*
7	Standard	GroupBox1 (панель выбора действия)	Caption = Действия Align = alBottom
8	Standard	GroupBox2 (панель данных сотрудника)	Caption = Общие сведения Align = alClient
9	Standard	Label1 (Метка)	Сaption = ФИО
10	Standard	Edit1 (строка ввода)	Тext - стереть надпись Edit1
11	Standard	Label2 (Метка)	Сaption = Номер и серия паспорта
12	Standard	Edit2 (строка ввода)	Тext - стереть надпись Edit2
13	Standard	Label3 (Метка)	Сaption = Дата выдачи
14	Additional	MaskEdit1 (окно маскированного редактирования)	Тext - стереть надпись MaskEdit1 EditMask - щелкнуть … и выбрать Data
15	Standard	Label4 (Метка)	Сaption = Адресс
16	Standard	Edit3 (строка ввода)	Тext - стереть надпись Edit3
17	Standard	Label5 (Метка)	Сaption = Кем выдан
18	Standard	ComboBox1 (редактируемый список)	Тext - стереть надпись ComboBox1 Items - будет заполнено из файла неизменяемого справочника в событии FormCreate
19	Additional	SpeedButton1 (кнопка с картинкой)	Kind = bkOK Сaption = Добавить в таблицу
20	Standard	RadioButton1 (радиокнопка)	Сaption = Сортировка
21	Standard	RadioButton2	Сaption = Поиск по ФИО
22	Standard	RadioButton3	Сaption = Дата для вывода
23	Standard	RadioButton4	Сaption = Все данные
24	Standard	Label6 (Метка)	Сaption = ФИО для поиска
25	Standard	Edit4 (строка ввода)	Тext - стереть надпись Edit4
26	Standard	Label7 (Метка)	Сaption = Дата для вывода
27	Standard	Edit5 (строка ввода)	Тext - стереть надпись Edit5
28	Additional	SpeedButton2 (кнопка с картинкой)	Kind = bkOK Сaption = Выполнить

Модульная структура информационно-поисковой системы "Паспортный стол" представлена на рис. 3.

Рис.3 Модульная структура информационно-поисковой системы "Паспортный стол"

unit Unit4; {форма-заставка}

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;

type

TForm4 = class(TForm)

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

procedure speedButton1Click(Sender: TObject);

procedure speedButton2Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TForm4.speedButton1Click(Sender: TObject); {открытие рабочей области}

begin

form2.show;

end;

procedure TForm4.speedButton2Click(Sender: TObject); {Закрытие текущей формы}

begin

close;

end;

//эффект формы

procedure TForm4.FormShow(Sender: TObject);

begin

AnimateWindow(Handle, 1000, AW_SLIDE or AW_BLEND );

end;

//Эффект формы

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);

var val:byte;

begin

Form4.AlphaBlend:=true;

Form4.TransparentColor:=true;

Form4.TransparentColorValue:=clWhite;

For val:=255 downto 0 do

begin

Form4.AlphaBlendValue:=val;

end;

end;

end.

unit Unit2; {Рабочая форма}

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, Mask, Menus, ExtCtrls, Grids;

type

TForm2 = class(TForm)

StringGrid1: TStringGrid;

Panel1: TPanel;

Panel2: TPanel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Label4: TLabel;

Edit4: TEdit;

Label5: TLabel;

MaskEdit1: TMaskEdit;

SpeedButton1: TSpeedButton;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

Label6: TLabel;

Edit3: TEdit;

RadioButton3: TRadioButton;

SpeedButton2: TSpeedButton;

ComboBox1: TComboBox;

RadioButton4: TRadioButton;

Edit5: TEdit;

Label7: TLabel;

Button1: TButton;

procedure SpeedButton1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure Showlist;

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

n,ip:integer;

s:string;

implementation

uses Unit3, Unit1;

{$R *.dfm}

procedure TForm2.Showlist; {процедура вывода списка из файла}

var t:textfile;

d:string; // переменная-буфер для чтения из файла

begin

n:=1; // сбрасываем количество строк в StringGrid

reset(t,s); // открываем файл на чтение

while not eof(t) do // пока не конец файла делать

begin

n:=n+1; // увеличить количество строк в таблице

StringGrid1.RowCount:=n;

StringGrid1.cells[0,n-1]:=inttostr(n-1); // вывод номера в таблицу

readln(t,d); StringGrid1.Cells[1,n-1]:=d; // читаем из файла

readln(t,d); StringGrid1.Cells[2,n-1]:=d;

readln(t,d); StringGrid1.Cells[3,n-1]:=d;

readln(t,d); StringGrid1.Cells[4,n-1]:=d;

readln(t,d); StringGrid1.Cells[5,n-1]:=d;

end;

closefile(t); // закрываем файл

n:=n+1; // добавляем пустую строку в таблицу

StringGrid1.RowCount:=n;

StringGrid1.FixedRows:=1;

end;

procedure TForm2.FormCreate(Sender: TObject); { Для настройки внешнего вида компонентов при создании формы }

var t:textfile; // объявляем файловую переменную

d:string; //переменная-буфер для чтения из файла

begin

reset(t,'otdel.ini'); // открываем файл Otdel.ini

while not eof(t) do // пока не конец файла

begin

readln(t,d); // читаем из файла строку в переменную d

combobox1.Items.Add(d); // добавляем d к списку

end;

combobox1.ItemIndex:=0;

closefile(t); // закрываем файл

n:=2;

StringGrid1.RowCount:=n; // настройка таблицы

StringGrid1.cells[0,0]:='№';

StringGrid1.cells[1,0]:='ФИО';

StringGrid1.cells[2,0]:='№ и серия паспорта';

StringGrid1.cells[3,0]:='Дата выдачи';

StringGrid1.cells[4,0]:='Адресс';

StringGrid1.cells[5,0]:='Кем выдан';

ip:=0; // начальное значение строки для поиска

s:=''; // загруженной таблицы нет

end;

procedure TForm2.N3Click(Sender: TObject); {Загрузить таблицу}

begin

if OpenDialog1.Execute then // если диалог открытия файл выполнен

begin

s:=OpenDialog1.FileName; // получаем имя файла от диалога

ShowList; // выводим список из файла

end;

end;

procedure TForm2.N4Click(Sender: TObject); {Сохранение таблицы}

var t:textfile;

i:integer;

begin

if savedialog1.Execute then // если диалог сохранения файла выполнен

begin

s:=savedialog1.FileName; // получаем имя файла от диалога

rewrite(t,s); // открываем файл на запись

for i:=1 to n-2 do // перебираем строки таблицы

begin

writeln(t,StringGrid1.cells[1,i]); // записываем информацию

writeln(t,StringGrid1.cells[2,i]);

writeln(t,StringGrid1.cells[3,i]);

writeln(t,StringGrid1.cells[4,i]);

writeln(t,StringGrid1.cells[5,i]);

end;

closefile(t); // закрываем файл

end;

end;

procedure TForm2.N5Click(Sender: TObject); {Выход}

begin

application.Terminate;

end;

procedure TForm2.N6Click(Sender: TObject); {Переход}

begin

form1.show;

end;

procedure TForm2.N7Click(Sender: TObject);

begin

form3.show;

end;

procedure TForm2.SpeedButton1Click(Sender: TObject); {Добавление данных в таблицу}

begin

StringGrid1.cells[0,n-1]:=IntToSTR(n-1);

StringGrid1.cells[1,n-1]:=Edit1.Text;

StringGrid1.cells[2,n-1]:=Edit2.Text;

StringGrid1.cells[3,n-1]:=MaskEdit1.Text;

StringGrid1.cells[4,n-1]:=Edit4.Text;

StringGrid1.cells[5,n-1]:=combobox1.Text;

n:=n+1;

StringGrid1.RowCount:=n;

end;

procedure TForm2.SpeedButton2Click(Sender: TObject);

procedure Sort; { Сортировка данных} // пузырьковая сортировка по ФИО

var i,k:integer;

s1:string;

begin

for k:=n-2 downto 2 do

for i:=1 to k-1 do

begin

if StringGrid1.Cells[1,i]>StringGrid1.Cells[1,i+1] then

begin

s1:=StringGrid1.Cells[1,i];

StringGrid1.Cells[1,i]:=StringGrid1.Cells[1,i+1];

StringGrid1.Cells[1,i+1]:=s1;

s1:=StringGrid1.Cells[2,i];

StringGrid1.Cells[2,i]:=StringGrid1.Cells[2,i+1];

StringGrid1.Cells[2,i+1]:=s1;

s1:=StringGrid1.Cells[3,i];

StringGrid1.Cells[3,i]:=StringGrid1.Cells[3,i+1];

StringGrid1.Cells[3,i+1]:=s1;

s1:=StringGrid1.Cells[4,i];

StringGrid1.Cells[4,i]:=StringGrid1.Cells[4,i+1];

StringGrid1.Cells[4,i+1]:=s1;

s1:=StringGrid1.Cells[5,i];

StringGrid1.Cells[5,i]:=StringGrid1.Cells[5,i+1];

StringGrid1.Cells[5,i+1]:=s1;

end;

end;

end;

procedure filter; { Вывод по дате}

var i,j:integer;

begin

i:=1;

while i<=n-2 do

if StringGrid1.Cells[3,i]<>Edit5.Text then

begin for j:=i+1 to n do // удаление строки не нужной даты

begin

StringGrid1.Cells[1,j-1]:=StringGrid1.Cells[1,j];

StringGrid1.Cells[2,j-1]:=StringGrid1.Cells[2,j];

StringGrid1.Cells[3,j-1]:=StringGrid1.Cells[3,j];

StringGrid1.Cells[4,j-1]:=StringGrid1.Cells[4,j];

StringGrid1.Cells[5,j-1]:=StringGrid1.Cells[5,j];

end;

n:=n-1;

end else i:=i+1;

StringGrid1.rowCount:=n;

StringGrid1.cells[0,n-1]:='';

end;

procedure poisk; {Поиск информации}

var i:integer;

sel:TGridRect; // переменная для выделения в таблице найденной строки

begin

i:=ip+1;

while (StringGrid1.Cells[1,i]<>Edit3.text)and(i<n-1) do

i:=i+1;

if i>n-2 then

begin

ip:=0;

sel.Left:=1;

sel.Right:=1;

sel.Top:=1;

sel.Bottom:=1;

StringGrid1.Selection:=sel;

ShowMessage('Запись не найдена');

end

else

begin

ip:=i;

sel.Left:=1;

sel.Right:=5;

sel.Top:=i;

sel.Bottom:=ip;

StringGrid1.Selection:=sel;

end;

end;

begin

if RadioButton1.Checked then

Sort

else if RadioButton2.Checked then

poisk

else if radiobutton4.checked then

filter

else if RadioButton3.Checked then

if s<>'' then Showlist

else ShowMessage('Список не связан с файлом! Вывод невозможен!')

else ShowMessage('Укажите действие') ;

end;

procedure TForm2.Button1Click(Sender: TObject); {удаление строки}

var i, j: Integer;

begin

for I := StringGrid1.Row to StringGrid1.RowCount - 1 do

begin

for j := 1 to StringGrid1.ColCount - 1 do

begin

StringGrid1.Cells[j, i]:=StringGrid1.Cells[j, i+1];

end;

end;

end;

end.

2.4 Результаты работы программы

Для запуска программы необходимо открыть файл "Project4.exe" и нажать на клавишу "F9"(в программе "Delphi"). Появится форма-заставка в котором мы можем выбрать необходимое действие над системой (рис. 4).

Рис. 4 Главное окно информационно-поисковой системы "Паспортный стол"



Чтобы начать работу в информационно-поисковой системы необходимо щелкнуть на кнопку "Начать работу". Перед вами откроется окно рабочей формы (рис. 5).

Рис. 5 Рабочая форма

Чтобы добавить данные необходимо ввести данные (рис. 6).

Рис. 6 Добавление данных в таблицу

Чтобы выполнить над данными какие-либо действия необходимо выбрать из списка действие или ввести данные для действия и щелкнуть на кнопку "Выполнить" (рис. 7).



Рис. 7 Выполнение выбранного действия

Для удаления строки вам необходимо выделить строку, которую необходимо удалить и нажимаем кнопку "Удалить строку".



Заключение

В ходе выполнения курсовой работы выполнено следующее:

Изучены средства IDE Delphi, позволяющие организовать работу с текстовыми файлами, а также приемы создания простейших многооконных приложений. С помощью IDE Delphi разработано программное средство, позволяющее организовать ввод, просмотр и редактирование данных, хранящихся в текстовом файле. Предметная область: данные о выдаче паспорта. Структура записи: ФИО, № и серия паспорта, дата выдачи, адрес, кем выдан. Также программа позволяет выполнять следующие действия:

1. Сохранить сформированный список в файл;

2. Загрузить ранее сохраненный список из файла;

3. Поиск информации - последовательно находить несколько записей, удовлетворяющих заданному значению поля;

4. Фильтрацию данных - формирование списка, которые имеют заданное значение в поле

5. Сортировку списка по полю ФИО в алфавитном порядке;

6. Удаление строки.



Список используемой литературы

1. Архангельский А.Я. Программирование в среде Delphi 6. - М.: ЗАО "Издательство БИНОМ", 2010 г. - 1120 с.

2. Бобровский С. И. "Delphi 7. Учебный курс" - СПб.: Питер, 2009 г.

3. Культин Н.Б. Delphi 6. Программирование на Object Pascal.

4. Сурков К., Сурков Д., Вальвачев А. Программирование в среде Delphi 2.0 - Мн.: ООО "Попурри", 2007. - 640 с.

5. Фаронов В. В. "Delphi 6. Учебный курс". Москва, 2011 г.

6. Фаронов В. В. "Delphi 6. Программирование на языке высокого уровня: Учебник для вузов" - СПб.: Питер, 2011г.

7. Писарев Т. В. "Программирование в Delphi6": ДМК Пресс 2012 г.

Размещено на Allbest.ru