Програмування модулів (форм) алгоритмами 1 страница

Версія 1.0

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

Додаток 1. Лістинг програми

Список літератури

Висновок

На даній курсовій роботі було створено додаток «Medical© control», який працює зі створеною(генерованою) базою даних MDC.mdb(Медичний діагностичний центр).

Було створено окремі модулі для кожної таблиці, в яку можна додавати, видаляти через компоненти DBGrid та DBNavigator або ж через окремі модулі спеціального призначення (додавання та видалення даних). Було створено окремі модулі пошуку даних для кожної таблиці. Було створено модуль аутентифікації по паролю, для керованого доступу до додатку, та створено модуль зміни паролю, який зберігається в файлі(renew.bin). Також були реалізовані можливості друку звітів(даних) та їх перегляду, фільтрація даних, підрахування кількості записів в певній таблиці(відображаються в StatusBar). Були реалізовані підказки при наведенні на той чи інший компонент, які відображаються в StatusBar. Також реалізовані модулі «Довідка» та «Про нас». Через модуль «Квитанції», можна викликати модуль «Прибуток»(підрахування заробленої суми за день), результат якого відображаються StatusBar модуля «Квитанції» або ж у модулі «Прибуток».Модулі програми викликаються через головне меню програми або через панель швидкого доступу(ToolBar). Реалізовано вихід з програми через головне меню та панель швидкого доступу.

На даній курсовій роботі я засвоїв навики реалізації додатку(візуальне програмування), закріпив навички створення специфікації, навчився проводити тестування та виконав супровід додатку створений через Builder c++ 6.

1. Зборівська В. П. «Методичні вказівки з курсу основи програмної інженерії».

2. Зборівська В. П. «Методичні вказівки з курсу інструментальні засоби візуального програмування».

3. Лаврищева К. М. «Програмна інженерія».

4. Синіцин С. В., Налютін Н. Ю. «Верифікація програмного забезпечення».

5. Канер Ким, Фолк Джек, Нгуєн Енг Кек «Тестування програмного забезпечення».

/*

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

*/

//diagnozi_delete_zaput.cpp (daig_delete)

#include <vcl.h>

#pragma hdrstop

#include "diagnozi_delete_zaput.h"

#include "work_bd.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

Tdiag_delete *diag_delete;

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

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_delete::FormCreate(TObject *Sender) { Left = 387; Top = 523; }

void __fastcall Tdiag_delete::Edit3KeyPress(TObject *Sender, char &Key)

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

// diagnozi_insert_zaput.cpp (diag_insert)

#include <vcl.h>

#pragma hdrstop

#include "diagnozi_insert_zaput.h"

#include "work_bd.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

Tdiag_insert *diag_insert;

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

void __fastcall Tdiag_insert::Button1Click(TObject *Sender)

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

void __fastcall Tdiag_insert::FormCreate(TObject *Sender) { Left = 387; Top = 523; }

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

//diagnozi_search_zaput.cpp (diag_search)

#include <vcl.h>

#pragma hdrstop

#include "diagnozi_search_zaput.h"

#include "work_bd.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

Tdiag_search *diag_search;

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

void __fastcall Tdiag_search::Button1Click(TObject *Sender)

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

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

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

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

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

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

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

void __fastcall Tdiag_search::FormCreate(TObject *Sender) { Left = 387; Top = 523; }

//connect.cpp (Me)

#include <vcl.h>

#pragma hdrstop

#include "connect.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TMe *Me;

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

void __fastcall TMe::FormCreate(TObject *Sender) { Left = 522; Top = 274; }

//Helps.cpp (Help)

#include <vcl.h>

#pragma hdrstop

#include "Helps.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

THelp *Help;

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

void __fastcall THelp::FormCreate(TObject *Sender) { Left = 460; Top = 178; }

void __fastcall THelp::FormActivate(TObject *Sender) { system("start Довідка.chm"); }

//work_bd.cpp (bd_work)

#include <vcl.h>

#pragma hdrstop

#include "work_bd.h"

#include "diagnozi.h"

#include "password.h"

#include "diagnozi_insert_zaput.h"

#include "diagnozi_delete_zaput.h"

#include "klienti.h"

#include "kvitanciji.h"

#include "likari.h"

#include "priparati.h"

#include "diagnozi_search_zaput.h"

#include "Helps.h"

#include "connect.h"

#include "klienti_insert_zaput.h"

#include "klienti_delete_zaput.h"

#include "klienti_search_zaput.h"

#include "kvitancii_suma_za_den_zaput.h"

#include "kvitancii_insert_zaput.h"

#include "kvitancii_delete_zaput.h"

#include "kvitancii_search_zaput.h"

#include "likari_insert_zaput.h"

#include "likari_delete_zaput.h"

