Дипломная работа: Исследование и разработка информационной системы приема и анализа заявок технической поддержки на примере Администрации г. Новый Уренгой

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
129
procedure TfrmOperat.cmdSaveClick(Sender: TObject);
begin
if ADOQuery1.State=dsinsert then
begin
ADOQuery1.Post;
//ADOQuery1.Refresh;
ADOQuery1.Last;
end;
if ADOQuery1.State=dsEdit then ADOQuery1.Post;
end;
procedure TfrmOperat.cmdSendClick(Sender: TObject);
begin
ADOCommandApend.CommandText:='insert into chat (kod_zaiavki, kod_sotr,
message_, Status_operat, status_tehsupport) VALUES
(:pKod_zaiavki, :pKod_sotr, :pMessage_, "0", "1")';
ADOCommandApend.Parameters.ParamByName('pkod_zaiavki').Value:=ADOQu
ery1.FieldByName('kod_zaiavki').AsInteger;
ADOCommandApend.Parameters.ParamByName('pKod_sotr').Value:=iKodSotr;
ADOCommandApend.Parameters.ParamByName('pMessage_').Value:=txtSend.T
ext ;
ADOCommandApend.Execute;
ADOQuery2.Requery();
ADOQuery2.Last;
txtSend.Text:='';
end;
130
end.
unit support_;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DBCtrls, Mask, Buttons, DB, ADODB, Vcl.Grids,
Vcl.DBGrids, Vcl.ComCtrls, frxClass, frxDBSet, frxChart;
type
TfrmSupport = class(TForm)
Panel1: TPanel;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
cmdRefresh: TBitBtn;
cmdClose: TBitBtn;
cmdJob: TBitBtn;
Label_Kol_Zap: TLabel;
Panel2: TPanel;
Panel3: TPanel;
Label_Find: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
txtFind: TEdit;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
131
RadioButton3: TRadioButton;
Label4: TLabel;
DBGrid1: TDBGrid;
Label2: TLabel;
Label5: TLabel;
txtDateClose: TDBText;
Label6: TLabel;
cmdSend: TBitBtn;
Label1: TLabel;
txtOpis: TDBMemo;
DBGrid2: TDBGrid;
DataSource2: TDataSource;
ADOQuery2: TADOQuery;
txtSend: TMemo;
ADOQuery1krat_name: TWideStringField;
ADOQuery1fio: TWideStringField;
ADOQuery1name_otdela: TWideStringField;
ADOQuery1status: TWideStringField;
ADOQuery1kod_sotr: TIntegerField;
ADOQuery1kod_zaiavki: TAutoIncField;
ADOQuery1opis: TWideMemoField;
Label7: TLabel;
txtNameOtdela: TDBText;
Label3: TLabel;
ADOCommand1: TADOCommand;
ADOCommand2: TADOCommand;
ADOCommandApend: TADOCommand;
ADOQuery2kod_zaiavki: TIntegerField;
ADOQuery2kod_message_: TAutoIncField;
132
ADOQuery2message_: TWideStringField;
ADOQuery2status_operat: TWideStringField;
ADOQuery2status_tehsupport: TWideStringField;
ADOQuery2fio: TWideStringField;
ADOQuery1job: TWideMemoField;
txtJob: TMemo;
RadioButton4: TRadioButton;
Label8: TLabel;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
lblOt: TLabel;
lblDo: TLabel;
Label17: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
txtFIOSupportClose: TLabel;
ADOQuery3: TADOQuery;
ADOQuery1kod_sotr_support: TIntegerField;
frxReport1: TfrxReport;
ADOQuery4: TADOQuery;
frxDBDataset1: TfrxDBDataset;
ADOQuery1date_open: TDateField;
ADOQuery1date_close: TDateField;
frxChartObject1: TfrxChartObject;
procedure Label_FindMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
133
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure DataSource1DataChange(Sender: TObject; Field: TField);
procedure Label9Click(Sender: TObject);
procedure Label10Click(Sender: TObject);
procedure Label11Click(Sender: TObject);
procedure Panel3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure cmdCloseKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure cmdSendClick(Sender: TObject);
procedure DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure cmdRefreshClick(Sender: TObject);
procedure cmdJobClick(Sender: TObject);
procedure DBGrid2CellClick(Column: TColumn);
procedure txtSendClick(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure DBGrid1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure cmdCloseClick(Sender: TObject);
procedure Label8Click(Sender: TObject);
procedure Label_FindClick(Sender: TObject);
procedure Label17MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Label12MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Label13MouseMove(Sender: TObject; Shift: TShiftState; X,
Источник: https://baza.diplomsite.ru/previewfile/8703

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

_Rezonans_napryazheniy
_Ugolov_Process_05
'Fratres' Арво Пярта - молитва в музыке
'Миссия университета' как научно-педагогический концепт эпохи постиндустриального развития
«Досрочные страховые пенсии»
«Характеристика объектов коммерческой деятельности в торговле»
(никита)KUL_T_KL_EKZAMEN
[1 курс] БЖД