Реферат Автоматизована система обробки інформації

Тема: Статьи

: begin s:= КодСотрудніка raquo ;; end;

: begin s:= Прізвище ; end;

: begin s:= Ім'я raquo ;; end;

: begin s:= батькові raquo ;; end;

: begin s:= СтажВДолжності raquo ;; end;

: begin s:= ОбщійСтаж raquo ;; end;

: begin s:= Прийом ; end;

: begin s:= СрокКонтракта raquo ;; end;

: begin s:= Закінчення ; end;

: begin s:= КолічествоДетей raquo ;; end;

: begin s:= УсловіяСотруднічества ; end;

: begin s:= ОсобиеОтметкі ; end ;; not (dm.ADOTable1Sotr.Locate (s, Edit1.Text, [loCaseInsensitive, loPartialKey])) then.MessageBox ( + Запис із заданими пераметрамі не знайдено! , Результат пошуку raquo ;)

else.DBGrid1.DataSource:=dm.DataSource1Sotr ;; TfMain.SpeedButton2Click (Sender: TObject); x, n, i: integer; .ADOTable1Sotr.first; i:=0 to dm.ADOTable1Sotr.RecordCount - 1 do.ADOTable1Sotr.edit;:=now-dm.ADOTable1Lich.FieldValues[laquo;ДатаРожденияraquo;];

//ShowMessage (IntToStr (round (x/365) - 1));.ADOTable1Sotr.FieldValues[laquo;Возрастraquo;]:=int(x/365);.ADOTable1Sotr.post;.ADOTable1Sotr.next;;;TfMain.N2Click(Sender: TObject) ;. MessageBox ( +

# 13 + Відділ кадрів +

# 13 + # 13 + Інформаційна система +

# 13 + # 13 + Програма розроблена +

# 13 + в якості дипломного проекту. +

# 13 + # 13 + Могилевський державний економічний +

# 13 + професійно-технічний коледж. +

# 13 + 2014 +

# 13 + # 13 + Версія 1.0.9 +

, Про програму );

end;

end.end.

Додаток Б