t; combobox1.ItemIndex = 1 then ADOdataset1.CommandText: = ADOdataset1.CommandText +' DESC '; 1.Active: = true;
end;
Розберемо процедуру сортування на прикладі. Виберемо параметри сортування. Виберемо полі В«Кліенти.НазваніеВ», за зменшенням. Відсортована таблиця представлена ​​на малюнку 2.9 - Відсортована таблиця. br/>В
Малюнок 2.9-Відсортована таблиця
2.4Внешній вигляд програми
При запуску програми з'являється форма, представлена ​​на малюнку 2.10-Програма.
В
Малюнок 2.10-Програма
У формі, що з'явилася необхідно вибрати таблицю, з якої передбачається працювати. Зробити це потрібно таким чином: натиснути на кнопочку з відповідною назвою таблиці. Після вибору з'явиться вибрана таблиця. Натискаючи на кнопки Додати або Видалити, можна виробляти ці дії з таблицею. Виберемо, наприклад, таблицю "Угоди". Результат представлений на малюнку 2.11 - Таблиця В«УгодиВ». Повний код програми представлено в додатку А.
В
Малюнок 2.11 - Таблиця В«УгодиВ»
Висновок
Дана програма може використовуватися для відстеження угод нотаріальної контори. Програма дозволяє будь-якому користувачеві з легкістю створювати великі обсяги інформації, додавати, видаляти дані, сортувати. Використання такої програми в сучасному світі значно полегшує діяльність людини. br/>
Список використаних джерел
1.Карпова Т.С. Бази даних: моделі, розробка. - СПб.: Пітер, 2001.-304 с. p> 2.Дейт К. Введення в системи баз даних: Пер. з англ. - М.: Наука, 1980.-464 с. p>. Хомоненко А.Д., Циганков В.М., Мальцев М.Г. Бази даних: Підручник для вищих навчальних закладів/За ред. проф. А.Д. Хомоненко. - СПб.: КОРОНА принт, 2000. - 416с. p>. Горев А., Макащаріпов С., Владимиров Ю. Microsoft SQL. Server 6.5 для професіоналів. - СПб.: Пітер, 1998. - 270 с. p>. Тіорі Т., Фрай Дж. Проектування структур баз даних: У 2-х кн. Пер. з англ. - М.: Мир, 1985. - 287 с. p>. Роберт Дж. Мюллер. Бази даних та UML. Пер. з англ. - Видавництво В«ЛоріВ», 2002. - 420 с. p> 7.Матеріали сайту Мурманського державного технічного університету, [Електронний ресурс] - mstu.edu.ru <# "justify"> Додаток А
Процедури додавання даних
procedure TForm2.Button1Click (Sender: TObject); (Edit1.Text ='') or (Edit2.Text ='') or (Edit3.Text ='') or (Edit4.Text = '') then ShowMessage ('Заповніть всі поля!') else.ADOQuery1.SQL.Add ('INSERT INTO Клієнти (Назва, Від_деятельності, Адреса, Телефон) VALUES TObject); (Edit1.Text ='') or (Edit2.Text ='') then ShowMessage ('Заповніть всі поля!') Else.ADOQuery1.SQL.Add ('INSERT INTO Послуги (Назва, Опис) TObject);...
