Створення програмного додатку "Медичний діагностичний центр"

Проектування програмного забезпечення. Тестування та супровід програмного забезпечення. Технологія розробки програмного забезпечення. Основні моделі розробки програмного засобу. Структура процесу моделювання Erwin. Генерування бази даних BatchAccess.

Рубрика Программирование, компьютеры и кибернетика
Вид курсовая работа
Язык украинский
Дата добавления 20.06.2015
Размер файла 2,4 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

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); }

//likari_search_zaput.cpp (likar_search)

#include <vcl.h>

#pragma hdrstop

#include "likari_search_zaput.h"

#include "work_bd.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

Tlikar_search *likar_search;

__fastcall Tlikar_search::Tlikar_search(TComponent* Owner) : TForm(Owner) { }

void __fastcall Tlikar_search::Button1Click(TObject *Sender)

{ if((RadioButton1->Checked==true)&&(bd_work->likariz->Locate("Код лікаря",Edit1->Text, TLocateOptions())))

{ShowMessage("Присутній!");}

if((RadioButton2->Checked==true)&&(bd_work->likariz->Locate("Прізвище і ініціали",Edit2->Text, TLocateOptions())))

{ShowMessage("Присутній!");}

if((RadioButton3->Checked==true)&&(bd_work->likariz->Locate("Код паспорту",Edit3->Text, TLocateOptions())))

{ShowMessage("Присутній!");}

if((RadioButton4->Checked==true)&&(bd_work->likariz->Locate("Телефонний номер",Edit4->Text, TLocateOptions())))

{ShowMessage("Присутній!");}

if((RadioButton5->Checked==true)&&(bd_work->likariz->Locate("Місто проживання",Edit5->Text, TLocateOptions())))

{ShowMessage("Присутній!");} }

void __fastcall Tlikar_search::RadioButton1KeyPress(TObject *Sender, har &Key) {if(Key == VK_RETURN)Button1Click(Sender);}

//priparati.cpp (Priparats)

#include <vcl.h>

#pragma hdrstop

#include "priparati.h"

#include "work_bd.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TPriparats *Priparats;

__fastcall TPriparats::TPriparats(TComponent* Owner) : TForm(Owner) { }

void __fastcall TPriparats::FormCanResize(TObject *Sender, int &NewWidth, int &NewHeight, bool &Resize)

{ Edit1->Width=Priparats->Width-260; Priparats->DateTimePicker1->Width=Priparats->Width-260; }

void __fastcall TPriparats::ComboBox1Change(TObject *Sender)

{ if((ComboBox1->Text=="Фільтр по \"Дата виготовлення\"")|| (ComboBox1->Text=="Фільтр по \"Термін придатності\""))

{ Edit1->Visible=false; DateTimePicker1->Visible=true; } else { Edit1->Visible=true; DateTimePicker1->Visible=false; } }

void __fastcall TPriparats::Button1Click(TObject *Sender)

{ if((ComboBox1->Text=="Скинути фільтр")||(Edit1->Text==""))

bd_work->priparatsz->Filtered = false; String FN,FND; //FieldName, FieldNameDate

FND = "[Дата виготовлення] = "+DateToStr(DateTimePicker1->Date);

String FND2 = "[Термін придатності] = "+DateToStr(DateTimePicker1->Date);

if(ComboBox1->Text=="Фільтр по \"Дата виготовлення\"") { FN = FND;}

else if(ComboBox1->Text=="Фільтр по \"Термін придатності\"") { FN = FND2;}

else if((ComboBox1->Text=="Фільтр по \"Код препарату\"")&&(Edit1->Text!="")) {FN = "[Код препарату] like '"+Edit1->Text+"*'"; }

else if((ComboBox1->Text=="Фільтр по \"Назва препарату\"")&&(Edit1->Text!=""))

{FN = "[Назва препарату] like '"+Edit1->Text+"*'";}

bd_work->priparatsz->Filtered = false; bd_work->priparatsz->Filter = FN; bd_work->priparatsz->Filtered = true; }

void __fastcall TPriparats::ToolButton1Click(TObject *Sender) { bd_work->N30Click(Sender); }

void __fastcall TPriparats::ToolButton2Click(TObject *Sender) { bd_work->N31Click(Sender); }

void __fastcall TPriparats::ToolButton4Click(TObject *Sender) { bd_work->N32Click(Sender); }

void __fastcall TPriparats::ToolButton6Click(TObject *Sender) { bd_work->N33Click(Sender); }

void __fastcall TPriparats::ToolButton8Click(TObject *Sender) { bd_work->N34Click(Sender); }

void __fastcall TPriparats::ToolButton10Click(TObject *Sender) { bd_work->N35Click(Sender); }

void __fastcall TPriparats::DBGrid1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y)

{ bd_work->count_priparats->Active=false; bd_work->count_priparats->Active=true;

StatusBar1->Panels->Items[1]->Text = DBText1->Caption; }

void __fastcall TPriparats::FormClose(TObject *Sender, TCloseAction &Action) { PasswordDlg->Close(); }

void __fastcall TPriparats::ToolButton12Click(TObject *Sender)

{ bd_work->N28Click(Sender); }

void __fastcall TPriparats::FormCreate(TObject *Sender) { Left = 389; Top = 98; }

void __fastcall TPriparats::ToolButton13Click(TObject *Sender) { bd_work->N63Click(Sender); }

void __fastcall TPriparats::DBGrid1KeyPress(TObject *Sender, char &Key) { if(Key == VK_RETURN)Button1Click(Sender); }

//priparati_delete_zaput.cpp (priparat_delete)

#include <vcl.h>

#pragma hdrstop

#include "priparati_delete_zaput.h"

#include "work_bd.h"

#include "priparati.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

Tpriparat_delete *priparat_delete;

__fastcall Tpriparat_delete::Tpriparat_delete(TComponent* Owner) : TForm(Owner) { }

void __fastcall Tpriparat_delete::Button1Click(TObject *Sender)

{ String ed1 = "[Код препарату] = \""+Edit1->Text+"\" OR "; String ed2 = "[Назва препарату] = \""+Edit2->Text+"\"";

String mainText = ed1+ed2; Memo1->Clear();

bd_work->priparatsz->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->priparatsz->Close(); bd_work->priparatsz->SQL->Clear(); bd_work->priparatsz->SQL->Add(Memo1->Text);

bd_work->priparatsz->ExecSQL(); AnsiString text2[]={"SELECT *", "FROM Препарати;"};

Memo1->Clear(); for(unsigned t=0; t<sizeof(text2)/sizeof(int); t++)

Memo1->Lines->Add(text2[t]); bd_work->priparatsz->Close(); bd_work->priparatsz->SQL->Clear();

bd_work->priparatsz->SQL->Add(Memo1->Text); bd_work->priparatsz->Open(); bd_work->priparatsz->Active=true; }

