Диплом: Автоматизация приема и анализа заявок отделом технической поддержки ООО "Спектек", страницы 136-145

136

Label1: TLabel;

Label2: TLabel;

MainMenu1: TMainMenu;

N3: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

Label3: TLabel;

N4: TMenuItem;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit21, Unit1, Unit30, Unit35, Unit36, Unit26, Unit40, Unit3, Unit31;

{$R *.dfm}

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form1.close;

end;

procedure TForm4.N9Click(Sender: TObject);

begin

Form35.Parent:=Form4.ScrollBox1;

Form35.Show;

end;

procedure TForm4.N10Click(Sender: TObject);

begin

Form36.Parent:=Form4.ScrollBox1;

Form36.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName) + 'Помощь.htm');

Form36.Show;

end;

procedure TForm4.N6Click(Sender: TObject);

begin

Form40.Parent:=Form4.ScrollBox1;

dm.t19.Close;

dm.t19.SQL.Clear;

dm.t19.SQL.Add('Select * from sotrudniki where id_sotrud LIKE ''%'+Label2.Caption+'%''');

dm.t19.Open;

Form40.show;

end;

procedure TForm4.N4Click(Sender: TObject);

begin

Form30.Parent:=Form4.ScrollBox1;

137

dm.t5.Close;

dm.t5.SQL.Clear;

