Implementation

uses Unit1, Unit3, Unit4, Unit13;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

var y,m,d,y1,m1,d1:word;

dat,dat1:tdate;

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

AdoTable3.First;

dat1:=date();

while not ADOTable3.Eof do

begin

dat:=strtodate(adotable3.fieldbyname('date_zakl').Text);

decodedate(dat,y,m,d);

decodedate(dat1,y1,m1,d1);

if y<=(y1-5) then AdoTable3.Delete

else AdoTable3.next;

end;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

Form2.DBGrid1.DataSource.DataSet.Insert;

end;

procedure TForm2.Button6Click(Sender: TObject);

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=true;

Timer2.Enabled:=false;

Form2.DBGrid2.DataSource.DataSet.Insert;

Form2.DBGrid2.DataSource.DataSet.FieldByName('Acept_dt').Text:=DateToStr(date());

end;

procedure TForm2.Button9Click(Sender: TObject);

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

Form2.DBGrid3.DataSource.DataSet.Insert;

Form2.DBGrid3.DataSource.DataSet.FieldByName('date_zakl').Text:=DateToStr(date());

end;

procedure TForm2.Button10Click(Sender: TObject);

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

if not DBGrid3.DataSource.DataSet.Eof then

Form2.DBGrid3.DataSource.DataSet.Delete;

end;

procedure TForm2.Button7Click(Sender: TObject);

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=true;

Timer2.Enabled:=false;

if not DBGrid2.DataSource.DataSet.Eof then

DBGrid2.DataSource.DataSet.Delete;

end;

procedure TForm2.Button3Click(Sender: TObject);

var m:integer;

begin

m:=0;

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=false;

DBGrid2.DataSource.DataSet.First;

While not DBGrid2.DataSource.DataSet.Eof do

begin

if DBGrid2.DataSource.DataSet.FieldByName('Post').Text=DBGrid1.DataSource.DataSet.FieldByName('Nam').Text then inc(m);

DBGrid2.DataSource.DataSet.Next;

end;

if m=0 then

Form2.DBGrid1.DataSource.DataSet.Delete else

showmessage('Удаление невозможно!Обнаружены сотрудники с текущей должностью.');

Timer2.Enabled:=true;

end;

procedure TForm2.Button8Click(Sender: TObject);

var c:integer;

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

c:=0;

Form2.DBGrid3.DataSource.DataSet.First;

While not Form2.DBGrid3.DataSource.DataSet.EOF do

begin

if (POS(Edit3.Text,Form2.DBGrid3.DataSource.DataSet.FieldByName('FIO').Text)>0 )or

(POS(Edit3.Text,Form2.DBGrid3.DataSource.DataSet.FieldByName('org').Text)>0)

then

begin

inc(c);

break;

end else Form2.DBGrid3.DataSource.DataSet.next;

end;

if c=0 then

begin

showmessage('Поиск не дал результатов');

Form2.DBGrid3.DataSource.DataSet.First;

end;

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

end;

procedure TForm2.Button4Click(Sender: TObject);

var b:integer;

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

b:=0;

Form2.DBGrid1.DataSource.DataSet.First;

While not Form2.DBGrid1.DataSource.DataSet.EOF do

begin

if POS(Edit1.Text,Form2.DBGrid1.DataSource.DataSet.FieldByName('nam').Text)>0

then

begin

inc(b);

break;

end else Form2.DBGrid1.DataSource.DataSet.next;

end;

if b=0 then

begin

showmessage('Поиск не дал результатов');

Form2.DBGrid1.DataSource.DataSet.First;

end;

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

end;

procedure TForm2.Button5Click(Sender: TObject);

var b:integer;

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

b:=0;

Form2.DBGrid3.DataSource.DataSet.First;

While not Form2.DBGrid3.DataSource.DataSet.EOF do

begin

if (POS(Edit4.Text,Form2.DBGrid3.DataSource.DataSet.FieldByName('sotrud').Text)>0 )

then

begin

inc(b);

break;

end else Form2.DBGrid3.DataSource.DataSet.next;

end;

if b=0 then

begin

showmessage('Поиск не дал результатов');

Form2.DBGrid3.DataSource.DataSet.First;

end;

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=true;

Timer2.Enabled:=false;

end;

procedure TForm2.Timer1Timer(Sender: TObject);

begin

with Form2.DBGrid1.DataSource.DataSet do

begin

first;

listbox1.Items.Clear;

listbox2.Items.Clear;

while not eof do

begin

listbox1.Items.Add(form2.DBGrid1.DataSource.DataSet.fieldbyname('nam').text);

listbox2.Items.Add(form2.DBGrid1.DataSource.DataSet.fieldbyname('ID').text);

next;

end;

end;

end;

procedure TForm2.ListBox1Click(Sender: TObject);

begin

ListBox2.itemindex:=ListBox1.itemindex;

Form2.DBGrid2.DataSource.DataSet.Edit;