void __fastcall Tpriparat_delete::FormCreate(TObject *Sender)

{ Left = 390; Top = 570; }

void __fastcall Tpriparat_delete::Button1KeyPress(TObject *Sender, char &Key) { if(Key == VK_RETURN)Button1Click(Sender); }

//priparati_insert_zaput.cpp (priparat_insert)

#include <vcl.h>

#pragma hdrstop

#include "priparati_insert_zaput.h"

#include "work_bd.h"

#include "priparati.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

Tpriparat_insert *priparat_insert;

__fastcall Tpriparat_insert::Tpriparat_insert(TComponent* Owner) : TForm(Owner) { }

void __fastcall Tpriparat_insert::Button1Click(TObject *Sender)

{ String ed1 = "\""+Edit1->Text+"\","; String ed2 = "\""+Edit2->Text+"\",";

String dtp1 = "\""+DateToStr(DateTimePicker1->Date)+"\","; String dtp2 = "\""+DateToStr(DateTimePicker2->Date)+"\"";

String mainText = ed1+ed2+dtp1+dtp2; Memo1->Clear(); bd_work->priparatsz->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->priparatsz->Close();

bd_work->priparatsz->SQL->Clear(); bd_work->priparatsz->SQL->Add(Memo1->Text); bd_work->priparatsz->ExecSQL();

AnsiString text2[]={"SELECT *", "FROM Препарати;"}; Memo1->Clear();

for(unsigned t=0; t<sizeof(text2)/sizeof(int); t++) Memo1->Lines->Add(text2[t]);

bd_work->priparatsz->Close(); bd_work->priparatsz->SQL->Clear(); bd_work->priparatsz->SQL->Add(Memo1->Text);

bd_work->priparatsz->Open(); bd_work->priparatsz->Active=true; }

void __fastcall Tpriparat_insert::FormCreate(TObject *Sender)

{ Left = 920; Top = 532; }

void __fastcall Tpriparat_insert::Edit1KeyPress(TObject *Sender, char &Key){if(Key == VK_RETURN)Button1Click(Sender); }

//priparati_search_zaput.cpp (priparat_search)

#include <vcl.h>

#pragma hdrstop

#include "priparati_search_zaput.h"

#include "work_bd.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

Tpriparat_search *priparat_search;

__fastcall Tpriparat_search::Tpriparat_search(TComponent* Owner) : TForm(Owner) { }

void __fastcall Tpriparat_search::Button1Click(TObject *Sender)

{ String dv = DateToStr(DateTimePicker1->Date); //data vigotovlennya

String tp = DateToStr(DateTimePicker2->Date); //termin pridatnosti

if((RadioButton1->Checked==true)&&(bd_work->priparatsz->Locate("Код препарату",Edit1->Text, TLocateOptions())))

{ShowMessage("Присутній!");}

if((RadioButton2->Checked==true)&&(bd_work->priparatsz->Locate("Назва препарату",Edit2->Text, TLocateOptions())))

{ShowMessage("Присутній!");}

if((RadioButton3->Checked==true)&&(bd_work->priparatsz->Locate("Дата виготовлення",dv, TLocateOptions())))

{ShowMessage("Присутній!");}

if((RadioButton4->Checked==true)&&(bd_work->priparatsz->Locate("Термін придатності",tp, TLocateOptions())))

{ShowMessage("Присутній!");} }

void __fastcall Tpriparat_search::FormCreate(TObject *Sender) { Left = 920; Top = 532; }

void __fastcall Tpriparat_search::RadioButton1KeyPress(TObject *Sender, char &Key)

{ if(Key == VK_RETURN)Button1Click(Sender); }

/*

- Управління базою даних «Медична діагностична клініка» MDC.mdb

- Автор Гребенюк Іван Андрійович

- Версія 1.0

- Перелік методів та компонентів, які розташовані на певних формах, з певним рівнем доступу

*/

//connect.h (Me)

#ifndef connectH

#define connectH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

class TMe : public TForm

{ __published: TPanel *Panel1; TLabel *Label1; TLabel *Label2; void __fastcall FormCreate(TObject *Sender);

private: // User declarations

public: __fastcall TMe(TComponent* Owner); };

extern PACKAGE TMe *Me;

#endif

//Helps.h (Help)

#ifndef HelpsH

#define HelpsH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

#include <jpeg.hpp>

class THelp : public TForm { __published: TPanel *Panel1;

TLabel *Label1; TImage *Image1; TLabel *Label2; TLabel *Label3; TLabel *Label4; TLabel *Label5; TLabel *Label6;

TLabel *Label7; void __fastcall FormCreate(TObject *Sender); void __fastcall FormActivate(TObject *Sender);

private: // User declarations

public: __fastcall THelp(TComponent* Owner); };

extern PACKAGE THelp *Help;

#endif

//diagnozi_delete_zaput.h (daig_delete)

#ifndef diagnozi_delete_zaputH

#define diagnozi_delete_zaputH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

class Tdiag_delete : public TForm

{ __published: TPanel *Panel1; TPanel *Panel2; TLabel *Label3; TLabel *Label2; TLabel *Label1; TPanel *Panel3; TEdit *Edit3;

TEdit *Edit2; TEdit *Edit1; TButton *Button1; TMemo *Memo1; void __fastcall Button1Click(TObject *Sender);

void __fastcall FormCreate(TObject *Sender); void __fastcall Edit3KeyPress(TObject *Sender, char &Key);

private: // User declarations

public: __fastcall Tdiag_delete(TComponent* Owner); };

extern PACKAGE Tdiag_delete *diag_delete;

#endif

// diagnozi_insert_zaput.h (diag_insert)

#ifndef diagnozi_insert_zaputH

#define diagnozi_insert_zaputH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

class Tdiag_insert : public TForm { __published:

TPanel *Panel1; TPanel *Panel2; TLabel *Label3; TLabel *Label2; TLabel *Label1; TPanel *Panel3; TEdit *Edit3; TEdit *Edit2;

TEdit *Edit1; TButton *Button1; TMemo *Memo1; void __fastcall Button1Click(TObject *Sender);

void __fastcall FormCreate(TObject *Sender); void __fastcall Button1KeyPress(TObject *Sender, char &Key);

private: // User declarations

public: __fastcall Tdiag_insert(TComponent* Owner); };

extern PACKAGE Tdiag_insert *diag_insert;

#endif

//diagnozi_search_zaput.h (diag_search)

#ifndef diagnozi_search_zaputH

#define diagnozi_search_zaputH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

class Tdiag_search : public TForm

{ __published: TPanel *Panel1; TPanel *Panel2; TLabel *Label3; TLabel *Label2; TLabel *Label1; TPanel *Panel3;

TEdit *Edit3; TEdit *Edit2; TEdit *Edit1; TButton *Button1; TRadioButton *RadioButton1;

TRadioButton *RadioButton2; TRadioButton *RadioButton3; void __fastcall Button1Click(TObject *Sender);

void __fastcall Edit3KeyPress(TObject *Sender, char &Key); void __fastcall FormCreate(TObject *Sender);

private: // User declarations

public: __fastcall Tdiag_search(TComponent* Owner); };

