ДОДАТОК А. void __fastcall Tdiag_delete::Button1Click(TObject *Sender)

void __fastcall Tdiag_delete:: Button1Click(TObject *Sender)

{

Memo1-> Clear();

bd_work-> diagnoziz-> Active=false;

AnsiString text[]={" DELETE FROM Діагнози",

" WHERE Діагнози.[Код діагнозу]=\" " +Edit1-> Text+" \" ",

" OR Діагнози.[Термін лікування]=\" " +Edit3-> Text+" \" OR",

" Діагнози.Термін=\" " +Edit2-> Text+" \" " };

for(unsigned t=0; t< sizeof(text)/sizeof(int); t++)

Memo1-> Lines-> Add(text[t]);

bd_work-> diagnoziz-> Close();

bd_work-> diagnoziz-> SQL-> Clear();

bd_work-> diagnoziz-> SQL-> Add(Memo1-> Text);

bd_work-> diagnoziz-> ExecSQL();

AnsiString text2[]={" SELECT *",

" FROM Діагнози; " };

Memo1-> Clear();

for(unsigned t=0; t< sizeof(text2)/sizeof(int); t++)

Memo1-> Lines-> Add(text2[t]);

bd_work-> diagnoziz-> Close();

bd_work-> diagnoziz-> SQL-> Clear();

bd_work-> diagnoziz-> SQL-> Add(Memo1-> Text);

bd_work-> diagnoziz-> Open();

bd_work-> diagnoziz-> Active=true;

bd_work-> count_diagnozi-> Active=false;

bd_work-> count_diagnozi-> Active=true;

}

void __fastcall Tdiag_insert:: Button1Click(TObject *Sender)

{

bool InsertDiagnoz = false;

///////// COntrol id key and termin //////////////

Diagnoz-> DBText2-> DataField = " ";

bd_work-> KeyDiagnoz-> Active=false;

AnsiString text2[]={" SELECT count(Діагнози.[Код діагнозу]) as countKey ",

" FROM Діагнози where Діагнози.[Код діагнозу] = \" " +Edit1-> Text+" \" " };

Memo1-> Clear();

for(unsigned t=0; t< sizeof(text2)/sizeof(int); t++)

Memo1-> Text = Memo1-> Text + text2[t];

bd_work-> KeyDiagnoz-> Close();

bd_work-> KeyDiagnoz-> SQL-> Clear();

bd_work-> KeyDiagnoz-> SQL-> Add(Memo1-> Text);

bd_work-> KeyDiagnoz-> Open();

bd_work-> KeyDiagnoz-> Active=true;

Diagnoz-> DBText2-> DataField = " countKey";

bd_work-> TerminDiagnoz-> Active=false;

AnsiString text3[]={" SELECT count(Діагнози.[Код діагнозу]) as countTermin ",

" FROM Діагнози where Діагнози.[Термін] = \" " +Edit2-> Text+" \" " };

Memo1-> Clear();

for(unsigned t=0; t< sizeof(text3)/sizeof(int); t++)

Memo1-> Text = Memo1-> Text + text3[t];

bd_work-> TerminDiagnoz-> Close();

bd_work-> TerminDiagnoz-> SQL-> Clear();

bd_work-> TerminDiagnoz-> SQL-> Add(Memo1-> Text);

bd_work-> TerminDiagnoz-> Open();

bd_work-> TerminDiagnoz-> Active=true;

Diagnoz-> DBText3-> DataField = " countTermin";

if(Diagnoz-> DBText3-> Caption == " 0" & & Diagnoz-> DBText2-> Caption == " 0"){

InsertDiagnoz = true; }

else if(Diagnoz-> DBText2-> Caption! = " 0") ShowMessage(" Дані не додано в таблицю! Значення поля \" Код діагнозу\" не повинні співпадати! ");

else if(Diagnoz-> DBText3-> Caption! = " 0") ShowMessage(" Дані не додано в таблицю! Значення поля \" Термін\" не повинні співпадати! ");

///////////////////////////////////////

if(InsertDiagnoz == true){

if(Edit1-> Text! = " " & & Edit2-> Text! = " " & & Edit3-> Text! = " "){

Memo1-> Clear();

bd_work-> diagnoziz-> Active=false;

AnsiString text[]={" INSERT INTO Діагнози([Код діагнозу], Термін, [Термін лікування])",

" VALUES (\" " +Edit1-> Text+" \", \" " +Edit2-> Text+" \", \" " +Edit3-> Text+" \")" };

for(unsigned t=0; t< sizeof(text)/sizeof(int); t++)

Memo1-> Lines-> Add(text[t]);

bd_work-> diagnoziz-> Close();

bd_work-> diagnoziz-> SQL-> Clear();

bd_work-> diagnoziz-> SQL-> Add(Memo1-> Text);

bd_work-> diagnoziz-> ExecSQL();

AnsiString text2[]={" SELECT *",

" FROM Діагнози; " };

Memo1-> Clear();

for(unsigned t=0; t< sizeof(text2)/sizeof(int); t++)

Memo1-> Lines-> Add(text2[t]);

bd_work-> diagnoziz-> Close();

bd_work-> diagnoziz-> SQL-> Clear();

bd_work-> diagnoziz-> SQL-> Add(Memo1-> Text);

bd_work-> diagnoziz-> Open();

bd_work-> diagnoziz-> Active=true;

bd_work-> count_diagnozi-> Active=false;

bd_work-> count_diagnozi-> Active=true;

}else ShowMessage(" Заповніть пусті поля! "); }

}

