ble1.Filter:= Мета приїзду= + # 39 + edit1.Text + # 39;
end ;;
Приклад роботи пошуку наведено на малюнках 2.13 і 2.14.
Малюнок 2.13 Форма перед застосуванням фільтрації
Малюнок 2.14 Форма після застосування фільтрації
У дане ПС, я вирішив додати окрему форму на якій можна буде працювати з БД із застосуванням SQL запросов.С допомогою SQL можна буде створювати свої запити і працювати з базою даних. Запроваджуваний код для обробника на кнопку відкриття форми подібний загального коду для відкриття інших форм застосований вище.
Для зручності роботи з базою даних краще додати компонент Memo1, в якому описана структура бази даних (таблиці і поля).
Також на форму були додані наступні компоненти: ADOQuery1, DataSourse1, Memo2, Button1. У компоненті Memo2 вводитиметься SQL запит, а Button1 буде застосовувати цей запит.
Таблиця 2.10. Властивості компонентів на формі SQL запитів
КомпонентСвойствоЗначениеADOQuery1ConnectionForm1.ADOConnection1DBGrid1DataSourceDataSource1DBNavigator1DataSourceDataSource1DataSource1DataSetADOQuery1
Код процедури для кнопки Button1 наведений нижче:
procedure TForm5.Button1Click (Sender: TObject) ;. Close; .SQL.Text:=Memo2.Text;
ADOQuery1.Open ;;
Приклади інтерфейсів форми до і після застосування SQL запитів представлені на малюнках 2.15-2.17.
Малюнок 2.15 Форма до застосування SQL запиту
Малюнок 2.16 Форма після застосування першого SQL запиту
Малюнок 2.17 Форма після застосування другого SQL запиту
Висновки
Інформаційна система була створена. Система була створена з використанням технології ADO, в системі були застосовані SQL-запити. В подальшому може виникнути необхідність модернізації і поліпшення інформаційної системи. Це можна здійснити шляхом введення в систему нових функцій, додавання нових таблиць, поліпшення системи захисту.
Висновок
Таким чином, в ході курсової роботи були розглянуті етапи створення інформаційної системи: вивчення спеціальної літератури, ісследовованіе технології ADO, опис предметної області; проектування програмного комплексу, виконання програмної реалізації. Результатом розгляду етапів стала готова інформаційна система.
Курсова робота показала, що проектування має на меті забезпечити ефективне функціонування АІС і взаємодія з фахівцями, що використовують у сфері діяльності конкретного економічного об'єкта ЕОМ і розвиток засоби комунікації для виконання своїх професійних завдань і прийняття управлінських рішень. Саме якісне проектування забезпечує створення такої системи, яка здатна функціонувати при постійному вдосконаленні її технічних, програмних, інформаційних складових, тобто її технологічної основи, і розширювати спектр реалізованих управлінських функцій і об'єктів взаємодії. Впровадження АІС на підприємстві істотно полегшує роботу з документами, що дає можливість швидко і оперативно вирішувати багато питань. Успішна експлуатація розробленої та впровадженої системи дає помітний економічний ефект, за рахунок зниження витрат, звільнення робочого часу спеціалістів, підвищення якості та надійності обліку, полегшення оформлення супроводжуючої документації та звітності.
Список використаних джерел
1. Автоматизовані системи управління в готелі//Інформаційні системи в готелях. URL:
lt; # justify gt; 10. Теорія DELPHI//Мови програмування. URL: # justify gt; Додаток. Лістинг коду програми
Unit1;//Головна форма Реєстраційна карта
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Menus, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls;=class (TForm): TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TADOConnection ;: TADOTable ;: TDataSource ;: TDBNavigator ;: TDBGrid ;: TRadioGroup ;: TButton ;: TButton ;: TMenuItem; N2Click (Sender: TObject); N1Click ( Sender: TObject); N3Click (Sender: TObject); N4Click (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject); N5Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm1; Unit2, Unit3, Unit4, Unit5;
{$ R * .dfm} TForm1.N2Click (Sender: TObject) ;;; TForm1.N1Click (Sender: TObject) ;. Show; .Hide ;; TForm1.N3Click (Sender: TObject) ; .Show; .Hi...
