Приложение з

Описание программного модуля системы

1. Скриншот формы Form43 Delphi программного модуля zp43

Описание компонентов на форме

Panel1 – компонент необходим для особенности интерфейса;

Panel2– компонент необходим для особенности интерфейса;

DataSource_g – компонент необходим для связи компонента DBLookupComboBox1 с таблицей god;

DataSource_m – компонент необходим для связи компонента DBLookupComboBox2 с таблицей mes;

Button1 (Ок)– компонент необходим для выполнения запроса и вывода на экран через DBGrid1 результатов запроса;

Button2 (Печать)– компонент необходим для создания отчет через OLE –автоматизацию Excel

Button3 (Закрыть)– компонент необходим для закрытия формы;

DBGrid1 – компонент необходим для просмотра результата запроса;

DataSource43 – компонент необходим для связи компонента Query43 и DBGrid1;

Query43– компонент необходим для выборки, где отображаются поля: Ф.И.О., начислено, налог, к выдаче;

Query43_1 – компонент необходим для подсчета общей суммы, которую необходимо выдать сотрудникам;

DBLookupComboBox1 – компонент необходим для выбора года; DBLookupComboBox2 – компонент необходим для выбора месяца;

Label1 (Кол-во записей равно:) – компонент отображает общее количество записей, которое содержится в компоненте DBGrid1

Label2 (Год)– компонент необходим обозначения назначения компонента DBLookupComboBox1

Label3 – компонент необходим обозначения назначения компонента DBLookupComboBox2

Label4 (К выдаче)– компонент отображает общую сумму к выдаче, которую необходимо выдать сотрудникам в текущем месяце;

2. Коды событий на форме:

   1. Клик по кнопке «ок»

procedure TForm43ras.Button1Click(Sender: TObject);

begin

f:=true;

with Query43 do begin

close;

sql.Clear;

sql.Add('select woker.fam,woker.name,woker.otch,vidacha.nach,vidacha.pnalog,vidacha.kvidache');

sql.Add('from woker, mes,god,vidacha');

sql.add('where (woker.ntab=vidacha.ntab) and (vidacha.nmes=:mes) and (vidacha.nmes=mes.nmes) and (god.ngod=:god) and (mes.ngod=god.ngod) order by woker.fam ');

Parameters.ParamByName('god').Value:=DBLookupComboBox1.KeyValue;

Parameters.ParamByName('mes').Value:=DBLookupComboBox2.KeyValue;

end;

Query43.Open;

with Query43 do begin

FieldByName('fam').DisplayLabel:='Фамилия';

FieldByName('name').DisplayLabel:='Имя';

FieldByName('otch').DisplayLabel:='Отчество';

FieldByName('nach').DisplayLabel:='Начислено';

FieldByName('pnalog').DisplayLabel:='Налог';

FieldByName('kvidache').DisplayLabel:='К выдаче';

end;

with Query43_1 do begin

close;

sql.Clear;

sql.Add('select sum(vidacha.kvidache) as summa');

sql.Add('from vidacha,mes,god');

sql.Add('where (vidacha.nmes=:mes) and (vidacha.nmes=mes.nmes) and (god.ngod=:god) and (mes.ngod=god.ngod)');

Parameters.ParamByName('god').Value:=DBLookupComboBox1.KeyValue;

Parameters.ParamByName('mes').Value:=DBLookupComboBox2.KeyValue;

end;

Query43_1.Open;

Label1.Caption:='Кол-во записей равно: '+inttostr(Query43.RecordCount);

Label4.Caption:='Итого к выдаче: '+Query43_1.FieldByName('summa').AsString;

end;