#include "likari_search_zaput.h"

#include "priparati_insert_zaput.h"

#include "priparati_delete_zaput.h"

#include "priparati_search_zaput.h"

#include "DIAGNOZI_zvit.h"

#include "KLIENTI_zvit.h"

#include "KVITANCII_zvit.h"

#include "LIKARI_zvit.h"

#include "PRIPARATI_zvit.h"

#include "password_new.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

Tbd_work *bd_work;

__fastcall Tbd_work::Tbd_work(TComponent* Owner): TDataModule(Owner) { }

void __fastcall Tbd_work::table1Click(TObject *Sender) { diag_insert->Show(); }

void __fastcall Tbd_work::vidalit1Click(TObject *Sender) { diag_delete->Show(); }

void __fastcall Tbd_work::N2Click(TObject *Sender) { PasswordDlg->Close(); }

void __fastcall Tbd_work::N1Click(TObject *Sender) { diag_search->Show(); }

void __fastcall Tbd_work::N3Click(TObject *Sender) { Help->ShowModal(); }

void __fastcall Tbd_work::MeButtonClick(TObject *Sender) { Me->ShowModal(); }

void __fastcall Tbd_work::N20Click(TObject *Sender) { Help->ShowModal(); }

void __fastcall Tbd_work::N21Click(TObject *Sender) { Me->ShowModal(); }

void __fastcall Tbd_work::N22Click(TObject *Sender) { PasswordDlg->Close(); }

void __fastcall Tbd_work::N33Click(TObject *Sender) { Help->ShowModal(); }

void __fastcall Tbd_work::N34Click(TObject *Sender) { Me->ShowModal(); }

void __fastcall Tbd_work::N35Click(TObject *Sender) { PasswordDlg->Close(); }

void __fastcall Tbd_work::N46Click(TObject *Sender) { Help->ShowModal(); }

void __fastcall Tbd_work::N47Click(TObject *Sender) { Me->ShowModal(); }

void __fastcall Tbd_work::N48Click(TObject *Sender) { PasswordDlg->Close(); }

void __fastcall Tbd_work::N59Click(TObject *Sender) { Help->ShowModal(); }

void __fastcall Tbd_work::N60Click(TObject *Sender) { Me->ShowModal(); }

void __fastcall Tbd_work::N61Click(TObject *Sender) { PasswordDlg->Close();}

void __fastcall Tbd_work::N6Click(TObject *Sender) { Diagnoz->Visible=false; klient->Visible=true; }

void __fastcall Tbd_work::N56Click(TObject *Sender) { klient_insert->Show(); }

void __fastcall Tbd_work::N57Click(TObject *Sender) { klient_deletes->Show(); }

void __fastcall Tbd_work::N50Click(TObject *Sender) { klient->Visible=false; Diagnoz->Visible=true; }

void __fastcall Tbd_work::N58Click(TObject *Sender) { klient_search->Show(); }

void __fastcall Tbd_work::N8Click(TObject *Sender) { Diagnoz->Visible=false; kvitancii->Visible=true; }

void __fastcall Tbd_work::N62Click(TObject *Sender) { suma_za_den_form->Show(); }

void __fastcall Tbd_work::N17Click(TObject *Sender) { kvit_insert->Show(); }

void __fastcall Tbd_work::N18Click(TObject *Sender) { kvit_delete->Show(); }

void __fastcall Tbd_work::N19Click(TObject *Sender) { kvit_search->Show(); }

void __fastcall Tbd_work::N7Click(TObject *Sender) { likar->Visible=true; Diagnoz->Visible=false; }

void __fastcall Tbd_work::N43Click(TObject *Sender) { likar_insert->Show(); }

void __fastcall Tbd_work::N44Click(TObject *Sender) { likar_delete->Show(); }

void __fastcall Tbd_work::N45Click(TObject *Sender) { likar_search->Show(); }

void __fastcall Tbd_work::N30Click(TObject *Sender) { priparat_insert->Show(); }

void __fastcall Tbd_work::N31Click(TObject *Sender) { priparat_delete->Show(); }

void __fastcall Tbd_work::N9Click(TObject *Sender) { Diagnoz->Visible=false; Priparats->Visible=true; }

void __fastcall Tbd_work::N32Click(TObject *Sender) { priparat_search->Show(); }

void __fastcall Tbd_work::N11Click(TObject *Sender) { kvitancii->Visible=false; Diagnoz->Visible=true; }

void __fastcall Tbd_work::N24Click(TObject *Sender) { Priparats->Visible=false; Diagnoz->Visible=true; }

void __fastcall Tbd_work::N37Click(TObject *Sender) { likar->Visible=false; Diagnoz->Visible=true; }

void __fastcall Tbd_work::N12Click(TObject *Sender) { kvitancii->Visible=false; klient->Visible=true; }

