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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
114
end;
if RadioButton3.Checked then
if txtFind.Text<>'' then
begin
adoQuery2.Filtered:=false;
adoQuery2.Close;
adoQuery2.DataSource:=nil;
adoQuery2.SQL.Clear;
adoQuery2.SQL.Add('SELECT * from sotr where dolgnost like
''%'+txtFind.Text+'%''');
adoQuery2.Open;
Label_Find.Caption:='Отключить фильтр';
end;
end else
begin
adoQuery1.Filtered:=false;
adoQuery2.DataSource:=DataSource1;
adoQuery2.Close;
adoQuery2.SQL.Clear;
adoQuery2.SQL.Add('select * from sotr where kod_otdela=:kod_otdela');
adoQuery2.Open;
Label_Find.Caption:='Найти';;
end;
end;
procedure TfrmSotr.ADOQuery1AfterCancel(DataSet: TDataSet);
begin
active_navig;
end;
115
procedure TfrmSotr.ADOQuery1AfterDelete(DataSet: TDataSet);
begin
active_navig;
end;
procedure TfrmSotr.ADOQuery1AfterEdit(DataSet: TDataSet);
begin
deactive_navig;
end;
procedure TfrmSotr.ADOQuery1AfterOpen(DataSet: TDataSet);
begin
active_navig;
end;
procedure TfrmSotr.ADOQuery1AfterPost(DataSet: TDataSet);
begin
active_navig;
end;
procedure TfrmSotr.ADOQuery2AfterCancel(DataSet: TDataSet);
begin
active_navig_2;
end;
procedure TfrmSotr.ADOQuery2AfterDelete(DataSet: TDataSet);
begin
active_navig_2;
116
end;
procedure TfrmSotr.ADOQuery2AfterEdit(DataSet: TDataSet);
begin
deactive_navig_2;
end;
procedure TfrmSotr.ADOQuery2AfterOpen(DataSet: TDataSet);
begin
active_navig_2;
end;
procedure TfrmSotr.ADOQuery2AfterPost(DataSet: TDataSet);
begin
active_navig_2;
end;
end.
Описание модуля operat:
unit operat;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DBCtrls, Mask, Buttons, DB, ADODB, Vcl.Grids,
Vcl.DBGrids;
type
117
TfrmOperat = class(TForm)
Panel1: TPanel;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
cmdAppend: TBitBtn;
cmdDelete: TBitBtn;
cmdSave: TBitBtn;
Label_Kol_Zap: TLabel;
Panel2: TPanel;
Panel3: TPanel;
Label_Find: TLabel;
Label9: TLabel;
Label11: TLabel;
txtFind: TEdit;
RadioButton1: TRadioButton;
RadioButton3: TRadioButton;
Label4: TLabel;
DBGrid1: TDBGrid;
Label2: TLabel;
Label3: TLabel;
Label5: TLabel;
txtDateOpen: TDBText;
txtDateClose: TDBText;
Label6: TLabel;
cmdSend: TBitBtn;
Label1: TLabel;
txtOpis: TDBMemo;
DBGrid2: TDBGrid;
DataSource2: TDataSource;
118
ADOQuery2: TADOQuery;
txtSend: TMemo;
ADOCommand2: TADOCommand;
ADOQuery2kod_zaiavki: TIntegerField;
ADOQuery2kod_message_: TAutoIncField;
ADOQuery2message_: TWideStringField;
ADOQuery2status_operat: TWideStringField;
ADOQuery2status_tehsupport: TWideStringField;
ADOQuery2fio: TWideStringField;
ADOCommandApend: TADOCommand;
ADOQuery1kod_sotr: TIntegerField;
ADOQuery1kod_zaiavki: TAutoIncField;
ADOQuery1krat_name: TWideStringField;
ADOQuery1opis: TWideMemoField;
ADOQuery1status: TWideStringField;
ADOQuery1date_open: TDateField;
ADOQuery1date_close: TDateField;
procedure Label_FindMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Label_FindClick(Sender: TObject);
procedure ADOQuery1AfterEdit(DataSet: TDataSet);
procedure DataSource1DataChange(Sender: TObject; Field: TField);
procedure DataSource1StateChange(Sender: TObject);
procedure ADOQuery1AfterDelete(DataSet: TDataSet);
procedure ADOQuery1AfterOpen(DataSet: TDataSet);
Источник: https://baza.diplomsite.ru/previewfile/8703

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

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