Отбасылық дәрігерлік амбулатория жобасын құру

 

                            

 

3.1.4 сурет - «Жас сабилер» туралы міліметтер.

 

Жас сабилер  жайлы толық ақпараттарды көру үшін «Жас сабилер» батырмасын басамыз. Бұл  жерде де, ересек адам туралы толық  ақпарат секілді мәліметтер көзі шығады. (3.1.4 сурет) панелі шығады. Жас сабилер мәліметтер көзінде сәби жайлы ақпараттар қаралған. Сәбилер бұл жерде де ауданы, жынысы арқылы ажыратылады. Яғни, біл іздеу мүмкіншіліктерін жан-жақты қарастырады. 

             

3.1.5 сурет - «Дарігерлер базасы» мәліметтер қоры.

 

«Дарігерлер базасы» батырмасын басу арқылы отбаслық амбулаторияда жұмыс істейтін дәрігерлермен медбикелерді іздеп, олар жайлы толық ақпараттарды қарай аламыз.( 3.1.5 сурет) Соның ішінде олардың жұмыс істеу күн тәртібін қарауға болады.

 «Көп нүктелер» батырмасын  басу арқылы біз, отбасылық  амбулаторияға жаңадан аудан қосамыз. (3.1.6 сурет.). Осы қосқан ауданға отбасылық дарігерін, медбикесін қоса аламыз. Оны сақтап, осы ауданға қатысты керекті мәліметтерді басқа да деректер базасына қосамыз.

 

                        

 

3.1.6 сурет - «Жаңадан аудан қосу» терезесі.

 

Бағдарламаның мәзірін қарап, Есеп беру батырмасын баса отырып, өзімізге керекті мәліметтерді Excel – ге отчет ретінде шығара аламыз. (3.1.7 сурет.)

 

 

3.1.7 сурет - «Есеп беру» қағазға шығаратын мәліметтерді таңдау.

 

 

3.2 Бағдарламада  қолданылған компоненттерді сипаттау

 

 

Пиктограмма	Атауы	Түсінігі
	Frame	Формадан бөлек  компоненттер палитрасында орналаса алады, ең алғаш  Delphi 5 версиясына енгізілген.
	MainMenu	Бағдарламаның басты мәзірі. Бұл компонент күрделі  иерархиялық менюді құруға және қызмет көрсетуге арналған.
	PopupMenu	Көмекші немесе жергілікті мәзір. Бұл мәзір тышқанның  оң жақ батырмасын шерткеннен кейін  жеке терезеде шығады.
	Label	Бұл компонентті  ұзақ емес бірқатарлы жазуларды терезеге орналастыру үшін қолданады.
	Edit	Бір мәтіндік жолды  редактрлеу немесе бейнелерді енгізу үшін арналған.
	Memo	Көпжолды мәтіндік редактор. Көпжолды мәтінді енгізу немесе бейнелеу үшін қолданылады.
	Button	Командалық  батырма. Бұл компоненттің OnClick хабарын  қайта өңдеуші кейбір командаларды реализациялау үшін қолданады.
	CheckBox	Тәуелсіз ауыстырғыш. Жұмыс істеуші бағдарламада осы  компонентті шерткенде Checked логикалық  қасиетін өзгертеді.
	ListBox	Таңдау тізімі. Қойылған нұсқалардың тізімін құрайды  және ағымдағы таңдауларды тексеруге  мүмкіндік береді.
	ComboBox	Комбинирленген  таңдау тізімі. Мәтіндік редактордың  және таңдау тізімнің комбинациясын  көрсетеді.
	Radio Button	Тәуелді ауыстырғыш.Топқа тағы да бір осындай компонентпен  жұмыс атқарады. Алдыңғы таңдалған компонентті ауыстырады.
	ScrollBar	Басқару сызығы.  Windows-терезе бүйірінен айналдырғандағы  сызықты біле отыра, көлденең немесе тігінен сызықтарды көрсетеді.
	GroupBox	Элементтер  тобы. Бұл  компонент бірнеше компонеттердің мағынасы бойынша байланысқан топтар үшін қолданады.
	RadioGroup	Тәуелді ауыстырғыштардың тобы. Бірнеше байланысқан тәуелді  ауыстырғыштарға қызмет көрсету  үшін арнайы қасиеттерді құрайды.
	Panel	Панель. Бұл  компонент  GroupBox сияқты бірнеше компоненттерді қосу үшін қызмет көрсетеді.
	Gauge	Бұл компонент  бағдарламанын жүктелуін көрсетеді.
	Timer	Бұл компонент Gauge компонентінің бағдарламада жүктелу уақытын көрсетеді.
	DataSource	Бұл компонент бағдарламада іздеу қызметін атқарады.

 

 

 