void __fastcall Tbd_work::N25Click(TObject *Sender) { Priparats->Visible=false; klient->Visible=true; }

void __fastcall Tbd_work::N38Click(TObject *Sender) { likar->Visible=false; klient->Visible=true; }

void __fastcall Tbd_work::N27Click(TObject *Sender) { Priparats->Visible=false; kvitancii->Visible=true; }

void __fastcall Tbd_work::N40Click(TObject *Sender) { likar->Visible=false; kvitancii->Visible=true; }

void __fastcall Tbd_work::N53Click(TObject *Sender) { klient->Visible=false; kvitancii->Visible=true; }

void __fastcall Tbd_work::N15Click(TObject *Sender) { kvitancii->Visible=false; Priparats->Visible=true; }

void __fastcall Tbd_work::N41Click(TObject *Sender) { likar->Visible=false; Priparats->Visible=true; }

void __fastcall Tbd_work::N54Click(TObject *Sender) { klient->Visible=false; Priparats->Visible=true;}

void __fastcall Tbd_work::N5Click(TObject *Sender) { ZVIT_diagnozi->QuickRep1->Preview(); }

void __fastcall Tbd_work::N13Click(TObject *Sender) { kvitancii->Visible=false; likar->Visible=true; }

void __fastcall Tbd_work::N26Click(TObject *Sender) { Priparats->Visible=false; likar->Visible=true; }

void __fastcall Tbd_work::N52Click(TObject *Sender){ klient->Visible=false; likar->Visible=true; }

void __fastcall Tbd_work::N14Click(TObject *Sender) { ZVIT_kvitancii->QuickRep1->Preview(); }

void __fastcall Tbd_work::N28Click(TObject *Sender) { ZVIT_priparati->QuickRep1->Preview(); }

void __fastcall Tbd_work::N39Click(TObject *Sender) { ZVIT_likari->QuickRep1->Preview(); }

void __fastcall Tbd_work::N51Click(TObject *Sender) { ZVIT_klienti->QuickRep1->Preview(); }

void __fastcall Tbd_work::N63Click(TObject *Sender) { Pass_renew->ShowModal(); }

void __fastcall Tbd_work::N64Click(TObject *Sender) { bd_work->N63Click(Sender); }

void __fastcall Tbd_work::N110Click(TObject *Sender) { bd_work->N63Click(Sender); }

void __fastcall Tbd_work::N111Click(TObject *Sender) { bd_work->N63Click(Sender); }

void __fastcall Tbd_work::N112Click(TObject *Sender) { bd_work->N63Click(Sender); }

//diagnozi.cpp (Diagnoz)

#include <vcl.h>

#pragma hdrstop

#include "diagnozi.h"

#include "work_bd.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TDiagnoz *Diagnoz;

String atribute[] = {"Код діагнозу","Термін","Термін лікування"};

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

void __fastcall TDiagnoz::FormClose(TObject *Sender, TCloseAction &Action)

{ PasswordDlg->Close(); }

void __fastcall TDiagnoz::ComboBox1KeyPress(TObject *Sender, char &Key)

{ if(Key==Key)Key = 0x00; }

void __fastcall TDiagnoz::Button3Click(TObject *Sender) { Panel2->Visible=false; }

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

{ bd_work->count_diagnozi->Active=false;

bd_work->count_diagnozi->Active=true; Diagnoz->StatusBar1->Panels->Items[1]->Text = DBText1->Caption; }

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

{ Edit1->Width=Diagnoz->Width-260; }

void __fastcall TDiagnoz::Button1Click(TObject *Sender)

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

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

{ bd_work->diagnoziz->Filtered = false; bd_work->diagnoziz->Filter = "[Код діагнозу] like '"+Edit1->Text+"*'";

bd_work->diagnoziz->Filtered = true; }

else if((ComboBox1->Text=="Фільтр по \"Термін\"")&&(Edit1->Text!=""))

{ bd_work->diagnoziz->Filtered = false; bd_work->diagnoziz->Filter = "[Термін] like '"+Edit1->Text+"*'";

bd_work->diagnoziz->Filtered = true; }

else if((ComboBox1->Text=="Фільтр по \"Термін лікування\"")&&(Edit1->Text!=""))

{ bd_work->diagnoziz->Filtered = false;

bd_work->diagnoziz->Filter = "[Термін лікування] like '"+Edit1->Text+"*'"; bd_work->diagnoziz->Filtered = true; } }

void __fastcall TDiagnoz::ToolButton1Click(TObject *Sender) { bd_work->table1Click(Sender); }

void __fastcall TDiagnoz::ToolButton2Click(TObject *Sender) { bd_work->vidalit1Click(Sender); }

