)
{(this);
/* Query2-> Params-> Items [0] -> Value = = DBGrid4-> DataSource-> DataSet-> FieldValues ​​["TELEPHONE"]; -> Active = false; -> Active = true; -> Update (); -> DataSource-> DataSet -> First (); -> Clear (); = 100; (! DBGrid5-> DataSource-> DataSet-> Eof)
} -> DataSource-> DataSet-> First (); */
}
{
// Table4-> Active = false;
// Table4-> Active = true; -> Show ();
}
{-> Params-> Items [0] -> Value = amount; -> Params-> Items [1] -> Value = store_id; -> ; Params-> Items [2] -> Value = good_id; -> ExecSQL (); -> Params-> Items [0] -> Value = request_id; -> ExecSQL (); () ;
} TForm1 :: addField ()
{amount = Form2-> CSpinEdit1-> Value; _size = Form2-> CSpinEdit2-> Value; (st_size> = amount)
{
{_id = = = = (Query4-> FieldByName ("ID")) -> AsInteger;
// intstore_id = 1; -> Params-> Items [0] -> Value = good_id; -> Params-> Items [1] -> Value = store_id; -> Params-> Items [2] -> Value = amount; -> Params-> Items [3] -> Value = st_size; -> ExecSQL ();
} (...)
{("Неправільнийпараметр"); -> Show ();
}
}
// Query2-> Active = false;
// Query2-> Active = true;
// DBGrid5-> Update (); (this);
} __fastcall TForm1 :: Button2Click (TObject * Sender)
{-> Params-> Items [0] -> Value = = = (Query4-> FieldByName ("ID")) -> AsInteger; -> Params-> Items [0] -> Value = = (Query6-> FieldByName ("ID")) -> AsInteger; -> Params-> Items [0] -> Value = store_id; -> Params-> Items [1] -> ; Value = good_id; -> ExecSQL ();
// Query2-> Active = false;
// Query2-> Active = true;
// DBGrid5-> Update (); (this);
}
{f = false; = 0; (ComboBox1-> Text == "Прийняті")
{= 1; = true;
} (ComboBox1-> Text == "Відхилені")
{= 2; = true;
} (); (f)
{-> Enabled = false; -> Enabled = false; = false;
}
