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

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;

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

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

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года. Для реализации данного примера необходимо запустить ИС учета заявок и войти в главное окно программы и вызвать окно регистрации заявки.

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

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

На рисунке 23 представлена форма просмотра заявки из главного окна системы. Далее перейдем к подсистеме статистика, и найдем только что созданную заявку, воспользовавшись фильтром. Результаты данного действия приведены на рисунке 24.

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

После снятия заявки (перевод заявки в исполненные), заявка храниться в подсистеме статистика, далее просмотрим заявку с выполненным статусом в подсистеме статистика.

На основании вышеприведенного примера можно сделать вывод о работоспособности ИС

3. ЭКОНОМИЧЕСКИЕ АСПЕКТЫ ВНЕДРЕНИЯ ИС НА ПРЕДПРИЯТИИ ЗАО «ЦРТ СЕРВИС»

3.1 Концепция развития рынка услуг почтовой связи на период до 2010 года

3.1.1 Общие положения

Настоящая Концепция определяет перспективы дальнейшего развития российского рынка услуг почтовой связи и роль государственного управления в процессе его развития на период до 2010 года.

В соответствии с Федеральным законом "О почтовой связи" в Российской Федерации действует почтовая связь общего пользования, осуществляемая государственными унитарными предприятиями, государственными учреждениями почтовой связи, а также иным операторами почтовой связи, специальная связь федерального органа исполнительной власти, осуществляющего управление деятельностью в области связи, федеральная фельдъегерская связь и фельдъегерско-почтовая связь федерального органа исполнительной власти в области обороны. Настоящая Концепция рассматривает вопросы развития почтовой связи общего пользования.

Основными целями настоящей Концепции являются: удовлетворении потребности пользователей в качественных услугах почтовой связи на территории всей страны за счет ускоренного развития инфраструктуры почтовой связи;

обеспечение единого стандарта качества универсальных услуг почтовой связи;

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

Для достижения указанных целей требуется решение следующих основных задач:

определение состава универсальных услуг почтовой связи и требований к их качеству, контроль за выполнением этих требований;

определение источников финансирования и метода ценового регулирования универсальных услуг почтовой связи;

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

3.1.2 Анализ состояния и прогноз развития рынка услуг почтовой связи

3.1.2.1 Современное состояние рынка услуг почтовой связи

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

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

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

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

Менее привлекательными являются сельская местность, а также отдаленные и труднодоступные районы со сложными климатическими условиями, где основным пользователем услуг является население.

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