e; form1.SpisokS.DataSet <> form1.Query1 then.Label1.Caption: = form1.SpisokTfam.value + '' + form1. SpisokTName.value +
'' + form1.SpisokTOtch.value;;; TForm1.DBGrid1KeyUp (Sender: TObject; var Key: Word;: TShiftState); form1.VoinTVoinOb.Value = 'військовозобов'язаних' then form7.CheckBox1.Checked: = true else form7.CheckBox1.Checked: = false; form1.obrazTObrSred.Value = 'Середній' then form5.CheckBox1.Checked: = true else form5.CheckBox1.Checked: = false; form1.obrazTObrSpec.Value = 'Середня спеціальна' then form5. CheckBox2.Checked: = trueform5.CheckBox2.Checked: = false; form1.obrazTObrVis.Value = 'Вища' then form5.CheckBox3.Checked: = true else form5.CheckBox3.Checked: = false; form1.Button6.Visible = true then form1.DBGrid1.ReadOnly: = true; form1.SpisokS.DataSet <> form1.Query1 then.Label1.Caption: = form1.SpisokTfam.value + '' + form1.SpisokTName.value +
'' + form1.SpisokTOtch.value;; TForm1.Button2Click (Sender: TObject); s: integer;. First; not spisokT.Eof TObject); r: integer;: = messagedlg ('Ви впевнені??', MtConfirmation, [mbOk, mbCancel], 0); r = mrOk then begin.Query1.SQL.Clear;. Query1.SQL.Add ('Delete from "deti.db" where (n = '+ inttostr (SemTn.value) +') ');. Query1.ExecSQL;. Query1.SQL.Clear;. Query1.SQL.Add (' Delete from "Voin . db "where (n = '+ inttostr (VoinTn.value) +') ');. Query1.ExecSQL;. Query1.SQL.Clear;. Query1.SQL.Add (' Delete from" Zav.db "where (n = '+ inttostr (ObrTn.value) +') ');. Query1.ExecSQL;. Query1.SQL.Clear;. Query1.SQL.Add (' Delete from "otp.db" where (n = ' + inttostr (form3.OtpTn.value) + ')');. Query1.ExecSQL;. Query1.SQL.Clear;. Query1.SQL.Add ('Delete from "gran.db" where (n =' + inttostr (GranTn.value) + ')');. Query1.ExecSQL;. Query1.SQL.Clear;. Query1.SQL.Add ('Delete from "obraz.db" where (n =' + inttostr (obrazTn.value ) + ')');. Query1.ExecSQL;. Query1.SQL.Clear;. Query1.SQL.Add ('Delete from "t3.db" where (n =' + inttostr (LichTn.value) + ') ');. Query1.ExecSQL;. Query1.SQL.Clear;. Query1.SQL.Add (' Delete from "t4.db" where (n = '+ inttostr (RabTn.value) +') ');. Query1.ExecSQL;. Query1.SQL.Clear;. Query1.SQL.Add ('Delete from "Kval.db" where (n =' + inttostr (kvaliTn.value) + ')');. Query1.ExecSQL; . Query1.SQL.Clear;. Query1.SQL.Add ('Delete from "Lang.db" where (n =' + inttostr (LangTn.value) + ')');. Query1.ExecSQL;. Query1.SQL . Clear;. Query1.SQL.Add ('Delete from "suprug.db" where (n =' + inttostr (SupTn.value) + ')');. Query1.ExecSQL;. Query1.SQL.Clear;. Query1.SQL.Add ('Delete from "t1.db" where (n =' + inttostr (spisokTn.value) + ')');. Query1.ExecSQL; end;. BtnClick (nbrefresh);
except showmessage ('Збережіть зміни!!');
end;; TForm1.Button6Click (Sender: TObject);. Edit;. Showmodal;
except ('Введіть коректні дані!');
end;; TForm1.Button8Click (Sender: TObject);. Edit;. showmodal;
except ('Введіть коректні дані!');
end;; TForm1.Button9Click (Sender: TObject);. showmodal; ('Введіть коректні дані!');;; TForm1.Button10Click (Sender: TObject);. showmodal; ('Введіть коректні дані!! ! ');;; TForm1.Button12Click (Sender: TObject);. VoinT.Edit;. showmodal; (' Введіть коректні дані! ');;; TForm1.Button11Click (Sender: TObject);. showmodal; (' Введіть коректні дані! ');;; TForm1.Button13Click (Sender: TObject);. Query1.SQL.Clear;. Query1.SQL.Add (' Select * ');. Query1.SQL.Add (' from " ; t1.db "');. showmodal;; TForm1.FormShow (Sender: TObject);. ShowModal;; TForm1.Button14Click (Sender: + '' + Form1.SpisokTName.value +
'' + form1.SpisokTOtch.value;; TForm1.N1Click (Sender: TObject);. button6.Click;; TForm1.N3Click (Sender: TObject);;; TForm1.DBGrid1DblClick (Sender: TObject); form1. VoinTVoinOb.Value = 'військовозобов'язаних' then form7.CheckBox1.Checked: = true else form7.CheckBox1.Checked: = false; form1.obrazTObrSred.Value = 'Середній' then form5.CheckBox1.Checked: = true else form5.CheckBox1.Checked : = false; form1.obrazTObrSpec.Value = 'Середня спеціальна' then form5.CheckBox2.Checked: = trueform5.CheckBox2.Checked: = false; form1.obrazTObrVis.Value = 'Вища' then form5.CheckBox 3.Checked: = true else form5.CheckBox3.Checked: = false; form1.Button6.Visible = true then form1.DBGrid1.ReadOnly: = true;;; TForm1.N12Click (Sender: TObject);. ShortCut: = ShortCut ( Word ('S'), [ssCtrl]);. Button4.Click;; TForm1.N20Click (Sender: TObject);. Button4.click;; TForm1.N21Click (Sender: TObject);. Button5.click;; TForm1. N13Click (Sender: TObject);. Button7.click;; TForm1.N14Click (Sender: TObject);. Button8.click;; TForm1.N15Click (Sender: TObject);. Butt...
