Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Обращение к приложению
|
|
· Модуль приложения Olymp:
program Olymp;
uses
Forms,
Unit1 in 'Unit1.pas' {FmMain}, //Главная форма программы
Unit2 in 'Unit2.pas' {DataModule2: TDataModule}, //Контейнер для компонентов доступа к данным
Unit3 in 'Unit3.pas' {FmSprav}, //Форма справочников
U_RepCity in 'U_RepCity.pas' {FmRepCity}, //Форма отчета «города»
U_RepCountryes in 'U_RepCountryes.pas' {FmRepCountry}, //Форма отчета «страны»
U_RepSportstype in 'U_RepSportstype.pas' {FmRepSportstype}, //Форма отчета «Виды спорта»
U_RepOlymp in 'U_RepOlymp.pas' {FmRepOlimp}, //Форма отчета «Олимпийцы»
U_QOlymp in 'U_QOlymp.pas' {FmOlymp}, //Форма запроса «Олимпийцы»
U_AddOlymp in 'U_AddOlymp.pas' {FmAddOlymp}, //Форма добавления/изменения Олимпийца
U_AddCountry in 'U_AddCountry.pas' {FmAddCountry}, //Форма добавления/изменения Страны
U_AddCity in 'U_AddCity.pas' {FmAddCity}, //Форма добавления/изменения города/вида спорта
U_age in 'U_age.pas' {FmAGE}, //Форма запроса «возраст»
U_RepAge in 'U_RepAge.pas' {FmRepAge}, //Форма отчета «возраст»
U_Qsport in 'U_Qsport.pas' {FmSport}, //Форма запроса «виды спорта»
U_RepQSport in 'U_RepQSport.pas' {FmRepSport}; //Форма отчета «виды спорта»
{$R *.res}
begin
Application.Initialize;
Application.Title: = 'Olymp';
Application.CreateForm(TFmMain, FmMain); //создание главной формы
Application.CreateForm(TDataModule2, DataModule2); //создание DataModule2
Application.Run;
end.
· Модуль контейнера для компонентов доступа к данным (DataModule)
· Главная форма
· Форма добавления/изменения Олимпийца (FmAddOlymp).
procedure TFmAddOlymp.FormClose(Sender: TObject; var Action: TCloseAction); //при закрытии формы
begin
FmAddOlymp.Release;
end;
procedure TFmAddOlymp.BitBtn2Click(Sender: TObject); //при нажатии на кнопку «закрыть»
begin
FmAddOlymp.Release;
end;
procedure TFmAddOlymp.BitBtn1Click(Sender: TObject); //при нажатии на кнопку «записать»
begin
if RadioGroup1.ItemIndex=0 then
begin
DataModule2.ADOTOlymp.Insert;
DataModule2.ADOTOlymp.FieldByName('Фамилия').AsString: =edit1.Text;
DataModule2.ADOTOlymp.FieldByName('Имя').AsString: =edit2.Text;
DataModule2.ADOTOlymp.FieldByName(‘Отчество’).AsString: =edit3.Text;
DataModule2.ADOTOlymp.FieldByName('Дата_рождения').AsDateTime: =DateTimePicker1.Date;
DataModule2.ADOTOlymp.FieldByName('Рост').AsInteger: =strtoint(NumericEdit1.Text);
DataModule2.ADOTOlymp.FieldByName('Вес').AsInteger: =strtoint(NumericEdit2.Text);
DataModule2.ADOTOlymp.FieldByName('Пол').AsString: =Edit4.Text;
DataModule2.ADOTOlymp.FieldByName('Код_страны').AsInteger: =strtoint(Edit5.Text);
DataModule2.ADOTOlymp.FieldByName('Код_вида_спорта').AsInteger: =strtoint(Edit6.Text);
DataModule2.ADOTOlymp.FieldByName('Код_города').AsInteger: =strtoint(Edit7.Text);
DataModule2.ADOTOlymp.Post;
showmessage(‘Запись успешно добавлена! ');
end;
if RadioGroup1.ItemIndex=1 then
begin
DataModule2.ADOTOlymp.Edit;
DataModule2.ADOTOlymp.FieldByName('Фамилия').AsString: =edit1.Text;
DataModule2.ADOTOlymp.FieldByName('Имя').AsString: =edit2.Text;
DataModule2.ADOTOlymp.FieldByName(‘Отчество’).AsString: =edit3.Text;
DataModule2.ADOTOlymp.FieldByName('Дата_рождения').AsDateTime: =DateTimePicker1.Date;
DataModule2.ADOTOlymp.FieldByName('Рост').AsInteger: =strtoint(NumericEdit1.Text);
DataModule2.ADOTOlymp.FieldByName('Вес').AsInteger: =strtoint(NumericEdit2.Text);
DataModule2.ADOTOlymp.FieldByName('Пол').AsString: =Edit4.Text;
DataModule2.ADOTOlymp.FieldByName('Код_страны').AsInteger: =strtoint(Edit5.Text);
DataModule2.ADOTOlymp.FieldByName('Код_вида_спорта').AsInteger: =strtoint(Edit6.Text);
DataModule2.ADOTOlymp.FieldByName('Код_города').AsInteger: =strtoint(Edit7.Text);
DataModule2.ADOTOlymp.Post;
showmessage(‘Запись успешно изменена! ');
end;
end;
procedure TFmAddOlymp.Edit5Change(Sender: TObject); //при изменении поля ввода кода страны
begin
if Length(Edit5.Text)=0 then abort;
DataModule2.ADOQQC.Close;
DataModule2.ADOQQC.Parameters[0].Value: =strtoint(Edit5.text);
DataModule2.ADOQQC.Open;
if DataModule2.ADOQQC.RecordCount=1 then
begin
Label14.Caption: =DataModule2.ADOQQC.Fields[1].AsString;
end
else
Label14.Caption: ='';
end;
procedure TFmAddOlymp.Edit6Change(Sender: TObject); //при изменении поля ввода кода вида спорта
begin
if Length(Edit6.Text)=0 then abort;
DataModule2.ADOQQVid.Close;
DataModule2.ADOQQVid.Parameters[0].Value: =strtoint(Edit6.text);
DataModule2.ADOQQVid.Open;
if DataModule2.ADOQQVid.RecordCount=1 then
begin
Label15.Caption: =DataModule2.ADOQQVid.Fields[1].AsString;
end
else
Label15.Caption: ='';
end;
procedure TFmAddOlymp.Edit7Change(Sender: TObject); //при изменении поля ввода кода города
begin
if Length(Edit7.Text)=0 then abort;
DataModule2.ADOQQCity.Close;
DataModule2.ADOQQCity.Parameters[0].Value: =strtoint(Edit7.text);
DataModule2.ADOQQCity.Open;
if DataModule2.ADOQQCity.RecordCount=1 then
begin
Label16.Caption: =DataModule2.ADOQQCity.Fields[1].AsString;
end
else
Label16.Caption: ='';
end;
procedure TFmAddOlymp.RadioGroup1Click(Sender: TObject); //при изменении группы выбора действия
begin
if RadioGroup1.ItemIndex=0 then
begin
edit1.Text: =''; edit2.Text: =''; edit3.Text: =''; NumericEdit1.Text: ='0'; NumericEdit2.Text: ='0';
Edit4.Text: =''; Edit5.Text: =''; Edit6.Text: =''; Edit7.Text: ='';
label14.Caption: =''; label15.Caption: =''; label16.Caption: ='';
end;
if RadioGroup1.ItemIndex=1 then
begin
edit1.Text: =DataModule2.ADOTOlymp.Fields[0].AsString;
edit2.Text: =DataModule2.ADOTOlymp. Fields[1].AsString;
edit3.Text: =DataModule2.ADOTOlymp. Fields[2].AsString;
NumericEdit1.Text: =DataModule2.ADOTOlymp. Fields[3].AsString;
NumericEdit2.Text: =DataModule2.ADOTOlymp. Fields[4].AsString;
DateTimePicker1.Date: =DataModule2.ADOTOlymp. Fields[5].AsDateTime;
Edit4.Text: =DataModule2.ADOTOlymp. Fields[6].AsString;
Edit5.Text: =DataModule2.ADOTOlymp. Fields[7].AsString;
Edit6.Text: =DataModule2.ADOTOlymp. Fields[8].AsString;
Edit7.Text: =DataModule2.ADOTOlymp. Fields[9].AsString;
end;
end;
procedure TFmAddOlymp.DBGrid1CellClick(Column: TColumn); // при щелчке по строке табличной части
begin
if RadioGroup1.ItemIndex=1 then
begin
edit1.Text: =DataModule2.ADOTOlymp. Fields[0].AsString;
edit2.Text: =DataModule2.ADOTOlymp. Fields[1].AsString;
edit3.Text: =DataModule2.ADOTOlymp. Fields[2].AsString;
NumericEdit1.Text: =DataModule2.ADOTOlymp. Fields[3].AsString;
NumericEdit2.Text: =DataModule2.ADOTOlymp. Fields[4].AsString;
DateTimePicker1.Date: =DataModule2.ADOTOlymp. Fields[5].AsDateTime;
Edit4.Text: =DataModule2.ADOTOlymp. Fields[6].AsString;
Edit5.Text: =DataModule2.ADOTOlymp. Fields[7].AsString;
Edit6.Text: =DataModule2.ADOTOlymp. Fields[8].AsString;
Edit7.Text: =DataModule2.ADOTOlymp. Fields[9].AsString;
end;
end;
procedure TFmAddOlymp.RzLabel2Click(Sender: TObject); //при нажатии на надпись «Код страны»
begin
Application.CreateForm(TFmAddCountry, FmAddCountry);
U_AddCountry.X: =true;
FmAddCountry.RzLabel1.Visible: =True;
end;
procedure TFmAddOlymp.RzLabel3Click(Sender: TObject); //при нажатии на надпись «Код вида спорта»
begin
Application.CreateForm(TFmAddCity, FmAddCity);
U_AddCity.X: =True;
FmAddCity.RadioGroup1.ItemIndex: =1;
FmAddCity.RzLabel1.Visible: =true;
end;
procedure TFmAddOlymp.RzLabel4Click(Sender: TObject); //при нажатии на надпись «Код города»
begin
Application.CreateForm(TFmAddCity, FmAddCity);
U_AddCity.X: =True;
FmAddCity.RadioGroup1.ItemIndex: =0;
FmAddCity.RzLabel1.Visible: =true;
end;
· Форма добавления/изменения страны
var
FmAddCountry: TFmAddCountry;
X: boolean; //запущена ли с формы олимпийца
procedure TFmAddCountry.BitBtn2Click(Sender: TObject); //при нажатии на кнопку «закрыть»
begin
FmAddCountry.Release;
end;
procedure TFmAddCountry.DBGrid1DblClick(Sender: TObject); //двойной клик по ячейке таблицы
begin
if X=true then
begin
FmAddOlymp.Edit5.Text: =DataModule2.ADOTCountry.Fields[0].AsString;
FmAddCountry.Release;
end;
end;
procedure TFmAddCountry.RadioGroup1Click(Sender: TObject); //при изменении группы выбора действия
begin
if RadioGroup1.ItemIndex=0 then
begin
Edit1.Text: =''; Edit2.Text: =''; Edit3.Text: =''; MaskEdit1.Text: ='';
end;
if RadioGroup1.ItemIndex=1 then
begin
Edit1.Text: =DataModule2.ADOTCountry.fields[0].AsString;
Edit2.Text: =DataModule2.ADOTCountry.fields[1].AsString;;
Edit3.Text: =DataModule2.ADOTCountry.fields[2].AsString;;
MaskEdit1.Text: =DataModule2.ADOTCountry.fields[3].AsString;;
end;
end;
procedure TFmAddCountry.DBGrid1CellClick(Column: TColumn); //при щелчке по строке табличной части
begin
if RadioGroup1.ItemIndex=1 then
begin
Edit1.Text: =DataModule2.ADOTCountry.fields[0].AsString;
Edit2.Text: =DataModule2.ADOTCountry.fields[1].AsString;;
Edit3.Text: =DataModule2.ADOTCountry.fields[2].AsString;;
MaskEdit1.Text: =DataModule2.ADOTCountry.fields[3].AsString;;
end;
end;
procedure TFmAddCountry.BitBtn1Click(Sender: TObject); //при нажатии на кнопку «записать»
begin
if RadioGroup1.ItemIndex=0 then
begin
DataModule2.ADOTCountry.Insert;
DataModule2.ADOTCountry.fields[0].AsInteger: =strtoint(Edit1.Text);
DataModule2.ADOTCountry.fields[1].AsString: =Edit2.Text;
DataModule2.ADOTCountry.fields[2].AsString: =Edit3.Text;
DataModule2.ADOTCountry.fields[3].AsString: =MaskEdit1.Text;
DataModule2.ADOTCountry.Post;
end;
if RadioGroup1.ItemIndex=1 then
begin
DataModule2.ADOTCountry.Edit;
DataModule2.ADOTCountry.fields[0].AsInteger: =strtoint(Edit1.Text);
DataModule2.ADOTCountry.fields[1].AsString: =Edit2.Text;
DataModule2.ADOTCountry.fields[2].AsString: =Edit3.Text;
DataModule2.ADOTCountry.fields[3].AsString: =MaskEdit1.Text;
DataModule2.ADOTCountry.Post;
end;
end;
procedure TFmAddCountry.FormClose(Sender: TObject; var Action: TCloseAction); //при закрытии формы
begin
FmAddCountry.Release;
end;
end.
· Форма добавления/изменения города/вида спорта
var
FmAddCity: TFmAddCity;
x: boolean; // запущена ли с формы олимпийцы
procedure TFmAddCity.RadioGroup1Click(Sender: TObject); //при изменении группы город/вид спорта
begin
if RadioGroup1.ItemIndex=0 then
begin
DbGrid1.DataSource: =DataModule2.DataCity;
DBNavigator1.DataSource: =DataModule2.DataCity;
end;
if RadioGroup1.ItemIndex=1 then
begin
DbGrid1.DataSource: =DataModule2.DataSportstype;
DBNavigator1.DataSource: =DataModule2.DataSportstype;
end;
if RadioGroup2.ItemIndex=1 then
begin
if RadioGroup1.ItemIndex=0 then
begin
edit1.Text: =DataModule2.ADOTCity.Fields[0].AsString;
edit2.Text: =DataModule2.ADOTCity.Fields[1].AsString;
end;
if RadioGroup1.ItemIndex=1 then
begin
edit1.Text: =DataModule2.ADOTSportstype.Fields[0].AsString;
edit2.Text: =DataModule2.ADOTSportstype.Fields[1].AsString;
end;
end;
end;
procedure TFmAddCity.FormClose(Sender: TObject; var Action: TCloseAction); //при закрытии формы
begin
FmAddCity.Release;
end;
procedure TFmAddCity.BitBtn1Click(Sender: TObject); //при нажатии на кнопку «закрыть»
begin
FmAddCity.Release;
end;
procedure TFmAddCity.RadioGroup2Click(Sender: TObject); //при изменении добавить/изменить
begin
if RadioGroup2.ItemIndex=0 then
begin
Edit1.Text: =''; Edit2.Text: ='';
end;
if RadioGroup2.ItemIndex=1 then
begin
if RadioGroup1.ItemIndex=0 then
begin
edit1.Text: =DataModule2.ADOTCity.Fields[0].AsString;
edit2.Text: =DataModule2.ADOTCity.Fields[1].AsString;
end;
if RadioGroup1.ItemIndex=1 then
begin
edit1.Text: =DataModule2.ADOTSportstype.Fields[0].AsString;
edit2.Text: =DataModule2.ADOTSportstype.Fields[1].AsString;
end;
end;
end;
procedure TFmAddCity.DBGrid1CellClick(Column: TColumn); //при щелчке по строке табличной части
begin
if RadioGroup2.ItemIndex=1 then
begin
if RadioGroup1.ItemIndex=0 then
begin
edit1.Text: =DataModule2.ADOTCity.Fields[0].AsString;
edit2.Text: =DataModule2.ADOTCity.Fields[1].AsString;
end;
if RadioGroup1.ItemIndex=1 then
begin
edit1.Text: =DataModule2.ADOTSportstype.Fields[0].AsString;
edit2.Text: =DataModule2.ADOTSportstype.Fields[1].AsString;
end;
end;
end;
procedure TFmAddCity.BitBtn2Click(Sender: TObject); //при нажатии на кнопку «Записать»
begin
if RadioGroup1.ItemIndex=0 then //если добавить
begin
if RadioGroup2.ItemIndex=0 then //если город
begin
DataModule2.ADOTCity.Insert;
DataModule2.ADOTCity.Fields[0].AsInteger: =StrToInt(Edit1.Text);
DataModule2.ADOTCity.Fields[1].AsString: =Edit2.Text;
DataModule2.ADOTCity.Post;
end;
if RadioGroup2.ItemIndex=1 then //если изменить
begin
DataModule2.ADOTCity.edit;
DataModule2.ADOTCity.Fields[0].AsInteger: =StrToInt(Edit1.Text);
DataModule2.ADOTCity.Fields[1].AsString: =Edit2.Text;
DataModule2.ADOTCity.Post;
end;
end;
if RadioGroup1.ItemIndex=1 then //если вид спорта
begin
if RadioGroup2.ItemIndex=0 then //если добавить
begin
DataModule2.ADOTSportstype.Insert;
DataModule2.ADOTSportstype.Fields[0].AsInteger: =StrToInt(Edit1.Text);
DataModule2.ADOTSportstype.Fields[1].AsString: =Edit2.Text;
DataModule2.ADOTSportstype.Post;
end;
if RadioGroup2.ItemIndex=1 then //если изменить
begin
DataModule2.ADOTSportstype.edit;
DataModule2.ADOTSportstype.Fields[0].AsInteger: =StrToInt(Edit1.Text);
DataModule2.ADOTSportstype.Fields[1].AsString: =Edit2.Text;
DataModule2.ADOTSportstype.Post;
end;
end;
end;
procedure TFmAddCity.DBGrid1DblClick(Sender: TObject); //двойной клик по ячейке таблицы
begin
if (RadioGroup1.ItemIndex=0) and (x=true) then
begin
FmAddOlymp.edit7.Text: =DataModule2.ADOTCity.Fields[0].AsString;
FmAddCity.Release;
end;
if (RadioGroup1.ItemIndex=1) and (x=true) then
begin
FmAddOlymp.edit6.Text: =DataModule2.ADOTSportstype.Fields[0].AsString;
FmAddCity.Release;
end;
end;
end.
· Форма справочники
procedure TFmSprav.RadioGroup1Click(Sender: TObject); // при изменении справочника
begin
if RadioGroup1.ItemIndex=0 then
begin
DBGrid1.DataSource: =DataModule2.DataCity;
DBNavigator1.DataSource: =DataModule2.DataCity;
end;
if RadioGroup1.ItemIndex=1 then
begin
DBGrid1.DataSource: =DataModule2.DataCountry;
DBNavigator1.DataSource: =DataModule2.DataCountry;
end;
if RadioGroup1.ItemIndex=2 then
begin
DBGrid1.DataSource: =DataModule2.DataSportstype;
DBNavigator1.DataSource: =DataModule2.DataSportstype;
end;
end;
procedure TFmSprav.FormClose(Sender: TObject; var Action: TCloseAction); //при закрытии формы
begin
FmSprav.Release;
end;
procedure TFmSprav.RzButton1Click(Sender: TObject); //при нажатии на кнопку закрыть
begin
FmSprav.Release;
end;
procedure TFmSprav.RzBitBtn1Click(Sender: TObject); //при нажатии на кнопку «просмотр»
begin
if RadioGroup1.ItemIndex=0 then
begin
Application.CreateForm(TFmRepCity, FmRepCity);
FmRepCity.QuickRep1.Preview;
end;
if RadioGroup1.ItemIndex=1 then
begin
Application.CreateForm(TFmRepCountry, FmRepCountry);
FmRepCountry.QuickRep1.Preview;
end;
if RadioGroup1.ItemIndex=2 then
begin
Application.CreateForm(TFmRepSportstype, FmRepSportstype);
FmRepSportstype.QuickRep1.Preview;
end;
end;
procedure TFmSprav.RzBitBtn3Click(Sender: TObject); //при нажатии на кнопку добавить/изменить запись
begin
if RadioGroup1.ItemIndex=0 then
begin
Application.CreateForm(TFmAddCity, FmAddCity);
U_AddCity.X: =False;
FmAddCity.RadioGroup1.ItemIndex: =0;
end;
if RadioGroup1.ItemIndex=1 then
begin
Application.CreateForm(TFmAddCountry, FmAddCountry);
U_AddCountry.X: =False;
end;
if RadioGroup1.ItemIndex=2 then
begin
Application.CreateForm(TFmAddCity, FmAddCity);
U_AddCity.X: =False;
FmAddCity.RadioGroup1.ItemIndex: =1;
end;
end;
procedure TFmSprav.RzBitBtn2Click(Sender: TObject); //при нажатии на кнопку «печать»
begin
if RadioGroup1.ItemIndex=0 then
begin
Application.CreateForm(TFmRepCity, FmRepCity);
FmRepCity.QuickRep1.Print;
end;
if RadioGroup1.ItemIndex=1 then
begin
Application.CreateForm(TFmRepCountry, FmRepCountry);
FmRepCountry.QuickRep1.Print;
end;
if RadioGroup1.ItemIndex=2 then
begin
Application.CreateForm(TFmRepSportstype, FmRepSportstype);
FmRepSportstype.QuickRep1.Print;
end;
end;
end.
· Форма запроса олимпийцы
procedure TFmOlymp.RzBitBtn1Click(Sender: TObject); //при нажатии на кнопку «просмотр»
begin
Application.CreateForm(TFmRepOlimp, FmRepOlimp);
FmRepOlimp.QuickRep1.Preview;
end;
procedure TFmOlymp.RzBitBtn2Click(Sender: TObject); //при нажатии на кнопку «печать»
begin
Application.CreateForm(TFmRepOlimp, FmRepOlimp);
FmRepOlimp.QuickRep1.Print;
end;
procedure TFmOlymp.RzButton1Click(Sender: TObject); //при нажатии на кнопку «закрыть»
begin
FmOlymp.Release;
end;
procedure TFmOlymp.FormClose(Sender: TObject; var Action: TCloseAction); //при закрытии формы
begin
FmOlymp.Release;
end;
· Форма запроса «Возраст»
procedure TFmAGE.RadioGroup1Click(Sender: TObject); //при выборе действия
begin
if Edit1.Text='' then Edit1.Text: ='0';
datamodule2.ADOQAGE.Close;
datamodule2.ADOQAGE.SQL.Clear;
datamodule2.ADOQAGE.SQL.Add('select Фамилия, Имя, Отчество, Дата_рождения, INT((NOW()-Дата_рождения)/365) as Возраст');
datamodule2.ADOQAGE.SQL.Add('from Олимпийцы');
datamodule2.ADOQAGE.SQL.Add('where INT((NOW()-Дата_рождения)/365)'+RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]+Edit1.Text);
datamodule2.ADOQAGE.Open;
//ShowMessage(RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]);
end;
procedure TFmAGE.Edit1KeyPress(Sender: TObject; var Key: Char); //при нажатии на клавишу в Edti1
begin
if Edit1.Text='' then Edit1.Text: ='0';
if key=#13 then
begin
datamodule2.ADOQAGE.Close;
datamodule2.ADOQAGE.SQL.Clear;
datamodule2.ADOQAGE.SQL.Add('select Фамилия, Имя, Отчество, Дата_рождения, INT((NOW()-Дата_рождения)/365) as Возраст');
datamodule2.ADOQAGE.SQL.Add('from Олимпийцы');
datamodule2.ADOQAGE.SQL.Add('where INT((NOW()-Дата_рождения)/365)'+RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]+Edit1.Text);
datamodule2.ADOQAGE.Open;
end;
end;
procedure TFmAGE.Button1Click(Sender: TObject); //при нажатии на кнопку «Закрыть»
begin
FmAGE.Release;
end;
procedure TFmAGE.FormClose(Sender: TObject; var Action: TCloseAction); //при закрытии формы
begin
FmAGE.Release;
end;
procedure TFmAGE.BitBtn1Click(Sender: TObject); //при нажатии на кнопку «Просмотр»
begin
Application.CreateForm(TFmRepAge, FmRepAge);
FmRepAge.QuickRep1.Preview;
FmRepAge.Release;
end;
procedure TFmAGE.BitBtn2Click(Sender: TObject); //при нажатии на кнопку «Принтер»
begin
Application.CreateForm(TFmRepAge, FmRepAge);
FmRepAge.QuickRep1.Print;
FmRepAge.Release;
end;
· Форма запроса «Виды спорта»
procedure TFmSport.FormCreate(Sender: TObject); //при создании формы
var i: integer;
begin
dataModule2.ADOQgroupsport.Close;
dataModule2.ADOQgroupsport.Open;
for i: =1 to dataModule2.ADOQgroupsport.RecordCount do
begin
dataModule2.ADOQgroupsport.RecNo: =i;
ComboBox1.Items.Add(dataModule2.ADOQgroupsport.Fields[0].AsString);
end;
end;
procedure TFmSport.ComboBox1Change(Sender: TObject); //при изменении вида спорта
begin
DataModule2.ADOQSport.Close;
DataModule2.ADOQSport.Parameters.ParamByName('sport').Value: =ComboBox1.Text;
DataModule2.ADOQSport.Open;
if DataModule2.ADOQSport.RecordCount> 0 then
begin
DBGrid1.Visible: =True;
DBNavigator1.Visible: =True;
BitBtn1.Enabled: =True;
BitBtn2.Enabled: =True;
end;
end;
procedure TFmSport.Button1Click(Sender: TObject); //при нажатии на кнопку закрыть
begin
FmSport.Release;
end;
procedure TFmSport.FormClose(Sender: TObject; var Action: TCloseAction); //при закрытии формы
begin
FmSport.Release;
end;
procedure TFmSport.BitBtn1Click(Sender: TObject); //при нажатии на кнопку «просмотр»
begin
Application.CreateForm(TFmRepSport, FmRepSport);
FmRepSport.QuickRep1.Preview;
FmRepSport.Release;
end;
procedure TFmSport.BitBtn2Click(Sender: TObject); //при нажатии на кнопку «печать»
begin
Application.CreateForm(TFmRepSport, FmRepSport);
FmRepSport.QuickRep1.Print;
FmRepSport.Release;
end; Ы
|
|