Информационная система учета заявок ЗАО "ЦРТ Сервис"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
жать добавить заявку. После нажатия кнопки добавить окно закроется и новая заявка появится в главном окне.
Если в процессе работы необходимо внести корректировки в заявку в программе предусмотрено редактирование заявки, доступ к которому можно получить из панели управления, контекстного меню или главного меню. По нажатию кнопки редактировать окно закроется и заявка обновиться.
Когда заявка исполнена инженер выполнявший задание передает диспетчеру акт выполненных работ установленного образца, где указана причина поломки, расход комплектующих и запасных частей, а также подписанный ответственным лицом от заказчика. На основании чего диспетчер снимает заявку и переводит её в архив, установив дату выполнения. Доступ к окну статистика можно получить из главного меню.
В окне статистика также можно просматривать, редактировать, экспортировать выбранные заявки в Microsoft Excel а также фильтровать их по определенным диапазонам и критериям.
- Описание структуры разрабатываемой системы
Структура разрабатываемой системы имеет вид представленный на рисунке 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>