dm.t5.SQL.Add('SELECT * FROM zayavki where (id_usera like '''+Form4.Label2.Caption+''') AND (status like

"На исполнении")');

dm.t5.Open;

Form30.Show;

Form31.ToolButton2.Visible:=false;

Form31.ToolButton11.Visible:=false;

Form31.ToolButton12.Visible:=false;

Form31.DBEdit6.Enabled:=false;

Form31.BitBtn1.Visible:=false;

Form31.BitBtn3.Visible:=false;

Form31.BitBtn5.Visible:=false;

Form31.cxGridDBTableView3Column1.Visible:=false;

end;

end.

unit Unit5;

interface

uses

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

Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,

cxStyles, dxSkinsCore, dxSkinscxPCPainter, cxCustomData, cxFilter,

cxData, cxDataStorage, cxEdit, DB, cxDBData, ImgList, ComCtrls, ToolWin,

cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,

cxClasses, cxGridCustomView, cxGrid, ExtCtrls;

type

TForm5 = class(TForm)

Panel2: TPanel;

cxGrid2: TcxGrid;

cxGrid2DBTableView1: TcxGridDBTableView;

cxGrid2DBTableView1id_kateg: TcxGridDBColumn;

cxGrid2DBTableView1nazvanie: TcxGridDBColumn;

cxGrid2Level1: TcxGridLevel;

ToolBar1: TToolBar;

ToolButton1: TToolButton;

ToolButton2: TToolButton;

ToolButton3: TToolButton;

ToolButton4: TToolButton;

ToolButton7: TToolButton;

ImageList1: TImageList;

procedure ToolButton1Click(Sender: TObject);

procedure ToolButton2Click(Sender: TObject);

procedure ToolButton3Click(Sender: TObject);

procedure cxGrid2DBTableView1CellDblClick(

Sender: TcxCustomGridTableView;

ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;

AShift: TShiftState; var AHandled: Boolean);

procedure ToolButton4Click(Sender: TObject);

procedure ToolButton7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

138

Form5: TForm5;

implementation

uses Unit21, Unit6, Unit36, Unit3;

{$R *.dfm}

procedure TForm5.ToolButton1Click(Sender: TObject);

begin

dm.t1.Insert;

Form6.showModal;

end;

procedure TForm5.ToolButton2Click(Sender: TObject);

begin

Form6.showModal;

end;

procedure TForm5.ToolButton3Click(Sender: TObject);

Var X: word;

begin

X := MessageDlg('Вы действительно хотите удалить текущую запись?', MTConfirmation, [MBYes, MBNo],

0);

If X = mrYes then dm.t1.Delete;

end;

procedure TForm5.cxGrid2DBTableView1CellDblClick(

Sender: TcxCustomGridTableView;

ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;

AShift: TShiftState; var AHandled: Boolean);

begin

ToolButton2.Click;

end;

procedure TForm5.ToolButton4Click(Sender: TObject);

begin

dm.t1.Close;

dm.t1.Open;

end;

procedure TForm5.ToolButton7Click(Sender: TObject);

begin

Form36.Parent:=Form3.ScrollBox1;

Form36.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName) + 'Помощь.htm');

Form36.Show;

end;

end.

unit Unit6;

interface

uses

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

Dialogs, ImgList, StdCtrls, Mask, DBCtrls, ComCtrls, ToolWin;

type

TForm6 = class(TForm)

Label1: TLabel;

139

ToolBar1: TToolBar;

ToolButton1: TToolButton;

ToolButton6: TToolButton;

DBEdit1: TDBEdit;

ImageList1: TImageList;

procedure ToolButton1Click(Sender: TObject);

procedure ToolButton6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit21;

{$R *.dfm}

procedure TForm6.ToolButton1Click(Sender: TObject);

begin

dm.t1.Edit;

dm.t1.Post;

Form6.Close;

end;

procedure TForm6.ToolButton6Click(Sender: TObject);

Var X: word;

begin

X := MessageDlg('Сохранить изменения?', MTConfirmation, [MBYes, MBNo], 0);

If X = mrYes then ToolButton1.Click

else dm.t1.Cancel;

Form6.Close;

end;

end.

unit Unit7;

interface

uses

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

Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,

cxStyles, dxSkinsCore, dxSkinscxPCPainter, cxCustomData, cxFilter,

cxData, cxDataStorage, cxEdit, DB, cxDBData, ImgList, ComCtrls, ToolWin,

cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,

cxClasses, cxGridCustomView, cxGrid, ExtCtrls;

type

TForm7 = class(TForm)

Panel2: TPanel;

cxGrid2: TcxGrid;

cxGrid2DBTableView1: TcxGridDBTableView;

cxGrid2DBTableView1id_kateg: TcxGridDBColumn;

cxGrid2DBTableView1nazvanie: TcxGridDBColumn;

cxGrid2Level1: TcxGridLevel;

ToolBar1: TToolBar;

140

ToolButton1: TToolButton;

ToolButton2: TToolButton;

ToolButton3: TToolButton;

ToolButton4: TToolButton;

ToolButton7: TToolButton;

ImageList1: TImageList;

cxGrid2DBTableView1Column1: TcxGridDBColumn;

procedure ToolButton1Click(Sender: TObject);

procedure ToolButton2Click(Sender: TObject);

procedure ToolButton3Click(Sender: TObject);

procedure cxGrid2DBTableView1CellDblClick(

Sender: TcxCustomGridTableView;

ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;

AShift: TShiftState; var AHandled: Boolean);

procedure ToolButton4Click(Sender: TObject);

procedure ToolButton7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses Unit21, Unit8, Unit36, Unit3;

{$R *.dfm}

procedure TForm7.ToolButton1Click(Sender: TObject);

begin

dm.t2.Insert;

Form8.showModal;

end;

procedure TForm7.ToolButton2Click(Sender: TObject);

begin

Form8.showModal;

end;

procedure TForm7.ToolButton3Click(Sender: TObject);

Var X: word;

begin

X := MessageDlg('Вы действительно хотите удалить текущую запись?', MTConfirmation, [MBYes, MBNo],

0);

If X = mrYes then dm.t2.Delete;

end;

procedure TForm7.cxGrid2DBTableView1CellDblClick(

Sender: TcxCustomGridTableView;

ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;

AShift: TShiftState; var AHandled: Boolean);

begin

ToolButton2.Click;

end;

procedure TForm7.ToolButton4Click(Sender: TObject);

begin

dm.t2.Close;

141

dm.t2.Open;

end;

procedure TForm7.ToolButton7Click(Sender: TObject);

begin

Form36.Parent:=Form3.ScrollBox1;

Form36.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName) + 'Помощь.htm');

Form36.Show;

end;

end.

unit Unit8;

interface

uses

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

Dialogs, ImgList, StdCtrls, Mask, DBCtrls, ComCtrls, ToolWin;

type

TForm8 = class(TForm)

Label1: TLabel;

ToolBar1: TToolBar;

ToolButton1: TToolButton;

ToolButton6: TToolButton;

DBEdit1: TDBEdit;

ImageList1: TImageList;

Label2: TLabel;

DBEdit2: TDBEdit;

procedure ToolButton1Click(Sender: TObject);

procedure ToolButton6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses Unit21;

{$R *.dfm}

procedure TForm8.ToolButton1Click(Sender: TObject);

begin

dm.t2.Edit;

dm.t2.Post;

Form8.Close;

end;

procedure TForm8.ToolButton6Click(Sender: TObject);

Var X: word;

begin

X := MessageDlg('Сохранить изменения?', MTConfirmation, [MBYes, MBNo], 0);

If X = mrYes then ToolButton1.Click

else dm.t2.Cancel;

Form8.Close;

142

end;

end.

unit Unit9;

interface

uses

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

Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,

cxStyles, dxSkinsCore, dxSkinscxPCPainter, cxCustomData, cxFilter,

cxData, cxDataStorage, cxEdit, DB, cxDBData, ImgList, ComCtrls, ToolWin,

cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,

cxClasses, cxGridCustomView, cxGrid, ExtCtrls, cxDBLookupComboBox,

StdCtrls, dxDockControl, dxDockPanel;

type

TForm9 = class(TForm)

Panel2: TPanel;

cxGrid2: TcxGrid;

cxGrid2DBTableView1: TcxGridDBTableView;

cxGrid2Level1: TcxGridLevel;

ToolBar1: TToolBar;

ToolButton1: TToolButton;

ToolButton2: TToolButton;

ToolButton3: TToolButton;

ToolButton4: TToolButton;

ToolButton7: TToolButton;

ImageList1: TImageList;

cxGrid2DBTableView1id_sotrud: TcxGridDBColumn;

cxGrid2DBTableView1FIO: TcxGridDBColumn;

cxGrid2DBTableView1id_otdela: TcxGridDBColumn;

cxGrid2DBTableView1id_doljnosti: TcxGridDBColumn;

cxGrid2DBTableView1telefon: TcxGridDBColumn;

ToolButton5: TToolButton;

dxDockPanel1: TdxDockPanel;

dxFloatDockSite1: TdxFloatDockSite;

Edit1: TEdit;

Button1: TButton;

Label1: TLabel;

cxGrid2DBTableView1Column1: TcxGridDBColumn;

procedure ToolButton1Click(Sender: TObject);

procedure ToolButton2Click(Sender: TObject);

procedure ToolButton3Click(Sender: TObject);

procedure cxGrid2DBTableView1CellDblClick(

Sender: TcxCustomGridTableView;

ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;

AShift: TShiftState; var AHandled: Boolean);

procedure ToolButton4Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure ToolButton5Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure ToolButton7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

143

var

Form9: TForm9;

implementation

uses Unit21, Unit10, Unit36, Unit3;

{$R *.dfm}

procedure TForm9.ToolButton1Click(Sender: TObject);

begin

dm.t3.Insert;

Form10.showModal;

end;

procedure TForm9.ToolButton2Click(Sender: TObject);

begin

Form10.showModal;

end;

procedure TForm9.ToolButton3Click(Sender: TObject);

Var X: word;

begin

X := MessageDlg('Вы действительно хотите удалить текущую запись?', MTConfirmation, [MBYes, MBNo],

0);

If X = mrYes then dm.t3.Delete;

end;

procedure TForm9.cxGrid2DBTableView1CellDblClick(

Sender: TcxCustomGridTableView;

ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;

AShift: TShiftState; var AHandled: Boolean);

begin

ToolButton2.Click;

end;

procedure TForm9.ToolButton4Click(Sender: TObject);

begin

dm.t3.Close;

dm.t3.Open;

dm.t2.Close;

dm.t2.Open;

dm.t1.Close;

dm.t1.Open;

end;

procedure TForm9.Edit1Change(Sender: TObject);

begin

Button1.Click;

end;

procedure TForm9.Button1Click(Sender: TObject);

begin

dm.t3.Close;

dm.t3.SQL.Clear;

dm.t3.SQL.Add('SELECT * FROM sotrudniki where FIO like ''%'+Edit1.Text+'%''');