form2.DBGrid2.DataSource.DataSet.FieldByName('Post_ID').Text:=form2.ListBox2.Items.strings[form2.ListBox2.itemindex];

Form2.DBGrid2.DataSource.DataSet.FieldByName('post').Text:=form2.ListBox1.Items.strings[form2.ListBox1.itemindex];

ListBox1.Visible:=false;

end;

procedure TForm2.FormClick(Sender: TObject);

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=true;

Timer2.Enabled:=true;

end;

procedure TForm2.Timer2Timer(Sender: TObject);

begin

with Form2.DBGrid2.DataSource.DataSet do

begin

first;

listbox3.Items.Clear;

listbox4.Items.Clear;

while not eof do

begin

listbox3.Items.Add(form2.DBGrid2.DataSource.DataSet.fieldbyname('FIO').text);

listbox4.Items.Add(form2.DBGrid2.DataSource.DataSet.fieldbyname('ID').text);

next;

end;

end;

end;

procedure TForm2.ListBox3Click(Sender: TObject);

begin

ListBox4.itemindex:=ListBox3.itemindex;

Form2.DBGrid3.DataSource.DataSet.Edit;

form2.DBGrid3.DataSource.DataSet.FieldByName('Sotrud_id').Text:=form2.ListBox4.Items.strings[form2.ListBox4.itemindex];

Form2.DBGrid3.DataSource.DataSet.FieldByName('sotrud').Text:=form2.ListBox3.Items.strings[form2.ListBox3.itemindex];

ListBox3.Visible:=false;

end;

procedure TForm2.DBGrid2CellClick(Column: TColumn);

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=true;

Timer2.Enabled:=false;

end;

procedure TForm2.TabbedNotebook1Click(Sender: TObject);

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=true;

Timer2.Enabled:=true;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

ADOTable2.IndexFieldNames:='FIO';

ADOTable3.IndexFieldNames:='FIO';

with Form2.DBGrid1.DataSource.DataSet do

begin

first;

listbox1.Items.Clear;

listbox2.Items.Clear;

while not eof do

begin

listbox1.Items.Add(form2.DBGrid1.DataSource.DataSet.fieldbyname('nam').text);

listbox2.Items.Add(form2.DBGrid1.DataSource.DataSet.fieldbyname('ID').text);

next;

end;

end;

with Form2.DBGrid2.DataSource.DataSet do

begin

first;

listbox3.Items.Clear;

listbox4.Items.Clear;

while not eof do

begin

listbox3.Items.Add(form2.DBGrid2.DataSource.DataSet.fieldbyname('FIO').text);

listbox4.Items.Add(form2.DBGrid2.DataSource.DataSet.fieldbyname('ID').text);

next;

end;

end;

Listbox1.Visible:=false;

Listbox2.Visible:=false;

Timer1.Enabled:=true;

Timer2.Enabled:=true;

end;

procedure TForm2.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=False;

Timer2.Enabled:=true;

end;

procedure TForm2.DBGrid2MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=true;

Timer2.Enabled:=false;

end;

procedure TForm2.DBGrid2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

label1.Caption:=inttostr(x);

Label2.caption:=inttostr(y);

end;

procedure TForm2.DBGrid3MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

end;

procedure TForm2.DBGrid3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

label3.Caption:=inttostr(x);

Label4.caption:=inttostr(y);

end;

procedure TForm2.DBGrid1CellClick(Column: TColumn);

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=False;

Timer2.Enabled:=true;

end;

procedure TForm2.Button11Click(Sender: TObject);

var tt:integer;

label vse;

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

tt:=0;

While not Form2.DBGrid3.DataSource.DataSet.EOF do

begin

Form2.DBGrid3.DataSource.DataSet.next;

if (POS(Edit3.Text,Form2.DBGrid3.DataSource.DataSet.FieldByName('FIO').Text)>0)

or (POS(Edit3.Text,Form2.DBGrid3.DataSource.DataSet.FieldByName('org').Text)>0)

then goto vse else inc(tt);

end;

Form2.DBGrid3.DataSource.DataSet.MoveBy(1-tt);

ShowMessage('Поиск окончен!');

vse:

end;

procedure TForm2.Button12Click(Sender: TObject);

var tt:integer;

label vse;

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

tt:=0;

While not Form2.DBGrid3.DataSource.DataSet.EOF do

begin

Form2.DBGrid3.DataSource.DataSet.next;

if POS(Edit4.Text,Form2.DBGrid3.DataSource.DataSet.FieldByName('sotrud').Text)>0

then goto vse else inc(tt);

end;

Form2.DBGrid3.DataSource.DataSet.MoveBy(1-tt);

ShowMessage('Поиск окончен!');

vse:

end;

procedure TForm2.Button13Click(Sender: TObject);

var tt:integer;

label vse;

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

tt:=0;

While not Form2.DBGrid1.DataSource.DataSet.EOF do

begin

