bsSkinButton1: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses Unit4, Unit2, Unit1, Unit3, Unit5, Unit7;
{$R *.dfm}
procedure TForm6.BitBtn1Click(Sender: TObject);
begin
dbgrid1.Columns[0].Visible:=true;
dbgrid1.Columns[1].Visible:=true;
dbgrid1.Columns[2].Visible:=true;
dbgrid1.Columns[3].Visible:=true;
dbgrid1.Columns[4].Visible:=true;
dbgrid1.Columns[5].Visible:=true;
dbgrid1.Columns[6].Visible:=true;
dbgrid1.Columns[7].Visible:=true;
dbgrid1.Columns[8].Visible:=true;
dbgrid1.Columns[9].Visible:=true;
dbgrid1.Columns[10].Visible:=true;
dbgrid1.Columns[11].Visible:=true;
dbgrid1.Columns[12].Visible:=true;
form2.show;
form6.Hide;
form6.bsSkinButton2.Visible:=false;
procedure TForm6.BitBtn2Click(Sender: TObject);
form7.DataSource1.DataSet:=datamodule4.ADOQuery3;
form7.Show;
procedure TForm6.bsSkinButton1Click(Sender: TObject);
procedure TForm6.bsSkinButton2Click(Sender: TObject);
procedure TForm6.bsSkinButton3Click(Sender: TObject);
datamodule4.RvProject3.Execute;
end.
unit Unit7; //форма досрочного снятия сотрудника
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, DB, ComCtrls, bsSkinCtrls, bsSkinData,
BusinessSkinForm;
type
TForm7 = class(TForm)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DataSource1: TDataSource;
Edit1: TEdit;
DateTimePicker1: TDateTimePicker;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinData1: TbsSkinData;
bsCompressedStoredSkin1: TbsCompressedStoredSkin;
bsBusinessSkinForm2: TbsBusinessSkinForm;
bsSkinData2: TbsSkinData;
bsCompressedStoredSkin2: TbsCompressedStoredSkin;
bsBusinessSkinForm3: TbsBusinessSkinForm;
bsSkinData3: TbsSkinData;
bsCompressedStoredSkin3: TbsCompressedStoredSkin;
bsBusinessSkinForm4: TbsBusinessSkinForm;
bsSkinData4: TbsSkinData;
bsCompressedStoredSkin4: TbsCompressedStoredSkin;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
Form7: TForm7;
uses Unit4, Unit6, Unit5;
procedure TForm7.Button2Click(Sender: TObject);
form6.show;
form7.Hide;
procedure TForm7.Button1Click(Sender: TObject);
DataSource1.DataSet.Edit;
DataSource1.DataSet.FieldValues['Nomspr']:=edit1.Text;
DataSource1.DataSet.FieldValues['Dataspr']:=DateTimePicker1.Date;
DataSource1.DataSet.Post;
procedure TForm7.bsSkinButton1Click(Sender: TObject);
procedure TForm7.bsSkinButton2Click(Sender: TObject);
unit Unit8; //Поиск по званию (аналогично Unit9-по области; Unit10-по службе; Unit11-по подразделению; Unit12-по должности; Unit13-по месту приказа; Unit14-по фамилии)
Dialogs, StdCtrls, bsSkinCtrls, bsSkinData, BusinessSkinForm;
TForm8 = class(TForm)
ComboBox1: TComboBox;
procedure FormActivate(Sender: TObject);
Form8: TForm8;
uses Unit6, Unit4, Unit2, Unit3;
procedure TForm8.Button1Click(Sender: TObject);
var zv: string[30];
form8.Hide;
form6.Caption:='Поиск по званию';
zv:=form8.ComboBox1.Text;
if Form2.PageControl1.ActivePage=form2.tabsheet1 then begin
if zv<> '' then
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 //чтение записей пока не дойдет до последней
datamodule4.DataSource4.DataSet:=datamodule4.adoquery3;
end
else
ShowMessage('В БД сотрудников нет записей, удовлетворяющих' +
#13 + 'критерию запроса.'); exit;
if form2.PageControl1.ActivePage=form2.tabsheet2 then begin
SQL.Add('where (Zvanie like "'+zv+ '%") and (Rugo<>"Аппарат УВД")'); //выбор данных
if form2.pagecontrol1.ActivePage=form2.tabsheet3 then begin
SQL.Add('select * from SnVzisk'); //выбирает все данные из таблицы Sotr1
SQL.Add('where (zvanie like "'+zv+ '%")'); //выбор данных из таблицы, где
form6.Show;
procedure TForm8.FormActivate(Sender: TObject);
combobox1.Text:='';
procedure TForm8.bsSkinButton1Click(Sender: TObject);
form6.bsSkinButton3.Visible:=true;
with datamodule4.ADOQuery4 do begin
SQL.Add('where (Zvanie like "'+zv+ '%") and (Rugo="Аппарат УВД")'); //выбор данных
datamodule4.DataSource4.DataSet:=datamodule4.adoquery4;
form6.hide;
form6.bsSkinButton3.Visible:=false;
SQL.Add('where (zvanie like "'+zv+ '%")'); //выбор данных
procedure TForm8.bsSkinButton2Click(Sender: TObject);
unit Unit15; //форма информации о программе
TForm15 = class(TForm)
Form15: TForm15;
procedure TForm15.bsSkinButton1Click(Sender: TObject);
form15.Hide;
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10