3.3 Қолданушы  интерфейсі

 

«Басты форма» терезесі мынадай батырмалар арқылы жасалған:

 

 

                                                                               TGauge

                                                Label1

                       Label2

 

 

 

 

«Негізгі форма» терезе батырмалары:

 

 

                                                    Button1          GroupBox    

        Edit1         Label

 

 

 

«ОДА-ға тіркелген  ересек адамдар» мәліметтер терезесі:

 

 

                                   Button1     Button2

               Edit

 

 

 

«Жаңадан аудан  қосу» терезесі

 

 

 

                   Label

                                               Button1       Edit           GroupBox

 

 

«Есеп беру»  қағазға шығару терезесі:

 

 

MainMenu

Button2

                   Label

                                               Button1      

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ҚОРЫТЫНДЫ

 

Есептеуші техника  құралдарының дамытылуы мен адам іс- әрекетінің барлық салаларына компьютерлердің енгізілуі қарқындап келе жатқан және кері қайтпайтын процесс. Компьютердің қолданылуының әсерлілігі, компьютермен шешілетін функциялар шеңберінің кеңейуі адам еңбек ететін кез – келген аймақта ауыстырылмас көмекші болып отыр. 
Берілгендер қорын басқару жүйелері кәзіргі уақытта үлкен көлемді ақпараттармен жұмыс жасауда қызмет түрлерінің толық бөлігін қамту үстінде. Сондықтан, БҚБЖ адам жұмысының үлкен бөлігін жеңілдетуге ықпал етуде, жұмыспен қамту орталығына арналған арнайы жасалынған қолданбалы бағдарламалық қамтамалар жеткіліксіз. Мұндай бағдарламалық қамтамалар орталықтың көлемді ақпарат ағынын автоматтандыруға өте қолайлы.  
          Соңғы жылдары медицина саласында есептеуіш техника құралдарын қолдануға ерекше ықылас бөлінуде. Бұл есептеуіш құралдарының, соның ішінде заманауи дербес ЭЕМ мүмкіншіліктерімен түсіндіріледі. Бұл ЭЕМ адам ойының түрлі облыстарында ақпараттарды өңдеуде ыңғайлы құрал болып табылады. Дербес компьютерлердің габариттері оларды пайдаланушының жұмыс үстеліне орналастыруға мүмкіншілік береді, ал ДЭЕМ-мен қатынаста оларды бағдарламалаушы емес қолданушыларға қол жетімді етеді. 
           Заманауи ДЭЕМ-дің жылдам әрекет етуі және үлкен көлемдегі ақпараттарды өңдеу үшін жедел жадысының көлемді сыйымдылығымен ерекшеленеді. Олардың медицина саласының мынадай облыстарында, мысалы, Медстатистикада қол еңбегінің уақытын қысқарту, жұмыстың сапасы мен дұрыстығын жоғарылату және соңғы нәтижені жылдам алуға мүмкіндік береді. 
           Курстық жоба нақты осы проблемаға қатысты болып табылады.

Курстық жоба тақырыбы «Отбасылық дәрігерлік амбулаторияда  науқастың жеке картасын жүргізу  және тіркеу бойынша АЖ құру». 
Ағымдағы курстық жоба маңыздылығы бұл, қолданбалы бағдарламалау денсаулық сақтау мекемелерге қажетті ақпараттық жүйелерін қамтамасыз етеді. Мұндай бағдарламалардың дайын күйінде болмағаны дұрыс, себебі, барлық денсаулық сақтау мекемелерінің өз спецификасы бар.

Delphi ортасы –  визуалды программалау жүйесін  көп қолданушылар арасында белгілі. Delphi – бұл Windows операциялық жүйесінде жұмыс істеуге арналған программаларды жетілдіру ортасы. Delphi ортасындағы программалар объектілі – бағдарланған программаларды қолдана отырып, визуалды жобалау жаңа технологиялар негізінде құрылады. Деректер қорымен жұмыс істеуге арналған қосымшалармен бірге көптеген қосымшаларды Delphi жүйесі тез және тиімді түрде құруға арналған, дамыған мүмкіндіктерге ие, сонымен қатар кең көлемді функциялар жиыны, қолданбалы есептерді шешуге арналған әдістер мен қасиеттерге ие.