extern PACKAGE Tdiag_search *diag_search;

#endif

//work_bd.h (bd_work)

#ifndef work_bdH

#define work_bdH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ADODB.hpp>

#include <DB.hpp>

#include <Menus.hpp>

#include <ImgList.hpp>

class Tbd_work : public TDataModule { __published: TADOConnection *ADOConnection1;

TMainMenu *MainMenu1; TADOQuery *count_diagnozi; TADOQuery *count_kvitancii; TADOQuery *count_klients;

TADOQuery *count_likari; TADOQuery *count_priparats; TDataSource *diagnozi_count;

TDataSource *kvitancii_count; TDataSource *klients_count; TDataSource *likari_count; TDataSource *priparats_count;

TIntegerField *count_diagnoziDSDesigner1; TADOQuery *diagnoziz; TADOQuery *likariz; TADOQuery *priparatsz;

TDataSource *DS_diagnoziz; TDataSource *DS_kvitanciiz; TDataSource *DS_klientsz; TDataSource *DS_likariz;

TDataSource *DS_priparatsz; TImageList *ImageList1; TWideStringField *diagnozizDSDesigner;

TWideStringField *diagnozizDSDesigner2; TWideStringField *diagnozizDSDesigner3; TMainMenu *for_kvit;

TMainMenu *for_prip; TMainMenu *for_likar; TMainMenu *for_klients; TADOQuery *kvitanciiz; TADOQuery *klientiz;

TWideStringField *klientizDSDesigner; TWideStringField *klientizDSDesigner2; TWideStringField *klientizDSDesigner3;

TWideStringField *klientizDSDesigner4; TWideStringField *klientizDSDesigner5; TWideStringField *klientizDSDesigner6;

TWideStringField *klientizDSDesigner7; TStringField *klientizField; TStringField *klientiz_;TDataSource *delete_klient;

TADOQuery *klient_delete; TWideStringField *klient_deleteDSDesigner; TWideStringField *klient_deleteDSDesigner2;

TWideStringField *klient_deleteDSDesigner3; TWideStringField *klient_deleteDSDesigner4;

TWideStringField *klient_deleteDSDesigner5; TWideStringField *klient_deleteDSDesigner6;

TWideStringField *klient_deleteDSDesigner7; TIntegerField *klient_deleteField; TStringField *klient_deletekod_klienta;

TStringField *klient_deletediag_klienta; TStringField *klient_deletekod_likara; TStringField *klient_deletepib;

TStringField *klient_deletekod_pasp; TStringField *klient_deletetel_nomer; TStringField *klient_deletemisto_prozh;

TWideStringField *kvitanciizDSDesigner; TWideStringField *kvitanciizDSDesigner2; TFloatField *kvitanciizDSDesigner3;

TDateTimeField *kvitanciizDSDesigner4; TWideStringField *kvitanciizDSDesigner5; TWideStringField *kvitanciizDSDesigner6;

TWideStringField *kvitanciizDSDesigner7; TStringField *kvitanciizWideStringField; TDataSource *summa_za_den;

TADOQuery *suma_za_den; TFloatField *suma_za_denExpr1000; TDataSource *kvitanc_INSERT; TADOQuery *INSERT_kvitanc;

TWideStringField *INSERT_kvitancDSDesigner; TWideStringField *INSERT_kvitancDSDesigner2;

TFloatField *INSERT_kvitancDSDesigner3; TDateTimeField *INSERT_kvitancDSDesigner4;

TWideStringField *INSERT_kvitancDSDesigner5; TWideStringField *INSERT_kvitancDSDesigner6;

TWideStringField *INSERT_kvitancDSDesigner7; TStringField *INSERT_kvitanckod_klienta; TStringField *INSERT_kvitanctermin;

TStringField *INSERT_kvitancpripar; TWideStringField *likarizDSDesigner; TWideStringField *likarizDSDesigner2;

TWideStringField *likarizDSDesigner3; TWideStringField *likarizDSDesigner4; TWideStringField *likarizDSDesigner5;

void __fastcall table1Click(TObject *Sender); void __fastcall vidalit1Click(TObject *Sender);

void __fastcall N2Click(TObject *Sender); void __fastcall N1Click(TObject *Sender); void __fastcall N3Click(TObject *Sender);

void __fastcall MeButtonClick(TObject *Sender); void __fastcall N20Click(TObject *Sender);

void __fastcall N21Click(TObject *Sender); void __fastcall N22Click(TObject *Sender);

void __fastcall N33Click(TObject *Sender); void __fastcall N34Click(TObject *Sender);

void __fastcall N35Click(TObject *Sender); void __fastcall N46Click(TObject *Sender);

void __fastcall N47Click(TObject *Sender); void __fastcall N48Click(TObject *Sender);

void __fastcall N59Click(TObject *Sender); void __fastcall N60Click(TObject *Sender);

void __fastcall N61Click(TObject *Sender); void __fastcall N6Click(TObject *Sender);

void __fastcall N56Click(TObject *Sender); void __fastcall N57Click(TObject *Sender);

void __fastcall N50Click(TObject *Sender); void __fastcall N58Click(TObject *Sender);

void __fastcall N8Click(TObject *Sender); void __fastcall N62Click(TObject *Sender);

void __fastcall N17Click(TObject *Sender); void __fastcall N18Click(TObject *Sender);

void __fastcall N19Click(TObject *Sender); void __fastcall N7Click(TObject *Sender);

void __fastcall N43Click(TObject *Sender); void __fastcall N44Click(TObject *Sender);

void __fastcall N45Click(TObject *Sender); void __fastcall N30Click(TObject *Sender);

void __fastcall N31Click(TObject *Sender); void __fastcall N9Click(TObject *Sender);

void __fastcall N32Click(TObject *Sender); void __fastcall N11Click(TObject *Sender);

void __fastcall N24Click(TObject *Sender); void __fastcall N37Click(TObject *Sender);

void __fastcall N12Click(TObject *Sender); void __fastcall N25Click(TObject *Sender);

void __fastcall N38Click(TObject *Sender); void __fastcall N27Click(TObject *Sender);

void __fastcall N40Click(TObject *Sender); void __fastcall N53Click(TObject *Sender);

void __fastcall N15Click(TObject *Sender); void __fastcall N41Click(TObject *Sender);

void __fastcall N54Click(TObject *Sender); void __fastcall N5Click(TObject *Sender);

void __fastcall N13Click(TObject *Sender); void __fastcall N26Click(TObject *Sender);

void __fastcall N52Click(TObject *Sender); void __fastcall N14Click(TObject *Sender);

void __fastcall N28Click(TObject *Sender); void __fastcall N39Click(TObject *Sender);

void __fastcall N51Click(TObject *Sender); void __fastcall N63Click(TObject *Sender);

void __fastcall N64Click(TObject *Sender); void __fastcall N110Click(TObject *Sender);

void __fastcall N111Click(TObject *Sender); void __fastcall N112Click(TObject *Sender);

private: // User declarations

public: __fastcall Tbd_work(TComponent* Owner);

TMenuItem *N5; TMenuItem *N14; TMenuItem *N28; TMenuItem *N39; TMenuItem *N51;

TMenuItem *N3; TMenuItem *N1; TMenuItem *N2; TMenuItem *MeButton; TMenuItem *zaputu1; TMenuItem *table1;

TMenuItem *vidalit1; TMenuItem *N10; TMenuItem *N62; TMenuItem *N63; TMenuItem *N64; TMenuItem *N110;

TMenuItem *N111; TMenuItem *N112; TMenuItem *N11; TMenuItem *N12; TMenuItem *N13; TMenuItem *N15; TMenuItem *N16;

TMenuItem *N17; TMenuItem *N18; TMenuItem *N19; TMenuItem *N20; TMenuItem *N21;

TMenuItem *N22; TMenuItem *N4; TMenuItem *N6; TMenuItem *N7; TMenuItem *N8; TMenuItem *N9; TMenuItem *N23;

TMenuItem *N24; TMenuItem *N25; TMenuItem *N26; TMenuItem *N27;TMenuItem *N29; TMenuItem *N30; TMenuItem *N31;

TMenuItem *N32; TMenuItem *N33; TMenuItem *N34; TMenuItem *N35; TMenuItem *N36; TMenuItem *N37; TMenuItem *N38;

TMenuItem *N40; TMenuItem *N41; TMenuItem *N42; TMenuItem *N43; TMenuItem *N44; TMenuItem *N45; TMenuItem *N46;

TMenuItem *N47; TMenuItem *N48; TMenuItem *N49; TMenuItem *N50; TMenuItem *N52; TMenuItem *N53; TMenuItem *N54;

TMenuItem *N55; TMenuItem *N56; TMenuItem *N57; TMenuItem *N58; TMenuItem *N59; TMenuItem *N60; TMenuItem *N61; };

