Реферат Розробка автоматизованої системи управління кадровим агентством

"justify"> Таблиця 2.2.3.2 - Замовник

№ п/пАтрібутТіп7. Код заказчікасчетчік8. Наіменованіетекстовий9. Вид деятельностітекстовий10. ПІБ руководітелятекстовий11. Адреса організаціітекстовий12. Телефон заказчікатекстовий

Таблиця 2.2.3.3 - Вакансія

№ п/пАтрібутТіп11. Код вакансіісчетчік12. Професія вакансіітекстовий13. Зарплата вакансіітекстовий14. Полтекстовий15. Возрасттекстовий16. Образованіетекстовий17. Досвід робіт вакансіічісловой18. Знання ин мови вакансіілогіческій19. Дата вакансііДата/время20. Код заказчікаЧісловой

Дані вводяться у форми.

. Вихідні дані

. Вихідні дані представлені на формі в тих же таблицях.

Текст программиUnit1;// Головний модуль з основною формою

interface

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Menus, jpeg, ExtCtrls;

=class (TForm): TImage ;: TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem; N4Click (Sender: TObject); N1Click (Sender: TObject); N2Click ( Sender: TObject); N3Click (Sender: TObject); N5Click (Sender: TObject);

{Private declarations}

{Public declarations};

: TForm1;

//підключення модуліdatamod, Rab, Unit3, UnitVak, help_unit;

{$ R * .dfm}

//пункт меню ВиходTForm1.N4Click (Sender: TObject);

Close;// Закрити програму

end;

//Пункт меню АнкетаTForm1.N1Click (Sender: TObject) ;. Show ;;

//Пункт меню РаботодателіTForm1.N2Click (Sender: TObject);

FormRab.Show;// Показати форму Роботодавці

FormRab.DBGrid1.DataSource:=dm.ds_z;// Вказати джерело даних для таблиці

FormRab.DBNavigator1.DataSource:=dm.ds_z;

;

//Пункт меню ВакансііTForm1.N3Click (Sender: TObject);

. Show ;;

//Пункт меню ПомощьTForm1.N5Click (Sender: TObject) ;. show ;;

.

//модуль Анкетаdatamod;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Mask, DBCtrls, ExtCtrls;

=class (TForm): TDBComboBox ;: TLabel ;: TDBEdit ;: TLabel ;: TDBEdit ;: TLabel ;: TDBEdit ;: TLabel ;: TDBEdit ;: TLabel ;: TDBEdit ;: TLabel ;: TDBEdit ;: TLabel ;: TLabel ;: TDBEdit ;: TLabel ;: TDBEdit ;: TLabel ;: TLabel ;: TLabel ;: TDBEdit ;: TLabel ;: TLabel ;: TDBEdit ;: TDBComboBox ;: TDBCheckBox ;: TDBComboBox ;: TDBNavigator;:TButton; Button1Click (Sender: TObject);

{Private declarations}

{Public declarations};

: TForm2; cifri, kod: integer;//змінні для функції val - обмеження введення тільки цифр: string;

//підключення модулейUnit3, STab;

{$ R * .dfm}

//відкрити форму FormSTAb з табличним висновком анкет

procedure TForm2.Button1Click (Sender: TObject);

FormSTAb.Show;

end;

//обмежити введення тільки цифр в поле Вік

procedure TForm2.DBEdit6Change (Sender: TObject);:=DBEdit6.Field.AsString; (stroka, cifri, kod); kod lt; gt; 0 then DBEdit6.Field.Clear;

end;.

unit Rab;// Модуль з формою Роботодавці

interface

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ExtCtrls, DBCtrls, Grids, DBGrids;

=class (TForm): TDBGrid ;: TDBNavigator;

{Private declarations}

{Public declarations};

: TFormRab;

//підключення модуліUnit3, datamod, STab, Unit1;

{$ R * .dfm}

.

//модуль анкет в табличній формі

unit STab;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls;

=class (TForm): TDBGrid ;: TComboBox ;: TLabel ;: TButton ;: TDBNavigator; Button1Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TFormSTAb;

//підключення модуліUnit3; <...