t)= ) or (Trim (ed2.Text)= ) or (Trim (ed3.Text)= ) then
begin ( ласка, введіть дані );
exit ;;:=qry1.fields [0] .asstring; .Active:=False; .SQL.Clear; .SQL.Add ( UPDATE Заявка SET `Код работодателя`= + getPostId (ed1.text) + laquo ;, `Код вакансіі`= + getDetId (ed2.text) + laquo ;,` Дата подачі заявкі`= + FormatDateTime ( dmyyyy raquo ;, ed4. date) + raquo ;, `Кількість вакансій`= + ed3.text + laquo ;,` Зарплата (в руб) `= + ed3.text + WHERE `№п/п`=raquo;+cur);.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.ExecSQL;.SQL.Clear;_refresh;e:Exception do ;; TForm1.FormActivate (Sender: TObject); _ refresh ;; TForm1.btnF1Click (Sender: TObject) ;. Active:=false; .SQL.Clear; .SQL.Add ( SELECT Заявка.`№п/п `, Работодатель.`Наіменованіе работодателя` AS Роботодавець, Вакансія.Должность AS Вакансія, Заявка.`Колічество вакансій`, Заявка.`Дата подачі заявкі`, Заявка.`Зарплата (в руб)` + FROM Заявка, Вакансія , Роботодавець WHERE Заявка.`Код работодателя`= + getPostId (edF1.Text) + AND Заявка.`Код работодателя`=Работодатель.`Код работодателя` AND Заявка.`Код вакансіі`=Вакансія.`Код вакансіі` ) ;. Active:=True ;; TForm1.btnF2Click (Sender: TObject) ;. Active:=false; .SQL.Clear; .SQL.Add ( SELECT Заявка.`№п/П`, Роботодавець. `Найменування работодателя` AS Роботодавець, Вакансія.Должность AS Вакансія, Заявка.`Колічество вакансій`, Заявка.`Дата подачі заявкі`, Заявка.`Зарплата (в руб)` + FROM Заявка, Вакансія, Роботодавець WHERE Заявка.`Код вакансіі`= + getDetId (edF2.Text) + AND Заявка.`Код работодателя`=Работодатель.`Код работодателя` AND Заявка.`Код вакансіі`=Вакансія.`Код вакансіі` );.Active:=True ;; TForm1.btnF3Click (Sender: TObject) ;. Active:=false; .SQL.Clear; .SQL.Add ( SELECT Заявка.`№п/П`, Работодатель.`Наіменованіе работодателя` AS Роботодавець, Вакансія.Должность AS Вакансія, Заявка.`Колічество вакансій`, Заявка.`Дата подачі заявкі`, Заявка.`Зарплата (в руб) ` + FROM Заявка, Вакансія, Роботодавець WHERE Заявка.`Дата подачі заявкі`= + FormatDateTime ( dmyyyy raquo ;, edF3.date) + AND Заявка.`Код работодателя`=Работодатель.`Код работодателя` AND Заявка.`Код вакансіі`=Вакансія.`Код вакансіі` ) ;. Active:=True ;; TForm1.btn1Click (Sender: TObject); _ refresh; ; TForm1.N2Click (Sender: TObject) ;. Show; .Enabled:=false ;; TForm1.N3Click (Sender: TObject) ;. Show; .Enabled:=false ;; TForm1.btn2Click (Sender: TObject);
begin ( Доступні для реєстрації вакансії );
end; TForm1.Button1Click (Sender: TObject); (ed1.text, ed2.text, ed5.text);
end ;.
Додаток 2
Керівництво користувача
Анотація.
Розроблена АІС «Облік робочих вакансій» призначена для спрощення процесу обліку робочих вакансій, а так само процесу складання звітності за цими даними. Це значно спростить роботу організації. Також реалізована можливість автоматичного формування звіту для виводу на друк за заздалегідь заданим шаблоном. Передбачена і функція редагування, це дозволить адміністратору по необхідності вносити коректувальні дані.
Вимога до програмного забезпечення та обладнання.
Системне програмне забезпечення:
Операційна система Microsoft Windows сімейства NT (XP або вище);
Текстовий процесор Microsoft Word версії пакету Microsoft Office 2003 або вище;
Для нормального функціонування програмного продукту досить персонального комп'ютера з наступними характеристиками:
Процесор: Intel Pentium II або аналог з частотою не менше 1000 Мгц;
Оператоівная пам'ять: не менше 256 Mb RAM;
Жорсткий диск: 8 Gb;
Пристрої введення/виводу: миша, клавіатура/монітор, принтер;
Установка і запуск.
Програма не вимагає установки і запускається з .exe файлу при наявності бази даних db.mdb в папці з самою програмою. Параметри підключення до БД вказувати не потрібно.