extern PACKAGE Tbd_work *bd_work;

#endif

//diagnozi.h (Diagnoz)

#ifndef diagnoziH

#define diagnoziH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <DBCtrls.hpp>

#include <DBGrids.hpp>

#include <ExtCtrls.hpp>

#include <Grids.hpp>

#include <ComCtrls.hpp>

#include <ToolWin.hpp>

class TDiagnoz : public TForm

{ __published: TPanel *Panel1; TDBNavigator *DBNavigator1; TDBGrid *DBGrid1; TStatusBar *StatusBar1;

TPanel *Panel2; TEdit *Edit1; TButton *Button1; TComboBox *ComboBox1; TDBText *DBText1; TToolBar *ToolBar1;

TToolButton *ToolButton1; TToolButton *ToolButton2; TToolButton *ToolButton3; TToolButton *ToolButton4;

TToolButton *ToolButton5; TToolButton *ToolButton6; TToolButton *ToolButton7; TToolButton *ToolButton8;

TToolButton *ToolButton9; TToolButton *ToolButton10; TToolButton *ToolButton11; TToolButton *ToolButton12;

TToolButton *ToolButton13; void __fastcall FormClose(TObject *Sender, TCloseAction &Action);

void __fastcall ComboBox1KeyPress(TObject *Sender, char &Key); void __fastcall Button3Click(TObject *Sender);

void __fastcall DBGrid1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y); TToolButton *ToolButton14;

void __fastcall FormCanResize(TObject *Sender, int &NewWidth,

int &NewHeight, bool &Resize); void __fastcall Button1Click(TObject *Sender);

void __fastcall ToolButton1Click(TObject *Sender); void __fastcall ToolButton2Click(TObject *Sender);

void __fastcall ToolButton4Click(TObject *Sender); void __fastcall ToolButton6Click(TObject *Sender);

void __fastcall ToolButton8Click(TObject *Sender); void __fastcall ToolButton10Click(TObject *Sender);

void __fastcall ToolButton12Click(TObject *Sender); void __fastcall FormCreate(TObject *Sender);

void __fastcall ToolButton13Click(TObject *Sender); void __fastcall DBGrid1KeyPress(TObject *Sender, char &Key);

private: // User declarations

public: __fastcall TDiagnoz(TComponent* Owner); };

extern PACKAGE TDiagnoz *Diagnoz;

#endif

//password_new.h (Pass_renew)

#ifndef password_newH

#define password_newH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

class TPass_renew : public TForm { __published: TPanel *Panel1; TPanel *Panel2;

TLabel *Label3; TLabel *Label2; TLabel *Label1; TPanel *Panel3; TEdit *Old_pass; TEdit *New_pass; TEdit *Complete_pass;

TButton *Button1; TMemo *Memo1; void __fastcall FormCreate(TObject *Sender);

void __fastcall FormClose(TObject *Sender, TCloseAction &Action); void __fastcall Button1Click(TObject *Sender);

void __fastcall Old_passMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);

void __fastcall New_passMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);

void __fastcall Complete_passMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);

void __fastcall Button1KeyPress(TObject *Sender, char &Key);

private: // User declarations

public: __fastcall TPass_renew(TComponent* Owner); };

extern PACKAGE TPass_renew *Pass_renew;

#endif

//password.h (PasswordDlg)

#ifndef passwordH

#define passwordH

#include <vcl\Buttons.hpp>

#include <vcl\StdCtrls.hpp>

#include <vcl\Controls.hpp>

#include <vcl\Forms.hpp>

#include <vcl\Graphics.hpp>

#include <vcl\Classes.hpp>

#include <vcl\SysUtils.hpp>

#include <vcl\Windows.hpp>

#include <vcl\System.hpp>

#include <ExtCtrls.hpp>

class TPasswordDlg : public TForm { __published: TLabel *Label2;

TPanel *Panel1; TLabel *Label1; TEdit *Password; TButton *OKBtn; TButton *CancelBtn; TSpeedButton *SpeedButton1;

TMemo *Memo1; void __fastcall OKBtnClick(TObject *Sender); void __fastcall CancelBtnClick(TObject *Sender);

void __fastcall FormCreate(TObject *Sender); void __fastcall SpeedButton1Click(TObject *Sender);

private:

public: virtual __fastcall TPasswordDlg(TComponent* AOwner); };

extern PACKAGE TPasswordDlg *PasswordDlg;

#endif

//connect.h (Me)

#ifndef connectH

#define connectH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

class TMe : public TForm

{ __published: TPanel *Panel1; TLabel *Label1; TLabel *Label2; void __fastcall FormCreate(TObject *Sender);

private: // User declarations

public: __fastcall TMe(TComponent* Owner); };