Form2.DBGrid1.DataSource.DataSet.next;

if POS(Edit1.Text,Form2.DBGrid1.DataSource.DataSet.FieldByName('nam').Text)>0

then goto vse else inc(tt);

end;

Form2.DBGrid1.DataSource.DataSet.MoveBy(1-tt);

ShowMessage('Поиск окончен!');

vse:

end;

procedure TForm2.Button14Click(Sender: TObject);

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=true;

Timer2.Enabled:=false;

if RadioButton1.Checked=true then ADOTable2.IndexFieldNames:='FIO';

if RadioButton2.Checked=true then ADOTable2.IndexFieldNames:='Acept_dt';

end;

procedure TForm2.Edit3Change(Sender: TObject);

begin

Edt1.Text:='';

Edit1.Text:='';

Edit2.Text:='';

Edit4.Text:='';

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

end;

procedure TForm2.Edit2Change(Sender: TObject);

begin

Edt1.Text:='';

Edit1.Text:='';

Edit3.Text:='';

Edit4.Text:='';

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

end;

procedure TForm2.RadioButton1Click(Sender: TObject);

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=true;

Timer2.Enabled:=false;

end;

procedure TForm2.RadioButton2Click(Sender: TObject);

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=true;

Timer2.Enabled:=false;

end;

procedure TForm2.Edit1Change(Sender: TObject);

begin

Edit2.Text:='';

Edit3.Text:='';

edt1.Text:='';

Edit4.Text:='';

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

end;

procedure TForm2.btn1Click(Sender: TObject);

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

end;

procedure TForm2.rb1Click(Sender: TObject);

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

end;

procedure TForm2.rb2Click(Sender: TObject);

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

end;

procedure TForm2.btn2Click(Sender: TObject);

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

if rb3.Checked=true then ADOTable3.IndexFieldNames:='FIO';

if rb4.Checked=true then ADOTable3.IndexFieldNames:='date_zakl';

end;

procedure TForm2.rb3Click(Sender: TObject);

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

end;

procedure TForm2.rb4Click(Sender: TObject);

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

end;

procedure TForm2.btn3Click(Sender: TObject);

var b:Integer;

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=true;

Timer2.Enabled:=false;

b:=0;

Form2.DBGrid2.DataSource.DataSet.First;

While not Form2.DBGrid2.DataSource.DataSet.EOF do

begin

if (POS(edt1.Text,Form2.DBGrid2.DataSource.DataSet.FieldByName('post').Text)>0 )

then

begin

inc(b);

break;

end else Form2.DBGrid2.DataSource.DataSet.next;

end;

if b=0 then

begin

showmessage('Поиск не дал результатов');

Form2.DBGrid2.DataSource.DataSet.First;

end;

end;

procedure TForm2.btn4Click(Sender: TObject);

var tt:integer;

label vse;

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=true;

Timer2.Enabled:=false;

tt:=0;

While not Form2.DBGrid2.DataSource.DataSet.EOF do

begin

Form2.DBGrid2.DataSource.DataSet.next;

if POS(edt1.Text,Form2.DBGrid2.DataSource.DataSet.FieldByName('post').Text)>0

then goto vse else inc(tt);

end;

Form2.DBGrid2.DataSource.DataSet.MoveBy(1-tt);

ShowMessage('Поиск окончен!');

vse:

end;

procedure TForm2.DBGrid2DblClick(Sender: TObject);

begin

if (strtoint(Label1.Caption)>798)and(strtoint(Label1.Caption)<1003)and(strtoint(Label2.Caption)>18)and(strtoint(Label2.Caption)<252) then

begin

Listbox1.Left:=707;

Listbox1.Top:=strtoint(Label2.Caption)+30;

Listbox1.Visible:=true;

Timer1.Enabled:=false;

Timer2.Enabled:=false;

end else

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=true;

Timer2.Enabled:=false;

end;

end;

procedure TForm2.DBGrid3DblClick(Sender: TObject);

begin

if (strtoint(Label3.Caption)>865)and(strtoint(Label3.Caption)<1045)and(strtoint(Label4.Caption)>18)and(strtoint(Label4.Caption)<252) then

begin

Listbox3.Left:=890;

Listbox3.Top:=strtoint(Label4.Caption)+25;

Listbox3.Visible:=true;

Timer2.Enabled:=false;

Timer1.Enabled:=false;

end else

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

end;

if (strtoint(Label3.Caption)>12)and(strtoint(Label3.Caption)<210)and(strtoint(Label4.Caption)>18)and(strtoint(Label4.Caption)<252) then

form13.showmodal;

end;

procedure TForm2.DBGrid3ColEnter(Sender: TObject);

begin

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

end;

procedure TForm2.edt1Change(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='';

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

end;

procedure TForm2.Edit4Change(Sender: TObject);

begin

Edt1.Text:='';

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Listbox1.Visible:=false;

Listbox3.Visible:=false;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

end;

end.

unit Unit3;