Дәрігерлер терезесі

МАЗМҰНЫ
КІРІСПЕ..........................................................................................................................
1 МЕДИЦИНА САЛАСЫНДАҒЫ ҚОЛДАНЫСТА БАР АҚПАРАТТЫҚ ЖҮЙЕЛЕРГЕ ШОЛУ....................................................................................................
1.1 Медициналық қызметтерді сапалы басқару жүйесі....................................
1.2 Медико-статистикалық ақпараттық жүйесі.................................................
1.3 Ресурстарды басқару жүйесі..........................................................................
1.4 Денсаулық сақтау саласының бірыңғай ақпараттық жүйесі ....................
2 МӘЛІМЕТТЕР ҚОРЫН БАСҚАРУ ЖҮЙЕСІН ТАҢДАУ ЖӘНЕ
2.1 Мәліметтер қорының моделдері....................................................................
2.2 Реляциялық мәліметтер қоры...................................................................
2.3 SQL - мәліметтер қорының стандартты
3 Тарау АЙГЕРІМ ЕМХАНАСЫНЫҢ МӘЛІМЕТТЕР ҚОРЫ................................
3.1 АЖО-ның жұмыс мен жобалау ортасын таңдау..........................................
3.2 Мәліметтер қоры.............................................................................................
3.3 Клиент қосымшасының интерфейсі..............................................................
Қорытынды.....................................................................................................................
Әдебиеттер тізімі............................................................................................................
1 ҚОСЫМША. Программа листингі............................................................................
КІРІСПЕ
Қазіргі уақытта қоғамдық өмірде ақпараттың таралу қарқыны өте
Ақпаратты басқару компюьтерлерді қолданудың негізгі саласы болып табылады
Қазіргі қоғамның талаптарына сәйкес жаңа техналогиялардың даму барысында
Курстық жұмыстың тақырыбы «Айгерім емханасының мәліметтер қоры». Жұмысты
Курстық жұмыс өзектілігі- медициналық ақпараттық жүйесін құрудың негізгі
Курстық жұмыс Delphi обьектілі бағытталған тілінде жазылған және
1 Медицина саласындағы қолданыста бар ақпараттық жүйелерге шолу
1.1 Медициналық қызметтерді сапалы басқару жүйесі
Қазіргі заманғы қоғамның барлық сұрақтарына жауап беретін денсаулық
«Салауатты Казахстан» мемлекеттік бағдарламасы – денсаулық сақтау жүйесін
Жаңа бағдарламаның міндеттерінің бірі – бастапқы медициналық –санитарлық
Денсаулық сақтау жүйесін дамытудың міндеттерін сәтті жүзеге асыру
«Қазақстан Республикасындағы Денсаулық сақтаудың бірыңғай ұлттық жүйесін құру»
ҚР ДСБҰЖ – ақпараттарды жинаудың, өңдеудің, агрегациялаудың және
Бүгінгі күнде Республикада ДСБҰЖ енгізуге қуатты алғышарттар құрылған.
2010 жылдың 1 маусымынан бастап еліміз бойынша бейінді
1.2 Медико-статистикалық ақпараттық жүйесі
Медико-статистикалық ақпараттық жүйесі (СТАЖ) ҚР Денсаулық сақтау бірыңғай
СТАЖ негізі кейіптеу деректері жиынынан тұрады:
Медициналық ұйымдарға халықты бекіту туралы;
Пациенттер туралы;
Олардың денсаулық сақтау ұйымдарына жүгінуі;
Табылған науқас;
Медициналық қызмет көрсету;
Емдеу-диагностикалық шараларын өткізу;
Медициналық қызмет көрсету процессінде емдік құралдарды тағайындау және
Кейіптеу есебі төмендегідей есепте жүзеге асырылған:
«Заңды тұлғалар» мемлекеттік деректер базасын пайдаланумен қалыптастырылатын медициналық
«Жеке тұлғалар» мемлекеттік деректер базасы және медициналық ұйымдардың
СТАЖ ақпараттық жиыны ҚР ДСБАЖ-нің бірлескен деректер базасының
Медико-статистикалық жүйе келемі міндеттер жинағынан тұрады:
Бекітілген халыққа тіркеу жүргізу;
Амбулаторно-емханалық көмек көрсететін қызметтер туралы дербестеу медико-статистикалық ақпараттар
Стационарлық көмек көрсететін қызметтер туралы дербестеу медико-статистикалық ақпараттар
Жедел медициналық көмек көрсететін қызметтер туралы дербестеу медико-статистикалық
Алдын алу шараларын жоспарлау және орындалу мониторингі;
1.4 Денсаулық сақтау саласының бірыңғай ақпараттық жүйесі
2006 жылдың соңынан Қазқастан Республикасының Денсаулық сақтау
Медицина-статистикалық ақпараттық жүйе дегеніміз не?
Медицина-статистикалық ақпараттық жүйесін құру мақсаты - барлық деңгейдегі
жедел жәрдем;
амбулаторлы- емханалық көмек;
стационарлық көмек.
Денсаулық сақтау саласының бірыңғай ақпараттық жүйесінің және денсаулық
науқас жайлы біріншілік жекеленген ақпаратты жинау, сақтау
денсаулық сақтау мекемелеріне науқастар үндеулерінің жиілігі,
сырқаттанушылықты анықтау және әрбір науқасқа көрсетілген медициналық
ем-диагностикалық шараларды өткізу,
науқасты емдеу барысында медициналық мекемелерде дәрілік заттар айналымын
профилактикалық шараларды орындау мониторингі мен жоспарлауды қолдау.
Өндірушілердің айтуы бойынша, осы бiртұтас деректер қорындағы ақпарат
Емханалар үшін медицина-статистикалық ақпараттық жүйесінің пайдасы жайлы айтсақ,
медициналық мекемелерге науқастарды бекітуге сұраныстарды тіркеу;
қызмет көрсету аймақтары бойынша дәрігерлерді бекіту;
қабылдауға жазылу;
ауруханаға жатуға, зерттеуден өтуге және ем алуға бағыттау;
үйге дәрiгердiң шақыруын тiркеу.
Яғни, медициналық қызметкерлердің күнделікті жұмысында медицина-статистикалық ақпараттық жүйесінің
Астана және Алматы қаласындағы барлық емханалары, стационарлар мен
Біз медицина-статистикалық ақпараттық жүйесі жайлы тікелей дәрігерлердің пікірін
Денсаулық сақтау саласының бірыңғай ақпараттық жүйесінің және тікелей
Барлық дәрігерлер үшін осы жүйені енгізуші адамдар, науқастарға
Қиыншылықтар жайлы. Медицина-статистикалық ақпараттық жүйесін пайдалану оңай екендігін
Барлығы осылай. Және астана дәрігерлерінің көбі науқас жайлы
Науқас жайлы барлық мәліметтерді электрондық картаға енгізуге мүмкін
Шынымен де, бұл екі есе шығын жұмыс
Осындай мәселемен, науқастары қарт адамдар болып келетін, «Отан
Бұл сезім компьютермен жұмыс істеуге үйренбеген қарт адамдарда
Медицина-статистикалық ақпараттық жүйесінің осы нұсқауында дәрігерлер нені өзгертуді
Бірақ дәрігерлердің өздері, енгізу бөліміне кіргізілген ұсыныстар қатаң
Дәрігерлердің күнделікті жұмысын электрондық жүйеге алмастырудың үлкен жобасын
Бір күні біздің дәрігерлер дамыған медицинаның ең
2 Мәліметтер қорын басқару жүйесін таңдау және
2.1 Мәліметтер қорының моделдері
Күнбе-күн ақпарат көлемі көбейіп отыр. Ал, оларды өңдеу
Қазіргі заманғы ақпараттық жүйелер (АЖ)– мәліметтер банкі болып
есептеуіш жүйе;
бір немесе бірнеше МҚ;
мәліметтер қорын басқару жүйесі (МҚБЖ);
қолданбалы программалар жиыны.
Мәліметтер қоры - бұл үлкен көлемді өзара
Мәліметтер қорын басқару жүйесі - бұл МҚ-н
Дербес МҚБЖ бір компьютерде жұмыс жасайтын локальді
Көпқолданушы МҚБЖ клиент-сервер архитектурасында жұмыс жасайтын ақпараттық
Қолданбалы программалар, немесе қосымшалар МҚ-нда орналасқан мәліметтерді өңдеуге
МҚ-ң негізі - нақты бір объект тобы
1) Иерархиялық модель - ағаш құрылымды болады.
Сурет 2.1. Иерархиялық модель
2) Желілік модел граф түрінде ұйымдастырылады. Мұнда
Сурет 2.2. Желілік модель
3) Реляциялық МҚ өз атын ағылшын тіліндегі relation
4) Объектілі – бағытталған МҚ желілік және реляциялық
2.2 Реляциялық мәліметтер қоры
Реляциялық модельдің артықшылықтары - бұл қарапайымдылығы, құрылымның иілгіштігі,
Компьютердегі мәліметтер қоры - бұл бір байланыспен
Мәліметтердің реляциялық моделінің негізінде қатынастар (relation - ағылшын
Реляциялық мәліметтер қоры – бұл өзара байланысқан қатынастар
Қатынастарға қолданылатын негізгі амалдарға:
Жиындарға қолданылатын амалдар: қиылысу, айырма, декарттық көбейту, бөлу,
Арнайы реляционды амалдар: проекциялау, біріктіру, таңдау (селекция, шектеулер)
Мәліметтер қорын басқару жүйесінің деңгейі осы айтылған амалдарды
реляционды алгебра тілдері;
реляционды есептеулер тілдері.
Реляциялық алгебра тілдері реляциялық алгебраға негізделген. Қатынастарға қолданылатын
Керектi ақпараттарды жинау ғана емес, оларды жақсылап құрылымдау
1) объектiнiң сипаттамаларын анықтау;
2) осы объектiлердiң атрибуттарын (атрибут – қатынас
3) объектiлердiң арасындағы байланысты көрсететiн құрылым типтерiн
4) ақпараттық құрылымның дәл экземплярын құру.
2.3 SQL - мәліметтер қорының стандартты
SQL тілінің кең таралуы қазіргі кездегі компьютерлік технологияның
Мәліметтерді ұйымдастыру. SQL арқылы тұтынушы мәліметтерді ұсыну құрылымын
Мәліметтерді оқу. SQL көмегімен мәліметтер қорындағы мәліметті оқып,
Мәліметтерді өңдеу. Мәліметтер қорына жаңа мәлімет қосуға, жоюға,
Қатынауды басқару. SQL мәліметтерді оқуға, өңдеуге шектеу қойып,
Мәліметтердің тұтастығы.
Сонымен, SQL МҚБЖ-лерімен жұмыс жасауға бағытталған күшті құрал
SQL тілінің ерекшеліктері:
Нақты МҚБЖ-лерінен тәуелсіздігі;
Бір есептеуіш жүйеден екіншісіне тасымалдану мүмкіндігі;
Стандарттарының болуы;
IBM компаниясының қолдауы;
Реляциялық негізі;
Ағылшын тіліне ұқсас жоғарғы деңгейлі құрылым;
Мәліметтер қорына программалық қатынауды қамтамасыз ету;
Мәліметтерді динамикалық анықтау мүмкіншілігі;
Клиент/сервер архитектурасын қолдау;
Арнаулы интерактивті сұраныстарды орындау мүмкіндігі.
SQL сұранымның екі түрі бар:
статикалық (тұрақты);
динамикалық (тұрақты емес).
Статикалық SQL-сұранымдар қосымшаны құру барысында жазылады және орындалу
Динамикалық SQL-сұранымдар коды қосымша орындалу барысында құрылады.
3 Айгерім емханасының мәліметтер қоры
3.1 АЖО-ның жұмыс мен жобалау ортасын таңдау
Бағдарламаның жұмыс істеуі үшін операциялық жүйе ретінде win32
тапсырыс берушінің бұл платформаға бағдарлануы;
пайдалануы интерфейсін құрудың дамыған тәсілдері;
жеткілікті масштабталынуы, яғни компьютерлік жабдықтардың кең диапазонында жұмыс
переферийлі құрылғылардың (видеоадаптор, желілік адаптор, принтер, дисковод, CD-ROM)
бұл платформаның кең қолданылуы;
мұндай деңгейлі есептер үшін сенімділігі және бағдарламаның өнімділігі.
Ұсынылған өнімге маңызды болатын, бұл платформаның кемшіліктерінен келесілерді
Windows98 операциялық жүйесінде қорғанысты қамтамасыз ету және санкцияланбаған
Компьютердің аппараттық ресурстарына жоғары деңгейлі талапшылдығы.
Delphi ортасында өте қолайлы, мұнда әр түрлі форматтағы
Delphi жүйесі қазіргі заманға сай сарапталған теория және
Визуалды құрама формалар программист жұмысын, программаның интерфейс сараптамалар
Delphi-де дайын бөлiктердi бiрiктiру арқылы программа құруға болады.
Delphi-дегi программалаудың бiр ерекшелiгi, прошраммист өзiнiң iстеп отырған
Программаны құруды клавиатура және mouse (мышь) арқылы басқаруға
3.2 Мәліметтер қоры
Мәліметтер қорын құру ортасы ретінде Borland Delphi
Мәліметтер қоры үш кестеден тұрады:
Дәрігерлер кестесі (doktor.db);
Пациенттер кестесі (pacient.db);
Қабылдау кестесі (priem.DB);
Атауы Типі Арналуы
Id I * Кілттік өріс
FIO A(30) Аты - жөні
Dolj A(20) Қызметі
N_k A(20) Кабинет нөмірі
D_pr A(15) Қабылдау күні
N_vr T Қабылдау уақытының басталуы
O_vr T Қабылдау уақытының аяқталуы
Tel A(6) Телефон нөмірі
Дәрігерлер кестесінің құрылымы келесідей:
Пациенттер кестесінің құрылымы:
Атауы Типі Арналуы
Id I * Кілттік өріс
FIO A(30) Аты - жөні
Adres A(30) Қызметі
D_r D Туылған күні
Pol A(1) Жынысы
Str_n A(10) Сақтандыру полісінің нөмірі
inf A(50) Диагнозы
Қабылдау кестесінің құрылымы:
Атауы Типі Арналуы
Id I * Кілттік өріс
Doctor A(30) Емдеуші дәрігер
Pac A(30) Емделуші
D_zap D Қабылдауға келген күні
Vr_Zap T Қабылдауға жазылған күні
Кестелер арасындағы байланыс келесі түрде жүзеге асырылды:
pacient.db
Id
FIO
Adres
D_r
Pol
Str_n
inf
priem.DB
Id
Doctor
Pac
D_zap
Vr_Zap
:
doktor.db
Id
FIO
Dolj
N_k
D_pr
N_vr
O_vr
Tel
3.1. сурет. Кестелер арасындағы байланыс
3.3 Клиент қосымшасының интерфейсі
Клиент қосымшасы Delphi 7 программалау жүйесінде құрылды. Ол
Файл;
Анықтамалық жүйелер;
Мәліметтер қоры;
Қабылдау бөлімі;
Көмек.
Алғашқы файл пунктінде- МҚ-на қосылу, МҚ-нан ажырау және
3.2. сурет. Негізгі форма
Мәліметтер қорына қосылғанша мәзірдің мәліметтер қорымен жұмыс істейтін
Мәліметтер қорынан ажырау келесі команданың көмегімен орындалды:
Файл- >МК-нан ажырау
Анықтамалық жүйелер мәзірінде келесі терезелерді шақыру командалары орналастырылды:
Дәрігерлер- дәрігерлер туралы мәліметтерді өңдеу терезесі;
Кабинеттер – поликлиника кабинеттері туралы мәліметтерді өңдеу терезесі;
Жұмыс уақыттары - поликлиника дәрігерлерінің жұмыс уақыттары туралы
Барлық терезелер интерфейсі ұқсас етіп құрылды. Яғни, олардың
3.3. сурет.Дәрігерлер терезесі
3.4. сурет.Каинеттер терезесі
3.5. сурет.Дәрігерлердің жұмыс уақыты терезесі
Навигатор батырмасы сәйкес мәліметтер қоры кестесі жазбалары бойынша
Негізгі мәзірдің келесі мәліметтер қоры пунктінде келесі командалар
Дәрігерлер;
Пациенттер;
Дәрігерлер терезесінде дәрігерлер туралы мәліметтер өңделеді (3.6. сурет).
3.7. сурет. Дәрігерлер туралы мәліметтер
3.8. сурет. Дәрігерлер туралы мәліметтерді баспаға шығару
Негізгі мәзірдің келесі Қабылдау бөлімі пунктінде келесі командалар
Пациентті қабылдау- сәйкес терезені ашады.
Қарау- електен өткізу терезесін ашады.
Қабылдау терезесінде пациентті қабылдауға тіркеу жүзеге асырылады (3.9.
3.9. сурет. Пациентті қабылдау терезесі
Қарау терезесінде емдеуші дәрігер, емделуші пациент бойынша мәліметтерді
3.10. сурет емдеуші дәрігер, емделуші пациент бойынша мәліметтерді
3.11. сурет Мәліметтерді електен өткізу нәтижелерін баспаға шығару
Көмек пункті программа туралы ақпаратты көрсететін терезені шақырады
3.12. сурет. Программа туралы терезесі
Қорытынды
Курстық жұмысты орындау барысында өңделген жүйе қорытылған
Берілген жүйеде, кез келген өнімдегідей даму жолдары қарастырылған.
Жұмыстың негізгі нәтижесі болып табылатын функционалдық МҚБЖ, ол
Мәліметтер қорында сақталған ақпараттарға қол жеткізу әдістерінің жүзеге
МҚБЖ орындайтын барлық функциялар ұқыпты түрде сарапталған және
Әдебиеттер тізімі
Дж. Тельман, "Основы систем баз данных",
Дейт К., "Введение в системы баз данных", Москва,
Когловский М.Р., "Технология баз данных на персональных
Дж. Мартин., "Организация баз данных в вычислительных системах"
С.М.Диго "Проектирование и использования баз данных". Москва: Финансы
Горев А., Ахаян Р., Макашарипов С. «Эффективная работа
Бойко В.В., Савинков В.М. Проектирование баз данных информационных
Мейер М. Теория реляционных баз данных. – М.:
Брябрин В.М., "Программное обеспечение персональных ЭВМ", Москва, 'Hаука',
Шафрин Ю.А. «Основы компьютерной технологии». М., 1998
Фаронов В.В., Шумаков П.В. Delpi5. Руководство разработчика базы
Гофман И. Э., Хомоненко А. Д. Delphi5. –СПб.:
Кенту М. Delphi5 для профессионалов.-СПб.: Питер, 2001г.-944с.:ил.
Кандзюба С.П., Громов В.Н. Delphi 6.Базы данных и
Фаронов В.В. Delphi5. Учебный курс. – М.: «Нолидж»,2001г.
Архангельский А.Я. Язык SQL в Delphi5 – М.:
Қосымша 1. Программа листингі
unit polik_un;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Menus, ComCtrls, jpeg;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
Panel1: TPanel;
N13: TMenuItem;
N14: TMenuItem;
N1: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
SB: TStatusBar;
Image1: TImage;
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure N18Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N16Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses prog_un, priem_un, izm_un, o_prog;
{$R *.dfm}
procedure TForm1.N4Click(Sender: TObject);
begin
form2.show;
form2.dbgrid1.visible:=true;
form2.dbgrid2.visible:=false;
form2.dbgrid3.visible:=false;
form2.dbgrid1.align:=alclient;
form2.Caption:='Дәрігерлер';
end;
procedure TForm1.N5Click(Sender: TObject);
begin
form2.show;
form2.dbgrid1.visible:=false;
form2.dbgrid2.visible:=true;
form2.dbgrid3.visible:=false;
form2.dbgrid2.align:=alclient;
form2.Caption:='Кабинеттер';
end;
procedure TForm1.N6Click(Sender: TObject);
begin
form2.show;
form2.dbgrid1.visible:=false;
form2.dbgrid2.visible:=false;
form2.dbgrid3.visible:=true;
form2.dbgrid3.align:=alclient;
form2.Caption:='Жұмыс уақыты';
end;
procedure TForm1.N8Click(Sender: TObject);
begin
form3.Show;
form3.panel1.Align:=alclient;
form3.panel1.Visible:=true;
form3.panel2.Visible:=false;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
form3.Show;
form3.panel2.Align:=alclient;
form3.panel2.Visible:=true;
form3.panel1.Visible:=false;
end;
procedure TForm1.N12Click(Sender: TObject);
begin
aboutbox.showmodal;
end;
procedure TForm1.N13Click(Sender: TObject);
begin
form4.show;
form4.panel1.Visible:=true;
form4.panel2.Visible:=false;
form4.panel1.align:=alclient;
end;
procedure TForm1.N14Click(Sender: TObject);
begin
form4.show;
form4.panel2.Visible:=true;
form4.panel1.Visible:=false;
form4.panel2.align:=alclient;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.FormShow(Sender: TObject);
var
s:string;
begin
s:=extractfiledir(application.ExeName)+'\tab\';
form2.Query1.DatabaseName:=s;
form3.Table1.DatabaseName:=s;
form3.Table2.DatabaseName:=s;
form4.Query1.DatabaseName:=s;
form4.Query2.DatabaseName:=s;
form4.Query3.DatabaseName:=s;
form4.Query4.DatabaseName:=s;
sb.SimpleText:='Мәліметтер қорынан ажыратулы';
{form4.Query2.Active:=true;
form4.Query3.Active:=true;
form4.Query4.Active:=true; }
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form2.Query1.Active:=false;
form3.Table1.Active:=false;
form3.Table2.Active:=false;
form4.Query1.Active:=false;
form4.Query2.Active:=false;
form4.Query3.Active:=false;
form4.Query4.Active:=false;
end;
procedure TForm1.N18Click(Sender: TObject);
begin
close;
end;
procedure TForm1.N15Click(Sender: TObject);
begin
sb.SimpleText:='Мәліметтер қорына қосылулы';
form2.Query1.Active:=true;
form3.Table1.Active:=true;
form3.Table2.Active:=true;
form4.Query1.Active:=true;
end;
procedure TForm1.N16Click(Sender: TObject);
begin
form2.Query1.Active:=false;
form3.Table1.Active:=false;
form3.Table2.Active:=false;
form4.Query1.Active:=false;
form4.Query2.Active:=false;
form4.Query3.Active:=false;
form4.Query4.Active:=false;
sb.SimpleText:='Мәліметтер қорынан ажыратулы';
end;
end.
unit priem_un;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Grids, DBGrids, Buttons, StdCtrls, Mask,
ExtCtrls;
type
TForm4 = class(TForm)
Panel1: TPanel;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
DateTimePicker1: TDateTimePicker;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Panel2: TPanel;
MaskEdit1: TMaskEdit;
Label4: TLabel;
SpeedButton1: TSpeedButton;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Query1: TQuery;
Query2: TQuery;
Query3: TQuery;
Query4: TQuery;
GroupBox1: TGroupBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
procedure FormShow(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses otsh, polik_un;
{$R *.dfm}
procedure TForm4.FormShow(Sender: TObject);
var s:string;
begin
getdir(0,s);
{query1.DatabaseName:=s+'\tab';
query2.DatabaseName:=s+'\tab';
query3.DatabaseName:=s+'\tab';
query4.DatabaseName:=s+'\tab';
}
with query3 do begin
close;
sql.Clear;
sql.Add('select * from doktor.db');
open;
end;
with query3 do begin
first;
while not eof do begin
combobox1.items.add(fieldbyname('FIO').AsString);
combobox3.items.add(fieldbyname('FIO').AsString);
next;
end;
end;
with query4 do begin
close;
sql.Clear;
sql.Add('select * from pacient.db');
open;
end;
with query4 do begin
first;
while not eof do begin
combobox2.items.add(fieldbyname('FIO').AsString);
combobox4.items.add(fieldbyname('FIO').AsString);
next;
end;
end;
end;
procedure TForm4.SpeedButton1Click(Sender: TObject);
begin
with query1 do begin
close;
with query2 do
begin
close;
sql.Clear;
sql.Add('insert into priem.db (doctor, pac, d_zap, vr_zap) values'
sql.Add('("'+combobox1.Text+'","'+combobox2.Text+'","'+datetostr(datetimepicker1.Date)+'","'+maskedit1.Text+'")');
execsql;
end;
sql.Clear;
sql.Add('select * from priem.db');
open;
end;
hide;
end;
procedure TForm4.SpeedButton3Click(Sender: TObject);
begin
hide;
end;
procedure TForm4.SpeedButton2Click(Sender: TObject);
begin
form5.quickrep3.preview;
end;
procedure TForm4.SpeedButton5Click(Sender: TObject);
begin
with query1 do
begin
close;
sql.clear;
sql.add('select doctor, d_zap, vr_zap from priem.db');
open;
end;
dbgrid1.Visible:=true;
end;
procedure TForm4.SpeedButton6Click(Sender: TObject);
begin
if radiobutton1.Checked then begin
with query1 do
begin
close;
sql.clear;
sql.add('select pac, d_zap, vr_zap from priem.db where doctor="'+combobox3.text+'"');
open;
end;
dbgrid1.Visible:=true;
form5.qrlabel15.Caption:='Пациент';
end;
if radiobutton2.Checked then begin
with query1 do
begin
close;
sql.clear;
sql.add('select doctor, d_zap, vr_zap from priem.db where pac="'+combobox4.text+'"');
open;
end;
dbgrid1.Visible:=true;
form5.qrlabel15.Caption:='Дәрігер';
end;
end;
procedure TForm4.SpeedButton4Click(Sender: TObject);
begin
hide;
form1.show;
end;
end.
unit prog_un;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls;
type
TForm2 = class(TForm)
Query1: TQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
DBGrid3: TDBGrid;
Panel1: TPanel;
Panel2: TPanel;
DBNavigator1: TDBNavigator;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.FormShow(Sender: TObject);
var s:string;
begin
{getdir(0,s);
form2.query1.databasename:=s+'\tab';
with form2.Query1 do
begin
close;
sql.clear;
sql.add('select * from priem.db');
open;
end;
//form2.DBGrid1.DataSource:=datasource1;}
end;
end.
4
1
2-1
2-2
2-3
3-2
3-1
3-3
3-4
3-5
3-6
1
3
2
4
5
6
7
8
9
10