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

Microsoft Access предоставляет дополнительные средства разработки приложений, которые могут работать не только с собственными форматами данных, но и с форматами других наиболее распространенных СУБД. Возможно, наиболее сильной стороной Access является его способность обрабатывать данные электронных таблиц, текстовых файлов, файлов dBASE, Paradox, Btrieve, FoxPro и любой другой базы данных SQL, поддерживающей стандарт ODBE. Это означает, что можно использовать Access для создания такого приложения Windows, которое может обрабатывать данные, поступающие с сетевого сервера SQL или базы данных SQL на главной ЭВМ .

Все выше сказанное позволило остановить выбор на СУБД Access для постановки и решения задачи автоматизации процесса ведения и сбора информации в приложении.

2.2 Проектные решения по пользовательскому интерфейсу

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

Рисунок 6 - Главное окно программы.

После загрузки базы данных выходит главное окно программы «Информационная система учета заявок ЗАО «ЦРТ Сервис», где диспетчер ведет контроль неисполненных заявок а также прием от клиентов на выполнение сервисного обслуживания или ремонта.

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

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

Если поступила заявка от клиента диспетчеру необходимо нажать кнопку добавить на панели управления, контекстного меню или главного меню. Номер заявки ИС подставляет автоматически, Агент выбирается из выпадающего списка также как Исполнитель. Далее нажать добавить заявку. После нажатия кнопки добавить окно закроется и новая заявка появится в главном окне.

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

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

В окне статистика также можно просматривать, редактировать, экспортировать выбранные заявки в Microsoft Excel а также фильтровать их по определенным диапазонам и критериям.

2.3 Описание структуры разрабатываемой системы

Структура разрабатываемой системы имеет вид представленный на рисунке 19.

2.4 Проектные решения по базе данных

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

Таблица 4 - Структура таблицы базы данных.

Фрагмент листинга программного кода представлен ниже. Полностью листинг программного кода приведен в приложении А.

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ADODB, DB, StdCtrls, Grids, DBGrids, Buttons, ComCtrls, ExtCtrls, Menus;

type

TForm6 = class(TForm)

ADOConnection1: TADOConnection;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

ADOQuery1: TADOQuery;

Panel1: TPanel;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

Label1: TLabel;

Label2: TLabel;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

Excell1: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

SpeedButton6: TSpeedButton;

ADOQuery2: TADOQuery;

GroupBox1: TGroupBox;

ComboBox1: TComboBox;

GroupBox2: TGroupBox;

ComboBox2: TComboBox;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit1, Unit12, Unit3, Unit13, Unit14, Unit15;

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm6.Button2Click(Sender: TObject);

begin

AdoQuery1.Filtered:=False;

ADOQuery1.Filter:='Дата>='+DateToStr(DateTimePicker1.Date)+ ' and Дата<='+DateToStr(DateTimePicker2.Date);

ADOQuery1.Filtered:=True;

end;

procedure TForm6.SpeedButton1Click(Sender: TObject);

begin

close;

Form1.adostatus.Active:=false;

Form1.adostatus.SQL.Text:='Select * from Data where Результат=false';

Form1.adostatus.Active:=true;

end;

procedure TForm6.SpeedButton2Click(Sender: TObject);

begin

AdoQuery1.Filtered:=False;

ADOQuery1.Filter:='Дата>='+DateToStr(DateTimePicker1.Date)+ ' and Дата<='+DateToStr(DateTimePicker2.Date);

ADOQuery1.Filtered:=True;

end;

procedure TForm6.SpeedButton3Click(Sender: TObject);

begin

Form12.ShowModal;

end;

procedure TForm6.SpeedButton4Click(Sender: TObject);

begin

Form6.ADOQuery1.Edit;

Form13.Showmodal;

Form6.ADOQuery1.Active:=false;

Form6.ADOQuery1.Active:=true;

end;

procedure TForm6.N7Click(Sender: TObject);

begin

Form14.Showmodal;

end;

procedure TForm6.SpeedButton6Click(Sender: TObject);

begin

form6.ADOQuery1.Active:=false;

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10