void __fastcall Tdiag_search:: Button1Click(TObject *Sender)

{

bool ShowMessageVisible = false;

if((RadioButton2-> Checked==true)& & (bd_work-> diagnoziz-> Locate(" Термін", Edit2-> Text, TLocateOptions())))

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

else { if((ShowMessageVisible == false)& & (RadioButton2-> Checked==true)& & (Edit2-> Text! = " ")){ShowMessage(" Не знайдено! "); ShowMessageVisible = true; }}

if((RadioButton1-> Checked==true)& & (bd_work-> diagnoziz-> Locate(" Код діагнозу", Edit1-> Text, TLocateOptions())))

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

else { if((ShowMessageVisible == false)& & (RadioButton1-> Checked==true)& & (Edit1-> Text! = " ")){ShowMessage(" Не знайдено! "); ShowMessageVisible = true; }}

if((RadioButton3-> Checked==true)& & (bd_work-> diagnoziz-> Locate(" Термін лікування", Edit3-> Text, TLocateOptions())))

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

else { if((ShowMessageVisible == false)& & (RadioButton3-> Checked==true)& & (Edit3-> Text! = " ")){ShowMessage(" Не знайдено! "); ShowMessageVisible = true; }}

}

void __fastcall Tklient_deletes:: Button1Click(TObject *Sender)

