Розділ 2. Опис роботи програми

2.1 Список дій користувача програми:

За допомогою програми-додатку «Електронний словник» користувач може здійснити пошук слова по базі даних яка у свою чергу містить більше чим 1000 слів. Також користувач може здійснити додавання слів в існуючу базу даних при цьому натиснувши певні кнопки. А також користувачу надається змога редагувати ці слова, а також здійснювати їх видалення із бази даних.

Для того щоб здійснити пошук (переклад) слова користувач повинен ввести це слово яке пізніше буде шукатись по базі даних, і якщо воно буде знайдене тоді користувачу буду надана інформація про його переклад на Англійську чи відповідно на Українську мову.

В пункті «про програму» користувачу буде надана вся інформація про розробку цієї програми.

2.2 Інструкція користувача програми

Після запуску програми користувачеві відкриється меню програми, в якому щоб здійснити пошук слова потрібно, натиснути на пункті «Пошук». Після чого відкриється вікно у якому потрібно ввести слово для перекладу. Після того як ми ввели слово ми побачимо його переклад, в створеній таблиці ( в компоненті DBGrid).

Для того щоб здійснити редагування або видалення слова нам потрібно зайти в пункт «Слово» і там вибрати «редагування». Після чого у нас відкривається вікно в якому ми можемо здійснити редагування або видалення певного слова. Ми можемо переключати слова за допомогою кнопок. Для того щоб зберегти зміни користувачу потрібно нажати на кнопку «застосувати зміни», а для видалення слова потрібно нажати кнопку «видалити».

Щоб здійснити додавання слова потрібно, натиснути на пункт головного меню «Слово» і там вибрати «Додати». Після чого відкривається вікно у якому буде область де можна написати слово і його переклад, а для того щоб зберегти це слово нам буде потрібно натиснути на клавішу «додати слово».

При натиску у головному меню на пункт «про програму» користувачеві будуть надані відомості про створення цієї програми.

Перелік використаної літератури

1. Архангельский А. Я. ЯзыкPascal и основыпрограммирования в Delphi. Учебноепособие – М.: ООО “Бином-Пресс”, 2004

2. Владимир Гофман, Анатолий Хомоненко. Delphi 6 “БХВ-Петербург”, Дюссельдорф-Киев-Москва-Санкт-Петербург, 2001

3. Глинський Я.М., Анохін В.Є., Ряжська В.А. Паскаль. Turbo Pascal і Delphi.Львів, 2008

4. М. Глинський. Інформатика. Алгоритмізація і програмування. Мова Паскаль – Львів: “Деол”, 2001

5. Кэнту М. Delphi 7: Для профессионалов. – Санкт-Петербург: Питер, 2004.

6. Ковалюк Т.В. Основипрограмування. – К.: Видавничагрупа BHV, 2005.

7. Культин Н.Б. Основы программирования в Delphi 7. Санкт-Петербург, 2003

Додаток а Тексти програмного коду основних процедур програми

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.N6Click(Sender: TObject);

begin

AboutBox.show;

end;

// змінюємо видимість панелей

procedure TForm1.N2Click(Sender: TObject);

begin

Panel1.Visible := true;

Panel2.Visible := false;

Panel3.Visible := false;

end;

//заносимо дані в базу

procedure TForm1.Button1Click(Sender: TObject);

begin

if ((edit1.Text<>'') and (edit2.Text<>'')) then

begin

Table1.Insert;

Table1.FieldByName('En').AsString := edit1.Text;

Table1.FieldByName('Ukr').AsString := edit2.Text;

table1.Post;

showmessage('Слово успішно додано!');

edit1.Clear;

edit2.Clear;

end;

end;

// змінюємо видимість панелей

procedure TForm1.N3Click(Sender: TObject);

begin

Panel1.Visible := false;

Panel2.Visible := true;

Panel3.Visible := false;

end;

// питаємо чи користувач хоче вийти

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

if messagedlg('Ви дійсно хочете вийти?',mtinformation,[mbok,mbcancel],0)= mrcancel then

canclose:=false else begin

canclose:=true; animatewindow(handle,500,aw_blend or aw_hide); end;

end;

// видалення запису

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

if messagedlg('Ви дійсно хочете видалити запис?',mtinformation,[mbok,mbcancel],0)= mrok then

begin

Table1.Delete;

ShowMessage('Запис було видалено!');

end;

end;

// оновлення запису

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Table1.UpdateRecord;

ShowMessage('Запис було редаговано!');

end;

// змінюємо видимість панелей

procedure TForm1.N4Click(Sender: TObject);

begin

Panel1.Visible := false;

Panel2.Visible := false;

Panel3.Visible := true;

end;

// голона процедура для фільтрування записів

procedure TForm1.Table1FilterRecord(DataSet: TDataSet;

var Accept: Boolean);

var FieldVal:string;

begin

if Edit3.Focused= true then

begin

FieldVal := DataSet['En'];

Accept := copy(AnsiUpperCase(FieldVal), 1, length(edit3.text)) = AnsiUpperCase(edit3.Text);

end;

if Edit4.Focused= true then

begin

FieldVal := DataSet['Ukr'];

Accept := copy(AnsiUpperCase(FieldVal), 1, length(edit4.text)) = AnsiUpperCase(edit4.Text);

end; end;

// застосовуємо фільтр

procedure TForm1.Edit3Change(Sender: TObject);

begin

table1.Filtered:=false;

table1.Filtered:=true;

end;

// застосовуємо фільтр

procedure TForm1.Edit4Change(Sender: TObject);

begin

table1.Filtered:=false;

table1.Filtered:=true;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Table1.Next;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Table1.Prior;

end;

end.