Дипломная работа: Автоматизация взаимоотношений с клиентами спортивного комплекса «Искра»

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
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
Источник: https://baza.diplomsite.ru/previewfile/655

Смотрите также:

Изложение содержания дела, по которому приняты судебные постановления
_-___-~1
_1-тема-СтрМетал
_10_Эмиль Золя для эл версии