База данных "Карточка амбулаторного больного"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
Qnery2. Установим свойство Active компонента Query2 в true и в DBGrid2 должно отобразиться содержимое таблицы BOLNIYE. Запустим приложение и убедимся, что оно работает, причем таблицы независимы. Теперь давайте, свяжем эти таблицы. Делается это следующим образом. Изменим текст запроса в свойстве SQL вспомогательного компонента набора данных Query2 на:
Select NOM_K as НОМЕР_КАРТОЧКИ,NOM_STRAH as НОМЕР_СТРАХ_ПОЛИСА, KOD_L as КОД_ЛЬГОТЫ, NOM_TEL as НОМЕР_ТЕЛЕФОНА, ADRES_MED as АДРЕС_МЕД_УЧРЕЖДЕНИЯ, FAM as Фамилия, IMYA as Имя, OTCHESTVO as Отчество,POL as Пол,ADRES_POST_JITELSTVA as АДРЕС_ПОСТ_ЖИТЕЛЬСТВА, ADRES_REGIS as АДРЕС_РЕГИСТРАЦИИ, INVALIDNOST as ИНВАЛИДНОСТЬ,PROFESSIYA as ПРОФЕССИЯ, NAIM as НАИМ_ЗАБОЛЕВАНИЯ from BOLNIYE where (NAIM=:НАИМ_ЗАБОЛЕВАНИЯ)
В этом запросе мы указываем условие отбора: значение поля NAIM должно быть равно параметру НАИМ_ЗАБОЛЕВАНИЯ. В данном случае не надо определять этот параметр с помощью редактора параметров, вызываемого из свойства Params компонента Query2. Вместо этого в свойстве DataSource компонента Query2 надо сослаться на: DataSourcel - источник данных, связанный с таблицей VID_ZABOLEVANIYA. Это скажет приложению, что оно должно взять значения параметра НАИМ_ЗАБОЛЕВАНИЯ из текущей записи этого источника данных. Таким образом, вспомогательная таблица, запрашиваемая в Query2, оказывается связанной с головной таблицей, запрашиваемой в Queryl
Добавив компоненты визуализации Label (свойство Caption) DBText (свойства DataSource=DataSource1, DataField = наим_заболевания) получим конечную форму приложении.
Для некоторых компонент в свойстве Font, Color установлены определенные цвета фоновой заливки, шрифта для большей привлекательности страницы. Нажатием кнопки запустит программу. Рис.2.
Рис.2. Страница запросы к данным
На странице ввод и редактирование размещаем: компоненты доступа к данным DataSource3, Table1. К компоненте Table1 в ИО установим свойства DatabaseName = BOLNIYE, TableName = BOLNIYE.db, а компоненте DataSource свойство DataSet = Table1. Для отображения данных используем компоненты DBGrid1, Edit. Для управления перемещением используем компоненту DBNavigator, причем используем только кнопки перемещения, заблокировав остальные (VisibleButton).Для работы установим основное свойство DataSource = DataSource1. Установим также три кнопки (TButton) для ввода, редактирования и удаления записей. Для выбора наим_заболевания используем компоненту ComboBox. Для улучшения внешнего вида расставим метки (Label) отображающие пояснительный текст на приложении, а также настроим таблицу DBGrid. Для этого выполним двойной щелчок на компоненте Table, что приведет к открытию окна. Указав на поле окна и нажав на правую кнопку мыши, выберем пункт Добавить все поля. Используя свойства Alignment, DisplayLabel (заголовок столбца), DisplayWidth (ширина столбца), DisplayValues(отображаемые значения), ReadOnly (только для чтения), Visible (видимость поля). Закончим настройку окна приложения. При открытии приложения необходимо передать значения в поля окон редактирования. Для этого в обработчик событий ИО для события OnCreate вводим соответствующий код. При перемещении по базе данных с использованием навигатора либо непосредственно в сетке таблицы (DBGrid) необходимо обновлять значения полей окон редактирования для этого в обработчик событий ИО AfterScroll для Table1 вводим соответствующий код. Перейдем к компонентам TButton. Для кнопки Записать, Вставить и Удалить в событие OnClick вводим соответствующий код. (Приложение 2).
Для запуска нажимаем кнопку (рис 3)
Рис.3. Страница ввод и редактирование
На странице Поиск и Фильтрация размещаем: по одному компоненту DBGrid, DBNavigator, 5 компонентов Edit, 1 компонент ComboBox и 1 компонент RadioGroup (с именем RGF). Со страницы Samples на форму перенесены 2 компоненты CSpinEdit, с помощью которых данные о больных фильтруются по его количеству. Для компоненты CSpinEdit1 установлены свойства: MinValue=4, MaxValue=34609.Такие же свойства задаем для компоненты CSpinEdit2: MinValue=4, MaxValue=34609. В свойстве Name компонентов CSpinEdit1 и CSpinEdit2 меняем имена соответственно на SEmin, SEmax.
Для компоненты RadioGroup установлены такие свойства: Caption=Фильтрация, Items=Все, Поставщик, Количество тавара, Columns=3. В событии OnClick компонента RadioGroup записываем код который будет осуществлять фильтрацию (Приложение 2).
В свойствах Items для компонента ComboBox внесена информация о поставщиках. Свойству ItemIndex присвоено значение 0. Для каждой компоненты Edit размещены компоненты Label с соответствующими надписями. Для компоненты Edit1 в событии OnChange записываем соответствующий код который будет осуществлять поиск (Приложение 2). Использованные также свойства Font и Color придали странице вид. После выполнения всех указанных действий и создания программного кода на этой странице компоненты PageControl будет происходить поиск и фильтрование данных.
Рис.3. Страница Поиск и фильтрация данных.
Для создания отчетов в Borland C++Builder включена система QuickReport. Компоненты этой системы размещены на странице QReport палитры компонентов. Для создания отчета на странице Отчет размещаем 2 кнопки Button. 1-му присваиваем имя-Печать, 2-му - Предварительный просмотр. На форме 1 создаем форму 2 и размещаем следующие компоненты: QuickRep, Table, DataSource.Зададим для Table имя базы данных и имя таблицы (DatabaseName = BOLNIYE, TableName= BOLNIYE.db), а для источника данных DataSource (DataSet = Table3).
Свяжем компонент отчетов QuickRep с таблицей данных (DataSet = Table3). Разместим на верхней строке отчета компоненту QRSysData. В свойстве Data установим вывод системной даты.
Установим печать заго