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

UptoLike

ВУЗ: 

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

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

Рубрика: 

- 97-
2. Поместите на форму по три компонента TEdit, TLabel и скомпонуйте ее,
как показано на рис. 66. Значения свойств компонентов должны быть заданы
так, как показано в табл. 18.
Табл. 18. Значения свойств компонентов fBaseElemForml и Label1
К
омпонент
Свойство \
З
начение
fBaseElemForml
\ Name
Caption
feGroups
Гру ппы
Label 1 Caption Обозначение группы
Editl Text ........... • _ ..........
Label2 Caption Количество студентов
Edit2 Text
Label3 Caption Проходной балл
Edit3 Text
3. Дополните описание класса формы, как показано на листинге
TfeGroups = class(TForm)
btnCancel: TButton;
btnOK: TButton;
DataSourcel: TDataSource;
StoredProcl: TStoredProc;
Databasel: TDatabase;
Labell: TLabel;
Editl: TEdit;
Label2: TLabel;
Edit2: TEdit;
LabelS: TLabel;
Edit3: TEdit;
private
{Private declarations}
Groups: TGroups;
public
(Public declarations}
procedure CloseProc;
function GetElement: Boolean;
function InsElement: Boolean;
function UpdElement: Boolean;
end;
По этой схеме в приложении будет создано большинство форм элемента.
Здесь Groups - указатель класса, который используется для передачи данных о
редактируемом объекте. Как уже говорилось выше, форма может быть исполь-
зована в двух режимах - в режиме ввода и в режиме редактирования. То есть,
вызывая эту форму, следует указать, в каком именно режиме должна отрабо-
тать, поэтому процедура вызова должна иметь примерно следующий вид:
procedure ShowElemDlg(const DlgMode: Boolean);

Страницы