Автоматизация деятельности работника

Характеристика внутренней информации

Внутренними информационными объектами фирмы являются  распорядительные документы, которые издает руководство фирмы: приказы, распоряжения, указания. Основное назначение этих документов – регулирование

удобного доступа ко всем основным компонентам программы. Через главную форму можно получить доступ к следующим формам: «О продукции», «Оказываемые услуги», «Справочники»,   «Справка».

 

Рисунохк 2.1 – Внешний вид главной кнопочной формы

 

«Справочники» позволяют получить доступ к таблицам, содержащих информацию об окнах, дополнительных материалах, сотрудниках, клиентах, оформленных договорах.

Фрагмент программного кода данного модуля.

unit MainForm;

 

interface

 

uses

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

  Dialogs, Buttons, StdCtrls, ExtCtrls, ComCtrls, OleCtrls, SHDocVw;

 

type     

  TForm1 = class(TForm)

    Image4: TImage;

    SpeedButton4: TSpeedButton;

    SpeedButton1: TSpeedButton;

    SpeedButton8: TSpeedButton;

    SpeedButton2: TSpeedButton;

    SpeedButton3: TSpeedButton;

    Timer1: TTimer;

    StatusBar1: TStatusBar;

    SpeedButton6: TSpeedButton;

    procedure SpeedButton6Click(Sender: TObject);

    procedure SpeedButton5Click(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton3Click(Sender: TObject);

    procedure SpeedButton7Click(Sender: TObject);

    procedure SpeedButton8Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure SpeedButton4Click(Sender: TObject);

 

   //procedure FormShow(Sender: TObject);

 

  private

   { Private declarations }

   

  public

   

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

uses Uslugi,  Spravka, Spravochniki, raschetdver, Work, OProd, About,

  Otkos, Zakaz_otkosov, Sotrudniki, Klienty;

 

{$R *.dfm}

procedure TForm1.SpeedButton6Click(Sender: TObject);

begin

AboutBox.showModal;

end;

 

procedure TForm1.SpeedButton5Click(Sender: TObject);

begin

Form6.show;

end;

 

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

Form2.show;

end;

procedure TForm1.SpeedButton3Click(Sender: TObject);

var i: LongInt;

begin

  if Form3.Table1.RecordCount <> 0 then

  begin

    Form3.Table1.Last;

    for i := 1 to Form3.Table1.RecordCount do

    Form3.Table1.Delete;

  end;

  if Form3.Table2.RecordCount <> 0 then

  begin

    Form3.Table2.Last;

    for i := 1 to Form3.Table2.RecordCount do

    Form3.Table2.Delete;

  end;

  if Form4.Table1.RecordCount <> 0 then

  begin

    Form4.Table1.Last;

    for i := 1 to Form4.Table1.RecordCount do

    Form4.Table1.Delete;

  end;

  close;

end;

 

procedure TForm1.SpeedButton7Click(Sender: TObject);

begin

Form12.show;

end;

 

procedure TForm1.SpeedButton8Click(Sender: TObject);

begin

Form12.show;

end;

 

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

Form9.show;

Form9.webbrowser1.Navigate(GetCurrentDir+'/Справка/Справочная система.html');

end;

 

procedure TForm1.Timer1Timer(Sender: TObject);

Begin

procedure TForm1.SpeedButton4Click(Sender: TObject);

begin

Form16.show;

Form16.webbrowser1.Navigate(GetCurrentDir+'/О продукции/Достоинства.html');

end;

end.

 

Форма, содержащая сведения о размерах и стоимости оконных изделий, представлена на рисунке 2.2. С помощью перехода по закладкам, можно узнать стоимость оконного изделия любого размера и любой конструкции.

Фрагмент программного кода данного модуля.

unit Oknatab;

 

interface

 

uses

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

  Dialogs, DB, DBTables, Buttons, ExtCtrls, DBCtrls, Grids, DBGrids,

  ComCtrls;

 

type

  TForm14 = class(TForm)

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;

    TabSheet3: TTabSheet;

    TabSheet4: TTabSheet;

    TabSheet5: TTabSheet;

    TabSheet6: TTabSheet;

    TabSheet7: TTabSheet;

    TabSheet8: TTabSheet;

    TabSheet9: TTabSheet;

    TabSheet10: TTabSheet;

    TabSheet11: TTabSheet;

    TabSheet12: TTabSheet;

    TabSheet13: TTabSheet;

    TabSheet14: TTabSheet;

    TabSheet15: TTabSheet;

    TabSheet16: TTabSheet;

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    TabSheet17: TTabSheet;

    DataSource17: TDataSource;

    DBGrid17: TDBGrid;

    DBNavigator17: TDBNavigator;

    Table17: TTable;

    Image17: TImage;

    Table17VysShir: TFloatField;

    Table17BDEDesigner600: TIntegerField;

    Table17BDEDesigner650: TIntegerField;

    Table17BDEDesigner700: TIntegerField;

    Table17BDEDesigner750: TIntegerField;

    Table17BDEDesigner800: TIntegerField;

    Table17BDEDesigner850: TIntegerField;

    Table17BDEDesigner900: TIntegerField;

    SpeedButton34: TSpeedButton;

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

   

 

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form14: TForm14;

 

implementation

 

uses Spravochniki, MainForm, Dop_materialy;

 

{$R *.dfm}

 

procedure TForm14.SpeedButton1Click(Sender: TObject);

begin

Form12.show;

Form14.Hide;

end;

 

procedure TForm14.SpeedButton2Click(Sender: TObject);

begin

Form1.show;

Form14.Hide;

end;

 

end.

 

Рисунок 2.2 – Внешний вид формы «Окна - Таблицы»

 

Форма, содержащая сведения о дополнительных комплектующих материалах, представлена на рисунке  2.3. Она содержит таблицы,  в которых хранятся сведения о стоимости материалов.  Над данными в таблицах можно производить следующие действия: добавление записей, редактирование записей, удаление записей.

Внешний вид формы «Сотрудники» представлен на рисунке 2.4.

Данная форма предоставляет возможность быстрого и удобного для пользователя просмотра базы данных, имеет удобную форму ее заполнения и корректировки. Также на форме имеются компоненты для возможности осуществления сортировки записей по разным критериям и сортировки записей.

Форма «Сотрудники» содержит несколько страниц, переход по которым осуществляется с помощью  активирования необходимой закладки.

 

Рисунок 2.3 – Внешний вид формы «Дополнительные материалы»

 

Рисунок 2.4 – Внешний вид формы «Сотрудники – Основные сведения»

Фрагмент программного кода.

unit Sotrudniki;

 

interface

 

uses

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

  Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, Buttons, Menus,

  ComCtrls, StdCtrls, Mask, ComObj;

 

    procedure SpeedButton2Click(Sender: TObject);

    procedure SpeedButton8Click(Sender: TObject);

    procedure TabSheet3Show(Sender: TObject);

    procedure TabSheet3Hide(Sender: TObject);

    procedure Table2AfterPost(DataSet: TDataSet);

    procedure SpeedButton9Click(Sender: TObject);

    procedure CbMesChange(Sender: TObject);

    procedure SpeedButton10Click(Sender: TObject);

    procedure TabSheet4Show(Sender: TObject);

    procedure CbFIO2Change(Sender: TObject);

    procedure SpeedButton11Click(Sender: TObject);

    procedure SpeedButton12Click(Sender: TObject);

    procedure SpeedButton13Click(Sender: TObject);

    procedure SpeedButton4Click(Sender: TObject);

 

       

    private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form7: TForm7;

  KolDney,stolb:integer;

 

implementation

 

uses Spravochniki, MainForm, raschetdver, Otkos, Work, Oknatab,

  Dop_materialy, Klienty, Contract, OProd, Spravka, About;

 

{$R *.dfm}

 

function RoundEx(X: Double; Precision: Integer ): Double;

{

Precision :

1 - до целых

10 - до десятых

100 - до сотых

...

}

var

  ScaledFractPart, Temp: Double;

begin

  ScaledFractPart := Frac(X) * Precision;

  Temp := Frac(ScaledFractPart);

  ScaledFractPart := Int(ScaledFractPart);

  if Temp >= 0.5 then

    ScaledFractPart := ScaledFractPart + 1;

  if Temp <= -0.5 then

    ScaledFractPart := ScaledFractPart - 1;

  RoundEx := Int(X) + ScaledFractPart / Precision;

end;

 

 

procedure TForm7.SpeedButton1Click(Sender: TObject);

begin

Table1.Append;

SpeedButton2.Enabled:=true;

end;

 

 

procedure TForm7.CbMesChange(Sender: TObject);

var

KolDney, stolb:integer;

 

begin

  case CbMes.ItemIndex of

   0:  begin

         KolDney:=31;

         stolb:=34;

         DBGrid3.Columns.Items[32].Visible:=true;

         DBGrid3.Columns.Items[33].Visible:=true;

         DBGrid3.Columns.Items[34].Visible:=true;

        end;

   1:  begin

         KolDney:=28;

         stolb:=31;

         DBGrid3.Columns.Items[32].Visible:=False;

         DBGrid3.Columns.Items[33].Visible:=False;

         DBGrid3.Columns.Items[34].Visible:=False;

       end;

   2:  begin

         KolDney:=29;

         stolb:=32;

         DBGrid3.Columns.Items[32].Visible:=true;

         DBGrid3.Columns.Items[33].Visible:=False;

         DBGrid3.Columns.Items[34].Visible:=False;

       end;

   3:  begin

         KolDney:=31;

         stolb:=34;

         DBGrid3.Columns.Items[32].Visible:=true;

         DBGrid3.Columns.Items[33].Visible:=true;

         DBGrid3.Columns.Items[34].Visible:=true;

       end;

   4:  begin

         KolDney:=30;

         stolb:=33;

         DBGrid3.Columns.Items[32].Visible:=true;

         DBGrid3.Columns.Items[33].Visible:=true;

         DBGrid3.Columns.Items[34].Visible:=false;

       end;

 

procedure TForm7.SpeedButton10Click(Sender: TObject);

var i:integer;

begin

  if MessageDlg('Удалить запись?', mtConfirmation, [mbOK, mbNo], 0) = mrOK then

  begin

  Table3.First;

   while not Table3.Eof do begin

    For i := 4 to Table3.FieldCount-1 Do begin

    table3.Edit;

    Table3.Fields[i].Clear;

    Table3.Post;

    end;

    Table3.Next;

   end;

end;

end;

 

 

procedure TForm7.TabSheet4Show(Sender: TObject);

begin

Table4.IndexName := '';

Table4.MasterFields := '';

Table3.First;

CbFIO2.Text:=table3.Fields[2].AsString;

Table4.Edit;

  if Table4.Fields[1].AsString = Table3.Fields[1].AsString then

  DBGrid4.Columns.Items[2].Field.AsString := Table3.Fields[2].AsString;

Table4.Post;

end;

 

 

end.

 

Рисунок 2.5 Внешний вид формы «Сотрудники – Расчет заработной платы»

 

Оказываемые услуги включают в себя «Расчет оконных изделий», «Расчет стоимости отделки откосов», «Оформление нарядов».

Внешний вид формы «Расчет оконных изделий» представлен на  рисунке 2.6. На форме расположены две таблицы, в которых отображается заказанные изделия, дополнительные комплектующие материалы и их стоимость, а также компоненты, позволяющие производить расчет дополнительных услуг: скидку на заказ, монтаж, отделку откосов.

При нажатии на кнопку «Рассчитать изделие» открывается форма «Параметры оконных конструкций», которая позволяет выбрать конструкцию необходимого изделия, просмотреть его эскиз, задать параметры изделия, вид остекления, количество, а  затем внести  данные  в заказ с помощью кнопки  «Внести в заказ». Данная  форма представлена на рисунке 2.7. 

 

Рисунок 2.6 – Внешний вид формы «Расчет оконных изделий»

 

Рисунок 2.7 – Внешний вид формы «Параметры оконных конструкций»

 

Внешний вид формы «Оформление наряда» представлен на  рисунке 2.8. Форма содержит две таблицы: «Тип работы» и «Оформление наряда», при этом таблица «Оформление наряда» является подчиненной таблицы «Тип работы». Таблица «Оформление наряда» предназначена для хранения данных о проводимых работах, сроках работ по каждому клиенту фирмы  ООО «Светоч».

Рисунок 2.8 – Внешний вид формы «Оформление нарядов»

Над данными таблицы можно выполнять следующие операции:

- фильтрацию записей за определенную дату;

- фильтрацию записей за период времени, определяемый пользователем;

- фильтрацию записей по коду сотрудника;

- вывод полученной информации как на экран в режиме предварительного просмотра, так и на принтер;

- вывод всех имеющихся записей.

В каждой из ключевых форм имеется меню при помощи, которого можно открыть любую форму системы, а также получить справочную информацию по открытой форме.

Проектирование модулей программного обеспечения

Кроме программ средства языка Delphi 7 позволяют создавать модули. В отличие от программы, модуль не может быть автономно запущен на выполнение и содержит элементы, например, переменные и подпрограммы, которые допускается использовать в программе или в других модулях. При разработке информационной системы, для удобства она была разбита на отдельные модули, отвечающие за выполнение отдельных операций. Для каждой формы приложения создается отдельный модуль.

Структура модулей информационной системы представлена в приложении Д.

В данной программе используются следующие модули:

Dop_materiali - предназначен для хранения  информации о дополнительных материалах.

Klienty - предназначен для хранения информации клиентах фирмы.

Kredit  - предназначен для расчета  стоимости изделий в кредит.

MainForm -  предназначен для решения задачи вывода на экран главной формы и организации доступа ко всем основным формам.

Okna -   предназначен для вывода  на экран основных конструкций  оконных  блоков.

Oknatab - предназначен для хранения  информации об оконных изделиях.

OProd – предназначен для вывода html – документа, содержащего информацию о продукции фирмы.

Otchet – прелназначен для формирования отчета «Графики проводимых работ».

Otkos – предназначен для расчета стоимости отделки откосов.

ParametryOkna - предназначен для выполнения расчетов стоимости оконных изделий.

Rashetdver –  для выполнения расчетов стоимости общего заказа, со всеми дополнительными услугами. Программный код данного модуля представлен в приложении 3.

Spravka – предназначен для вывода  на экран справочной информации.

Spravochniki – предназначен для организации  доступа к формам, содержащим справочную информацию.

Uslugi - предназначен для организации  доступа к формам.

Work – предназначена для оформления нарядов работ, по каждому клиенту, а также формированию отчета занятости работников на объектах.

ZakazOtkosov – предназначен для формирования заказов и составления договоров по отделке откосов.

ZakazOkna - предназначен для формирования заказов и составления договоров по доставке и монтажу оконных изделий.

 

2.6 Проектирование справочной системы

 

При работе с информационной системой, у пользователя могут возникнуть вопросы работы с системой, поэтому у него должна быть возможность  обратиться к справочной системе за информацией. Справочная система должна предоставлять разные типы информации: как ту, что помогает пользователю в затруднительных ситуациях, так и конкретную информацию, запрошенную пользователем.

Справочная система должна обеспечивать пользователю несколько различных точек входа. Например, пользователь может войти в неё на верхнем уровне её иерархической структуры, т. е. непосредственно с главной формы и здесь обойти все разделы справочной информации, так  и на нижних уровнях,  т.е. из других форм системы. [7]