extern PACKAGE TMe *Me;

#endif

//DIAGNOZI_zvit.h (ZVIT_diagnozi)

#ifndef DIAGNOZI_zvitH

#define DIAGNOZI_zvitH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

#include <QRCtrls.hpp>

#include <QuickRpt.hpp>

class TZVIT_diagnozi : public TForm

{ __published: TQuickRep *QuickRep1; TQRBand *QRBand1; TQRBand *QRBand2; TQRLabel *QRLabel1; TQRLabel *QRLabel2;

TQRLabel *QRLabel3; TQRDBText *QRDBText1; TQRDBText *QRDBText2; TQRDBText *QRDBText3; TQRLabel *QRLabel5;

private: // User declarations

public: __fastcall TZVIT_diagnozi(TComponent* Owner); };

extern PACKAGE TZVIT_diagnozi *ZVIT_diagnozi;

#endif

//KVITANCII_zvit.h (ZVIT_kvitancii)

#ifndef KVITANCII_zvitH

#define KVITANCII_zvitH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

#include <QRCtrls.hpp>

#include <QuickRpt.hpp>

#include <ADODB.hpp>

#include <DB.hpp>

class TZVIT_kvitancii : public TForm

{ __published: TQuickRep *QuickRep1; TQRLabel *QRLabel1; TQRBand *QRBand1;

TQRBand *QRBand2; TQRBand *QRBand3; TQRLabel *QRLabel2; TQRLabel *QRLabel3; TQRDBText *QRDBText1;

TQRLabel *QRLabel4; TQRLabel *QRLabel5; TQRLabel *QRLabel6; TQRLabel *QRLabel7; TQRDBText *QRDBText2;

TQRDBText *QRDBText3; TQRDBText *QRDBText4; TQRDBText *QRDBText5; TQRDBText *QRDBText6;

TQRDBText *QRDBText7; TQRLabel *QRLabel9; TQRExpr *QRExpr1; TADOTable *ADOTable1; TQRLabel *QRLabel10;

private: // User declarations

public: __fastcall TZVIT_kvitancii(TComponent* Owner); };

extern PACKAGE TZVIT_kvitancii *ZVIT_kvitancii;

#endif

//KLIENTI_zvit.h (ZVIT_klienti)

#ifndef KLIENTI_zvitH

#define KLIENTI_zvitH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

#include <QRCtrls.hpp>

#include <QuickRpt.hpp>

class TZVIT_klienti : public TForm

{ __published: TQuickRep *QuickRep1; TQRBand *QRBand1; TQRBand *QRBand2; TQRLabel *QRLabel1;

TQRLabel *QRLabel2; TQRLabel *QRLabel3; TQRLabel *QRLabel4; TQRLabel *QRLabel5; TQRDBText *QRDBText1;

TQRDBText *QRDBText2; TQRDBText *QRDBText3; TQRDBText *QRDBText4; TQRDBText *QRDBText5;

TQRDBText *QRDBText6; TQRDBText *QRDBText7; TQRLabel *QRLabel6; TQRLabel *QRLabel7; TQRLabel *QRLabel9;

private: // User declarations

public: __fastcall TZVIT_klienti(TComponent* Owner); };

extern PACKAGE TZVIT_klienti *ZVIT_klienti;

#endif

//LIKARI_zvit.h (ZVIT_likari)

#ifndef LIKARI_zvitH

#define LIKARI_zvitH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

#include <QRCtrls.hpp>

#include <QuickRpt.hpp>

class TZVIT_likari : public TForm

{ __published: TQuickRep *QuickRep1; TQRBand *QRBand1; TQRBand *QRBand2; TQRLabel *QRLabel1;

TQRDBText *QRDBText1; TQRLabel *QRLabel2; TQRLabel *QRLabel3; TQRLabel *QRLabel4; TQRLabel *QRLabel5;

TQRLabel *QRLabel6; TQRDBText *QRDBText3; TQRDBText *QRDBText4; TQRDBText *QRDBText5; TQRDBText *QRDBText6;

private: // User declarations

public: __fastcall TZVIT_likari(TComponent* Owner); }; extern PACKAGE TZVIT_likari *ZVIT_likari;

#endif

//PRIPARATI_zvit.h (ZVIT_priparati)

#ifndef PRIPARATI_zvitH

#define PRIPARATI_zvitH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

#include <QRCtrls.hpp>

#include <QuickRpt.hpp>

class TZVIT_priparati : public TForm

{ __published: TQuickRep *QuickRep1; TQRBand *QRBand1;

TQRBand *QRBand2; TQRLabel *QRLabel1; TQRLabel *QRLabel2; TQRLabel *QRLabel3; TQRLabel *QRLabel4;

TQRDBText *QRDBText1; TQRDBText *QRDBText2; TQRDBText *QRDBText3; TQRDBText *QRDBText4; TQRLabel *QRLabel5;

private: // User declarations

public: __fastcall TZVIT_priparati(TComponent* Owner); };

extern PACKAGE TZVIT_priparati *ZVIT_priparati;

#endif

//kvitanciji.h (kvitancii)

#ifndef kvitancijiH

#define kvitancijiH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ComCtrls.hpp>

#include <DBCtrls.hpp>

#include <DBGrids.hpp>

#include <ExtCtrls.hpp>

#include <Grids.hpp>

#include <ToolWin.hpp>

class Tkvitancii : public TForm { __published: // IDE-managed Components

TPanel *Panel1; TDBNavigator *DBNavigator1; TDBGrid *DBGrid1; TStatusBar *StatusBar1; TPanel *Panel2; TDBText *DBText1;

TEdit *Edit1; TButton *Button1; TComboBox *ComboBox1; TToolBar *ToolBar1;

TToolButton *ToolButton1; TToolButton *ToolButton2; TToolButton *ToolButton3; TToolButton *ToolButton4;

TToolButton *ToolButton5; TToolButton *ToolButton6; TToolButton *ToolButton7; TToolButton *ToolButton8;

TToolButton *ToolButton9; TToolButton *ToolButton10; TToolButton *ToolButton11; TDateTimePicker *DateTimePicker1;

TToolButton *ToolButton12; TToolButton *ToolButton13; TToolButton *ToolButton14; TToolButton *ToolButton15;

void __fastcall FormClose(TObject *Sender, TCloseAction &Action); void __fastcall FormCreate(TObject *Sender);

void __fastcall FormCanResize(TObject *Sender, int &NewWidth, int &NewHeight, bool &Resize);

void __fastcall DBGrid1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y);

void __fastcall Button1Click(TObject *Sender); void __fastcall ComboBox1Change(TObject *Sender);

void __fastcall ToolButton1Click(TObject *Sender); void __fastcall ToolButton2Click(TObject *Sender);

void __fastcall ToolButton4Click(TObject *Sender); void __fastcall ToolButton5Click(TObject *Sender);

