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;

...