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

begin

Close;

end;

procedure TfMain.DBGrid1TitleClick(Column: TColumn);

begin

dm.ADOTable1Sotr.Sort:=Column.FieldName;

end;

procedure TfMain.DBGrid2TitleClick(Column: TColumn);

begin

dm.ADOTable1Obr.Sort:=Column.FieldName;

end;

procedure TfMain.DBGrid3TitleClick(Column: TColumn);

begin

dm.ADOTable1Lich.Sort:=Column.FieldName;

end;

procedure TfMain.DBGrid4TitleClick(Column: TColumn);

begin

dm.ADOTable1Deti.Sort:=Column.FieldName;

end;

procedure TfMain.DBGrid6TitleClick(Column: TColumn);

begin

dm.ADOTable1podr.Sort:=Column.FieldName;

end;

procedure TfMain.DBGrid7TitleClick(Column: TColumn);

begin

dm.ADOTable1ur.Sort:=Column.FieldName;

end;

procedure TfMain.DBGrid5TitleClick(Column: TColumn);

begin

dm.ADOTable1Dolj.Sort:=Column.FieldName;

end;

procedure TfMain.SpeedButton1Click(Sender: TObject);

begin

fAddDolj.ShowModal;

end;

procedure TfMain.BitBtn7Click(Sender: TObject);

begin

fAddSotr.Show;

end;

procedure TfMain.BitBtn2Click(Sender: TObject);

begin

dm.ADOTable1Sotr.Filtered:=False;

end;

procedure TfMain.BitBtn1Click(Sender: TObject);

var s:string;

begin

if not (radiogroup1.ItemIndex in [0..14]) then ShowMessage('Отметьте поле выбора')

else

if (edit1.Text='') and (radiogroup1.itemindex in [0..14]) then

begin

ShowMessage('Не введен критерий выбора');

edit1.setfocus;

exit;

end

else begin

dm.ADOTable1Sotr.Filtered:=True;

Case radiogroup1.ItemIndex of

0: begin s:='КодСотрудника'+'='+edit1.Text;end;

1: begin s:='Фамилия like '+''''+ edit1.Text+'*''' ;end;

2: begin s:='Имя like '+''''+ edit1.Text+'*''';end;

3: begin s:='Отчество like '+''''+ edit1.Text+'*''';end;

4: begin s:='СтажВДолжности'+'='+edit1.Text;end;

5: begin s:='ОбщийСтаж'+'='+edit1.Text;end;

6: begin s:='Прием like '+'''*'+ edit1.Text+'*''' ;end;

7: begin s:='СрокКонтракта'+'='+edit1.Text;end;

8: begin s:='Окончание like '+'''*'+ edit1.Text+'*''' ;end;

9: begin s:='КоличествоДетей'+'='+edit1.Text;end;

10: begin s:='КоличествоДетей'+'>='+edit1.Text;end;

11: begin s:='УсловияСотрудничества like '+'''*'+ edit1.Text+'*''' ;end;

12: begin s:='ОсобыеОтметки like '+'''*'+ edit1.Text+'*''' ;end;

13: begin s:='Возраст'+'='+edit1.Text;end;

14: begin s:='Возраст'+'>='+edit1.Text;end;

end;

dm.ADOTable1Sotr.Filter:=s;

end ;//else

end;

procedure TfMain.N3Click(Sender: TObject);

begin

Close;

end;

procedure TfMain.N5Click(Sender: TObject);

begin

FoSpisSotrAdrTel.QuickRep1.Preview;

end;

procedure TfMain.N4Click(Sender: TObject);

begin

oSpisSotrLichKart.QuickRep1.Preview;

end;

procedure TfMain.N6Click(Sender: TObject);

begin

oSpisSotrDolj.QuickRep1.Preview;

end;

procedure TfMain.N9Click(Sender: TObject);

begin

oSpisSotrDeti.QuickRep1.Preview;

end;

procedure TfMain.BitBtn3Click(Sender: TObject);

var s:string;

begin

Case radiogroup1.ItemIndex of

0: begin s:='КодСотрудника';end;

1: begin s:='Фамилия' ;end;

2: begin s:='Имя';end;

3: begin s:='Отчество';end;

4: begin s:='СтажВДолжности';end;

5: begin s:='ОбщийСтаж';end;

6: begin s:='Прием' ;end;

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

8: begin s:='Окончание' ;end;

9: begin s:='КоличествоДетей';end;

10: begin s:='КоличествоДетей';end;

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

12: begin s:='ОсобыеОтметки' ;end;

end;

If not (dm.ADOTable1Sotr.Locate(s,Edit1.Text,[loCaseInsensitive,loPartialKey])) then

Application.MessageBox(''+ 'Запись с заданными пераметрами не найдена !','Результат поиска')

else

Fmain.DBGrid1.DataSource:=dm.DataSource1Sotr;

end;

procedure TfMain.SpeedButton2Click(Sender: TObject);

var x,n,i:integer;

begin

dm.ADOTable1Sotr.first;

for i:=0 to dm.ADOTable1Sotr.RecordCount-1 do

begin

dm.ADOTable1Sotr.edit;

x:=now-dm.ADOTable1Lich.FieldValues['ДатаРождения'];

// ShowMessage(IntToStr(round(x/365)-1));

dm.ADOTable1Sotr.FieldValues['Возраст']:=int(x/365);

dm.ADOTable1Sotr.post;

dm.ADOTable1Sotr.next;

end;

end;

procedure TfMain.N2Click(Sender: TObject);

begin

Application.MessageBox(''+

#13+' "Отдел кадров"'+

#13+#13+' Информационная система'+

#13+#13+' Программа разработана'+

#13+' в качестве дипломного проекта.'+

#13+#13+'Могилевский государственный экономический '+

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

#13+' 2014 г.'+

#13+#13+' Версия 1.0.9'+

' ','О программе');

end;

end.end.

Приложение Б

Примеры отчетов

Рисунок Б.1 - Отчет "Список работников"

Рисунок Б.2 - Отчет "Список работников по должностям"



Рисунок Б.3- Отчет "Личная карточка"

Приложение В

Формы

Рисунок В.1 - Главная форма

Рисунок В.2 -Форма "Главная"



Рисунок В.3 -Форма "Добавление нового работника"

Рисунок В.4 -Форма "Добавление должности"

Рисунок В.5 -Форма "Работники на должностях"

Размещено на Allbest.ru