void __fastcall ToolButton7Click(TObject *Sender); void __fastcall ToolButton9Click(TObject *Sender);

void __fastcall ToolButton11Click(TObject *Sender); void __fastcall ToolButton13Click(TObject *Sender);

void __fastcall ToolButton14Click(TObject *Sender); void __fastcall DBGrid1KeyPress(TObject *Sender, char &Key);

private: // User declarations

public: __fastcall Tkvitancii(TComponent* Owner); };

extern PACKAGE Tkvitancii *kvitancii;

#endif

//kvitancii_delete_zaput.h (kvit_delete)

#ifndef kvitancii_delete_zaputH

#define kvitancii_delete_zaputH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ComCtrls.hpp>

#include <DBCtrls.hpp>

#include <ExtCtrls.hpp>

class Tkvit_delete : public TForm

{ __published: TPanel *Panel1; TPanel *Panel2; TLabel *Label3; TLabel *Label2; TLabel *Label1;

TLabel *Label5; TLabel *Label6; TLabel *Label7; TPanel *Panel3; TButton *Button1; TMemo *Memo1; TEdit *Edit1;

TEdit *Edit2; TEdit *Edit3; TEdit *Edit5; TEdit *Edit6; TEdit *Edit7; void __fastcall Button1Click(TObject *Sender);

void __fastcall FormCreate(TObject *Sender); void __fastcall Edit1KeyPress(TObject *Sender, char &Key);

private: // User declarations

public: __fastcall Tkvit_delete(TComponent* Owner); };

extern PACKAGE Tkvit_delete *kvit_delete;

#endif

//kvitancii_insert_zaput.h (kvit_insert)

#ifndef kvitancii_insert_zaputH

#define kvitancii_insert_zaputH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <DBCtrls.hpp>

#include <ExtCtrls.hpp>

#include <ComCtrls.hpp>

class Tkvit_insert : public TForm

{ __published: TPanel *Panel1; TPanel *Panel2; TLabel *Label3;

TLabel *Label2; TLabel *Label1; TLabel *Label4; TLabel *Label5; TLabel *Label6; TLabel *Label7; TPanel *Panel3;

TButton *Button1; TMemo *Memo1; TEdit *Edit1; TEdit *Edit2; TEdit *Edit3; TDateTimePicker *DateTimePicker1;

TDBLookupComboBox *DBLookupComboBox1; TDBLookupComboBox *DBLookupComboBox2;

TDBLookupComboBox *DBLookupComboBox3; void __fastcall Button1Click(TObject *Sender);

void __fastcall FormCreate(TObject *Sender); void __fastcall Edit1KeyPress(TObject *Sender, char &Key);

private: // User declarations

public: __fastcall Tkvit_insert(TComponent* Owner); };

extern PACKAGE Tkvit_insert *kvit_insert;

#endif

//kvitancii_search_zaput.h (kvit_search)

#ifndef kvitancii_search_zaputH

#define kvitancii_search_zaputH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

class Tkvit_search : public TForm

{ __published: TPanel *Panel1; TPanel *Panel2; TLabel *Label3; TLabel *Label2;

TLabel *Label1; TLabel *Label4; TLabel *Label5; TLabel *Label6; TRadioButton *RadioButton1; TRadioButton *RadioButton2;

TRadioButton *RadioButton3; TRadioButton *RadioButton4;TRadioButton *RadioButton5; TRadioButton *RadioButton6;

TPanel *Panel3; TEdit *Edit1; TEdit *Edit4; TEdit *Edit5; TEdit *Edit6;

TEdit *Edit2; TEdit *Edit3; TButton *Button1; void __fastcall Button1Click(TObject *Sender);

void __fastcall FormCreate(TObject *Sender); void __fastcall RadioButton1KeyPress(TObject *Sender, char &Key);

private: // User declarations

public: __fastcall Tkvit_search(TComponent* Owner); };

extern PACKAGE Tkvit_search *kvit_search;

#endif

//kvitancii_suma_za_den_zaput.h (suma_za_den_form)

#ifndef kvitancii_suma_za_den_zaputH

#define kvitancii_suma_za_den_zaputH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ComCtrls.hpp>

#include <DBCtrls.hpp>

#include <Mask.hpp>

#include <ExtCtrls.hpp>

class Tsuma_za_den_form : public TForm

{ __published: TPanel *Panel1; TLabel *Label1; TButton *Button1; TMonthCalendar *MonthCalendar1;

TMemo *Memo1; TDBText *DBText1; TEdit *Edit1; void __fastcall Button1Click(TObject *Sender);

void __fastcall FormCreate(TObject *Sender); void __fastcall MonthCalendar1KeyPress(TObject *Sender, char &Key);

private: // User declarations

public: __fastcall Tsuma_za_den_form(TComponent* Owner); };

extern PACKAGE Tsuma_za_den_form *suma_za_den_form;

#endif

//klienti.h (klienti)

#ifndef klientiH

#define klientiH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ComCtrls.hpp>

#include <DBCtrls.hpp>

#include <DBGrids.hpp>

#include <ExtCtrls.hpp>

#include <Grids.hpp>

#include <ToolWin.hpp>

class Tklient : public TForm

{ __published: TPanel *Panel1; TDBNavigator *DBNavigator1;

TDBGrid *DBGrid1; TStatusBar *StatusBar1; TPanel *Panel2; TDBText *DBText1; TEdit *Edit1; TButton *Button1;

TComboBox *ComboBox1; TToolBar *ToolBar1; TToolButton *ToolButton1; TToolButton *ToolButton2; TToolButton *ToolButton3;

TToolButton *ToolButton5; TToolButton *ToolButton6; TToolButton *ToolButton7; TToolButton *ToolButton8;

TToolButton *ToolButton9; TToolButton *ToolButton14; TToolButton *ToolButton4; TToolButton *ToolButton3;

TToolButton *ToolButton10; TToolButton *ToolButton11; TToolButton *ToolButton12; TToolButton *ToolButton13;

void __fastcall FormCanResize(TObject *Sender, int &NewWidth, int &NewHeight, bool &Resize);

void __fastcall FormCreate(TObject *Sender); void __fastcall FormClose(TObject *Sender, TCloseAction &Action);

void __fastcall Button1Click(TObject *Sender); void __fastcall ToolButton1Click(TObject *Sender);

void __fastcall DBGrid1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y);

void __fastcall ToolButton2Click(TObject *Sender); void __fastcall ToolButton4Click(TObject *Sender);

void __fastcall ToolButton6Click(TObject *Sender); void __fastcall ToolButton8Click(TObject *Sender);

void __fastcall ToolButton10Click(TObject *Sender); void __fastcall ToolButton12Click(TObject *Sender);

void __fastcall ToolButton14Click(TObject *Sender); void __fastcall DBGrid1KeyPress(TObject *Sender, char &Key);

private: // User declarations

public: __fastcall Tklient(TComponent* Owner); };

