Главная
База знаний "Allbest"
Программирование, компьютеры и кибернетика
Автоматизована інформаційна система медичного діагностичного центру
Автоматизована інформаційна система медичного діагностичного центру
Проектування інтерфейсу програми. Вимоги до продукту. Вхідні дані на розробку автоматизованої системи. Вибір середовища програмування. Розробка структури бази даних. Функціональна та логічна структура програми. Розробка структури таблиць бази даних.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | украинский |
| Дата добавления | 30.06.2015 |
| Размер файла | 43,1 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
//kvitancii_suma_za_den_zaput.cpp (suma_za_den_form)
#include <vcl.h>
#pragma hdrstop
#include "kvitancii_suma_za_den_zaput.h"
#include "work_bd.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
Tsuma_za_den_form *suma_za_den_form;
__fastcall Tsuma_za_den_form::Tsuma_za_den_form(TComponent* Owner) : TForm(Owner) { }
void proverka()
{ if(suma_za_den_form->DBText1->Caption == "") {String none = "0"; suma_za_den_form->DBText1->Caption = none;}}
void __fastcall Tsuma_za_den_form::Button1Click(TObject *Sender)
{ String date = DateToStr(MonthCalendar1->Date); date = StringReplace(date,".","/",TReplaceFlags()<<rfReplaceAll);
char *d = date.c_str(); char first_2_day[5]; first_2_day[0] = d[0];first_2_day[1] = d[1];
char month[5]; month[0] = d[3];month[1] = d[4]; d[0] = month[0];d[1] = month[1]; d[3] = first_2_day[0];d[4] = first_2_day[1];
char d1[100]; for(int i=0;i<10;i++) { d1[i] = d[i]; } Edit1->Text = d1; Memo1->Clear();
bd_work->suma_za_den->Active=false; String sum = "SELECT SUM(Квитанція.[Всього до оплати]) FROM Квитанція";
AnsiString text= sum+" WHERE Квитанція.[Дата видачі]=#"+Edit1->Text+"#";
Memo1->Lines->Add(text); bd_work->suma_za_den->SQL->Clear();
bd_work->suma_za_den->SQL->Add(Memo1->Text); bd_work->suma_za_den->ExecSQL();
bd_work->suma_za_den->Active=true; suma_za_den_form->Height = 281; proverka(); }
void __fastcall Tsuma_za_den_form::FormCreate(TObject *Sender) { Left = 1168; Top = 450;suma_za_den_form->Height=257; }
void __fastcall Tsuma_za_den_form::MonthCalendar1KeyPress(TObject *Sender, char &Key)
{ if(Key == VK_RETURN)Button1Click(Sender); }
//klienti.cpp (klienti)
#include <vcl.h>
#pragma hdrstop
#include "klienti.h"
#include "work_bd.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
Tklient *klient;
__fastcall Tklient::Tklient(TComponent* Owner) : TForm(Owner) { }
void __fastcall Tklient::FormCanResize(TObject *Sender, int &NewWidth, int &NewHeight, bool &Resize)
{ Edit1->Width=klient->Width-260; }
void __fastcall Tklient::FormCreate(TObject *Sender)
{ Edit1->Width=klient->Width-260; Left = 237; Top = 116; }
void __fastcall Tklient::FormClose(TObject *Sender, TCloseAction &Action) { PasswordDlg->Close(); }
void __fastcall Tklient::Button1Click(TObject *Sender)
{ if((ComboBox1->Text=="Скинути фільтр")||(Edit1->Text=="")) bd_work->klientiz->Filtered = false;
else if((ComboBox1->Text=="Фільтр по \"Код клієнта\"")&&(Edit1->Text!=""))
{ bd_work->klientiz->Filtered = false; bd_work->klientiz->Filter = "[Код клієнта] like '"+Edit1->Text+"*'";
bd_work->klientiz->Filtered = true; }
else if((ComboBox1->Text=="Фільтр по \"Діагноз\"")&&(Edit1->Text!=""))
{ bd_work->klientiz->Filtered = false; bd_work->klientiz->Filter = "[Діагноз клієнта] like '"+Edit1->Text+"*'";
bd_work->klientiz->Filtered = true; }
else if((ComboBox1->Text=="Фільтр по \"Код лікаря\"")&&(Edit1->Text!=""))
{ bd_work->klientiz->Filtered = false; bd_work->klientiz->Filter = "[Код лікаря] like '"+Edit1->Text+"*'";
bd_work->klientiz->Filtered = true; }
else if((ComboBox1->Text=="Фільтр по \"Прізвище та ім'я\"")&&(Edit1->Text!=""))
{ bd_work->klientiz->Filtered = false;
bd_work->klientiz->Filter = "[Прізвище та ім'я] like '"+Edit1->Text+"*'"; bd_work->klientiz->Filtered = true; }
else if((ComboBox1->Text=="Фільтр по \"Код паспорту\"")&&(Edit1->Text!="")) { bd_work->klientiz->Filtered = false;
bd_work->klientiz->Filter = "[Код паспорту] like '"+Edit1->Text+"*'"; bd_work->klientiz->Filtered = true; }
else if((ComboBox1->Text=="Фільтр по \"Телефонний номер\"")&&(Edit1->Text!="")) { bd_work->klientiz->Filtered = false;
bd_work->klientiz->Filter = "[Телефонний номер] like '"+Edit1->Text+"*'"; bd_work->klientiz->Filtered = true; }
else if((ComboBox1->Text=="Фільтр по \"Місто проживання\"")&&(Edit1->Text!=""))
{ bd_work->klientiz->Filtered = false; bd_work->klientiz->Filter = "[Місто проживання] like '"+Edit1->Text+"*'";
bd_work->klientiz->Filtered = true; } }
void __fastcall Tklient::DBGrid1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{ bd_work->count_klients->Active=false;
bd_work->count_klients->Active=true; klient->StatusBar1->Panels->Items[1]->Text = DBText1->Caption; }
void __fastcall Tklient::ToolButton1Click(TObject *Sender) { bd_work->N56Click(Sender); }
void __fastcall Tklient::ToolButton2Click(TObject *Sender) { bd_work->N57Click(Sender); }
void __fastcall Tklient::ToolButton4Click(TObject *Sender) { bd_work->N58Click(Sender); }
void __fastcall Tklient::ToolButton6Click(TObject *Sender) { bd_work->N59Click(Sender); }
void __fastcall Tklient::ToolButton8Click(TObject *Sender) { bd_work->N60Click(Sender); }
void __fastcall Tklient::ToolButton10Click(TObject *Sender) { bd_work->N61Click(Sender); }
void __fastcall Tklient::ToolButton12Click(TObject *Sender) { bd_work->N51Click(Sender); }
void __fastcall Tklient::ToolButton14Click(TObject *Sender) { bd_work->N63Click(Sender); }
void __fastcall Tklient::DBGrid1KeyPress(TObject *Sender, char &Key) { if(Key == VK_RETURN)Button1Click(Sender); }
//klienti_delete_zaput.cpp (klient_deletes)
#include <vcl.h>
#pragma hdrstop
#include "klienti_delete_zaput.h"
#include "work_bd.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
Tklient_deletes *klient_deletes;
__fastcall Tklient_deletes::Tklient_deletes(TComponent* Owner) : TForm(Owner) { }
void __fastcall Tklient_deletes::Button1Click(TObject *Sender)
{ String ed1 = "[Код клієнта] = \""+Edit1->Text+"\" OR "; String ed2 = "[Діагноз клієнта] = \""+Edit2->Text+"\" OR ";
String ed3 = "[Код лікаря] = \""+Edit3->Text+"\" OR "; String ed4 = "[Прізвище та ім'я] = \""+Edit4->Text+"\" OR ";
String ed5 = "[Код паспорту] = \""+Edit5->Text+"\" OR "; String ed6 = "[Телефонний номер] = \""+Edit6->Text+"\" OR ";
String ed7 = "[Місто проживання] = \""+Edit7->Text+"\""; String mainText = ed1+ed2+ed3+ed4+ed5+ed6+ed7;
Memo1->Clear(); bd_work->klientiz->Active=false; AnsiString text[]={"DELETE FROM Клієнти ",
"WHERE "+mainText+";"}; for(unsigned t=0; t<sizeof(text)/sizeof(int); t++) Memo1->Lines->Add(text[t]);
bd_work->klientiz->Close(); bd_work->klientiz->SQL->Clear(); bd_work->klientiz->SQL->Add(Memo1->Text);
bd_work->klientiz->ExecSQL(); AnsiString text2[]={"SELECT *", "FROM Клієнти;"}; Memo1->Clear();
for(unsigned t=0; t<sizeof(text2)/sizeof(int); t++) Memo1->Lines->Add(text2[t]); bd_work->klientiz->Close();
bd_work->klientiz->SQL->Clear(); bd_work->klientiz->SQL->Add(Memo1->Text); bd_work->klientiz->Open();
bd_work->klientiz->Active=true; bd_work->count_klients->Active=false; bd_work->count_klients->Active=true; }
void __fastcall Tklient_deletes::FormCreate(TObject *Sender) { Left = 913; Top = 453; }
void __fastcall Tklient_deletes::Edit1KeyPress(TObject *Sender, char &Key) { if(Key == VK_RETURN)Button1Click(Sender); }
//klienti_insert_zaput.cpp (klient_insert)
#include <vcl.h>
#pragma hdrstop
#include "klienti_insert_zaput.h"
#include "work_bd.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
Tklient_insert *klient_insert;
__fastcall Tklient_insert::Tklient_insert(TComponent* Owner) : TForm(Owner) { }
void __fastcall Tklient_insert::Button1Click(TObject *Sender)
{ String ed1 = "\""+Edit1->Text+"\","; String lcb1 = "\""+DBLookupComboBox1->Text+"\",";
String lcb2 = "\""+DBLookupComboBox2->Text+"\","; String ed4 = "\""+Edit4->Text+"\",";
String ed5 = "\""+Edit5->Text+"\","; String ed6 = "\""+Edit6->Text+"\","; String ed7 = "\""+Edit7->Text+"\"";
String mainText = ed1+lcb1+lcb2+ed4+ed5+ed6+ed7; Memo1->Clear();
bd_work->klientiz->Active=false; AnsiString text[]={"INSERT INTO Клієнти([Код клієнта],[Діагноз клієнта],",
"[Код лікаря],[Прізвище та ім'я],[Код паспорту],", "[Телефонний номер],[Місто проживання])"," VALUES ("+mainText+")"};
for(unsigned t=0; t<sizeof(text)/sizeof(int); t++) Memo1->Lines->Add(text[t]); bd_work->klientiz->Close();
bd_work->klientiz->SQL->Clear(); bd_work->klientiz->SQL->Add(Memo1->Text); bd_work->klientiz->ExecSQL();
AnsiString text2[]={"SELECT *", "FROM Клієнти;"}; Memo1->Clear();
for(unsigned t=0; t<sizeof(text2)/sizeof(int); t++) Memo1->Lines->Add(text2[t]); bd_work->klientiz->Close();
bd_work->klientiz->SQL->Clear(); bd_work->klientiz->SQL->Add(Memo1->Text); bd_work->klientiz->Open();
bd_work->klientiz->Active=true; bd_work->count_klients->Active=false; bd_work->count_klients->Active=true; }
void __fastcall Tklient_insert::FormCreate(TObject *Sender) { Left = 913; Top = 453; }
void __fastcall Tklient_insert::Edit1KeyPress(TObject *Sender, char &Key) { if(Key == VK_RETURN)Button1Click(Sender); }
//klienti_search_zaput.cpp (klient_search)
#include <vcl.h>
#pragma hdrstop
#include "klienti_search_zaput.h"
#include "work_bd.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
Tklient_search *klient_search;
__fastcall Tklient_search::Tklient_search(TComponent* Owner) : TForm(Owner) { }
void __fastcall Tklient_search::Button1Click(TObject *Sender)
{ if((RadioButton1->Checked==true)&&(bd_work->klientiz->Locate("Код клієнта",Edit1->Text, TLocateOptions())))
{ShowMessage("Присутній!");}
if((RadioButton2->Checked==true)&&(bd_work->klientiz->Locate("Діагноз клієнта",Edit2->Text, TLocateOptions())))
{ShowMessage("Присутній!");}
if((RadioButton3->Checked==true)&&(bd_work->klientiz->Locate("Код лікаря",Edit3->Text, TLocateOptions())))
{ShowMessage("Присутній!");}
if((RadioButton4->Checked==true)&&(bd_work->klientiz->Locate("Прізвище та ім'я",Edit4->Text, TLocateOptions())))
{ShowMessage("Присутній!");}
if((RadioButton5->Checked==true)&&(bd_work->klientiz->Locate("Код паспорту",Edit5->Text, TLocateOptions())))
{ShowMessage("Присутній!");}
if((RadioButton6->Checked==true)&&(bd_work->klientiz->Locate("Телефонний номер",Edit6->Text, TLocateOptions())))
{ShowMessage("Присутній!");}
if((RadioButton7->Checked==true)&&(bd_work->klientiz->Locate("Місто проживання",Edit7->Text, TLocateOptions())))
{ShowMessage("Присутній!");} }
void __fastcall Tklient_search::FormCreate(TObject *Sender)
{ Left = 913; Top = 453; }
void __fastcall Tklient_search::RadioButton1KeyPress(TObject *Sender, char &Key)
{ if(Key == VK_RETURN)Button1Click(Sender); }
//likari.cpp (likar)
#include <vcl.h>
#pragma hdrstop
#include "likari.h"
#include "work_bd.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
Tlikar *likar;
__fastcall Tlikar::Tlikar(TComponent* Owner) : TForm(Owner) { }
void __fastcall Tlikar::FormCanResize(TObject *Sender, int &NewWidth, int &NewHeight, bool &Resize)
{ Edit1->Width=likar->Width-260; }
void __fastcall Tlikar::FormCreate(TObject *Sender) { Edit1->Width=likar->Width-260; Left = 367; Top = 120; }
void __fastcall Tlikar::DBGrid1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{ bd_work->count_likari->Active=false; bd_work->count_likari->Active=true;
StatusBar1->Panels->Items[1]->Text = DBText1->Caption; }
void __fastcall Tlikar::Button1Click(TObject *Sender)
{ if((ComboBox1->Text=="Скинути фільтр")||(Edit1->Text=="")) bd_work->likariz->Filtered = false; String FN = ""; //FieldName
if((ComboBox1->Text=="Фільтр по \"Код лікаря\"")&&(Edit1->Text!="")) {FN = "[Код лікаря] like '"+Edit1->Text+"*'"; }
else if((ComboBox1->Text=="Фільтр по \"Прізвище і ініціали\"")&&(Edit1->Text!=""))
{FN = "[Прізвище і ініціали] like '"+Edit1->Text+"*'";}
else if((ComboBox1->Text=="Фільтр по \"Код паспорту\"")&&(Edit1->Text!="")) {FN = "[Код паспорту] like '"+Edit1->Text+"*'";}
else if((ComboBox1->Text=="Фільтр по \"Телефонний номер\"")&&(Edit1->Text!=""))
{ FN = "[Телефонний номер] like '"+Edit1->Text+"*'"; }
else if((ComboBox1->Text=="Фільтр по \"Місто проживання\"")&&(Edit1->Text!=""))
{ FN = "[Місто проживання] like '"+Edit1->Text+"*'"; }
if(FN!="") { bd_work->likariz->Filtered = false; bd_work->likariz->Filter = FN; bd_work->likariz->Filtered = true; } }
void __fastcall Tlikar::FormClose(TObject *Sender, TCloseAction &Action)
{ PasswordDlg->Close(); }
void __fastcall Tlikar::ToolButton1Click(TObject *Sender) { bd_work->N43Click(Sender); }
void __fastcall Tlikar::ToolButton2Click(TObject *Sender) { bd_work->N44Click(Sender); }
void __fastcall Tlikar::ToolButton4Click(TObject *Sender) { bd_work->N45Click(Sender); }
void __fastcall Tlikar::ToolButton7Click(TObject *Sender) { bd_work->N46Click(Sender); }
void __fastcall Tlikar::ToolButton9Click(TObject *Sender) { bd_work->N47Click(Sender); }
void __fastcall Tlikar::ToolButton11Click(TObject *Sender) { bd_work->N48Click(Sender); }
void __fastcall Tlikar::ToolButton5Click(TObject *Sender) { bd_work->N39Click(Sender); }
void __fastcall Tlikar::ToolButton13Click(TObject *Sender) { bd_work->N63Click(Sender);}
void __fastcall Tlikar::DBGrid1KeyPress(TObject *Sender, char &Key)
{ if(Key == VK_RETURN)Button1Click(Sender); }
//likari_delete_zaput.cpp (likar_delete)
#include <vcl.h>
#pragma hdrstop
#include "likari_delete_zaput.h"
#include "work_bd.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
Tlikar_delete *likar_delete;
__fastcall Tlikar_delete::Tlikar_delete(TComponent* Owner) : TForm(Owner) { }
void __fastcall Tlikar_delete::Button1Click(TObject *Sender)
{ String ed1 = "[Код лікаря] = \""+Edit1->Text+"\" OR ";
String ed2 = "[Прізвище і ініціали] = \""+Edit2->Text+"\" OR "; String ed3 = "[Код паспорту] = \""+Edit3->Text+"\" OR ";
String ed4 = "[Телефонний номер] = \""+Edit4->Text+"\" OR "; String ed5 = "[Місто проживання] = \""+Edit5->Text+"\"";
String mainText = ed1+ed2+ed3+ed4+ed5; Memo1->Clear();
bd_work->likariz->Active=false; AnsiString text[]={"DELETE FROM Лікарі WHERE "+mainText+""};
for(unsigned t=0; t<sizeof(text)/sizeof(int); t++) Memo1->Lines->Add(text[t]);
bd_work->likariz->Close(); bd_work->likariz->SQL->Clear(); bd_work->likariz->SQL->Add(Memo1->Text);
bd_work->likariz->ExecSQL(); AnsiString text2[]={"SELECT *", "FROM Лікарі;"};
Memo1->Clear(); for(unsigned t=0; t<sizeof(text2)/sizeof(int); t++)
Memo1->Lines->Add(text2[t]); bd_work->likariz->Close(); bd_work->likariz->SQL->Clear();
bd_work->likariz->SQL->Add(Memo1->Text); bd_work->likariz->Open(); bd_work->likariz->Active=true; }
void __fastcall Tlikar_delete::FormCreate(TObject *Sender) { Left = 913; Top = 441; }
void __fastcall Tlikar_delete::Edit1KeyPress(TObject *Sender, char &Key) { if(Key == VK_RETURN)Button1Click(Sender);}
//likari_insert_zaput.cpp (likar_insert)
#include <vcl.h>
#pragma hdrstop
#include "likari_insert_zaput.h"
#include "work_bd.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
Tlikar_insert *likar_insert;
__fastcall Tlikar_insert::Tlikar_insert(TComponent* Owner) : TForm(Owner) { }
void __fastcall Tlikar_insert::Button1Click(TObject *Sender)
{ String ed1 = "\""+Edit1->Text+"\","; String ed2 = "\""+Edit2->Text+"\",";
String ed3 = "\""+Edit3->Text+"\","; String ed4 = "\""+Edit4->Text+"\","; String ed5 = "\""+Edit5->Text+"\"";
String mainText = ed1+ed2+ed3+ed4+ed5; Memo1->Clear(); bd_work->likariz->Active=false;
AnsiString text[]={"INSERT INTO Лікарі([Код лікаря],[Прізвище і ініціали],[Код паспорту],",
"[Телефонний номер],[Місто проживання]) VALUES ("+mainText+")"};
for(unsigned t=0; t<sizeof(text)/sizeof(int); t++) Memo1->Lines->Add(text[t]);
bd_work->likariz->Close(); bd_work->likariz->SQL->Clear(); bd_work->likariz->SQL->Add(Memo1->Text);
bd_work->likariz->ExecSQL(); AnsiString text2[]={"SELECT *",
"FROM Лікарі;"}; Memo1->Clear(); for(unsigned t=0; t<sizeof(text2)/sizeof(int); t++)
Memo1->Lines->Add(text2[t]); bd_work->likariz->Close(); bd_work->likariz->SQL->Clear();
bd_work->likariz->SQL->Add(Memo1->Text); bd_work->likariz->Open(); bd_work->likariz->Active=true;
}
void __fastcall Tlikar_insert::FormCreate(TObject *Sender) { Left = 913; Top = 441; }
void __fastcall Tlikar_insert::Edit1KeyPress(TObject *Sender, char &Key) { if(Key == VK_RETURN)Button1Click(Sender); }
Размещено на Allbest.ur
Подобные документы
Загальна характеристика методів проектування та документації додатків. Розробка інтерфейсу програми для медичного діагностичного центру. Вибір архітектури. Описання логічної структури програми. Розробка структури бази даних проекту, полів таблиць.
курсовая работа [2,0 M], добавлен 21.08.2015Розробка інтерфейсу програми "Автоматизована інформаційна система автошколи". Вибір архітектури, характеристика користувача. Генерація, проектування схеми бази даних, детальне програмування. Розробка структури таблиць. Лістинг програми, результат роботи.
курсовая работа [2,7 M], добавлен 11.09.2015Проектування бази даних для КП "ВодГео" - комунального підприємства у сфері водопостачання та водовідведення в м. Сміла. Предметна область, вимоги до продукту. Розробка інтерфейсу програми. Вибір архітектури та сервера бази даних, її логічна структура.
курсовая работа [1,2 M], добавлен 14.07.2015Роль бази даних, призначеної для каталогізації рейсів, рухомого складу, персоналу та пасажирів, в полегшенні роботи залізничного вокзалу. Проектування структури даних. Розробка запитів для рішення задач, комплексної програми. Опис математичної моделі.
курсовая работа [4,8 M], добавлен 27.12.2013Проектування бази даних "Автоматизована система обліку замовлень та їх виконання в будівельній фірмі": створення таблиць і заповнення їх текстовою інформацією, розробка форм, звітів і меню проекту. Програмування інтерфейсу управління базами даних.
дипломная работа [6,1 M], добавлен 06.01.2012Теоретичні відомості про пакет ІЗВП Borland Delphi та СУБД MS Access, оцінка їх функціональних особливостей. Опис структури бази даних. Проектування інтерфейсу програми, опис її логічної структури та функцій. Контроль коректності вхідних, вихідних даних.
курсовая работа [4,5 M], добавлен 03.01.2014Вибір середовища програмування Borland Delphi 7.0 для створення електронно-медичного довідника. Формування бази даних для перегляду та пошуку медичних препаратів для лікування. Особливості програмування інтерфейсу програми, інструкція користувача.
курсовая работа [2,2 M], добавлен 19.09.2012Розробка структури бази даних. ER-моделі предметної області. Проектування нормалізованих відношень. Розробка форм, запитів, звітів бази даних "Автосалон". Тестування роботи бази даних. Демонстрація коректної роботи форми "Додавання даних про покупців".
курсовая работа [4,0 M], добавлен 02.12.2014Проектування бази даних (БД). Проектування логічної моделі БД. Реалізація БД та створення таблиць. Встановлення зв’язків, вибір мови та середовища програмування. Опис функціональних елементів та реалізація програми. Опис та тестовий приклад програми.
дипломная работа [1,6 M], добавлен 07.01.2017Проектування і реалізація реляційної бази даних для централізованого зберігання інформації з метою полегшення і систематизації даних замовлень клієнтів готельного комплексу. Розробка сценаріїв для створення бази даних і базових таблиць проекту.
курсовая работа [147,2 K], добавлен 02.06.2019