{

String ed1 = " [Код клієнта] = \" " +Edit1-> Text+" \" OR ";

String ed2 = " [Діагноз клієнта] = \" " +Edit2-> Text+" \" OR ";

String ed3 = " [Код лікаря] = \" " +Edit3-> Text+" \" OR ";

String ed4 = " [Прізвище та ім'я] = \" " +Edit4-> Text+" \" OR ";

String ed5 = " [Код паспорту] = \" " +Edit5-> Text+" \" OR ";

String ed6 = " [Телефонний номер] = \" " +Edit6-> Text+" \" OR ";

String ed7 = " [Місто проживання] = \" " +Edit7-> Text+" \" ";

String mainText = ed1+ed2+ed3+ed4+ed5+ed6+ed7;

Memo1-> Clear();

bd_work-> klientiz-> Active=false;

AnsiString text[]={" DELETE FROM Клієнти ",

" WHERE " +mainText+"; " };

for(unsigned t=0; t< sizeof(text)/sizeof(int); t++)

Memo1-> Lines-> Add(text[t]);

bd_work-> klientiz-> Close();

bd_work-> klientiz-> SQL-> Clear();

bd_work-> klientiz-> SQL-> Add(Memo1-> Text);

bd_work-> klientiz-> ExecSQL();

AnsiString text2[]={" SELECT *",

" FROM Клієнти; " };

Memo1-> Clear();

for(unsigned t=0; t< sizeof(text2)/sizeof(int); t++)

Memo1-> Lines-> Add(text2[t]);

bd_work-> klientiz-> Close();

bd_work-> klientiz-> SQL-> Clear();

bd_work-> klientiz-> SQL-> Add(Memo1-> Text);

bd_work-> klientiz-> Open();

bd_work-> klientiz-> Active=true;

bd_work-> count_klients-> Active=false;

bd_work-> count_klients-> Active=true;

}

void __fastcall Tklient_insert:: Button1Click(TObject *Sender)

{

////////////////////// control key id klient ////////////////////////

klient-> DBText2-> DataField = " ";

bd_work-> KeyKlient-> Active=false;

AnsiString textKey[]={" SELECT count(Клієнти.[Код клієнта]) as countKey ",

" FROM Клієнти where Клієнти.[Код клієнта] = \" " +Edit1-> Text+" \" " };

Memo1-> Clear();

for(unsigned t=0; t< sizeof(textKey)/sizeof(int); t++)

Memo1-> Text = Memo1-> Text + textKey[t];

bd_work-> KeyKlient-> Close();

bd_work-> KeyKlient-> SQL-> Clear();

bd_work-> KeyKlient-> SQL-> Add(Memo1-> Text);

bd_work-> KeyKlient-> Open();

bd_work-> KeyKlient-> Active=true;

klient-> DBText2-> DataField = " countKey";

/////////////////////////////////////////////////////////////////////

if(klient-> DBText2-> Caption == " 0") {

if(Edit1-> Text! = " " & & Edit4-> Text! = " " & & Edit5-> Text! = " " & & Edit6-> Text! = " " & &

Edit7-> Text! = " " & & DBLookupComboBox2-> Text! = " " & & DBLookupComboBox1-> Text! = " "){

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

String lcb1 = " \" " +DBLookupComboBox1-> Text+" \", ";

String lcb2 = " \" " +DBLookupComboBox2-> Text+" \", ";

String ed4 = " \" " +Edit4-> Text+" \", ";

String ed5 = " \" " +Edit5-> Text+" \", ";

String ed6 = " \" " +Edit6-> Text+" \", ";

String ed7 = " \" " +Edit7-> Text+" \" ";

String mainText = ed1+lcb1+lcb2+ed4+ed5+ed6+ed7;

Memo1-> Clear();

bd_work-> klientiz-> Active=false;

AnsiString text[]={" INSERT INTO Клієнти([Код клієнта], [Діагноз клієнта], ",

" [Код лікаря], [Прізвище та ім'я], [Код паспорту], ",

" [Телефонний номер], [Місто проживання])", " VALUES (" +mainText+")" };

for(unsigned t=0; t< sizeof(text)/sizeof(int); t++)

Memo1-> Lines-> Add(text[t]);

bd_work-> klientiz-> Close();

bd_work-> klientiz-> SQL-> Clear();

bd_work-> klientiz-> SQL-> Add(Memo1-> Text);

bd_work-> klientiz-> ExecSQL();

AnsiString text2[]={" SELECT *",

" FROM Клієнти; " };

Memo1-> Clear();

for(unsigned t=0; t< sizeof(text2)/sizeof(int); t++)

Memo1-> Lines-> Add(text2[t]);

bd_work-> klientiz-> Close();

bd_work-> klientiz-> SQL-> Clear();

bd_work-> klientiz-> SQL-> Add(Memo1-> Text);

bd_work-> klientiz-> Open();

bd_work-> klientiz-> Active=true;

bd_work-> count_klients-> Active=false;

bd_work-> count_klients-> Active=true;

}

else ShowMessage(" Заповніть пусті поля! ");

}

else ShowMessage(" Дані не додано в таблицю! Значення поля \" Код клієнта\" не повинні співпадати! ");

}