extern PACKAGE Tklient *klient;

#endif

//klienti_delete_zaput.h (klient_deletes)

#ifndef klienti_delete_zaputH

#define klienti_delete_zaputH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <DBCtrls.hpp>

#include <ExtCtrls.hpp>

class Tklient_deletes : public TForm {

__published:TPanel *Panel1; TPanel *Panel2; TLabel *Label3; TLabel *Label2; TLabel *Label1; TLabel *Label4; TLabel *Label5;

TLabel *Label6; TLabel *Label7; TPanel *Panel3; TButton *Button1; TMemo *Memo1; TEdit *Edit1;

TEdit *Edit2; TEdit *Edit3; TEdit *Edit4; TEdit *Edit5; TEdit *Edit6; TEdit *Edit7; void __fastcall Button1Click(TObject *Sender);

void __fastcall FormCreate(TObject *Sender); void __fastcall Edit1KeyPress(TObject *Sender, char &Key);

private: // User declarations

public: __fastcall Tklient_deletes(TComponent* Owner); };

extern PACKAGE Tklient_deletes *klient_deletes;

#end

//klienti_insert_zaput.h (klient_insert)

#ifndef klienti_insert_zaputH

#define klienti_insert_zaputH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

#include <DBCtrls.hpp>

#include <Mask.hpp>

class Tklient_insert : public TForm

{ __published: TPanel *Panel1; TPanel *Panel2;

TLabel *Label3; TLabel *Label2; TLabel *Label1; TPanel *Panel3; TEdit *Edit1; TButton *Button1; TMemo *Memo1;

TLabel *Label4; TLabel *Label5; TEdit *Edit4; TEdit *Edit5; TEdit *Edit6; TEdit *Edit7; TLabel *Label6; TLabel *Label7;

TDBLookupComboBox *DBLookupComboBox1; TDBLookupComboBox *DBLookupComboBox2;

void __fastcall Button1Click(TObject *Sender);

void __fastcall FormCreate(TObject *Sender); void __fastcall Edit1KeyPress(TObject *Sender, char &Key);

private: // User declarations

public: __fastcall Tklient_insert(TComponent* Owner); };

extern PACKAGE Tklient_insert *klient_insert;

#endif

//klienti_search_zaput.h (klient_search)

#ifndef klienti_search_zaputH

#define klienti_search_zaputH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <DBCtrls.hpp>

#include <ExtCtrls.hpp>

class Tklient_search : public TForm

{ __published: TPanel *Panel1; TPanel *Panel2; TLabel *Label3; TLabel *Label2; TLabel *Label1; TLabel *Label4;

TLabel *Label5; TLabel *Label6; TLabel *Label7; TPanel *Panel3; TEdit *Edit1; TEdit *Edit4; TEdit *Edit5; TEdit *Edit6; TEdit *Edit7;

TButton *Button1; TRadioButton *RadioButton1; TRadioButton *RadioButton2; TRadioButton *RadioButton3;

TRadioButton *RadioButton4; TRadioButton *RadioButton5; TRadioButton *RadioButton6; TRadioButton *RadioButton7;

TEdit *Edit2; TEdit *Edit3; void __fastcall Button1Click(TObject *Sender);

void __fastcall FormCreate(TObject *Sender); void __fastcall RadioButton1KeyPress(TObject *Sender, char &Key);

private: // User declarations

public: __fastcall Tklient_search(TComponent* Owner); };

extern PACKAGE Tklient_search *klient_search;

#endi

//likari.h (likar)

#ifndef likariH

#define likariH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ComCtrls.hpp>

#include <DBCtrls.hpp>

#include <DBGrids.hpp>

#include <ExtCtrls.hpp>

#include <Grids.hpp>

#include <ToolWin.hpp>

class Tlikar : public TForm

{ __published: TPanel *Panel1; TDBNavigator *DBNavigator1; TDBGrid *DBGrid1;

TStatusBar *StatusBar1; TPanel *Panel2; TDBText *DBText1; TEdit *Edit1; TButton *Button1; TComboBox *ComboBox1;

TToolBar *ToolBar1; TToolButton *ToolButton1;

TToolButton *ToolButton2; TToolButton *ToolButton3; TToolButton *ToolButton4; TToolButton *ToolButton10;

TToolButton *ToolButton6; TToolButton *ToolButton7; TToolButton *ToolButton8; TToolButton *ToolButton9;

TToolButton *ToolButton11; TToolButton *ToolButton5; TToolButton *ToolButton12; TToolButton *ToolButton13;

void __fastcall FormCanResize(TObject *Sender, int &NewWidth, int &NewHeight, bool &Resize);

void __fastcall FormCreate(TObject *Sender); TToolButton *ToolButton14;

void __fastcall DBGrid1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y); void __fastcall Button1Click(TObject *Sender);

void __fastcall FormClose(TObject *Sender, TCloseAction &Action); void __fastcall ToolButton1Click(TObject *Sender);

void __fastcall ToolButton2Click(TObject *Sender); void __fastcall ToolButton4Click(TObject *Sender);

void __fastcall ToolButton7Click(TObject *Sender); void __fastcall ToolButton9Click(TObject *Sender);

void __fastcall ToolButton11Click(TObject *Sender); void __fastcall ToolButton5Click(TObject *Sender);

void __fastcall ToolButton13Click(TObject *Sender); void __fastcall DBGrid1KeyPress(TObject *Sender, char &Key);

private: // User declarations

public: __fastcall Tlikar(TComponent* Owner); };

extern PACKAGE Tlikar *likar;

#endif

//likari_delete_zaput.h (likar_delete)

#ifndef likari_delete_zaputH

#define likari_delete_zaputH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

class Tlikar_delete : public TForm

{ __published: TPanel *Panel1;

TPanel *Panel2; TLabel *Label3; TLabel *Label2; TLabel *Label1; TLabel *Label4; TLabel *Label5; TPanel *Panel3;

TEdit *Edit3; TEdit *Edit2; TEdit *Edit1; TEdit *Edit4; TEdit *Edit5; TButton *Button1; TMemo *Memo1;

void __fastcall Button1Click(TObject *Sender);

void __fastcall FormCreate(TObject *Sender); void __fastcall Edit1KeyPress(TObject *Sender, char &Key);

private: // User declarations

public: __fastcall Tlikar_delete(TComponent* Owner); };

extern PACKAGE Tlikar_delete *likar_delete;

#endif

//likari_insert_zaput.h (likar_insert)

#ifndef likari_insert_zaputH

#define likari_insert_zaputH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

class Tlikar_insert : public TForm