Delphi арқылы локальды, алшақтағы деректер қорымен жұмыс істеуге, қосымшалар құруға болады. Ол мәліметтер жүйесін құрайтын жаңа технологияларды, сонымен қатар көп деңгейлі «клиент-сервер» технологиясын қолдайды.

Delphi программалау  тілі – объектілі- бағдарланған  көрнекілі программаланатын тіл, ол оқиғалар бойынша басқарылады және жоба құрудың қазіргі замандағы құралдарына қойылатын талаптарға толығымен сәйкестендірілген. Delphi тілі құралдардың қуаттылығы, жұмыстың интерактивті режимі, реляционды деректер қорын басқаруға арналған қосымшаларды құру мүмкіндігі тәрізді сапалы қызметтер жүйесіне ие.

“Delphi ортасында  ОДА мәліметтер қорын құру ” тақырыбы бойынша орындалған курстық жоба үш бөлімнен тұрады. Кіріспе бөлімінде  жалпы моделдің шығу тарихына қысқаша  шолу жасай отырып, жұмыстың мақсаты баяндалған. Жалпы бөлім тілдің даму тарихы, негізгі құраушы элементтері жайлы сөз қозғалды. Арнайы бөлімінде жобаның тақырыбы бойынша деректер қоры туралы қысқаша мағұлмат келтірілген.  Әрбір форма сипатталып, кодтары жазылды.

Қорыта айтқанда,  бұл курстық жобаны жазу және орындау барысында Delphi тілінің жоғары деңгейлі, мүмкіндігі мол және осы аталған ортада көптеген жан-жақты программалар жасауға болатынына көз жеткіздім.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР

 

1. Архангельский А. Я. Интегрированная среда разработки Delphi – М.:ЗАО, Бином; 1999.
2. Архангельский А.Я. Приемы программирования в Delphi .-М.:ЗАО « Издательство БИНОМ», 2003.
3. Архангельский А.Я. Программирование в Delphi 7.-М.:ООО «Бином-Пресс», 2003.
4. Ахаян Р.М. «Эффективная работа с СУБД». Санкт-Петербург, «Питер», 1997.
5. Бланк  И.А.  Финансовый менеджмент: Учебный курс. Киев: Ника-Центр Эльга, 1999.
6. Брусенцов Н.П., Маслов С.П., Х.Рамиль Альварес Микрокомпьютерная система обучения "Наставник". М.: Наука , 1990. 
7. Возневич Э. «Освой самостоятельно Delphi: Полное руководство для самостоятельного обучения. /Под ред. В. Тимофеева. – М.: Бином, 1996.
8. Гусева Т.И., Башин Ю.Б. Проектирование баз данных в примерах и задачах. – Москва, “Радио и связь”, 1992.
9. Евдокимов В.И., Козаченко В.И., Нейман Л.А., Румянцев В.В. Охрана труда в приборо- и радиоаппаратостроении: Учебное пособие / СПГУАП. СПб., 1993.
10. Ефимова О.В. Финансовый анализ. М.: Бухгалтерский учет, 2000.
11. Культин Н. «Delphi. Программирование на Object Pascal» - издательство ”БВХ-Петербург”, 2001.
12. Культин Н. Программирование в Turbo Pascal 7.0. и Delphi. Самоучитель. – Санкт-Петербург, БХВ, 1999.
13. Ларcон, Брюс. «Руководство по экспертным базам данных». Пер с англ. – Киев, «Диалектика». 1996.
14. Липаев В.В. Тестирование программ. - М.: Радио и связь, 1986.
15. Марко Кэнту. Для профессионалов Delphi 6. Санкт-Петербург, изд. Питер, 2002.
16. Миллер Т., Пауэл Д. Использование Delphi 3. Специальное издание. К.: «Диалектика», 1997.
17. Сван Том. Секреты 32-разрядного программирования в Delphi. К: «Диалектика». 1997.

 

 

 

 

 

 

 

 

ҚОСЫМША

 

