Контроль конструкторско-технологической подготовки производства

  FrmSerch.CBSerch.Items.Add('Шифр');

  FrmSerch.CBSerch.Items.Add('Наименование');

  // Очистити інформацію про попередній пошук

  FrmSerch.CBSerch.Text := '';

  FrmSerch.SerchEdt.Clear;

  // Поиск в списке чертежей

  NForm := 1;

  FrmSerch.ShowModal;

end;

 

// Видалити запис

procedure TCheckKTP.PMDeleteClick(Sender: TObject);

begin

  with Izdelie do

    // Перевірити готовність таблиці і виконати дію

    if State = dsBrowse then Delete;

end;

 

// Створити новий запис

procedure TCheckKTP.PMNewClick(Sender: TObject);

begin

  with Izdelie do

    if State = dsBrowse then Insert;

end;

 

// Прийняти зміни

procedure TCheckKTP.PMApplyClick(Sender: TObject);

begin

  with Izdelie do

    if State in [dsInsert, dsEdit] then Post;

end;

 

// Редагування списку співробітників

procedure TCheckKTP.MTEmplClick(Sender: TObject);

begin

  TablesOff;

  FrmEmpl.ShowModal;

  TablesOn;

end;

 

// Перенаправлення підказки в  програмі

// в інший обробник

procedure TCheckKTP.FormShow(Sender: TObject);

begin

  Application.OnHint := Hint;

end;

 

// Підказки внизу екрану

procedure TCheckKTP.Hint(Sender: TObject);

begin

  KTP_StBar.Panels[0].Text := Application.Hint;

end;

end.

 

Розглянемо вікно “Список  ТП”, що зображено на рисунку 3.3.

Рисунок 3.3 – Вікно “Список ТП”

 

При розробці вікна програми були змінені властивості деяких компонентів, їх перелік можна знайти в таблиці 3.2.

 

Таблиця 3.2 – Властивості  компонентів

Назва компоненту	Властивість	Значення
DBG_TP	Align	alClient
	DataSourse	DataSource1
	PopupMenu	PM_TP

 

На рисунку 3.4 зображено  вікно Object TreeView з переліком усіх компонентів, що розташовані на формі.

Рисунок 3.4 – Вікно Object TreeView

 

Код модуля TP головного  вікна програми наведений в листингу 3.2.

 

Листинг 3.2 – Код модуля TP

 

unit TP;

interface

uses

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

  Dialogs, Grids, DBGrids, DB, DBTables, Menus;

type

  TTPFrm = class(TForm)

    DBG_TP: TDBGrid;

    DataSource1: TDataSource;

    PM_TP: TPopupMenu;

    NNew: TMenuItem;

    NApply: TMenuItem;

    NDelete: TMenuItem;

    N1: TMenuItem;

    NSerch: TMenuItem;

    procedure NNewClick(Sender: TObject);

    procedure NApplyClick(Sender: TObject);

    procedure NDeleteClick(Sender: TObject);

    procedure NSerchClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  TPFrm: TTPFrm;

implementation

uses MainKTP, Serch;

{$R *.dfm}

 

// Новий запис

procedure TTPFrm.NNewClick(Sender: TObject);

begin

  with CheckKTP.TblTP do

    if State = dsBrowse then Insert;

end;

 

// Прийняти зміни

procedure TTPFrm.NApplyClick(Sender: TObject);

begin

  with CheckKTP.TblTP do

    if State in [dsInsert, dsEdit] then Post;

end;

 

// Видалити запис

procedure TTPFrm.NDeleteClick(Sender: TObject);

begin

  with CheckKTP.TblTP do

    if State = dsBrowse then Delete;

end;

 

// Пошук в списку ТП

procedure TTPFrm.NSerchClick(Sender: TObject);

begin

  FrmSerch.CBSerch.Items.Clear;

  FrmSerch.CBSerch.Items.Add('Шифр ТП');

  FrmSerch.CBSerch.Items.Add('Наименование');

  FrmSerch.CBSerch.Text := '';

  FrmSerch.SerchEdt.Clear;

  NForm := 2;

  FrmSerch.ShowModal;

end;

end.

 

