treeform.cpp

//---------------------------------------------------------------------------
//óäàëåíèå ïðåäìåòîâ èç äåðåâà
#include <vcl.h>
#pragma hdrstop

#include "treeform.h"
#include "dmform.h"
#include "bokform.h"
#include "Predmetform.h"
#include "flogin.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "DBCtrlsEh"
#pragma link "DBGridEh"
#pragma link "DBLookupEh"
#pragma resource "*.dfm"
TMainForm *MainForm;
int create=0;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Åñëè ôîðìà îòîáðàæàåòñÿ âïåðâûå âûçûâàåò ôóíêöèþ ãåíåðàöèè äðåâà.
//Åñëè âõîä íå ïîä àäìèíèñòðàòîðîì ïðÿ÷åò êíîïêè äîñòóïà ê ñïðàâî÷íèêàì.
void __fastcall TMainForm::FormShow(TObject *Sender){
    if(!create){
        TreePaint();
        create=1;
    }
    if(Login->Tag==0){
        ToolButton2->Visible=false;
        ToolButton3->Visible=false;
        ToolButton4->Visible=false;
        ToolButton5->Visible=false;
        N1->Visible=false;
        N3->Visible=false;
    }
}
//---------------------------------------------------------------------------
//Ôóíêöèÿ ãåíåðàöèè äðåâà ñ ïðåäìåòàìè è ñïåöèàëüíîñòÿìè.
void __fastcall TMainForm::TreePaint(){
    TTreeNode *Node,*Node1,*Node2,*Node3;
    PMyRec MyRecPtr;
    AnsiString filter;
    int otd,obu;
    Tree->Items->Clear(); // remove any existing nodes
    DM->dsLookup->First();
    //ïðîñìàòðèâàåì òàáëèöó ÂÓÇîâ è ñîçäàåì êîðíåâûå óçëû äðåâà
    while(!DM->dsLookup->Eof){
        Node=Tree->Items->AddObject(NULL,DM->dsLookup->FieldByName("VUZ")->AsString,\
        (void*)DM->dsLookup->FieldByName("ID")->AsInteger);
        DM->dsOtdel->First();
        //ïðîñìàòðèâàåì òàáëèöó ñïåöèàëüíîñòåé è äîáàâëÿåì â äðåâî ñïåöèàëüíîñòè
        //ñîîòâåòñòâåííî ÂÓÇàì
        while(!DM->dsOtdel->Eof){
            if(DM->dsOtdel->FieldByName("TVUZ")->AsInteger==DM->dsLookup->FieldByName("ID")->AsInteger){
                Node1=Tree->Items->AddChildObject(Node,DM->dsOtdel->FieldByName("N_OTDEL")->AsString,\
                (void*)DM->dsOtdel->FieldByName("KOD")->AsInteger);
                otd=DM->dsOtdel->FieldByName("KOD")->AsInteger;
                //Äîáàâëÿåì äî÷åðíèé óçåë ê ñïåöèàëüíîñòè -"Äåííà ôîðìà íàâÿàííÿ"
                Node2=Tree->Items->AddChild(Node1,"Äåííà");
                obu=1;
                for(int i=1;i<7;i++){
                    MyRecPtr=new TMyRec;
                    MyRecPtr->otd=otd;
                    MyRecPtr->obu=obu;
                    MyRecPtr->kurs=i;
                    //Äîáàâëÿåì â äðåâî óçëû ñîîòâåòñòâóþùèå êóðñàì ñ 1 ïî 5
                    Node3=Tree->Items->AddChildObject(Node2,"Êóðñ "+AnsiString(i),MyRecPtr);
                    //Îòôèëüòðîâóåì â òàáëèöå ñâÿçåé ñïåöèàëüíîñòåé, êóðñà è ïðåäìåòîâ
                    //íóæíûå çàïèñè
                    filter.printf("KOTD=%d and FOBUCH=%d and KURS=%d",otd,obu,i);
                    DM->dsSpis->Filter=filter;
                    //äîáàâëÿåì îñòàâøèåñÿ çàïèñè â äðåâî
                    while(!DM->dsSpis->Eof){
                        Tree->Items->AddChildObject(Node3,DM->dsSpis->FieldByName("N_PREDMET")->AsString,\
                        (void*)DM->dsSpis->FieldByName("ID")->AsInteger);
                        DM->dsSpis->Next();
                    }
                }
                //Òî æå äëÿ "Äåííîú ôîðìè íàâ÷àííÿ"
                Node2=Tree->Items->AddChild(Node1,"Çàî÷íà");
                obu=2;
                for(int i=1;i<7;i++){
                    MyRecPtr=new TMyRec;
                    MyRecPtr->otd=otd;
                    MyRecPtr->obu=obu;
                    MyRecPtr->kurs=i;
                    Node3=Tree->Items->AddChildObject(Node2,"Êóðñ "+AnsiString(i),MyRecPtr);
                    filter.printf("KOTD=%d and FOBUCH=%d and KURS=%d",otd,obu,i);
                    DM->dsSpis->Filter=filter;
                    while(!DM->dsSpis->Eof){
                        Tree->Items->AddChildObject(Node3,DM->dsSpis->FieldByName("N_PREDMET")->AsString,\
                        (void*)DM->dsSpis->FieldByName("ID")->AsInteger);
                        DM->dsSpis->Next();
                    }
                }
            }
            DM->dsOtdel->Next();
        }
        DM->dsLookup->Next();
    }
}
//-----------------------------------------------------------------------------------------------
//Ôóíêöèÿ ñîçäàíèÿ ñâÿçêè ïðåäìåòà ñ íóæíîé ñïåöèàëüíîñòüþ è êóðñîì
void __fastcall TMainForm::Button3Click(TObject *Sender){
    PredForm->Tag=1;
    PredForm->Button1->Visible=true;
    if(PredForm->ShowModal()==mrOk){
        TTreeNode *Node;
        AnsiString filter;
        int otd,obu,kurs,pred;
        //Âûáèðàåì ìç âûáðàííîãî óçëà äðåâà çíà÷åíèÿ êóðñà, ñïåöèàëüíîñòè è
        //ôîðìû îáó÷åíèÿ
        otd=PMyRec(Tree->Selected->Data)->otd;
        obu=PMyRec(Tree->Selected->Data)->obu;
        kurs=PMyRec(Tree->Selected->Data)->kurs;
        pred=Tree->Tag;
        Tree->Tag=0;
        //Ïðîâåðÿåì íåò ëè òàêîãî ïðåäìåòà íà äàííîì êóðñå âûáðàííîé ñïåöèàëüíîñòè
        filter.printf("KOTD=%d and FOBUCH=%d and KURS=%d and KPRED=%d",otd,obu,kurs,pred);
        DM->dsSpis->Filter=filter;
        //åñëè åñòü âûâîäèì ïðåäóïðåæäàþùåå ñîîáùåíèå è çàâåðøàåì ïðîöåäóðó
        if(DM->dsSpis->RecNo!=0){
            Application->MessageBox("Òàêàÿ ñâÿçêà óæå åñòü.", "Look", MB_OK);
        }else{
        //åñëè íåò - ñîçäàåì íóæíóþ ñâÿçêó â òàáëèöå
            AnsiString sql;
            sql.printf("insert into spis2 (kotd,kpred,kurs,fobuch) values (%d,%d,%d,%d)",otd,pred,kurs,obu);
            DM->qInsert->SQL->Clear();
            DM->qInsert->SQL->Add(sql);
            DM->qInsert->Prepare();
            DM->qInsert->ExecQuery();
            DM->dsSpis->Close();
            DM->dsSpis->Open();
            //Äîáàâëÿåì â äðåâî íîâûé óçåë
            Tree->Items->AddChildObject(Tree->Selected,DM->dsSpis->FieldByName("N_PREDMET")->AsString,\
            (void*)DM->dsSpis->FieldByName("ID")->AsInteger);
        }
    }
}
//---------------------------------------------------------------------------
//Ïðè ïåðåìåùåíèè ïî äðåâó îïåðåäåëÿåì óðîâåíü âûáðàííîãî óçëà
//è áëîêóðèóåì èëè ðàçáëîêóðóåì êíîïêè ïàíåëè èíñòðóìåíòîâ
void __fastcall TMainForm::TreeChange(TObject *Sender, TTreeNode *Node){
    AnsiString filter;
    ToolButton2->Enabled=false;
    ToolButton4->Enabled=false;
    ToolButton5->Enabled=false;
    ToolButton6->Enabled=false;
    switch(Node->Level){
        case 4: filter.printf("ID=%d",(int*)Node->Data);
                DM->dsTree->Filter=filter;
                ToolButton4->Enabled=true;
                if(DM->dsTree->RecNo!=0){
                    ToolButton5->Enabled=true;
                    ToolButton6->Enabled=true;
                }
                break;
        case 3: ToolButton2->Enabled=true;
        default:filter.printf("ID=%d",9999);
                DM->dsTree->Filter=filter;
    }
}
//---------------------------------------------------------------------------
//Ïðîöåäóðà äîáàâëåíèÿ êíèãè âûáðàííîìó ïðåäìåòó
void __fastcall TMainForm::PutBook(TObject *Sender){
    BookForm->BitBtn2->Visible=true;
    if(BookForm->ShowModal()==mrOk){
        int bkod,sid,upkod,uid;
        AnsiString sql;
        bkod=Tree->Tag;
        sid=(int)Tree->Selected->Data;
        uid=Login->Tag;
        //Ïðîâåðÿåì ýòî äîáàâëåíèå íîâîé êíèãè èëè çàìåíà
        switch(((TComponent *)Sender)->Tag){
            case 0: sql.printf("insert into spisbook (id,kbook,iduser) values (%d,%d,%d)",sid,bkod,uid);
                    break;
            case 1: upkod=DM->dsTree->FieldByName("KBOOK")->Value;
                    sql.printf("update spisbook set kbook=%d, iduser=%d where id=%d and kbook=%d",bkod,uid,sid,upkod);
        }
        DM->dsTree->First();
        //Ïðîâåðêà åñëè äàííàÿ êíèãà â âûáðàííîì ðàçäåëå
        while(!DM->dsTree->Eof){
            if(DM->dsTree->FieldByName("KBOOK")->AsInteger==bkod){
                Application->MessageBox("Ýòà êíèãà çäåñü óæå åñòü!", "Look", MB_OK);
                return;
            }
            DM->dsTree->Next();
        }
        DM->qInsert->SQL->Clear();
        DM->qInsert->SQL->Add(sql);
        DM->qInsert->Prepare();
        DM->qInsert->ExecQuery();
        DM->dsTree->Close();
        DM->dsTree->Open();
    }
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormCanResize(TObject *Sender, int &NewWidth,
      int &NewHeight, bool &Resize){
    if(NewWidth!=MainForm->Width)MainForm->Align=alClient;
    if(NewWidth<MainForm->Width)MainForm->Align=alNone;
}
//---------------------------------------------------------------------------
//Åñëè â òàáëèöàõ êîòîðûå èñïîëüçóþòüñÿ äëÿ ïîñòðîåíèÿ äðåâà áûëè èçìåíåíèÿ
//âûçûâàåòñÿ ôóíêöèÿ ïåðåðèñîâêè äðåâà
void __fastcall TMainForm::FormActivate(TObject *Sender){
    if(Tree->Tag==-1){
        TreePaint();
        Tree->Tag=0;
    }
}
//---------------------------------------------------------------------------
//Ïðîöåäóðà ïîëó÷åíèÿ êíèãè èç áàçû
void __fastcall TMainForm::GetBook(TObject *Sender){
    HWND hWnd;
    AnsiString filter,path;
    path=getenv("TEMP");
    path+="\\temp.rar";
    int bkod=DM->dsTree->FieldByName("KBOOK")->Value;
    filter.printf("KOD=%d",bkod);
    DM->dsBook->Filter=filter;
    DM->dsBook->Filtered=true;
    TBlobField *bl = (TBlobField *)DM->dsBook->FieldByName("BOOK");
    bl->SaveToFile(path);
    ShellExecute(hWnd, "open",path.c_str(), NULL, NULL, SW_SHOWNORMAL);
    DM->dsBook->Filtered=false;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ExitClick(TObject *Sender){
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::GridBookKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift){
if(Key == VK_DELETE)
    DeleteBook(this);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::DeleteBook(TObject *Sender){
    int id, kbook;
    AnsiString sql;
    id=DM->dsTree->FieldByName("ID")->AsInteger;
    kbook=DM->dsTree->FieldByName("KBOOK")->AsInteger;
    sql.printf("delete from spisbook where id=%d and kbook=%d",id,kbook);
    DM->qInsert->SQL->Clear();
    DM->qInsert->SQL->Add(sql);
    //DM->qInsert->Prepare();
    DM->qInsert->ExecQuery();
    DM->dsTree->FullRefresh();
    //DM->dsTree->Close();
    //DM->dsTree->Open();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::PM2Popup(TObject *Sender){
    N5->Visible=true;
    N4->Visible=true;
    switch(Tree->Selected->Level){
        case 3:N5->Visible=false;break;
        case 4:N4->Visible=false;break;
        default:N5->Visible=false;N4->Visible=false;
    }
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::N5Click(TObject *Sender){
    AnsiString sql;
    sql.printf("delete from spis2 where id=%d",(int)Tree->Selected->Data);
    try{
        DM->qInsert->SQL->Clear();
        DM->qInsert->SQL->Add(sql);
        DM->qInsert->ExecQuery();
        DM->dsSpis->FullRefresh();
        TreePaint();
    }catch(const Exception &E){
        Application->MessageBox("Óäàëèòå ñíà÷àëà êíèãè.", "Îøèáêà", MB_OK);
    }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::GridBookMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y){
TGridCoord Cell = GridBook->MouseCoord(X,Y);
try{
    GridBook->Hint = "";
    GridBook->ShowHint = false;
    if ((Cell.X <= 0)||(Cell.Y <= 0)) return;
    GridBook->ShowHint = true;
    GridBook->Hint="Ïîñëåäíèé ðàç çàïèñü ðåäàêòèðîâàëàñü: "+DM->dsTree->FieldByName("LOGIN")->AsString;
//    if (GridBook->Columns->Items[Cell.X-1]->Title->Caption == "Íàçâàíèå"){
//     GridBook->ShowHint = true;
//     GridBook->Hint = "Êîëè÷åñòâî îêàçàííîé àìáóëàòîðíî-ïîëèêëèíè÷åñêîé ïîìîùè";
//   DBGrid_Med->Hint =
//   Tbl_Med->FieldByName(DBGrid_Med->Columns->Items[Cell.X-1]->FieldName)->AsInteger;
//  }
//    if (GridBook->Columns->Items[Cell.X-1]->Title->Caption == "Àâòîð"){
//     GridBook->ShowHint = true;
//     GridBook->Hint = "Êîëè÷åñòâî îêàçàííîé ñòàöèîíàðíîé ïîìîùè";
//   DBGrid_Med->Hint =
//   Tbl_Med->FieldByName(DBGrid_Med->Columns->Items[Cell.X-1]->FieldName)->AsInteger;
//    }
 }
 catch(...) {}
}
//---------------------------------------------------------------------------