Ортиков Камронбек 3-прак. Практическая работа 3 по дисциплине Введение в программный инжиниринг Ортиков Камронбек Мамарасул углы

Название	Практическая работа 3 по дисциплине Введение в программный инжиниринг Ортиков Камронбек Мамарасул углы
Дата	20.06.2022
Размер	41.98 Kb.
Формат файла
Имя файла	Ортиков Камронбек 3-прак.docx
Тип	Практическая работа #605013
страница	6 из 6

1 2 3 4 5 6

Таблица 2.2.3.2 - Заказчик


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

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


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

Данные вводятся в формы.

13. Выходные данные

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

Текст программы

unit Unit1; // главный модуль с основной формой

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

Image1: TImage;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

procedure N4Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

//подключенные модули

uses datamod, Rab, Unit3, UnitVak, help_unit;

{$R *.dfm}

// пункт меню Выход

procedure TForm1.N4Click(Sender: TObject);

begin

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

end;

// Пункт меню Анкета

procedure TForm1.N1Click(Sender: TObject);

begin

Form2.Show;

end;

// Пункт меню Работодатели

procedure TForm1.N2Click(Sender: TObject);

begin

FormRab.Show; // показать форму Работодатели

FormRab.DBGrid1.DataSource:=dm.ds_z; // указать источник данных для таблицы

FormRab.DBNavigator1.DataSource:=dm.ds_z;

end;

// Пункт меню Вакансии

procedure TForm1.N3Click(Sender: TObject);

begin

FormVak.Show;

end;

// Пункт меню Помощь

procedure TForm1.N5Click(Sender: TObject);

begin

FormHelp.show;

end;

end.

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

unit datamod;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls;

type

TForm2 = class(TForm)

DBComboBox1: TDBComboBox;

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

DBEdit2: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

Label4: TLabel;

DBEdit4: TDBEdit;

Label5: TLabel;

DBEdit5: TDBEdit;

Label6: TLabel;

DBEdit6: TDBEdit;

Label7: TLabel;

Label8: TLabel;

DBEdit8: TDBEdit;

Label9: TLabel;

DBEdit9: TDBEdit;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

DBEdit12: TDBEdit;

Label13: TLabel;

Label14: TLabel;

DBEdit13: TDBEdit;

DBComboBox2: TDBComboBox;

DBCheckBox1: TDBCheckBox;

DBComboBox3: TDBComboBox;

DBNavigator1: TDBNavigator;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

var cifri,kod:integer;// переменные для функции val - ограничение ввода только цифр

stroka:string;

implementation

// подключение модулей

uses Unit3, STab;

{$R *.dfm}

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

procedure TForm2.Button1Click(Sender: TObject);

begin

FormSTAb.Show;

end;

// ограничить ввод только цифр в поле Возраст

procedure TForm2.DBEdit6Change(Sender: TObject);

begin

stroka:=DBEdit6.Field.AsString;

Val(stroka,cifri,kod);

if kod <> 0 then DBEdit6.Field.Clear;

end;

end.

unit Rab; // модуль с формой Работодатели

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids;

type

TFormRab = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormRab: TFormRab;

implementation

// подключенные модули

uses Unit3, datamod, STab, Unit1;

{$R *.dfm}

end.

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

unit STab;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls;

type

TFormSTAb = class(TForm)

DBGrid1: TDBGrid;

ComboBox1: TComboBox;

Label1: TLabel;

Button1: TButton;

DBNavigator1: TDBNavigator;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormSTAb: TFormSTAb;

Implementation

// подключенные модули

uses Unit3;

{$R *.dfm}

procedure TFormSTAb.Button1Click(Sender: TObject);

begin

// для сортировки выбрано поле из списка

dm.t_s.IndexFieldNames:=ComboBox1.Text;

end;

end.

unit Unit3; // модуль подключения к базе данных

interface

uses

SysUtils, Classes, DB, ADODB;

type

Tdm = class(TDataModule)

ADOConnection1: TADOConnection;

ds_s: TDataSource;

t_s: TADOTable;

ds_z: TDataSource;

t_z: TADOTable;

ds_v: TDataSource;

t_v: TADOTable;

t_zDSDesigner: TAutoIncField;

t_zDSDesigner2: TWideStringField;

t_zDSDesigner3: TWideStringField;

t_zDSDesigner4: TWideStringField;

t_zDSDesigner5: TWideStringField;

t_zDSDesigner6: TWideStringField;

t_vDSDesigner: TAutoIncField;

t_vDSDesigner2: TWideStringField;

t_vDSDesigner4: TWideStringField;

t_vDSDesigner5: TIntegerField;

t_vDSDesigner6: TWideStringField;

t_vDSDesigner7: TIntegerField;

t_vDSDesigner8: TBooleanField;

t_vDSDesigner9: TDateTimeField;

t_vDSDesigner10: TIntegerField;

t_sDSDesigner: TAutoIncField;

t_sDSDesigner2: TWideStringField;

t_sDSDesigner3: TWideStringField;

t_sDSDesigner4: TWideStringField;

t_sDSDesigner5: TIntegerField;

t_sDSDesigner6: TWideStringField;

t_sDSDesigner7: TWideStringField;

t_sDSDesigner8: TWideStringField;

t_sDSDesigner9: TWideStringField;

t_sDSDesigner10: TWideStringField;

t_sDSDesigner11: TWideStringField;

t_sDSDesigner12: TBooleanField;

t_sDSDesigner13: TIntegerField;

t_sDSDesigner14: TBCDField;

private

{ Private declarations }

public

{ Public declarations }

end;

var

dm: Tdm;

implementation

{$R *.dfm}

end.

// модуль таблицы вакансий

unit UnitVak;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;

type

TFormVak = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormVak: TFormVak;

implementation

uses Unit3;

{$R *.dfm}

procedure TFormVak.Button1Click(Sender: TObject);

begin

// сортировка по профессии

dm.t_v.IndexFieldNames:='Профессия вакансии';

end;

end.

// модуль help

unit UnitVak;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;

type

TFormVak = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormVak: TFormVak;

implementation

uses Unit3;

{$R *.dfm}

procedure TFormVak.Button1Click(Sender: TObject);

begin

dm.t_v.IndexFieldNames:='Профессия вакансии';

end;

end.

1 2 3 4 5 6