dm.t3.Open;

end;

procedure TForm9.ToolButton5Click(Sender: TObject);

144

begin

dxDockPanel1.Show;

end;

procedure TForm9.FormShow(Sender: TObject);

begin

dxDockPanel1.Hide;

end;

procedure TForm9.ToolButton7Click(Sender: TObject);

begin

Form36.Parent:=Form3.ScrollBox1;

Form36.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName) + 'Помощь.htm');

Form36.Show;

end;

end.

unit Unit10;

interface

uses

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

Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,

cxContainer, cxEdit, dxSkinsCore, DBCtrls, ImgList, ComCtrls, ToolWin,

StdCtrls, cxDBEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar,

Mask;

type

TForm10 = class(TForm)

GroupBox1: TGroupBox;

Label8: TLabel;

Label1: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

DBEdit1: TDBEdit;

DBEdit4: TDBEdit;

DBMemo1: TDBMemo;

cxDBMaskEdit1: TcxDBMaskEdit;

ComboBox1: TComboBox;

GroupBox2: TGroupBox;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

DBComboBox2: TDBComboBox;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

ToolBar1: TToolBar;

ToolButton1: TToolButton;

ToolButton6: TToolButton;

ImageList1: TImageList;

DBLookupComboBox1: TDBLookupComboBox;

