107
end;
procedure TForm1.FormShow(Sender: TObject);
begin
DM.Q1zanyatiya.Open;
DM.Q2zapis.Open;
DM.Q3posetiteli.Open;
DM.Q4trenera.Open;
DM.Q5yslugi.Open
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
with DM do begin
if openpicturedialog1.execute then begin
if not (Q4trenera.State in [dsInsert , dsEdit ]) then
Q4trenera.Edit;
Q4treneraFoto.LoadFromFile(openpicturedialog1.FileName);
end;
end;
end;
procedure TForm1.FilterClick(Sender: TObject);
begin
filter1;
108
end;
procedure TForm1.cxGrid1DBTableView1FocusedRecordChanged(
Sender: TcxCustomGridTableView; APrevFocusedRecord,
AFocusedRecord: TcxCustomGridRecord;
ANewItemRecordFocusingChanged: Boolean);
begin
filter1;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
with DM do begin
if Q3posetiteli.State=dsBrowse then begin
Q3posetiteli.Append;
DBEdit1.SetFocus;
end;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
with DM do begin
if Q3posetiteli.State in [dsInsert,dsEdit] then
Q3posetiteli.Post;
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
109
begin
with DM do begin
if Q3posetiteli.State in [dsInsert,dsEdit] then
Q3posetiteli.Cancel;
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
with DM do begin
if Q3posetiteli.State=dsBrowse then
if MessageDlg('Удалить запись?'+#10#13+
'При этом соответствующие записи в '+
'подчиненных таблицах средствами СУБД будут удалены! ',
mtConfirmation,[mbYes,mbNo],0)=mrYes then
Q3posetiteli.Delete;
end;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
with DM do begin
if NOT Q1zanyatiya.IsEmpty then begin
PRIM.Close;
PRIM.SQL.Clear;
PRIM.SQL.Add('select * from Zapis');
PRIM.SQL.Add('where
kod_zanyztiya='+Q1zanyatiya.FieldByName('kod_zanyztiya').AsString);
PRIM.SQL.Add('order by Nomer_zapisy');
110
PRIM.Open;
Form3.Show;
end;
end;
end;
procedure TForm1.N101Click(Sender: TObject);
begin
begin
with DM do begin
IND.ExecSQL;
Zakladka:=Q1zanyatiya.GetBookmark;
Q1zanyatiya.Close;
Q1zanyatiya.Open;
if Q1zanyatiya.BookmarkValid(Zakladka) then begin
Q1zanyatiya.GotoBookmark(Zakladka);
Q1zanyatiya.FreeBookmark(Zakladka);
end;
end;
end;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
Form4.show;
end;
111
procedure TForm1.N4Click(Sender: TObject);
begin
DM.RvProject2.executereport('trener');
end;
procedure TForm1.N5Click(Sender: TObject);
begin
DM.Group.Open;
Dm.RvProject3.ExecuteReport('zan');
DM.Group.Close;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
DM.Group2.Open;
DM.RvProject4.ExecuteReport('zana');
DM.Group2.Close;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
Form4.show;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
DM.RvProject1.executereport('posetitel');
end;
procedure TForm1.N3Click(Sender: TObject);
begin
112
DM.Group2.Open;
DM.RvProject4.ExecuteReport('zana');
DM.Group2.Close;
end;
end.
unit Unit2;
interface
uses
SysUtils, Classes, cxGridCustomPopupMenu, cxGridPopupMenu, DB, ADODB,
Dialogs, ExtDlgs,Controls, Menus, RpRave, RpDefine, RpCon, RpConDS,
RpRenderText, RpRenderRTF, RpRenderHTML, RpRender, RpRenderPDF;
type
TDM = class(TDataModule)
ADOC: TADOConnection;
Q1zanyatiya: TADOQuery;
DS1Zanyatiya: TDataSource;
Q2zapis: TADOQuery;
Q3posetiteli: TADOQuery;
Q4trenera: TADOQuery;
Q5yslugi: TADOQuery;
DS2Zapis: TDataSource;
DS3Posetiteli: TDataSource;
DS4Trenera: TDataSource;
DS5Yslugi: TDataSource;
113
Q4treneraFoto: TBlobField;
Q4treneraKod_trenera: TAutoIncField;
Q4treneraKod_yclygi: TIntegerField;
Q4treneraFamiliya_trenera: TStringField;
Q4treneraImya_trenera: TStringField;
Q4treneraOtchestvo_trenera: TStringField;
Q4treneraDate_trenera: TDateTimeField;
Q4treneraKvalification: TStringField;
Q3posetiteliKod_posetitelya: TAutoIncField;
Q3posetiteliFamiliya: TStringField;
Q3posetiteliImya: TStringField;
Q3posetiteliOtchestvo: TStringField;
Q3posetiteliDate: TDateTimeField;
Q3posetiteliTelefon: TIntegerField;
Q2zapisKod_posetitelya: TIntegerField;
Q2zapisNomer_zapisy: TAutoIncField;
Q2zapisKod_zanyztiya: TIntegerField;
Q1zanyatiyaKod_zanyztiya: TAutoIncField;
Q1zanyatiyaKod_trenera: TIntegerField;
Q1zanyatiyanachalo_zanyatiya: TDateTimeField;
Q1zanyatiyaokonchanie_zanyatiya: TDateTimeField;
Q1zanyatiyastoimost_zanyatiya: TIntegerField;
Q1zanyatiyaMax_chelovek: TIntegerField;
Q5yslugiKod_yclygi: TAutoIncField;
Q5yslugiNaim_yclygi: TStringField;
Tran: TADOQuery;
114
PRIM: TADOQuery;
DSPRIM: TDataSource;
PRIMFAM: TStringField;
PRIMKod_posetitelya: TIntegerField;
PRIMNomer_zapisy: TAutoIncField;
PRIMKod_zanyztiya: TIntegerField;
Q1zanyatiyaObS: TIntegerField;
Q3posetiteliFIO: TStringField;
IND: TADOQuery;
Find: TADOQuery;
DSFind: TDataSource;
RvRenderPDF1: TRvRenderPDF;
RvRenderHTML1: TRvRenderHTML;
RvRenderRTF1: TRvRenderRTF;
RvRenderText1: TRvRenderText;
RvProject1: TRvProject;
RvDataSetConnection1: TRvDataSetConnection;
RvDataSetConnection2: TRvDataSetConnection;
RvProject2: TRvProject;
Group: TADOQuery;
RvDataSetConnection3: TRvDataSetConnection;
RvProject3: TRvProject;
RvDataSetConnection4: TRvDataSetConnection;
Group2: TADOQuery;
RvProject4: TRvProject;
procedure Q2zapisAfterOpen(DataSet: TDataSet);
115
procedure Q2zapisAfterInsert(DataSet: TDataSet);
procedure Q3posetiteliPostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
procedure Q1zanyatiyaBeforePost(DataSet: TDataSet);
procedure Q1zanyatiyaAfterPost(DataSet: TDataSet);
procedure Q1zanyatiyaPostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
procedure PRIMAfterInsert(DataSet: TDataSet);
procedure Q1zanyatiyaCalcFields(DataSet: TDataSet);
procedure Q3posetiteliCalcFields(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DM: TDM;
Dobavit_v_T2:boolean;
implementation
uses Unit1;
{$R *.dfm}
procedure TDM.Q2zapisAfterOpen(DataSet: TDataSet);
begin
if not (Q3posetiteli.State in [dsInsert,dsEdit]) then begin
Q1zanyatiya.Close;
Q1zanyatiya.SQL.Clear;
116
Q1zanyatiya.SQL.Add('select * from Zanyatiya');
Q1zanyatiya.SQL.Add('where Kod_zanyztiya=ANY');
Q1zanyatiya.SQL.Add('(');
Q1zanyatiya.SQL.Add('select Kod_zanyztiya from Zapis');
if Form1.Filter.ItemIndex=1 then
if NOT Q3posetiteli.IsEmpty then
Q1zanyatiya.SQL.Add('where
Kod_posetitelya='+Q3posetiteli.FieldByName('Kod_posetitelya').AsString);
Q1zanyatiya.SQL.Add(')');
Q1zanyatiya.Open;
end
end;
procedure TDM.Q2zapisAfterInsert(DataSet: TDataSet);
begin
with DM do begin
Q2zapis.FieldByName('kod_zanyztiya').AsVariant:=Q1zanyatiya.FieldByName('kod_zanyztiya')
.AsVariant;
Q2zapis.FieldByName('kod_posetitelya').AsVariant:=Q3posetiteli.FieldByName('kod_posetitely
a').AsVariant;
end;
end;
procedure TDM.Q3posetiteliPostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
begin
MessageDlg('Ошибка. Проверьте поля заполнения', mtError,[mbOK],0);
if MessageDlg('Отменить изменения?',