;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TAutoIncField;: TIntegerField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TIntegerField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TIntegerField;: TAutoIncField;: TIntegerField; : TStringField;: TStringField;: TStringField;: TFloatField;: TStringField;: TIntegerField;: TAutoIncField;: TIntegerField;: TStringField;: TStringField;: TStringField;: TStringField;: TIntegerField;: TAutoIncField;: TFloatField;: TStringField;: TStringField ;: TStringField;: TStringField;: TBooleanField;: TBooleanField;: TMemoField;: TIntegerField;: TAutoIncField;: TStringField;: TIntegerField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TIntegerField;: TStringField;: TStringField;: TStringField;: TStringField;: TIntegerField;: TAutoIncField;: TIntegerField;: TStringField;: TStringField;: TStringField;: TIntegerField;: TAutoIncField;: TStringField;: TIntegerField;: TStringField;: TDBText; : TDBText;: TDBText;: TDBText;: TDBText;: TIntegerField;: TStringField;: TStringField;: TStringField;: TMemoField;: TIntegerField;: TStringField;: TStringField;: TStringField;: TStringField;: TLabel;: TQuery;: TMenuItem ;: TMenuItem;: TMenuItem;: TMenuItem; N1: TIntegerField; N: TIntegerField; FormCreate (Sender: TObject); Button1Click (Sender: TObject); DBNavigator1Click (Sender: TObject; Button: TNavigateBtn); DBGrid1CellClick (Column: TColumn); DBGrid1KeyUp (Sender: TObject; var Key: Word;: TShiftState); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button6Click (Sender: TObject); Button4Click (Sender: TObject); Button5Click (Sender: TObject); Button7Click (Sender: TObject); Button8Click (Sender: TObject); Button9Click (Sender: TObject); Button10Click (Sender: TObject); Button12Click (Sender: TObject); Button11Click (Sender: TObject); Button13Click (Sender: TObject); FormShow (Sender: TObject); Button14Click (Sender: TObject); N1Click (Sender: TObject); N3Click (Sender: TObject); DBGrid1DblClick (Sender: TObject); N12Click (Sender: TObject); N20Click (Sender: TObject); N21Click ( Sender: TObject); N13Click (Sender: TObject); N14Click (Sender: TObject); N15Click (Sender: TObject); N16Click (Sender: TObject); N17Click (Sender: TObject); N18Click (Sender: TObject); N22Click (Sender : TObject); N23Click (Sender: TObject); PageControl1Changing (Sender: TObject; AllowChange: Boolean); FormActivate (Sender: TObject); N25Click (Sender: TObject); N26Click (Sender: TObject); N19Click (Sender: TObject); DBGrid5KeyDown (Sender: TObject; var Key: Word;: TShiftState);
{Private declarations}
{Public declarations};: TForm1; Unit4, Unit7, Unit6, Unit8, Unit9, Unit10, Unit11;
{$ R *. DFM} TForm1.FormCreate (Sender: TObject);. DataSource: = SpisokS;. Refresh;. Label1.Caption: = form1.SpisokTfam.value + '' + form1.SpisokTName.value +
'' + form1.SpisokTOtch.value;. DBNavigator1.visible: = true;. Active: = true;; TForm1.Button1Click (Sender: TObject);;; TForm1.DBNavigator1Click (Sender: TObject; Button: TNavigateBtn) ; 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.VoinTVoinOb.Value = 'військовозобов'язаних' then form7.CheckBox1.Checked: = true else form7.CheckBox1.Checked: = false; form1.RabTUvol.Value = 'Звільнено' then form3.CheckBox1.Checked: = true else form3.CheckBox1.Checked: = false;. SelectedRows.CurrentRowSelected: = true; form1. SpisokS.DataSet <> form1.Query1 then.Label1.Caption: = form1.SpisokTfam.value + '' + form1.SpisokTName.value +
'' + form1.SpisokTOtch.value; (Button = nbPrior) or (Button = nbFirst) then.Prior; SpisokT.bof then.Controls [Ord (nbNext)]. Enabled: = True;. Controls [Ord ( nbLast)]. Enabled: = True;. Next;; (Button = nbNext) or (Button = nbLast) then.Next; SpisokT.Eof TColumn); 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: = tru...
