Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые проекты » Інформаційно-пошукова система поліклініки

Реферат Інформаційно-пошукова система поліклініки





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...


Назад | сторінка 3 з 4 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Технології аналізу даних (Text Mining, Data Mining)
  • Реферат на тему: Phonetic peculiarities of the popular science text
  • Реферат на тему: Grammar of the Text: its Basic Units and Main Features (based on the novel ...
  • Реферат на тему: Прикладне додаток &Розробка проекту для створення нового класу Auto і елеме ...
  • Реферат на тему: Аналіз даних за допомогою технології Data Mining