r: TObject); Button61Click (Sender: TObject); Button62Click (Sender: TObject); Button66Click (Sender: TObject); Button67Click (Sender: TObject); N3Click ( Sender: TObject); DBLookupComboBox2Click (Sender: TObject); DBLookupComboBox4Click (Sender: TObject); DBLookupComboBox6Click (Sender: TObject); DBLookupComboBox8Click (Sender: TObject); DBLookupComboBox10Click (Sender: TObject); DBLookupComboBox13Click (Sender: TObject); DBLookupComboBox3Click (Sender : TObject); DBLookupComboBox5Click (Sender: TObject); DBLookupComboBox7Click (Sender: TObject); DBLookupComboBox14Click (Sender: TObject); DBLookupComboBox16Click (Sender: TObject); DBLookupComboBox19Click (Sender: TObject); DBLookupComboBox22Click (Sender: TObject); DBLookupComboBox24Click (Sender: TObject); DBLookupComboBox11Click (Sender: TObject); DBLookupComboBox26Click (Sender: TObject); Button68Click (Sender: TObject); Button69Click (Sender: TObject); DBLookupComboBox28Click (Sender: TObject); Button70Click (Sender: TObject); Edit22KeyUp (Sender: TObject ; var Key: Word;: TShiftState); Edit22Enter (Sender: TObject); Edit22Exit (Sender: TObject); Edit22Change (Sender: TObject); hggfh1Click (Sender: TObject); Button71Click (Sender: TObject); Button72Click (Sender: TObject ); Button73Click (Sender: TObject); Button74Click (Sender: TObject); Button75Click (Sender: TObject); Button76Click (Sender: TObject); Button77Click (Sender: TObject); Button78Click (Sender: TObject); Button79Click (Sender: TObject) ; Button80Click (Sender: TObject); Button82Click (Sender: TObject); DBLookupComboBox29Click (Sender: TObject); Button81Click (Sender: TObject); Button83Click (Sender: TObject); Button85Click (Sender: TObject); Button84Click (Sender: TObject); Button87Click (Sender: TObject); Button86Click (Sender: TObject); DBLookupComboBox30Click (Sender: TObject); Button88Click (Sender: TObject); DBLookupComboBox42Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1;, nomer: integer;
z1, z2, z3, z4, z5, z6, z7: integer;
bool: boolean;: TDateTime;: string;
{$ R *. dfm} TForm1.Button1Click (Sender: TObject);
// ADOStoredProc1.ExecProc;
// ADOTable1.Refresh; parol then begin
// val (edit53.Text, x, z1) ;//(z1 = 0) and (edit53.Text <>'') and
(edit54.Text <>'') (edit55.Text <>'') and (edit56.Text <>'') begin.Parameters.ParamValues ​​['@ nom'] : = dblookupcombobox2.KeyValue;. Parameters.ParamValues ​​['@ nazv']: = Edit54.Text;. Parameters.ParamValues ​​['@ fio']: = Edit55.Text;. Parameters.ParamValues ​​['@ adr']: = Edit56.Text;. ExecProc;. Close;. Open;
else showmessage ('У вас немає прав для зміни ...
