Информационная система учета заявок ЗАО "ЦРТ Сервис"

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование



жать добавить заявку. После нажатия кнопки добавить окно закроется и новая заявка появится в главном окне.

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

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

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

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

Структура разрабатываемой системы имеет вид представленный на рисунке 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;

=+DateToStr(DateTimePicker1.Date)+and=+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;

=+DateToStr(DateTimePicker1.Date)+and=+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;

form6.ADOQuery1.SQL.Text:=Select * from data;

form6.ADOQuery1.active:=true;

end;

procedure TForm6.N9Click(Sender: TObject);

begin

Form15.Showmodal;

end;

procedure TForm6.ComboBox1Change(Sender: TObject);

begin

0thenbegin">if combobox1.ItemIndex <> 0 then begin

form6.ADOQuery1.Active:=false;

form6.ADOQuery1.SQL.Text:=Select * from data where Агент=++combobox1.Text+;

form6.ADOQuery1.active:=true;

end else begin

form6.ADOQuery1.Active:=false;

form6.ADOQuery1.SQL.Text:=Select * from data;

form6.ADOQuery1.active:=true;

end;

end;

procedure TForm6.ComboBox2Change(Sender: TObject);

begin

0thenbegin">if combobox2.ItemIndex <> 0 then begin

form6.ADOQuery1.Active:=false;

form6.ADOQuery1.SQL.Text:=Select * from data where Исполнитель=++combobox1.Text+;

form6.ADOQuery1.active:=true;

end else begin

form6.ADOQuery1.Active:=false;

form6.ADOQuery1.SQL.Text:=Select * from data;

form6.ADOQuery1.active:=true;

end;

end;

end.

2.5 Тестирование системы на данных конкретного примера

Допустим что 19 января 2011 года поступила заявка от агента - ОАО Мегафон Ритейл , подразделение ул. Проф. Баранова 34, оборудование Fprint5200K, серийный номер 0130633, с неисправностью ошибка ЭКЛЗ, исполнителем назначен Алексейчук П.В., дата выполнения заявки 22.01.2011года. Для реализации данного примера необходимо запустить ИС учета заявок и войти в главное окно программы и вызвать окно ?/p>