Predmetform.cpp

//---------------------------------------------------------------------------
//ïåðåðèñîâûâàòü äåðåâî ïîñëå ðåäàêòèðîâàíèÿ ïðåäìåòîâ
//Îáùåîáðàçîâàòåëüíûå ïðåäìåòû
#include <vcl.h>
#pragma hdrstop

#include "Predmetform.h"
#include "dmform.h"
#include "treeform.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "DBGridEh"
#pragma resource "*.dfm"
TPredForm *PredForm;
//---------------------------------------------------------------------------
__fastcall TPredForm::TPredForm(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Îáðàáîò÷èê äâîéíîãî êëèêà íà ãðèäå ñ ïðåäìåòàìè. Ïåðåäàåò â ôîðìó ñ TreeView
//êîä ïðåäìåòà
void __fastcall TPredForm::DBGridEh1DblClick(TObject *Sender){
    if(PredForm->Tag==1){
        MainForm->Tree->Tag=DM->dsPred->FieldByName("KOD")->AsInteger;
        ModalResult=mrOk;
        PredForm->Tag=0;
    }
}
//---------------------------------------------------------------------------
//Îáðàáîò÷èê íàæàòèÿ êëàâèøè DELETE. Óäàëÿåò çàïèñü åñëè DataSourse íå â
//ðåæèìå ðåäàêòèðîâàíèÿ
void __fastcall TPredForm::DBGridEh1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift){
    if((Key == VK_DELETE)&&!(DM->dsPred->State==dsEdit))
        try{
            DM->dsPred->Delete();
        }
        catch(const Exception &E){
            Application->MessageBox("Íåâîçìîæíî óäàëèòü ïðåäìåò. Ïðåäìåò èñïîëüçóåòñÿ.", "Îøèáêà", MB_OK);
        }
}
//---------------------------------------------------------------------------


void __fastcall TPredForm::FormClose(TObject *Sender, TCloseAction &Action){
    if(DM->dsPred->State==dsEdit)DM->dsPred->Post();
    if(DM->dsPred->State==dsInsert)DM->dsPred->Cancel();
    Button1->Visible=false;
}
//---------------------------------------------------------------------------