выборка хранимых процедур
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
void __fastcall TForm1::N13Click(TObject *Sender)
{
if(FIBTransaction->Active)FIBTransaction->Active=false;
FIBDataSet->SelectSQL->Clear();
AnsiString q;
q="select rdb$procedure_name \
from rdb$procedures";
FIBDataSet->SelectSQL->Add(q);
FIBTransaction->Active = True;
FIBDataSet->Active = True;
DBGrid->Show();
Form1->Caption = "Procedures";
}
Обработчика двойного клика на dbgrid
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
void __fastcall TForm1::DBGridDblClick(TObject *Sender)
{
TField* pField;
pField = FIBDataSet->Fields->Fields[ 0 ];
int z;
AnsiString a,q,b;
a = pField->AsString;
b = Form1->Caption;
if(b=="Tables")z= 1 ;
if(b=="Procedures")z= 4 ;
switch(z){
case 1 :{
if(FIBTransaction->Active)FIBTransaction->Active=false;
FIBDataSet->SelectSQL->Clear();
q="select * from "+a;
FIBDataSet->SelectSQL->Add(q);
FIBTransaction->Active = True;
FIBDataSet->Active = True;
DBGrid->Show();
Form1->Caption = "";
break;
}
case 4 :{
if(FIBTransaction->Active)FIBTransaction->Active=false;
FIBDataSet->SelectSQL->Clear();
q=" select * from rdb$procedures where\
rdb$procedure_name = \""+a+"\"";
FIBDataSet->SelectSQL->Add(q);
FIBTransaction->Active = True;
FIBDataSet->Active = True;
DBGrid->Show();
break;
}
default:{ MessageBox(NULL,"??? ???????????","??? ???????????",MB_OK); break; }
}
}
