/p>
{$ R * .dfm} TFormSTAb.Button1Click (Sender: TObject);
//для сортування вибрано поле зі списку
dm.t_s.IndexFieldNames:=ComboBox1.Text ;;
end.
unit Unit3;// Модуль підключення до бази даних
interface
, Classes, DB, ADODB;
=class (TDataModule): TADOConnection; _s: TDataSource; _s: TADOTable; _z: TDataSource; _z: TADOTable; _v: TDataSource; _v: TADOTable; _zDSDesigner: TAutoIncField; _zDSDesigner2: TWideStringField; _zDSDesigner3: TWideStringField; _zDSDesigner4: TWideStringField; _zDSDesigner5: TWideStringField; _zDSDesigner6: TWideStringField; _vDSDesigner: TAutoIncField; _vDSDesigner2: TWideStringField; _vDSDesigner4: TWideStringField; _vDSDesigner5: TIntegerField; _vDSDesigner6: TWideStringField; _vDSDesigner7: TIntegerField; _vDSDesigner8: TBooleanField; _vDSDesigner9: TDateTimeField; _vDSDesigner10: TIntegerField; _sDSDesigner: TAutoIncField; _sDSDesigner2: TWideStringField; _sDSDesigner3: TWideStringField; _sDSDesigner4: TWideStringField; _sDSDesigner5: TIntegerField; _sDSDesigner6: TWideStringField; _sDSDesigner7: TWideStringField; _sDSDesigner8: TWideStringField; _sDSDesigner9: TWideStringField; _sDSDesigner10: TWideStringField; _sDSDesigner11: TWideStringField; _sDSDesigner12: TBooleanField; _sDSDesigner13: TIntegerField; _sDSDesigner14: TBCDField;
{Private declarations}
{Public declarations};
: Tdm;
{$ R * .dfm}.
//модуль таблиці вакансійUnitVak;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;
=class (TForm): TDBGrid ;: TDBNavigator; Button1Click (Sender: TObject);
{Private declarations}
{Public declarations};
: TFormVak;
Unit3;
{$ R * .dfm} TFormVak.Button1Click (Sender: TObject);
//сортування за професією
dm.t_v.IndexFieldNames:= Професія вакансії raquo ;;
end;
.
//модуль helpUnitVak;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;
=class (TForm): TDBGrid ;: TDBNavigator; Button1Click (Sender: TObject);
{Private declarations}
{Public declarations};
: TFormVak;
Unit3;
{$ R * .dfm}
TFormVak.Button1Click (Sender: TObject) ;. t_v.IndexFieldNames:= Професія вакансії raquo ;;;
end.
Призначення програми
Призначення програми - автоматизація кадрового агентства.
Функції, виконувані програмою - обробка даних роботодавців, здобувачів роботи та вакансій.
Умови виконання програми
Умови, необхідні для виконання програми: ПК не менше 2800 Мгц, 512 Мб ОП, ОС Windows, MS Assess +2003.
Виконання програми
Запуск програми - файл kadri.mdb. Відкривається головна форма.
При необхідності здійснити роботу з даними здобувачів - вибрати пункт меню Анкета. Відкривається форма Анкета (рис. 2.2.6.1)
Малюнок 2.2.6.1 - Форма Анкета
У поля: Прізвище, Ім'я, По батькові, Адреса, професія вводяться текстові дані.
У поля - Вік, Телефон Досвід роботи, Очікув. зарплата - числові.
Для полів Сем. Положення, Пол, Освіта передбачений вибір зі списку.
Якщо потрібно зробити дії з відділом анкетою - нуно використовувати кнопки управління (стрілки вправо і вліво - навігація, знак плюс - додати нову анкету, знак мінус - видалити) ..
Якщо потрібно знайти здобувача, то натиснути кнопку Перегляд і пошук в таблиці. Відкриється відповідна форма (рис. 2.2.6.2)
Малюнок 2.2.6.2 - Форма Здобувачі
Для сортування потрібно вибрати відповідне поле і натиснути кнопку Сортування. На даній формі доступна лише навігація. Для зміни значень полів потрібно використовувати попередню форму.
Пункти меню Роботодавець та Вакансії відкривають форми з даними. На них доступні всі операції.
1. Повідомлення оператору
Ні.
2.4 Опис контрольного прикладу