void __fastcall Tkvit_delete:: Button1Click(TObject *Sender)

{

String ed1 = " [Код квитанції]=\" " +Edit1-> Text+" \" OR ";

String ed2 = " [Код клієнта]=\" " +Edit2-> Text+" \" OR ";

String ed3;

if(Edit3-> Text! = " ") ed3 = " [Всього до оплати]=" +Edit3-> Text+" OR ";

else Edit3-> Text = " 0";

String ed5 = " [Прізвище та ім'я клієнта]=\" " +Edit5-> Text+" \" OR ";

String ed6 = " Діагноз=\" " +Edit6-> Text+" \" OR ";

String ed7 = " [Код препарату]=\" " +Edit7-> Text+" \" ";

String mainText = ed1+ed2+ed3+ed5+ed6+ed7;

Memo1-> Clear();

bd_work-> kvitanciiz-> 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-> kvitanciiz-> Close();

bd_work-> kvitanciiz-> SQL-> Clear();

bd_work-> kvitanciiz-> SQL-> Add(Memo1-> Text);

bd_work-> kvitanciiz-> ExecSQL();

AnsiString text2[]={" SELECT *",

" FROM Квитанція; " };

Memo1-> Clear();

for(unsigned t=0; t< sizeof(text2)/sizeof(int); t++)

Memo1-> Lines-> Add(text2[t]);

bd_work-> kvitanciiz-> Close();

bd_work-> kvitanciiz-> SQL-> Clear();

bd_work-> kvitanciiz-> SQL-> Add(Memo1-> Text);

bd_work-> kvitanciiz-> Open();

bd_work-> kvitanciiz-> Active=true;

}

void __fastcall TPasswordDlg:: OKBtnClick(TObject *Sender)

{

Memo1-> Clear();

Memo1-> Lines-> LoadFromFile(" renew.bin");

String pass_file = Memo1-> Text;

if(pass_file! = Password-> Text) { ShowMessage(" Невірний пароль! "); }

else

{ PasswordDlg-> Visible=false;

Diagnoz-> Show();

}

}

void __fastcall TPasswordDlg:: CancelBtnClick(TObject *Sender)

{

PasswordDlg-> Close();

}

void __fastcall TPasswordDlg:: FormCreate(TObject *Sender)

{

fstream file(" renew.bin");

if(! file.is_open())

{ ofstream sozdat(" renew.bin"); sozdat.close(); }

Left = 529; Top = 317;

}

void __fastcall TPasswordDlg:: SpeedButton1Click(TObject *Sender)

{

PasswordDlg-> Visible = false;

Pass_renew-> Visible = true;

}

void __fastcall Tkvitancii:: Button1Click(TObject *Sender)

{

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

bd_work-> kvitanciiz-> Filtered = false;

String FN, FND; //FieldName, FieldNameDate

FND = " [Дата видачі] = " +DateToStr(DateTimePicker1-> Date);

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

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+" *'"; }

else if((ComboBox1-> Text==" Фільтр по \" Діагноз клієнта\" ")& & (Edit1-> Text! =" "))

{ FN = " [Діагноз] like '" +Edit1-> Text+" *'"; }

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

{ FN = " [Код препарату] like '" +Edit1-> Text+" *'"; }

bd_work-> kvitanciiz-> Filtered = false;

bd_work-> kvitanciiz-> Filter = FN; bd_work-> kvitanciiz-> Filtered = true;

}