Выбор состава технических и программных средств

1.2.3 Выбор состава технических и программных средств

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

Среди пользователей персональных компьютеров в настоящее время наиболее популярно семейство операционных систем Windows и, естественно, что тот, кто собирается программировать, стремится писать программы, которые будут работать в этих системах. Несколько лет назад рядовому программисту оставалось только мечтать о создании собственных программ, работающих в среде Windows, т. к. единственным средством разработки был Borland C++ for Windows, явно ориентированный на профессионалов, обладающих серьезными знаниями и опытом.

Бурное развитие вычислительной техники, потребность в эффективных средствах разработки программного обеспечения привели к появлению систем программирования, ориентированных на так называемую "быструю разработку", среди которых можно выделить Borland Delphi и Microsoft Visual Basic. В основе систем быстрой разработки (RAD-систем, Rapid Application Development — среда быстрой разработки приложений) лежит технология визуального проектирования и событийного программирования, суть которой заключается в том, что среда разработки берет на себя большую часть рутинной работы, оставляя программисту работу по конструированию диалоговых окон и функций обработки событий. Производительность программиста при использовании RAD-систем — фантастическая! Среда программирования – Delphi – весьма быстрая и удобная для разработки приложений различного назначения для Windows. Для нормальной работы программы необходим IBM совместимый компьютер с тактовой частотой процессора не ниже 144МГц и выше, оперативной памятью 16 Мб, жесткий диск объемом не менее 500Мб.

2.     Разработка рабочего проекта

2.1   Разработка программы

 

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

 В настоящее время существует достаточно большое количество программных систем, позволяющих создавать и использовать локальные (dBASE, FoxPro, Access, Paradox) и удаленные (Interbase, Oracle, Sysbase, Infomix, Microsoft SQL Server) базы данных.

В состав Delphi входят компоненты, позволяющие создавать программы работы с файлами данных, созданными различными системами: от SE до Infomix и Oracle. Delphi также позволяет программисту, используя утилиту Borland Database Desktop, создавать файлы баз данных в Различных форматах.

2.2 Спецификация программы

База данных — это набор однородной, как правило, упорядоченной по некоторому критерию, информации. База данных может быть представлена в "бумажном" или в компьютерном виде. Типичным примером "бумажной" базы данных является каталог библиотеки — набор бумажных карточек, содержащих информацию о книгах. Информация в этой базе однородная (содержит сведения только о книгах) и упорядоченная (карточки расставлены, например, в соответствии с алфавитным порядком фамилий авторов).

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

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

База данных — это набор файлов (таблиц), в которых находится информация. Как правило, база данных состоит из нескольких таблиц, которые размещают в одном каталоге. Каталог для новой базы данных создается обычным образом, например, при помощи Проводника.

2.3 Текст программы

 

nit Unit5;

interface

uses

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

 Dialogs, Menus, StdCtrls, Unit2, Buttons, ExtCtrls, Mask, Grids, CheckLst,

 ActnCtrls, ToolWin, ActnMan, ActnMenus, TeeProcs, TeEngine, Chart,

 ValEdit, ComCtrls;

type

 TForm1 = class(TForm)

 MainMenu1: TMainMenu;

 ComboBox1: TComboBox;

 Memo2: TMemo;

 N1: TMenuItem;

 Edit3: TEdit;

 Label3: TLabel;

 Button2: TButton;

 Label1: TLabel;

 N2: TMenuItem;

 N3: TMenuItem;

 Label2: TLabel;

 N4: TMenuItem;

 N5: TMenuItem;

(процедуры используемые в программе)

 procedure ComboBox1Change(Sender: TObject);

 procedure Edit1KeyPress(Sender: TObject; var Key: Char);

 procedure Button2Click(Sender: TObject);

 procedure N2Click(Sender: TObject);

 procedure N3Click(Sender: TObject);

 procedure N5Click(Sender: TObject);

 private

 { Private declarations }

 public

 { Public declarations }

 end;

var

 Form1: TForm1;

 F: TextFile;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);

 var stroka, s: string;

begin

 stroka:=Combobox1.Items.Strings[Combobox1.ItemIndex]; // присвоение переменной "stroka" названия выбранного компонента в ComboBox

 AssignFile(F, '1.txt'); // привязка текстового файла к файловой переменной F

 Reset(F); // открытие файла F для чтения

 Repeat // цикл с постусловием. в переменную S считываются строки из файла до тех пор, пока строка в файле не совпадёт с выбранным элемнтом в ComboBox

 readln(F,s)

 until s='***'+stroka+'***';

 Memo2.Lines.Text:='';

 readln(F,s); // опять считывается

 while s<>'***' do begin // цикл с предусловием.

 Memo2.Lines.Text:=Memo2.Lines.Text+s; // в Memo дописываются данные из переменной s

 readln(F,s); // считывается строка из файла в переменную S

 end;

 CloseFile(F); // закрытие файла

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

 Memo2.LINES.Text:='Работает'

end;

procedure TForm1.Button2Click(Sender: TObject);

 var stroka, s: string;

 label W;

begin

 stroka:=Edit3.Text; // присвоить переменной текст из поля Edit3

 AssignFile(F, '1.txt'); // привязка текстового файла к файловой переменной F

 Reset(F); // открытие файла F для чтения

 Repeat // цикл с постусловием. в переменную S считываются строки из файла до тех пор, пока строка в файле не совпадёт с выбранным элемнтом в ComboBox

 readln(F,s);

 if seekEof(F) then begin // условие о совпадении

 Edit3.Text:='Компонент не найден или вы ошиблись в написании!!!!'; // если не совпадет то вывести надпись

 goto w;

 end;

 until s='***'+stroka+'***';

 Memo2.Lines.Text:=''; // очищение поля Мемо2

 readln(F,s); // опять считывается

 while s<>'***' do begin // цикл с предусловием.

 Memo2.Lines.Text:=Memo2.Lines.Text+s; // в Memo дописываются данные из переменной s

 readln(F,s);

 end;

W:

 CloseFile(F);

end;

procedure TForm1.N2Click(Sender: TObject);

begin

 Form2.Show; // переход на форму 2

end;

procedure TForm1.N3Click(Sender: TObject);

begin

 Form1.Close; //закрытие формы 1(осуществление выхода из программы)

end;

procedure TForm1.N5Click(Sender: TObject);

begin

 Form4.Show;

end;

end.