begin //

if ADOTable2.FieldValues['Nadb']=null then ADOTable2.FieldValues['Nadb']:=0;

ADOTable2.Post; //

ADOTable2.Refresh; //

end; //

end; //

//

procedure TFormF.ADOTable2AfterEdit(DataSet: TDataSet); //

begin //

pst2.Enabled:=true; //

end; //

//

procedure TFormF.ADOTable2AfterInsert(DataSet: TDataSet); //

begin //

pst2.Enabled:=true; //

end; //

//

procedure TFormF.ADOTable2AfterCancel(DataSet: TDataSet); //

begin //

pst2.Enabled:=false; //

end; //

//

procedure TFormF.ADOTable2AfterPost(DataSet: TDataSet); //

begin //

pst2.Enabled:=false; //

end; //

procedure TFormF.pst3Click(Sender: TObject); //

begin //

if (ADOTable3.FieldValues['N']=null) or (ADOTable3.FieldValues['FIO']=null) or (ADOTable3.FieldValues['N_gr']=null){ or (ADOTable3.FieldValues['Oklad']=null)} then

begin //

ShowMessage('Не все обязательные поля заполнены'); //

end // кнопка pst3 выполняет функцию

else // кнопки Post DBNavigator3

begin //

ADOTable3.Post; //

ADOTable3.Refresh; //

end; //

end; //

//

procedure TFormF.ADOTable3AfterEdit(DataSet: TDataSet); //

begin //

pst3.Enabled:=true; //

end; //

//

procedure TFormF.ADOTable3AfterInsert(DataSet: TDataSet); //

begin //

pst3.Enabled:=true; //

end; //

//

procedure TFormF.ADOTable3AfterCancel(DataSet: TDataSet); //

begin //

pst3.Enabled:=false; //

end; //

//

procedure TFormF.ADOTable3AfterPost(DataSet: TDataSet); //

begin //

pst3.Enabled:=false; //

end; //

procedure TFormF.pst4Click(Sender: TObject); //

begin //

if (ADOTable4.FieldValues['Day']=null) or (ADOTable4.FieldValues['BeginT']=null) or (ADOTable4.FieldValues['Mesto']=null) then

begin //

ShowMessage('Не все обязательные поля заполнены'); //

end // кнопка pst4 выполняет функцию

else // кнопки Post DBNavigator4

begin

if ADOTable4.FieldValues['Day'] = 'понедельник' then ADOTable4.FieldValues['N_Day'] := 1 else

if ADOTable4.FieldValues['Day'] = 'вторник' then ADOTable4.FieldValues['N_Day'] := 2 else

if ADOTable4.FieldValues['Day'] = 'среда' then ADOTable4.FieldValues['N_Day'] := 3 else

if ADOTable4.FieldValues['Day'] = 'четверг' then ADOTable4.FieldValues['N_Day'] := 4 else

if ADOTable4.FieldValues['Day'] = 'пятница' then ADOTable4.FieldValues['N_Day'] := 5 else

if ADOTable4.FieldValues['Day'] = 'суббота' then ADOTable4.FieldValues['N_Day'] := 6 else

if ADOTable4.FieldValues['Day'] = 'воскресение' then ADOTable4.FieldValues['N_Day'] := 7;

//

ADOTable4.Post; //

ADOTable4.Refresh; //

end; //

end; //

//

procedure TFormF.ADOTable4AfterEdit(DataSet: TDataSet); //

begin //

pst4.Enabled:=true; //

end; //

//

procedure TFormF.ADOTable4AfterInsert(DataSet: TDataSet); //

begin //

pst4.Enabled:=true; //

end; //

//

procedure TFormF.ADOTable4AfterCancel(DataSet: TDataSet); //

begin //

pst4.Enabled:=false; //

end; //

//

procedure TFormF.ADOTable4AfterPost(DataSet: TDataSet); //

begin //

pst4.Enabled:=false; //

end; //

end.

unit UnitZ;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, Buttons, math;

type

TFormZ = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

GroupBox3: TGroupBox;

GroupBox4: TGroupBox;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

ADOQuery1: TADOQuery;

ADOQuery2: TADOQuery;

ADOQuery3: TADOQuery;

ADOQuery4: TADOQuery;

ADOQuery5: TADOQuery;

