нопок. Для того щоб Зберегти Зміни Користувач нужно натисканні на кнопку «застосуваті Зміни», а для видалений слова нужно натисканні кнопки «ВИДАЛИТИ».
Щоб здійсніті додавання слова нужно, натиснута на пункт головного меню «Слово» и там вібрато «Додати». После чего відкрівається вікно у якому буде область де можна Написати слово и его переклад, а для того щоб Зберегти це слово нам буде нужно натиснута на клавішу «Додати слово».
При натиску у головному меню на пункт «про програму» корістувачеві будут надані Відомості про создания цієї програми.
Перелік використаної літератури
1.Архангельскій А. Я. ЯзикPascal та основи програмування в Delphi. Навчальний посібник - М.: ТОВ Біном-Пресс, 2008
. Володимир Гофман, Анатолій Хомоненко. Delphi 6 БХВ-Петербург, Дюссельдорф-Київ-Москва-Санкт-Петербург, 2009
. Глинський Я.М., Анохін В.Є., Ряжська В.А. Паскаль. Turbo Pascal и Delphi.Львів, 2008
. М. Глинський. Інформатика. Алгорітмізація и програмування. Мова Паскаль - Львів: Деол, 2001
. кент М. Delphi 7: Для професіоналів.- Санкт-Петербург: Питер, 2010.
. Ковалюк Т.В. Основи програмування.- К.: Відавнічагрупа BHV, 2005.
. Культин Н.Б. Основи програмування в Delphi 7. Санкт-Петербург, 2003
Додатки
Додаток А. Тексти програмного коду основних процедур програми
var: TForm1; Unit2;
{$ R *. dfm} TForm1.N6Click (Sender: TObject);. show;;
/ / змінюємо відімість панелейTForm1.N2Click (Sender: TObject);. Visible:=true;. Visible:=false;. Visible:=false;;
/ / заносимості дані в базуTForm1.Button1Click (Sender: TObject); ((edit1.Text <>" ") and (edit2.Text <>" ")) then . Insert;. FieldByName («En»). AsString:=edit1.Text;. FieldByName («Ukr»). AsString:=edit2.Text;. Post; («Слово успішно додано!");. Clear;. Clear;;;
/ / змінюємо відімість панелейTForm1.N3Click (Sender: TObject);. Visible:=false;. Visible:=true;. Visible:=false;;
/ / пітаємо чі користувач хоче війтіTForm1.FormCloseQuery (Sender: TObject; var CanClose: Boolean); messagedlg («Ві Дійсно Хочете війта?», mtinformation, [mbok, mbcancel], 0) =mrcancel then:=false else begin:=true; animatewindow (handle, 500, aw_blend or aw_hide); end;;
/ / видалений запісуTForm1.BitBtn2Click (Sender: TObject); messagedlg («Ві Дійсно Хочете ВИДАЛИТИ запис?», mtinformation, [mbok, mbcancel], 0)=mrok then.Delete; ( «Запис Було Відаль!");;;
/ / оновлення запісуTForm1.BitBtn1Click (Sender: TObject);. UpdateRecord; («Запис Було редагувань!");;
/ / змінюємо відімість панелейTForm1.N4Click (Sender: TObject);. Visible:=false;. Visible:=false;. Visible:=true;;
/ / Голон процедура для ФІЛЬТРУВАННЯ запісівTForm1.Table1FilterRecord (DataSet: TDataSet; Accept: Boolean); FieldVal: string; Edit3.Focused=true then:=DataSet [«En»];:=copy (AnsiUpperCase (FieldVal), 1, length (edit3.text))=AnsiUpperCase (edit3.Text);; Edit4.Focused=true then:=DataSet [«Ukr»];:=copy (AnsiUpperCase (Fiel...