Розглянемо вікно “Добавление разработчика”, що зображено на рисунку 3.5.

Рисунок 3.5 – Вікно  “Добавление разработчика”

 

При розробці вікна програми були змінені властивості деяких компонентів, їх перелік можна знайти в таблиці 3.3.

 

Таблиця 3.3 – Властивості  компонентів

Назва компоненту	Властивість	Значення
DBG_TP	Align	alClient
	DataSourse	DataSource1
	PopupMenu	PM_TP

 

На рисунку 3.6 зображено  вікно Object TreeView з переліком усіх компонентів, що розташовані на формі.

Рисунок 3.6 – Вікно Object TreeView

 

Код модуля Empl головного  вікна програми наведений в листингу 3.3.

 

Листинг 3.3 – Код модуля Empl

 

unit Empl;

interface

uses

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

  Dialogs, Grids, DBGrids, DB, DBTables, Menus;

type

  TFrmEmpl = class(TForm)

    DSEmplEdt: TDataSource;

    DBGEmplEdt: TDBGrid;

    PMEmpl: TPopupMenu;

    EMNew: TMenuItem;

    EMApply: TMenuItem;

    EMDele: TMenuItem;

    N4: TMenuItem;

    EMSerch: TMenuItem;

    procedure EMNewClick(Sender: TObject);

    procedure EMApplyClick(Sender: TObject);

    procedure EMDeleClick(Sender: TObject);

    procedure EMSerchClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  FrmEmpl: TFrmEmpl;

implementation

uses MainKTP, Serch;

{$R *.dfm}

 

// Новий запис

procedure TFrmEmpl.EMNewClick(Sender: TObject);

begin

  with CheckKTP.TblEmpl do

    if State = dsBrowse then Insert;

end;

 

// Прийняти зміни

procedure TFrmEmpl.EMApplyClick(Sender: TObject);

begin

  with CheckKTP.TblEmpl do

    if State in [dsInsert, dsEdit] then Post;

end;

 

// Видалити запис

procedure TFrmEmpl.EMDeleClick(Sender: TObject);

begin

  with CheckKTP.TblEmpl do

    if State = dsBrowse then Delete;

end;

 

// Пошук в списку співробітників

procedure TFrmEmpl.EMSerchClick(Sender: TObject);

begin

  FrmSerch.CBSerch.Items.Clear;

  FrmSerch.CBSerch.Items.Add('ФИО');

  FrmSerch.CBSerch.Text := '';

  FrmSerch.SerchEdt.Clear;

  NForm := 3;

  FrmSerch.ShowModal;

end;

end.

 

Розглянемо вікно “Редактирование списков”, що зображено на рисунку 3.5.

Рисунок 3.5 – Вікно  “Редактирование списков”

 

При розробці вікна програми були змінені властивості деяких компонентів, їх перелік можна знайти в таблиці 3.3.

 

 

Таблиця 3.3 – Властивості  компонентів

Назва компоненту	Властивість	Значення
DBGrid1	DataSourse	DataSource2
DBGrid2	DataSource	DataSource1
DBGrid3	DataSource	DataSource3
DBGrid4	DataSource	DataSource4
DBNavigator1	DataSource	DataSource1
	nbInsert	True
	nbDelete	True
	nbPost	True
DBNavigator2	DataSource	DataSource2
	nbInsert	True
	nbDelete	True
	nbPost	True
DBNavigator3	DataSource	DataSource3
	nbInsert	True
	nbDelete	True
	nbPost	True
DBNavigator4	DataSource	DataSource4
	nbInsert	True
	nbDelete	True
	nbPost	True

 

На рисунку 3.6 зображено вікно Object TreeView з переліком усіх компонентів, що розташовані на формі.

Рисунок 3.6 – Вікно Object TreeView

Код модуля AllEdit головного  вікна програми наведений в листингу 3.3.

 

Листинг 3.3 – Код модуля AllEdit

 

unit AllEdit;

interface

uses

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

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

