Отдел кадров

text]) else begin showMessage('Поле "Отчество" не заполнено!'); result := ''; exit; end; // if dtpBirthdate.Checked then result := Format('%s ''%s'',', [result, DateToStr(dtpBirthdate.Date, MyFormatSettings)]) else begin showMessage('Поле "Дата рождения" не заполнено!'); result := ''; exit; end; // if cbMale.Checked then result := Format('%s 1,', [result]) else result := Format('%s 0,', [result]); // if eAddress.text <> '' then result := Format('%s ''%s'',', [result, eAddress.text]) else begin showMessage('Поле "Адрес" не заполнено!'); result := ''; exit; end; // if eEmail.text <> '' then result := Format('%s ''%s'',', [result, eEmail.text]) else begin showMessage('Поле "E-mail" не заполнено!'); result := ''; exit; end; // if sePhone.Value > 0 then result := Format('%s %d,', [result, sePhone.value]) else begin showMessage('Поле "Внутренний телефон сотрудника" не заполнено!'); result := ''; exit; end; // if dtpEnrollmentDate.Checked then result := Format('%s ''%s'',', [result, DateToStr(dtpEnrollmentDate.Date, MyFormatSettings)]) else begin showMessage('Поле "Дата приема на работу" не заполнено!'); result := ''; exit; end; // if cbPension.Checked then result := Format('%s 1,', [result]) else result := Format('%s 0,', [result]); // if eFStatus.text <> '' then result := Format('%s ''%s'',', [result, eFStatus.text]) else beginshowMessage('Поле "Семейный статус" не заполнено!'); result := ''; exit; end; // if seChildren.Value > 0 then result := Format('%s %d,', [result, seChildren.value]) else begin showMessage('Поле "Количество детей сотрудника" не заполнено!'); result := ''; exit; end; // if cbInvalid.Checked then result := Format('%s 1', [result]) else result := Format('%s 0', [result]); // result := result + ', 1, 1)';end;function TFormMain.buildSelect() : string;begin result := 'SELECT * FROM employee WHERE 1 = 1 '; if eLastname.text <> '' then result := Format('%s AND lastname LIKE ''%s%%'' ', [result, eLastname.text]); if eFirstname.text <> '' then result := Format('%s AND firstname LIKE ''%s%%'' ', [result, eFirstname.text]); if eThirdname.text <> '' then result := Format('%s AND thirdname LIKE ''%s%%'' ', [result, eThirdname.text]); if dtpBirthdate.Checked then result := Format('%s AND birthdate = ''%s'' ', [result, DateToStr(dtpBirthdate.Date, MyFormatSettings)]); if cbMale.Checked then result := Format('%s AND is_male = 1 ', [result]); if eAddress.text <> '' then result := Format('%s AND address LIKE ''%%%s%%'' ', [result, eAddress.text]); if eEmail.text <> '' then result := Format('%s AND email LIKE ''%s%%'' ', [result, eEmail.text]); if sePhone.Value > 0 then result := Format('%s AND internal_phone = %d ', [result, sePhone.value]); if dtpEnrollmentDate.Checked then result := Format('%s AND enrollment_date = ''%s'' ', [result, DateToStr(dtpEnrollmentDate.Date, MyFormatSettings)]); if cbPension.Checked then result := Format('%s AND is_on_pension = 1 ', [result]); if eFStatus.text <> '' then result := Format('%s AND family_status LIKE ''%%%s%%'' ', [result, eFStatus.text]); if seChildren.Value > 0 then result := Format('%s AND children = %d ', [result, seChildren.value]); if cbInvalid.Checked then result := Format('%s AND is_invalid = 1 ', [result]); result := ' ORDER BY id';end;end.