- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
void __fastcall TExpressProgForm::miAddClick (TObject *Sender)
{
/* куча гавна */
if (Sender != miAdd && !SuperUser && GridMain->FieldByName ("ID_city")->AsString != GetValue (DB, "SELECT @EXPRESS_CITY")
&& GetValue (DB, "SELECT 1 FROM debitor_cfo WHERE ID_city=" + GridMain->FieldByName ("ID_city")->AsString) == 1
&& GetValue (DB, "SELECT @EXPRESS_CITY") != 1538)
{
FrameEdit->Edit2->ReadOnly = true;
FrameEdit->CheckBox1->Enabled = false;
FrameEdit->Panel4->Enabled = false;
FrameEdit->miDelEmployee->Enabled = false;
}
/* куча гавна */
}
Комментарии (0) RSS
Добавить комментарий