type

  TFrmAllEdit = class(TForm)

    DataSource2: TDataSource;

    DBGrid2: TDBGrid;

    Label1: TLabel;

    DBGrid1: TDBGrid;

    DataSource1: TDataSource;

    Label2: TLabel;

    Label3: TLabel;

    DataSource3: TDataSource;

    DBGrid3: TDBGrid;

    Label4: TLabel;

    DBGrid4: TDBGrid;

    DataSource4: TDataSource;

    DBNavigator1: TDBNavigator;

    DBNavigator2: TDBNavigator;

    DBNavigator3: TDBNavigator;

    DBNavigator4: TDBNavigator;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  FrmAllEdit: TFrmAllEdit;

implementation

uses MainKTP;

{$R *.dfm}

end.

 

Розглянемо вікно “Поиск”, що зображено на рисунку 3.7.

Рисунок 3.7 – Вікно  “Поиск”

 

На рисунку 3.8 зображено  вікно Object TreeView з переліком усіх компонентів, що розташовані на формі.

Рисунок 3.8 – Вікно Object TreeView

 

Код модуля Serch головного  вікна програми наведений в листингу 3.3.

 

Листинг 3.4 – Код модуля Serch

 

unit Serch;

interface

uses

  SysUtils, Windows, Messages, Classes, Graphics, Controls,

  StdCtrls, ExtCtrls, Forms, Dialogs, DB;

type

  TFrmSerch = class(TForm)

    Button1: TButton;

    CBSerch: TComboBox;

    SerchEdt: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Image1: TImage;

    CBFull: TCheckBox;

    procedure Button1Click(Sender: TObject);

  end;

var

  FrmSerch: TFrmSerch;

  NForm: ShortInt;      // Індекатор списків для пошуку

implementation

uses MainKTP, TP, Empl;

{$R *.DFM}

 

// Пошук

procedure TFrmSerch.Button1Click(Sender: TObject);

var

  KeyFild: String;          // В якій таблиці шукати

  Options: TLocateOptions;  // Опції пошуку

begin

  // Якщо потрібно шукати запис цілком

  if CBFull.Checked then Options := []

  // Інаше встановити опції для часткового пошуку

  else Options := [loCaseInsensitive, loPartialKey];

  // Визначити список для пошуку

  case NForm of

  // Креслення

  1:  begin

        // Визначити колонку таблиці для пошуку

        if CBSerch.ItemIndex = 0 then KeyFild := 'Shifr'

        else KeyFild := 'Name';

        // Якщо нічого не знайдено вивести повідомлення

        if not CheckKTP.Izdelie.Locate(KeyFild, SerchEdt.Text,

          Options) then

        ShowMessage('Строка не найдена');

      end;

  // ТП

  2: begin

        if CBSerch.ItemIndex = 0 then KeyFild := 'TP'

        else KeyFild := 'Name';

        if not CheckKTP.TblTP.Locate(KeyFild, SerchEdt.Text,

          Options) then

        ShowMessage('Строка не найдена');

      end;

  // Співробітники

  3: begin

        if CBSerch.ItemIndex = 0 then KeyFild := 'FIO';

        if not CheckKTP.TblEmpl.Locate(KeyFild, SerchEdt.Text,

          Options) then

        ShowMessage('Строка не найдена');

      end;

  end;

end;end.

 

Розглянемо вікно “О программе”, що зображено на рисунку 3.9.

Рисунок 3.9 – Вікно “О программе”

4 Інструкція  по використанню

 

При запуску програми відкриється головне вікно програми (рисунок 4.1), в якому можна переглянути  список креслень та технологічних процесів (ТП), що відповідають кресленням. Перейшовши на вкладку “Разработчик” можна переглянути інформацію про розробника певного креслення чи ТП.

Рисунок 4.1 — Головне  вікно програми підчас роботи

При викликі контекстного меню можна додати чи видалити видраний запис, або прийняти зроблені в записі зміни (рисунок 4.2). Для полегшення роботи в програмі при спробі редагування значень певних полів відкриватимуться випадаючі списки з яких можна вибрати потрібні значення.

Рисунок 4.2 — Головне  вікно програми підчас роботи

 

При необхідності редагування  списків ТП, співробітників чи інших  даних в головному меню програми потрібно вибрати відповідний пункт (рисунок 4.3).

 

Рисунок 4.3 — Головне вікно програми підчас роботи