ADOQuery6: TADOQuery;

DataSource1: TDataSource;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

Label1: TLabel;

BitBtn7: TBitBtn;

ComboBox1: TComboBox;

Label2: TLabel;

ComboBox2: TComboBox;

BitBtn8: TBitBtn;

BitBtn9: TBitBtn;

Bevel1: TBevel;

BitBtn10: TBitBtn;

BitBtn11: TBitBtn;

ADOQuery5DSDesigner: TWideStringField;

ADOQuery5DSDesigner2: TDateTimeField;

ADOQuery5DSDesigner3: TDateTimeField;

ADOQuery5DSDesigner4: TWideStringField;

ADOQuery5N_Day: TIntegerField;

ADOQuery2DSDesigner: TWideStringField;

ADOQuery2DSDesigner2: TBooleanField;

ADOQuery2DSDesigner3: TBCDField;

ADOQuery2DSDesigner4: TSmallintField;

QTotDel: TFloatField;

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure ComboBox1DropDown(Sender: TObject);

procedure ComboBox2DropDown(Sender: TObject);

procedure BitBtn10Click(Sender: TObject);

procedure BitBtn11Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure BitBtn8Click(Sender: TObject);

procedure BitBtn9Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure ADOQuery2CalcFields(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormZ: TFormZ;

implementation

uses UnitMain, UnitF, UnitO;

{$R *.dfm}

procedure TFormZ.BitBtn5Click(Sender: TObject);

begin

FormMain.Show;

end;

procedure TFormZ.BitBtn6Click(Sender: TObject);

begin

close;

end;

procedure TFormZ.BitBtn10Click(Sender: TObject);

begin

FormF.Show;

end;

procedure TFormZ.BitBtn11Click(Sender: TObject);

begin

FormO.Show;

end;

procedure TFormZ.ComboBox1DropDown(Sender: TObject);

{заполняет список ComboBox видами спорта из таблицы группы}

var i,code:integer;

S:string;

begin

S:='';

FormF.ADOTable01.Open;

FormF.ADOTable01.Sort:='V_sport';

FormZ.ComboBox1.Items.Clear;

FormF.ADOTable01.First;

for i:=1 to FormF.ADOTable01.RecordCount do

begin

code:=pos(FormF.ADOTable01.FieldValues['V_sport'],S);

if code=0 then FormZ.ComboBox1.Items.Append(FormF.ADOTable01.FieldValues['V_sport']);

S:=S+FormF.ADOTable01.FieldValues['V_sport'];

FormF.ADOTable01.Next;

end;

FormF.ADOTable01.Close;

end;

procedure TFormZ.ComboBox2DropDown(Sender: TObject);

{заполняет список ComboBox номерами групп из таблицы группы}

var i:integer;

begin

FormF.ADOTable01.Open;

FormF.ADOTable01.Sort:='N_gr';

FormZ.ComboBox2.Items.Clear;

FormF.ADOTable01.First;

for i:=1 to FormF.ADOTable01.RecordCount do

begin

FormZ.ComboBox2.Items.Append(FormF.ADOTable01.FieldValues['N_gr']);

FormF.ADOTable01.Next;

end;

FormF.ADOTable01.Close;

end;

procedure TFormZ.BitBtn4Click(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery2.Close;

ADOQuery3.Close;

ADOQuery4.Close;

ADOQuery5.Close;

ADOQuery6.Close;

FormZ.Caption:='Запросы';

end;

procedure TFormZ.BitBtn1Click(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery2.Close;

ADOQuery3.Close;

ADOQuery4.Close;

ADOQuery5.Close;

ADOQuery6.Close;

DataSource1.DataSet:=ADOQuery1;

ADOQuery1.Open;

FormZ.Caption:='Запрос "Список спортсменов"';

end;

procedure TFormZ.BitBtn2Click(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery2.Close;

ADOQuery3.Close;

ADOQuery4.Close;

ADOQuery5.Close;

ADOQuery6.Close;

DataSource1.DataSet:=ADOQuery2;

ADOQuery2.Open;

FormZ.Caption:='Запрос "Заслуженные тренеры"';

end;

procedure TFormZ.BitBtn3Click(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery2.Close;

ADOQuery3.Close;

ADOQuery4.Close;

ADOQuery5.Close;

ADOQuery6.Close;

DataSource1.DataSet:=ADOQuery3;

ADOQuery3.Open;

FormZ.Caption:='Запрос "Количество в группах"';

end;

procedure TFormZ.BitBtn7Click(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery2.Close;

ADOQuery3.Close;

ADOQuery4.Close;

ADOQuery5.Close;

ADOQuery6.Close;

DataSource1.DataSet:=ADOQuery4;

ADOQuery4.Parameters.ParamValues['ParamSPORT']:=ComboBox1.Text;

ADOQuery4.Open;

FormZ.Caption:='Запрос "Сведения о группах"';

end;

procedure TFormZ.BitBtn8Click(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery2.Close;

ADOQuery3.Close;

ADOQuery4.Close;

ADOQuery5.Close;

ADOQuery6.Close;

DataSource1.DataSet:=ADOQuery5;

ADOQuery5.Parameters.ParamValues['ParamNGR']:=ComboBox2.Text;

ADOQuery5.Open;

FormZ.Caption:='Запрос "Расписание группы № '+ComboBox2.Text+'"';

//ADOQuery5.Sort:='nDay';

end;

procedure TFormZ.BitBtn9Click(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery2.Close;

ADOQuery3.Close;

ADOQuery4.Close;

ADOQuery5.Close;

ADOQuery6.Close;

DataSource1.DataSet:=ADOQuery6;

ADOQuery6.Parameters.ParamValues['ParamNGR']:=ComboBox2.Text;

ADOQuery6.Open;

FormZ.Caption:='Запрос "Список спортсменов группы № '+ComboBox2.Text+'"';

end;

procedure TFormZ.FormClose(Sender: TObject; var Action: TCloseAction);

begin

ADOQuery1.Close;

ADOQuery2.Close;

ADOQuery3.Close;

ADOQuery4.Close;

ADOQuery5.Close;

ADOQuery6.Close;

FormZ.Caption:='Запросы';

end;

procedure TFormZ.ADOQuery2CalcFields(DataSet: TDataSet);

begin

QTotDel.Value:=roundto((ADOQUERY2DSDesigner3.Value*(1+(ADOQUERY2DSDesigner4.Value/100))),-2);

end;

end.

unit UnitO;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, RpCon, RpConDS, RpBase, RpSystem, RpDefine,

RpRave, RpRender, RpRenderHTML, jpeg, ExtCtrls, DB, ADODB, RpRenderPDF,

Grids, DBGrids, math;

type

TFormO = class(TForm)

RvProject1: TRvProject;

RvSystem1: TRvSystem;

RvDataSetConnection1: TRvDataSetConnection;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

RvRenderHTML1: TRvRenderHTML;

Image1: TImage;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

BitBtn7: TBitBtn;

ADOQuery1: TADOQuery;

ADOQuery2: TADOQuery;

ADOQuery3: TADOQuery;

RvDataSetConnection2: TRvDataSetConnection;

RvDataSetConnection3: TRvDataSetConnection;

Image2: TImage;

ADOQuery3N_tren: TIntegerField;

ADOQuery3FIO: TWideStringField;

ADOQuery3Oklad: TBCDField;

ADOQuery3Nadb: TSmallintField;

QtotalDELF: TFloatField;

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure ADOQuery3CalcFields(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormO: TFormO;

implementation

uses UnitMain, UnitF, UnitZ;

{$R *.dfm}

procedure TFormO.BitBtn4Click(Sender: TObject);

begin

FormMain.Show;

end;

procedure TFormO.BitBtn5Click(Sender: TObject);

begin

FormF.Show;

end;

procedure TFormO.BitBtn6Click(Sender: TObject);

begin

FormZ.Show;

end;

procedure TFormO.BitBtn7Click(Sender: TObject);

begin

close;

end;

procedure TFormO.BitBtn3Click(Sender: TObject);

begin

RvProject1.ExecuteReport('ReportTren');

end;

procedure TFormO.BitBtn1Click(Sender: TObject);

begin

RvProject1.ExecuteReport('ReportRasp');

end;

procedure TFormO.BitBtn2Click(Sender: TObject);

begin

RvProject1.ExecuteReport('ReportSpis');

end;

procedure TFormO.ADOQuery3CalcFields(DataSet: TDataSet);

begin

QTotalDelf.Value:=roundto((ADOQUERY3OKLAD.Value*(1+(ADOQUERY3nadb.Value/100))),-2);

end;

end.

unit UnitA;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls;

type

TAboutBox = class(TForm)

Timer1: TTimer;

Shape1: TShape;

Image7: TImage;

Image8: TImage;

Image5: TImage;

Image4: TImage;

Image2: TImage;

Image3: TImage;

Image6: TImage;

Image1: TImage;

Label2: TLabel;

Label1: TLabel;

Label3: TLabel;

procedure FormShow(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutBox: TAboutBox;

implementation

{$R *.dfm}

procedure Delay(dwMilliseconds: Word);

var

iStart, iStop: DWORD;

begin

iStart := GetTickCount;

repeat

iStop := GetTickCount;

Application.ProcessMessages;

until ((iStop - iStart) >= dwMilliseconds);

end;

procedure TAboutBox.FormShow(Sender: TObject);

begin

Timer1.Enabled:=true;

end;

procedure TAboutBox.FormClose(Sender: TObject; var Action: TCloseAction);

var i:integer;

begin

for i:=60 downto 1 do

begin

AboutBox.AlphaBlendValue:=AboutBox.AlphaBlendValue-4;

Delay(10);

end;

end;

procedure TAboutBox.Timer1Timer(Sender: TObject);

begin

Timer1.Enabled:=false;

close;

end;

end.

unit UnitP;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TFormP = class(TForm)

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

GroupBox3: TGroupBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Edit2Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormP: TFormP;

aut:boolean = true;

implementation

uses UnitMain, UnitA;

{$R *.dfm}

function test(a:string):boolean;

var f:file of char;

m:array of char;

m1:array of char;

b:char;

i:integer;

s:integer;

j:integer;

// p:string;

c:string[3];

// r:integer;

// rc:string[1];

begin

AssignFile(f,'hdrdata.base');

reset(f);

s:=0;

while not EOF(f) do

begin

inc(s);

setLength(m,(s));

setLength(m1,(s));

read(f,b);

m[s-1]:=b;

m1[s-1]:=b;

end;

closefile(f);

if s<>131+Length(a)*3 then

begin

result:=false;

exit;

end;

for i:=1 to Length(a) do

begin

c:=inttostr(758-ord(a[i]));

for j:=1 to 3 do

m1[j+3*(i-1)+130]:=c[j]; //blockwrite(f,c[j],1);

end;

result:=true;

for i:=0 to s-1 do

if m[i]<>m1[i] then result:=false;

end;

procedure setp(p:string);

var f:file{ of string[3]};

i:integer;

j:integer;

// p:string;

c:string[3];

r:integer;

rc:string[1];

begin

AssignFile(f,'hdrdata.base');

rewrite(f,1);

//showmessage(p[1]);

randomize;

for i:=1 to 131 do

begin

r:=random(10);

//showmessage(inttostr(r));

rc:=inttostr(r);

blockwrite(f,rc[1],1);

end;

for i:=1 to Length(p) do

begin

c:=inttostr(758-ord(p[i]));

for j:=1 to 3 do

blockwrite(f,c[j],1);

end;

CloseFile(f);

end;

procedure TFormP.Button1Click(Sender: TObject);

begin

if test(Edit1.Text) then close else showmessage('access denied ;-)');

end;

procedure TFormP.Button2Click(Sender: TObject);

begin

if aut then FormMain.Close else close;

end;

procedure TFormP.Button3Click(Sender: TObject);

begin

if not test(Edit1.Text) then showmessage('access denied ;-)')

else

if Edit2.Text<>Edit3.Text then showmessage('Новый пароль не совпадает с подтверждением!')

else

begin

setp(Edit2.Text);

Showmessage('Пароль изменен');

close;

end;

end;

procedure TFormP.FormCreate(Sender: TObject);

begin

Button1.Visible:=true;

Button2.Visible:=true;

Button3.Visible:=false;

GroupBox2.Visible:=false;

GroupBox3.Visible:=false;

Edit1.Text:='';

end;

procedure TFormP.Edit2Change(Sender: TObject);

begin

if length(Edit2.Text)<6 then Button3.Enabled:=false else Button3.Enabled:=true;

end;

end.

Размещено на Allbest.ru