{ __published: TPanel *Panel1; TPanel *Panel2; TLabel *Label3; TLabel *Label2; TLabel *Label1;

TPanel *Panel3; TEdit *Edit3; TEdit *Edit2; TEdit *Edit1; TButton *Button1; TMemo *Memo1; TLabel *Label4;

TEdit *Edit4; TLabel *Label5; TEdit *Edit5; void __fastcall Button1Click(TObject *Sender);

void __fastcall FormCreate(TObject *Sender); void __fastcall Edit1KeyPress(TObject *Sender, char &Key);

private: // User declarations

public: __fastcall Tlikar_insert(TComponent* Owner); };

extern PACKAGE Tlikar_insert *likar_insert;

#endif

//likari_search_zaput.h (likar_search)

#ifndef likari_search_zaputH

#define likari_search_zaputH

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

class Tlikar_search : public TForm

{ __published:TPanel *Panel1; TPanel *Panel2; TLabel *Label3; TLabel *Label2; TLabel *Label1; TLabel *Label4;

...

Подобные документы

  • Етапи розробки проекту. Вимоги до апаратного і програмного забезпечення, до користувача. Специфікація та структура даних, які мають бути розміщеними в системі. Вигляд інтерфейсу системи програмного забезпечення. Розробка бази даних косметичного салону.

    дипломная работа [1,8 M], добавлен 21.02.2015

  • Проблеми розробки компонентного програмного забезпечення автоматизованих систем управління. Сучасні компонентні технології обробки інформації. Аналіз вибраного середовища проектування програмного забезпечення: мова програмування PHP та Apache HTTP-сервер.

    дипломная работа [2,8 M], добавлен 11.05.2012

  • Аналіз технічного забезпечення, вибір інструментального програмного забезпечення та середовища розробки програм. Створення класів для реалізації необхідних функцій для роботи програмного засобу. Розробка інтерфейсу для користувача та лістинг програми.

    курсовая работа [343,9 K], добавлен 24.08.2012

  • Поняття технології програмного забезпечення. Інформаційне середовище процесу обробки даних, формальний опис задачі, поняття про програмний засіб, поняття помилки і надійності програмних засобів. Склад етапів проектування. Оцінка програмного модуля.

    контрольная работа [37,6 K], добавлен 10.09.2009

  • Тенденції розвитку інформаційних технологій, зростання складності інформаційних систем, створюваних у різних галузях. Засоби, що реалізують CASE-технологію створення і супроводу інформаційних систем. Автоматизація розробки програмного забезпечення.

    реферат [21,5 K], добавлен 21.03.2011

  • Основні поняття щодо захисту програмного забезпечення. Класифікація засобів дослідження програмного коду: відладчики, дизасемблери, діскомпілятори, трасировщики та слідкуючі системи. Способи вбудовування захисних механізмів в програмне забезпечення.

    курсовая работа [41,7 K], добавлен 14.11.2010

  • Планування програмного забезпечення автоматизованої системи бюро працевлаштування. Накопичення даних стосовно ринку праці. Проектування статичних аспектів, поведінки та архітектури програмного забезпечення. Особливості функціонування програмного продукту.

    курсовая работа [184,5 K], добавлен 05.07.2015

  • Розробка компонентів програмного забезпечення системи збору даних про хід технологічного процесу. Опис програмного забезпечення: сервера, що приймає дані про хід технологічного процесу, КОМ для його імітування, робочої станції для відображення даних.

    курсовая работа [1,3 M], добавлен 20.11.2010

  • Проектування і реалізація навчального програмного продукту "Побудова геометричних фігур". Використання C++ Builder 6 у якості програмного середовища для реалізації даної навчальної програми. Інструкція з використання розробленого програмного забезпечення.

    курсовая работа [2,2 M], добавлен 05.05.2014

  • Аналіз предметної області, опис проекту бази даних, моделей майбутнього програмного забезпечення гри для персонального комп'ютера "Міста". Функціональні можливості програмного забезпечення, які необхідно реалізувати. Інтерфейс програмного забезпечення.

    курсовая работа [2,3 M], добавлен 02.06.2016

  • Вибір методів та засобів створення інформаційної системи для обліку і перегляду продукції на складі. Розробка моделі даних для реляційної бази даних, прикладного програмного забезпечення. Тестування програмного додатку, виявлення можливих проблем.

    курсовая работа [1,1 M], добавлен 22.09.2015

  • Тривимірна модель мобільного робота. Алгоритмізація моделі та її програмної реалізації з використанням бібліотек MFC та OpenGL. Розробка програмного забезпечення. Середовище розробки проекту Microsoft Visual Studio 2010. Керування рухами маніпулятора.

    курсовая работа [462,9 K], добавлен 03.04.2014

  • Підстава для створення, найменування та область застосування програмного забезпечення. Дослідження теоретичних аспектів процесу проектування систем автоматизації розробки конструкторської документації. Інструкція по інсталяції програмного продукту.

    дипломная работа [2,5 M], добавлен 26.10.2012

  • Проблеми процесу тестування програмного забезпечення. Розробка алгоритму автоматичної генерації тестів і тестового набору для ручного виконання. Побудова тестів для системи "Банкомат" і для баг-трекінгової системи, представленої графом із циклами.

    дипломная работа [1,2 M], добавлен 26.02.2014

  • Аналіз методів емпіричної інженерії програмного забезпечення. Призначення та властивості програмного забезпечення та метрик проектів Openproj-1.4-src, TalendOpen Studio 3.2.1 та Рlazma-source 0.1.8, їх статистичний, кореляційний та регресійний аналіз.

    курсовая работа [2,7 M], добавлен 12.12.2010

  • Тестування програмного забезпечення як процес його дослідження для отримання інформації про якість. Автоматизація тестування програми Join It - Jigsaw Puzzle. Методика тестування, структура пакету та його модулів. Вимоги до програмного забезпечення.

    дипломная работа [2,4 M], добавлен 24.07.2013

  • Методологія швидкої розробки застосувань RAD, оцінка її переваг та аналіз розповсюдженості на сучасному етапі. Етапи розробки програмного забезпечення та його життєвий цикл. Мета та порядок реалізації процесу моделювання даних. Організація проекту.

    контрольная работа [32,4 K], добавлен 12.04.2010

  • Основні завдання синоптичної метеорології. Призначення та область застосування програмного продукту "Статистика метеоспостережень", функціональні вимоги до нього. Інформаційне забезпечення, структура, опис інтерфейсу. Тестування програмного продукту.

    курсовая работа [3,6 M], добавлен 30.04.2016

  • Методи аналізу та засоби забезпечення надійності, що використовуються при проектуванні програмного забезпечення. Основні види складності. Якісні та кількісні критерії. Ієрархічна структура. Попередження помилок. Реалізація статичної і динамічної моделей.

    реферат [128,2 K], добавлен 20.06.2015

  • Огляд існуючого програмного забезпечення для управління дистанційним навчанням. Структура системи дистанційного навчання Moodle, її встановлення та налаштування. Розрахунок експлуатаційних витрат і показників економічного ефекту від розробки проекту.

    дипломная работа [2,1 M], добавлен 16.02.2013

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.