DBLookupComboBox2: TDBLookupComboBox;

Label2: TLabel;

procedure ToolButton1Click(Sender: TObject);

procedure ToolButton6Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

private

{ Private declarations }

145

public

{ Public declarations }

end;

var

Form10: TForm10;

implementation

uses Unit21;

{$R *.dfm}

procedure TForm10.ToolButton1Click(Sender: TObject);

begin

dm.t3.Edit;

dm.t3.Post;

Form10.Close;

end;

procedure TForm10.ToolButton6Click(Sender: TObject);

Var X: word;

begin

X := MessageDlg('Сохранить изменения?', MTConfirmation, [MBYes, MBNo], 0);

If X = mrYes then ToolButton1.Click

else dm.t3.Cancel;

Form10.Close;

end;

procedure TForm10.ComboBox1Change(Sender: TObject);

begin

DBEdit4.Text:=(DBEdit4.Text)+(ComboBox1.Text);

end;

end.

unit Unit11;

interface

uses

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

Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,

cxStyles, dxSkinsCore, dxSkinscxPCPainter, cxCustomData, cxFilter,

cxData, cxDataStorage, cxEdit, DB, cxDBData, ImgList, ComCtrls, ToolWin,

cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,

cxClasses, cxGridCustomView, cxGrid, ExtCtrls, Menus, StdCtrls;

type

TForm11 = class(TForm)

ImageList1: TImageList;

ScrollBox1: TScrollBox;

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

MainMenu1: TMainMenu;

N21: TMenuItem;

N22: TMenuItem;

N2: TMenuItem;

N25: TMenuItem;

Смотрите также:

"Автоматизация обработки заявок ООО "Проектно-Строительная Компания"
"Автоматизация процесса аттестации персонала для ООО "Нэт Бай Нэт Холдинг"
"Анализ интернет-активности конкурентов ( на примере конкурентов "Газпром нефть")
"Бухгалтерский учёт и аудит расчётов с подотчётними лицами в организации на примере ООО "ЛОЦ 10""
«Психологическое сопровождение персонала в организации на примере ООО «Крокус»
Cовершенствование деловой оценки персонала в организации (на примере ООО "Даймонд кейтеринг развитие")
IPO - инструмент финансирования деятельности организации. На примере ПАО «Нефтяная компания «Лукойл»
PR как средство продвижения организации (на примере ПАО "Тамбовский завод "Комсомолец им. Н.С. Артемова")
PR-коммуникации в сфере общественного питания (на примере кафе-кондитерской «Cream Cheese»)
SMM как средство повышения эффективности работы учреждений социокультурной сферы (на примере Малого театра)