Базы данных и знаний. Проектирование баз данных по технологии "клиент-сервер" и разработка клиентских приложений. Токмаков Г.П. - 112 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

- 112-
PGroups:=TGroups.Create;
with PGroups
do begin
{в объект вносятся данные из списка-наименование и код}
kod_group:=integer(ListBoxl.Items.Objects
[ListBoxl.Itemlndex]);
name_group:=ListBoxl.Items[ListBoxl.Itemlndex];
kol__students:=integer(ListBoxl.Items.Objects
[ListBoxl.Itemlndex]);
sredniy ball:=real(ListBoxl.Items.Objects
[ListBoxl.Itemlndex]);
end;
CreateElemDlg(Application.Handle,PGroups);
SetElemConnection (DataBasel.Handle);
ShowElemDlg(false);
if PGroups.changed then LoadList;
FreeLibrary(hLib);
end;
От созданного ранее оно отличается тем, что при создании диалога в него
передается не «пус той» объект PGroups, а содержащий данные из выбранной
строки списка ListBox.
Кроме того, диалог вызывается в режиме изменения - в процедуру
ShowElemDlg передается параметр false.
Пр и выходе из формы нажатием на кнопку «Выход» - данные из выбранной
строки списка ListBoxl сохраняются в объекте Groups, если он существует:
procedure TflGroups.btnExitClick(Sender:TObject);
begin
if Lis t Bo xl.It emln d ex <> -1 t h en
begin
if assigned (Groups) then
with Groups
do begin
kod_group:=integer(ListBoxl.Items.Objects
[ListBoxl.Itemlndex]);
name__group : =ListBoxl. I terns
[ListBoxl.Ite mlndex];
kol__students:=integer(ListBoxl.Items.Objects
[ListBoxl.Itemlndex]);
sredniy_ball:=real(ListBoxl.Ite ms.Objects
[ListBoxl.Itemlndex]);
end;
end;
end;
Здесь мы исходили из того, что форма списка, скорее всего, будет ис-
пользоваться для выбора элемента - значит, выбранный элемент каким-то
образом будет нужно передавать вызывающему модулю. Именно для этого

Страницы