bsCompressedStoredSkin1: TbsCompressedStoredSkin;
bsSkinButton1: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
procedure Button1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
implementation
uses Unit6, Unit4, Unit2, Unit3;
{$R *.dfm}
procedure TForm8.Button1Click(Sender: TObject);
var zv: string[30];
begin
form8.Hide;
form6.Caption:='Поиск по званию';
zv:=form8.ComboBox1.Text;
if Form2.PageControl1.ActivePage=form2.tabsheet1 then begin
if zv<> '' then
begin
with datamodule4.ADOQuery3 do begin
Close;
SQL.Clear; //очищение предыдущего запроса
SQL.Add('select * from Pract'); //выбирает все данные из таблицы Sotr1
SQL.Add('where (Zvanie like "'+zv+ '%") and (Rugo="Аппарат УВД")'); //выбор данных из таблицы, где
Open;
if RecordCount <> 0 then //чтение записей пока не дойдет до последней
begin
datamodule4.DataSource4.DataSet:=datamodule4.adoquery3;
end
else
begin
ShowMessage('В БД сотрудников нет записей, удовлетворяющих' +
#13 + 'критерию запроса.'); exit;
end;
end;
end;
end;
if form2.PageControl1.ActivePage=form2.tabsheet2 then begin
if zv<> '' then
begin
with datamodule4.ADOQuery3 do begin
Close;
SQL.Clear; //очищение предыдущего запроса
SQL.Add('select * from Pract'); //выбирает все данные из таблицы Sotr1
SQL.Add('where (Zvanie like "'+zv+ '%") and (Rugo<>"Аппарат УВД")'); //выбор данных
Open;
if RecordCount <> 0 then //чтение записей пока не дойдет до последней
begin
datamodule4.DataSource4.DataSet:=datamodule4.adoquery3;
end
else
begin
ShowMessage('В БД сотрудников нет записей, удовлетворяющих' +
#13 + 'критерию запроса.'); exit;
end;
end;
end;
end;
if form2.pagecontrol1.ActivePage=form2.tabsheet3 then begin
if zv<> '' then
begin
with datamodule4.ADOQuery3 do begin
Close;
SQL.Clear; //очищение предыдущего запроса
SQL.Add('select * from SnVzisk'); //выбирает все данные из таблицы Sotr1
SQL.Add('where (zvanie like "'+zv+ '%")'); //выбор данных из таблицы, где
Open;
if RecordCount <> 0 then //чтение записей пока не дойдет до последней
begin
datamodule4.DataSource4.DataSet:=datamodule4.adoquery3;
end
else
begin
ShowMessage('В БД сотрудников нет записей, удовлетворяющих' +
#13 + 'критерию запроса.'); exit;
end;
end;
end;
end;
form6.Show;
end;
procedure TForm8.FormActivate(Sender: TObject);
begin
combobox1.Text:='';
end;
procedure TForm8.bsSkinButton1Click(Sender: TObject);
var zv: string[30];
begin
form8.Hide;
form6.Caption:='Поиск по званию';
zv:=form8.ComboBox1.Text;
if Form2.PageControl1.ActivePage=form2.tabsheet1 then begin
if zv<> '' then
begin
form6.Show;
form6.bsSkinButton3.Visible:=true;
with datamodule4.ADOQuery4 do begin
Close;
SQL.Clear; //очищение предыдущего запроса
SQL.Add('select * from Pract'); //выбирает все данные из таблицы Sotr1
SQL.Add('where (Zvanie like "'+zv+ '%") and (Rugo="Аппарат УВД")'); //выбор данных
Open;
if RecordCount <> 0 then //чтение записей пока не дойдет до последней
begin
datamodule4.DataSource4.DataSet:=datamodule4.adoquery4;
end
else
begin
form6.hide;
ShowMessage('В БД сотрудников нет записей, удовлетворяющих' +
#13 + 'критерию запроса.'); exit;
end;
end;
end;
end;
if form2.PageControl1.ActivePage=form2.tabsheet2 then begin
if zv<> '' then
begin
form6.Show;
form6.bsSkinButton3.Visible:=true;
with datamodule4.ADOQuery4 do begin
Close;
SQL.Clear; //очищение предыдущего запроса
SQL.Add('select * from Pract'); //выбирает все данные из таблицы Sotr1
SQL.Add('where (Zvanie like "'+zv+ '%") and (Rugo<>"Аппарат УВД")'); //выбор данных
Open;
if RecordCount <> 0 then //чтение записей пока не дойдет до последней
begin
datamodule4.DataSource4.DataSet:=datamodule4.adoquery4;
end
else
begin
form6.hide;
ShowMessage('В БД сотрудников нет записей, удовлетворяющих' +
#13 + 'критерию запроса.'); exit;
end;
end;
end;
end;
if form2.pagecontrol1.ActivePage=form2.tabsheet3 then begin
if zv<> '' then
begin
form6.Show;
form6.bsSkinButton3.Visible:=false;
with datamodule4.ADOQuery3 do begin
Close;
SQL.Clear; //очищение предыдущего запроса
SQL.Add('select * from SnVzisk'); //выбирает все данные из таблицы Sotr1
SQL.Add('where (zvanie like "'+zv+ '%")'); //выбор данных
Open;
if RecordCount <> 0 then //чтение записей пока не дойдет до последней
begin
datamodule4.DataSource4.DataSet:=datamodule4.adoquery3;
end
else
begin
form6.hide;
ShowMessage('В БД сотрудников нет записей, удовлетворяющих' +
#13 + 'критерию запроса.'); exit;
end;
end;
end;
end;
end;
procedure TForm8.bsSkinButton2Click(Sender: TObject);
begin
form8.Hide;
end;
end.
unitUnit15; //форма информации о программе
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, bsSkinCtrls, bsSkinData, BusinessSkinForm;
type
TForm15 = class(TForm)
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinData1: TbsSkinData;
bsCompressedStoredSkin1: TbsCompressedStoredSkin;
bsSkinButton1: TbsSkinButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure bsSkinButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form15: TForm15;
implementation
{$R *.dfm}
procedure TForm15.bsSkinButton1Click(Sender: TObject);
begin
form15.Hide;
end;
end.