Unit11, Unit12, Unit13, Unit14, Unit15;
{$R *.dfm}
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
Form1.close;
form2.Close;
form3.Close;
form5.Close;
form6.Close;
form7.Close;
form8.Close;
form9.Close;
form10.Close;
form11.close;
form12.close;
form13.close;
end;
procedure TForm2.BitBtn1Click(Sender: TObject);
form3.Show;
procedure TForm2.FormActivate(Sender: TObject);
var k:integer;
with datamodule4.ADOQuery1 do begin
Close;
SQL.Clear;
SQL.Add('select * from Pract');
sql.Add('where Rugo="Аппарат УВД"');
Open;
if RecordCount <> 0 then
datamodule4.DataSource1.DataSet :=datamodule4.adoquery1;
end
else
with datamodule4.ADOQuery2 do begin
sql.Add('where Rugo<>"Аппарат УВД"');
datamodule4.DataSource2.DataSet :=datamodule4.adoquery2;
datamodule4.ADOTable1.Open;
datamodule4.ADOTable2.Open;
while not datamodule4.ADOTable1.Eof do
k:=0;
if datamodule4.ADOTable1dataspr.Value<=date() then
datamodule4.ADOTable2.Insert;
datamodule4.ADOTable2['Fam']:=datamodule4.ADOTable1fam.Value;
datamodule4.ADOTable2['Imia']:=datamodule4.ADOTable1imia.Value;
datamodule4.ADOTable2['otc']:=datamodule4.ADOTable1otc.Value;
datamodule4.ADOTable2['zvanie']:=datamodule4.ADOTable1zvanie.Value;
datamodule4.ADOTable2['rugo']:=datamodule4.ADOTable1rugo.Value;
datamodule4.ADOTable2['sl']:=datamodule4.ADOTable1sl.Value;
datamodule4.ADOTable2['podr']:=datamodule4.ADOTable1podr.Value;
datamodule4.ADOTable2['dolj']:=datamodule4.ADOTable1dolj.Value;
datamodule4.ADOTable2['vzisk']:=datamodule4.ADOTable1vzisk.Value;
datamodule4.ADOTable2['chpr']:=datamodule4.ADOTable1chpr.Value;
datamodule4.ADOTable2['nompr']:=datamodule4.ADOTable1nompr.Value;
datamodule4.ADOTable2['datapr']:=datamodule4.ADOTable1datapr.Value;
datamodule4.ADOTable2['opis']:=datamodule4.ADOTable1opis.Value;
datamodule4.ADOTable2['nomspr']:=datamodule4.ADOTable1nomspr.Value;
datamodule4.ADOTable2['dataspr']:=datamodule4.ADOTable1dataspr.Value;
datamodule4.ADOTable2.Post;
datamodule4.ADOTable1.Delete;
k:=1;
datamodule4.ADOTable1.Next;
if k=1 then datamodule4.ADOTable1.Prior;
datamodule4.ADOTable1.Close;
datamodule4.ADOTable2.Close;
datamodule4.ADOTable2.Active:=true;
procedure TForm2.BitBtn3Click(Sender: TObject);
if pagecontrol1.ActivePage=tabsheet1 then begin
if datamodule4.ADOQuery1.IsEmpty then exit;
form5.Show;
form5.DataSource1.DataSet:=datamodule4.ADOQuery1;
form5.DateTimePicker1.Date:=datamodule4.ADOQuery1Datapr.Value;
if pagecontrol1.ActivePage=tabsheet2 then begin
if datamodule4.ADOQuery2.IsEmpty then exit;
form5.DataSource1.DataSet:=datamodule4.ADOQuery2;
form5.DateTimePicker1.Date:=datamodule4.ADOQuery2Datapr.Value;
if pagecontrol1.ActivePage=tabsheet3 then begin
if datamodule4.ADOtable2.IsEmpty then exit;
form5.DataSource1.DataSet:=datamodule4.ADOTable2;
form5.DateTimePicker1.Date:=datamodule4.ADOTable2Datapr.Value;
procedure TForm2.BitBtn4Click(Sender: TObject);
if datamodule4.ADOQuery1 = nil then Exit;
if MessageBox(0,'Вы действительно хотите удалить?','Подтверждение',
33) <> IDOKthen Exit;
datamodule4.ADOQuery1.Delete;
datamodule4.ADOQuery1.Requery;
if datamodule4.ADOQuery2 = nil then Exit;
datamodule4.ADOQuery2.Delete;
datamodule4.ADOQuery2.Requery;
if datamodule4.ADOTable2.IsEmpty then exit;
if datamodule4.ADOTable2 = nil then Exit;
datamodule4.ADOTable2.Delete;
datamodule4.ADOTable2.Requery;
procedure TForm2.N3Click(Sender: TObject);
form1.Close;
form11.Close;
form12.Close;
form13.Close;
procedure TForm2.N7Click(Sender: TObject);
form6.Caption:='Поиск по званию';
form8.Show;
procedure TForm2.N8Click(Sender: TObject);
form6.Caption:='Поиск по области';
form9.show;
procedure TForm2.N9Click(Sender: TObject);
form6.Caption:='Поиск по службе';
form10.show;
procedure TForm2.N10Click(Sender: TObject);
form6.Caption:='Поиск по подразделению';
form11.show;
procedure TForm2.N11Click(Sender: TObject);
form6.Caption:='Поиск по должности';
form12.show;
procedure TForm2.N13Click(Sender: TObject);
form6.Caption:='Поиск по месту приказа';
form13.show;
procedure TForm2.bsSkinButton1Click(Sender: TObject);
form14.Close;
form15.Close;
procedure TForm2.bsSkinButton2Click(Sender: TObject);
procedure TForm2.bsSkinButton3Click(Sender: TObject);
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10