Бастапқы форма

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, Gauges, StdCtrls, SkinEngine;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Gauge1: TGauge;

    Timer1: TTimer;

    scSkinEngine1: TscSkinEngine;

    procedure Timer1Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

 

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Gauge1.Progress:=Gauge1.Progress+1;

if Gauge1.Progress>98 then begin

timer1.Enabled:=false;

form1.Visible:=false;

form2.Show;

end;

end;

end.

 

 

Бас мәзір

unit Unit2;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls, ComCtrls, DBCtrls, Mask, Grids, DBGrids,

  SkinButton, SkinCtrls, SkinEngine, Menus, comobj;

type

  TForm2 = class(TForm)

    Label1: TLabel;

    GroupBox1: TGroupBox;

    GroupBox2: TGroupBox;

    Label5: TLabel;

    DBText3: TDBText;

    Label6: TLabel;

    DBText4: TDBText;

    Label7: TLabel;

    DBText5: TDBText;

    Label8: TLabel;

    DBText6: TDBText;

    Label9: TLabel;

    DBText7: TDBText;

    GroupBox3: TGroupBox;

    Label10: TLabel;

    DBText8: TDBText;

    Label11: TLabel;

    DBText9: TDBText;

    Label12: TLabel;

    DBText10: TDBText;

    Label13: TLabel;

    DBText11: TDBText;

    Label14: TLabel;

    DBText12: TDBText;

    GroupBox4: TGroupBox;

    Label15: TLabel;

    DBText13: TDBText;

    Label16: TLabel;

    DBText14: TDBText;

    Label17: TLabel;

    DBText15: TDBText;

    Label18: TLabel;

    DBText16: TDBText;

    Label19: TLabel;

    DBText17: TDBText;

    Label20: TLabel;

    DBText18: TDBText;

    Label21: TLabel;

    DBText19: TDBText;

    StatusBar1: TStatusBar;

    Timer1: TTimer;

    GroupBox5: TGroupBox;

    Label22: TLabel;

    Label23: TLabel;

    Label24: TLabel;

    Label25: TLabel;

    Label26: TLabel;

    DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;

    DBEdit3: TDBEdit;

    DBEdit4: TDBEdit;

    DBEdit5: TDBEdit;

    GroupBox6: TGroupBox;

    Label27: TLabel;

    Label28: TLabel;

    Label29: TLabel;

    Label30: TLabel;

    Label31: TLabel;

    DBEdit6: TDBEdit;

    DBEdit7: TDBEdit;

    DBEdit8: TDBEdit;

    DBEdit9: TDBEdit;

    DBEdit10: TDBEdit;

    GroupBox7: TGroupBox;

    Label32: TLabel;

    Label33: TLabel;

    Label34: TLabel;

    Label35: TLabel;

    Label36: TLabel;

    Label37: TLabel;

    Label38: TLabel;

    DBEdit11: TDBEdit;

    DBEdit12: TDBEdit;

    DBEdit13: TDBEdit;

    DBEdit14: TDBEdit;

    DBEdit15: TDBEdit;

    DBEdit16: TDBEdit;

    DBEdit17: TDBEdit;

    Label39: TLabel;

    DBText20: TDBText;

    Label40: TLabel;

    DBEdit18: TDBEdit;

    Label41: TLabel;

    DBEdit19: TDBEdit;

    GroupBox8: TGroupBox;

    GroupBox9: TGroupBox;

    Label42: TLabel;

    Label43: TLabel;

    Label44: TLabel;

    Label45: TLabel;

    Label46: TLabel;

    Label47: TLabel;

    Label48: TLabel;

   Label49: TLabel;

    Label61: TLabel;

    DBText24: TDBText;

    Label62: TLabel;

    DBText25: TDBText;

    Label63: TLabel;

    DBText26: TDBText;

    DBEdit20: TDBEdit;

    DBEdit21: TDBEdit;

    DBEdit22: TDBEdit;

    DBEdit23: TDBEdit;

    DBEdit24: TDBEdit;

    DBEdit25: TDBEdit;

    DBMemo1: TDBMemo;

    GroupBox10: TGroupBox;

    Label50: TLabel;

    Label51: TLabel;

    Label52: TLabel;

    Label53: TLabel;

    Label54: TLabel;

    Label55: TLabel;

    Label56: TLabel;

    Label57: TLabel;

    Label58: TLabel;

    DBText21: TDBText;

    Label59: TLabel;

    DBText22: TDBText;

    Label60: TLabel;

    DBText23: TDBText;

    DBText27: TDBText;

    DBText28: TDBText;

    DBText29: TDBText;

    DBText30: TDBText;

    DBText31: TDBText;

    DBText32: TDBText;

    DBText33: TDBText;

    DBMemo2: TDBMemo;

    GroupBox11: TGroupBox;

    DBGrid1: TDBGrid;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    GroupBox12: TGroupBox;

    Label64: TLabel;

    DBEdit26: TDBEdit;

    Label65: TLabel;

    DBEdit27: TDBEdit;

    Label66: TLabel;

    DBEdit28: TDBEdit;

    DBText34: TDBText;

    Label68: TLabel;

    DBText35: TDBText;

    Label69: TLabel;

    DBText36: TDBText;

    Label67: TLabel;

    DBText37: TDBText;

    DBComboBox1: TDBComboBox;

    Label70: TLabel;

    DBEdit29: TDBEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    Label71: TLabel;

    DBText38: TDBText;

    Edit6: TEdit;

    GroupBox13: TGroupBox;

    DBText39: TDBText;

    GroupBox14: TGroupBox;

    DBGrid2: TDBGrid;

    Edit7: TEdit;

    Edit8: TEdit;

    Edit9: TEdit;

    GroupBox15: TGroupBox;

    Label72: TLabel;

    DBText40: TDBText;

    Label73: TLabel;

    DBText41: TDBText;

    Label74: TLabel;

    DBText42: TDBText;

    Label75: TLabel;

    DBText43: TDBText;

    Label76: TLabel;

    Label77: TLabel;

    DBText44: TDBText;

    Label78: TLabel;

    DBText45: TDBText;

    DBMemo3: TDBMemo;

    Label79: TLabel;

    Label80: TLabel;

    DBText46: TDBText;

    Label81: TLabel;

    DBText47: TDBText;

    Label82: TLabel;

    DBText48: TDBText;

    GroupBox16: TGroupBox;

    Label83: TLabel;

    Label84: TLabel;

    Label85: TLabel;

    Label86: TLabel;

    Label87: TLabel;

    Label88: TLabel;

    Label89: TLabel;

    Label90: TLabel;

    Label91: TLabel;

    DBText55: TDBText;

    Label92: TLabel;

    DBText56: TDBText;

    Label93: TLabel;

    DBText57: TDBText;

    DBComboBox3: TDBComboBox;

    DBMemo4: TDBMemo;

    DBEdit30: TDBEdit;

    DBEdit31: TDBEdit;

    DBEdit32: TDBEdit;

    DBEdit33: TDBEdit;

    DBEdit34: TDBEdit;

    DBEdit35: TDBEdit;

    Edit10: TEdit;

    Label94: TLabel;

    Label95: TLabel;

    DBText49: TDBText;

    Label96: TLabel;

    DBText50: TDBText;

    DBText51: TDBText;

    ComboBox1: TComboBox;

    Label97: TLabel;

    ComboBox2: TComboBox;

    GroupBox17: TGroupBox;

    GroupBox18: TGroupBox;

    DBGrid3: TDBGrid;

    Label98: TLabel;

    DBLookupComboBox2: TDBLookupComboBox;

    Label99: TLabel;

    DBLookupComboBox3: TDBLookupComboBox;

    Edit11: TEdit;

    Edit12: TEdit;

    Edit13: TEdit;

    Edit14: TEdit;

    Edit15: TEdit;

    Edit16: TEdit;

    GroupBox19: TGroupBox;

    GroupBox20: TGroupBox;

    GroupBox21: TGroupBox;

    GroupBox22: TGroupBox;

    Label100: TLabel;

    Label101: TLabel;

    Label102: TLabel;

    Label103: TLabel;

    Label104: TLabel;

    Label105: TLabel;

    DBText52: TDBText;

    DBText53: TDBText;

    DBText54: TDBText;

    DBText58: TDBText;

    DBText59: TDBText;

    DBText60: TDBText;

    DBText61: TDBText;

    Label106: TLabel;

    Label107: TLabel;

    Label108: TLabel;

    Label109: TLabel;

    Label110: TLabel;

    Label111: TLabel;

    DBText62: TDBText;