void __fastcall TDiagnoz::ToolButton4Click(TObject *Sender) { bd_work->N1Click(Sender); }

void __fastcall TDiagnoz::ToolButton6Click(TObject *Sender) { bd_work->N3Click(Sender); }

void __fastcall TDiagnoz::ToolButton8Click(TObject *Sender) { bd_work->MeButtonClick(Sender); }

void __fastcall TDiagnoz::ToolButton10Click(TObject *Sender) { bd_work->N2Click(Sender); }

void __fastcall TDiagnoz::ToolButton12Click(TObject *Sender) { bd_work->N5Click(Sender); }

void __fastcall TDiagnoz::FormCreate(TObject *Sender) { Left = 387; Top = 74; }

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

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

//password_new.cpp (Pass_renew)

#include <vcl.h>

#pragma hdrstop

#include "password_new.h"

#include "password.h"

#include "diagnozi.h"

#include "klienti.h"

#include "kvitanciji.h"

#include "likari.h"

#include "priparati.h"

#include "work_bd.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TPass_renew *Pass_renew;

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

void __fastcall TPass_renew::FormCreate(TObject *Sender) { Left = 416; Top = 314; }

void __fastcall TPass_renew::FormClose(TObject *Sender, TCloseAction &Action)

{ if((Diagnoz->Visible == true)||(klient->Visible == true)|| (kvitancii->Visible == true)||(likar->Visible == true)||

(Priparats->Visible == true)) {Complete_pass->Text = ""; Old_pass->Text = "";New_pass->Text = "";Close();}

else PasswordDlg->Visible = true; Complete_pass->Text = "";New_pass->Text = "";Old_pass->Text = ""; }

void __fastcall TPass_renew::Button1Click(TObject *Sender)

{ bool turned = false; String mess1 = "Поля 'Введіть новий пароль' і ";

String mess2 = "'Повторіть новий пароль' повинні співпадати!"; Memo1->Clear();

Memo1->Lines->LoadFromFile("renew.bin"); String pass_file = Memo1->Text; if(Old_pass->Text==pass_file) {

if(New_pass->Text == Complete_pass->Text) { Memo1->Text = Complete_pass->Text; Memo1->Lines->SaveToFile("renew.bin");

turned = true; } else ShowMessage(mess1+mess2); } else ShowMessage("Невірний старий пароль!");

if(turned == true) { ShowMessage("Зміна пароля пройшла успішно!"); Visible = false; Close(); } }

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

{ Old_pass->Hint = Old_pass->Text; }

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

{ New_pass->Hint = New_pass->Text; }

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

{ Complete_pass->Hint = Complete_pass->Text; }

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

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

//password.cpp (PasswordDlg)

#include <vcl.h>

#pragma hdrstop

#include "password.h"

#include "diagnozi.h"

#include "work_bd.h"

#include "password_new.h"

#include "fstream.h"

#pragma resource "*.dfm"

TPasswordDlg *PasswordDlg;

__fastcall TPasswordDlg::TPasswordDlg(TComponent* AOwner): TForm(AOwner) { }

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

//connect.cpp (Me)

#include <vcl.h>

#pragma hdrstop

#include "connect.h"

#include "work_bd.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TMe *Me;

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

void __fastcall TMe::FormCreate(TObject *Sender) { Left = 522; Top = 274; }

//kvitanciji.cpp (kvitancii)

#include <vcl.h>

#pragma hdrstop

#include "kvitanciji.h"

#include "work_bd.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

Tkvit_delete *kvit_delete;

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

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 Tkvit_delete::FormCreate(TObject *Sender) { Left = 913; Top = 453; }

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

//kvitancii_delete_zaput.cpp (kvit_delete)

#include <vcl.h>

#pragma hdrstop

#include "kvitancii_delete_zaput.h"

#include "work_bd.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

Tkvit_delete *kvit_delete;

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

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 Tkvit_delete::FormCreate(TObject *Sender) { Left = 913; Top = 453; }

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

//kvitancii_insert_zaput.cpp (kvit_insert)

#include <vcl.h>

#pragma hdrstop

#include "kvitancii_insert_zaput.h"

#include "work_bd.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

Tkvit_insert *kvit_insert;

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

void __fastcall Tkvit_insert::Button1Click(TObject *Sender)

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

String ed2 = "\""+Edit2->Text+"\","; String dtp1 = "\""+DateToStr(DateTimePicker1->Date)+"\",";

String ed3 = "\""+Edit3->Text+"\","; String lcb2 = "\""+DBLookupComboBox1->Text+"\",";

String lcb3 = "\""+DBLookupComboBox3->Text+"\""; String mainText = ed1+lcb1+ed2+dtp1+ed3+lcb2+lcb3;

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

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

Дата добавления: 2015-06-27