Главная страница Случайная страница Разделы сайта АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Обращение к приложению ⇐ ПредыдущаяСтр 3 из 3
· Модуль приложения 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; Ы
|