L. Text: = 'insert into polzovateli (FIO, Dolgnost) values ​​(' + # 39 + Edit1. Text + # 39 + ',' + # 39 + Edit2. Text + # 39 + ');';. ADOQuery1. ExecSQL;. ADOQuery1.SQL. Clear;. ADOQuery1.SQL. Text: = ('select * from polzovateli');. ADOQuery1. Active: = true;. ADOQuery1. Active: = true;. DBGrid1. DataSource: = form8. DataSource1;. Hide;. Show;;
// вирівнювання форми по центру екрана
procedure TForm9. FormShow (Sender: TObject);: = (screen. Width-Width) div 2;: = (Screen. Height-Height) div 2;
end;.
