109
ADOQuery2.Last;
end;
procedure TfrmSotr.cmdLastClick(Sender: TObject);
begin
ADOQuery1.Last;
end;
procedure TfrmSotr.cmdNext2Click(Sender: TObject);
begin
ADOQuery2.Next;
end;
procedure TfrmSotr.cmdNextClick(Sender: TObject);
begin
ADOQuery1.Next;
end;
procedure TfrmSotr.cmdPrior2Click(Sender: TObject);
begin
ADOQuery2.Prior;
end;
procedure TfrmSotr.cmdPriorClick(Sender: TObject);
begin
ADOQuery1.Prior;
end;
procedure TfrmSotr.cmdSave2Click(Sender: TObject);
110
begin
if (ADOQuery2.State=dsinsert) or (ADOQuery2.State=dsEdit) then //Если набор
в режиме вставки или редактирования,
begin
if (txtFIO.text<>'') and (txtDolgnost.text<>'') and (txtLogin.text<>'') and
(cbStatusSotr.text<>'') then //То делаем проверку, если обязательное поле не
пустое,
ADOQuery2.post //то сохраняем данные
else // Иначе вызываем окно и говорим, что нужно заполнить обязательные
поля
begin
Application.CreateForm(TfrmMessage,frmMessage);
frmMessage.Visible:=false;
frmMessage.Left:=Round(frmSotr.Left +(frmSotr.Width-frmMessage.Width)/2);
frmMessage.Top:=Round(frmSotr.Top +(frmSotr.height-
frmMessage.height)/2+20);
frmMessage.lblMessage.Caption:='Необходимо заполнить обязательные
поля!';
frmMessage.ShowModal;
end;
end;
end;
procedure TfrmSotr.cmdSaveClick(Sender: TObject);
begin
if (ADOQuery1.State=dsinsert) or (ADOQuery1.State=dsEdit) then //Если набор
в режиме вставки или редактирования,
begin
111
if txtNameOtdela.text<>'' then //То делаем проверку, если обязательное поле
не пустое,
ADOQuery1.post //то сохраняем данные
else // Иначе вызываем окно и говорим, что нужно заполнить обязательные
поля
begin
Application.CreateForm(TfrmMessage,frmMessage);
frmMessage.Visible:=false;
frmMessage.Left:=Round(frmSotr.Left +(frmSotr.Width-frmMessage.Width)/2);
frmMessage.Top:=Round(frmSotr.Top +(frmSotr.height-
frmMessage.height)/2+20);
frmMessage.lblMessage.Caption:='Необходимо заполнить поле с
наименованием отдела!';
frmMessage.ShowModal;
end;
end;
end;
procedure TfrmSotr.DataSource1DataChange(Sender: TObject; Field: TField);
begin
Label_Kol_Zap.Caption:='Запись '+inttostr(adoQuery1.Recno)+' из
'+inttostr(adoQuery1.RecordCount);
end;
procedure TfrmSotr.DataSource1StateChange(Sender: TObject);
begin
deactive_navig;
end;
112
procedure TfrmSotr.DataSource2DataChange(Sender: TObject; Field: TField);
begin
Label_Kol_Zap_2.Caption:='Запись '+inttostr(adoQuery2.Recno)+' из
'+inttostr(adoQuery2.RecordCount);
end;
procedure TfrmSotr.DataSource2StateChange(Sender: TObject);
begin
deactive_navig_2;
end;
procedure TfrmSotr.FormClose(Sender: TObject; var Action: TCloseAction);
begin
frmMDI.mnuSotr.Enabled:=true;
ADOQuery2.Close;
ADOQuery1.Close;
action:=caFree;
end;
procedure TfrmSotr.Label10Click(Sender: TObject);
begin
RadioButton2.Checked:=true;
end;
procedure TfrmSotr.Label11Click(Sender: TObject);
begin
RadioButton3.Checked:=true;
end;
113
procedure TfrmSotr.Label9Click(Sender: TObject);
begin
RadioButton1.Checked:=true;
end;
procedure TfrmSotr.Label_FindClick(Sender: TObject);
begin
if Label_Find.Caption='Найти' then
begin
if RadioButton1.Checked then
if txtFind.Text<>'' then
begin
adoQuery1.Filtered:=false;
adoQuery1.Filter:='name_otdela '+ ' LIKE ' + #39 + '%' + txtFind.Text + '%' +
#39;
adoQuery1.Filtered:=true;
Label_Find.Caption:='Отключить фильтр';
end;
if RadioButton2.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 fio like ''%'+txtFind.Text+'%''');
adoQuery2.Open;
Label_Find.Caption:='Отключить фильтр';
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);