ify"> - вказує на компонент набору даних, з якими пов'язаний джерело.
QRDBText-Являє собою орієнтований на дані компонент для розміщення тексту в звіті.
1) Data Source - істочнікданнихтіпа T Data Source.
2) Data Field - ім'я поля, з яким пов'язаний компонент.
Button-це стандартна кнопка Delphi7. Яка служить для створення зовнішніх кнопок на формі, які виконують різні функції.
1) Caption - задає візуальне назва кнопки, яке відображається поверх самої кнопки.
DBGrid-цей компонент призначений для відображення даних у вигляді таблиці.
1) Data Source - істочнікданнихтіпа T Data Source.-Використовується для розміщення тексту в звіті.
) Caption-змінює візуально ім'я компонента.
Label-цей компонентспособен відображати текст на формі.
) Caption-напис відображуваного тексту.
DataSource - забезпечує механізм для зв'язку компонентів доступу до даних з візуальними компонентами, які відображають дані.
1) Dataset - служить для з'єднання компонентів, що відображають дані, з такими компонентами як AdoTable і Table.
Edit - компонент службовець для введення текстової та числової інформації.
QRLabel-Використовується для розміщення тексту в звіті.
1) Caption-змінює візуально ім'я компонента.
2.3 Розробка і опис програмного програми
Додаток було розроблено в середовищі программірованіяDelphi7. І виглядає воно наступним чином.
Наступна форма це наші таблиці:
Це форма для додавання і редагування записів:
А в цій частині здійснюється пошук і фільтрація даних.
А це сортування:
3. Розробка інструкцій користувача
Наступні рядки адресовані майбутнім користувачам цього додатка. Так виглядає додаток відразу після запуску:
Наступна форма це наші таблиці:
Ось таким чином можна додати нові дані:
Сортування здійснюється за допомогою кнопки на формі.
Пошук і фільтрація проводиться під таблицею з даними:
Додаток А
Лістинг тексту програмного програми
procedure TForm1.N2Click (Sender: TObject) ;. showmodal ;; TForm1.N3Click (Sender: TObject) ;. showmodal ;; TForm1.N6Click (Sender: TObject) ;;; TForm1.N4Click ( Sender: TObject) ;. showmodal ;;
Unit2
procedure TForm2. Button1Click (Sender: TObject) ;. DBEdit1. Text:= raquo ;;. DBEdit2. Text:= raquo ;;. DBEdit3. Text:= raquo ;;. DBEdit4. Text:= raquo ;;. DBEdit5. Text:= raquo ;;. DBEdit6. Text:= raquo ;;. ADOTable1. Insert ;. ShowModal ;; TForm2. Button10Click (Sender: TObject) ;. DBEdit1. Text:= raquo ;;. DBEdit2. Text:= raquo ;;. DBEdit3. Text:= raquo ;;. DBEdit5. Text:= raquo ;;. ADOTable2. Insert ;. ShowModal ;; TForm2. Button2Click (Sender: TObject) ;. ShowModal ;; TForm2. Button9Click (Sender: TObject) ;. ShowModal ;;
procedure TForm2. Button3Click (Sender: TObject) ;. ADOTable1.delete ;; TForm2. Button8Click (Sender: TObject) ;. ADOTable2.delete ;; TForm2. Button4Click (Sender: TObject) ;. ADOTable1. IndexFieldNames:= [Код лікаря] raquo ;; TForm2. Button7Click (Sender: TObject) ;. ADOTable2. IndexFieldNames:= [Код пацієнта] raquo ;; TForm2. Edit1Change (Sender: TObject); Length (Edit1. Text) gt; 0 then.ADOTable1. Filtered:=true.ADOTable1. Filtered:=False; .ADOTable1. Filter:= [Пол]= + Edit1. Text + raquo ;;; TForm2. Edit3Change (Sender: TObject); Length (Edit3. Text) gt; 0 then.ADOTable1. Filtered:=true.ADOTable1. Filtered:=False; .ADOTable1. Filter:= [Спеціальність]= + Edit3. Text + raquo ;;; TForm2. Edit2Change (Sender: TObject); Length (Edit2. Text) gt; 0 then.ADOTable2. Filtered:=true.ADOTable2. Filtered:=False; .ADOTable2. Filter:= [П.І.Б.]= Raquo; + Edit2. Text + raquo ;;; TForm2. Edit4Change (Sender: TObject); Length (Edit4. Text) gt; 0 then.ADOTable2. Filtered:=true.ADOTable2. Filtered:=False; .ADOTable2. Filter:= [Пол]= + Edit4. Text + raquo ;;; TForm2. Button6Click (Sender: TO...
