Реферат АРМ заступник директора з наукової роботи

6, Unit7,, Unit9;

{$ R *. dfm} TForm1.btn1Click (Sender: TObject); (edt1.text = 'semenov') AND (edt2.Text = '123 ') then begin.Show;. Hide ;;; TForm1.btn2Click (Sender: TObject);. Terminate;;.

unit Unit2;

var: TForm2; Unit1, Unit3, Unit5, Unit9, Unit10, Unit11, Unit12, Unit4, Unit6,, Unit8;

{$ R *. dfm} TForm2.btn1Click (Sender: TObject);. show;. hide;; TForm2.Button1Click (Sender: TObject);. Show;. Hide;; TForm2.btn3Click (Sender: TObject);. Hide;. Show;; TForm2.btn2Click (Sender: TObject);. show;; TForm2.Button2Click (Sender: TObject);. Terminate;;.

unit Unit3;

var: TForm3; unit4, Unit2, Unit1, Unit10, Unit11, Unit12, Unit5, Unit6,, Unit8, Unit9;

{$ R *. dfm} TForm3.dbgrd1CellClick (Column: TColumn);. Text: = dbgrd1.Columns [10]. Field.AsString;; TForm3.btn1Click (Sender: TObject);. DataSource.DataSet.Last;. DataSource.DataSet.Insert;; TForm3.btn2Click (Sender: TObject);. DataSource.DataSet.Post;; TForm3.btn3Click (Sender: TObject);. DataSource.DataSet.Delete;; TForm3. btn4Click (Sender: TObject);. Hide;. show;;.

unit Unit4;

var: TDataModule4; Unit1, Unit10, Unit11, Unit12, Unit2, Unit3, Unit5, Unit6, Unit7,, Unit9;

{$ R *. dfm}.

unit Unit5;

var: TForm5; Unit6, Unit2, Unit10, Unit11, Unit12, Unit1, Unit3, Unit4, Unit7,, Unit9;

{$ R *. dfm} TForm5.btn5Click (Sender: TObject);. showmodal;; TForm5.btn6Click (Sender: TObject);. Hide;. show;; TForm5.btn3Click (Sender: TObject);. showmodal;; TForm5.btn4Click (Sender: TObject);. showmodal;; TForm5.btn2Click (Sender: TObject);. showmodal;; TForm5.Button1Click (Sender: TObject);. Showmodal;;.

unit Unit6;

var: TForm6; Unit4, Unit7, Unit8, Unit5, Unit1, Unit10, Unit11, Unit12,, Unit3, Unit9;

{$ R *. dfm} TForm6.btn1Click (Sender: TObject);. showmodal;; TForm6.btn4Click (Sender: TObject);. close;;.

unit Unit7;

var: TForm7; unit4, Unit5, Unit1, Unit10, Unit11, Unit12, Unit2, Unit3,, Unit8, Unit9, Unit13;

{$ R *. dfm} TForm7.Button1Click (Sender: TObject),. close;; TForm7.Button2Click (Sender: TObject),. showmodal;,.

unit Unit8;

var: TForm8; Unit6;

{$ R *. dfm} TForm8.btn1Click (Sender: TObject);. DBGrid1.DataSource.DataSet.Insert;

Form6.DBGrid1.DataSource.DataSet.FieldByName ('Ôàìèëèÿ'). AsString : = Edit1.Text;

Form6.DBGrid1.DataSource.DataSet.FieldByName ('Èìÿ'). AsString