//diagnozi_delete_zaput.cpp (daig_delete) 4 страница Главная страница сайта Об авторах сайта Контакты сайта Краткие содержания, сочинения и рефераты

//diagnozi_delete_zaput.cpp (daig_delete) 4 страничка


.

Читать реферат для студентов

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

#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

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

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

#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

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

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

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

}

//---------------------------------------------------------------------------


Другие страницы сайта


Для Вас подготовлен образовательный материал //diagnozi_delete_zaput.cpp (daig_delete) 4 страница

5 stars - based on 220 reviews 5
  • Система персонажей в литературном произведении
  • Спонтанное и вынужденное излучение в квантовой системе
  • Условия Конкурса
  • Устройство и работа гелий-неонового лазера
  • Послойная топография. 1. Кожа тонкая, малоподвижная.
  • Опыт Франка и Герца
  • Система балльно-рейтинговой оценки работы студентов по дисциплине
  • Что думали наши предки о Солнце?