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

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

/*

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