Библиотека программиста

Все, что необходимо начинающему и опытному программисту

Листинг 3.1. Реализация методов контекстного меню
uses DataModule;
{$R *.dfm}
{Удаление выбранной записи}
procedure TForml.DeleteRecClick(Sender: TObject);
begin
i f PopupMenul.PopupComponent = DBGridl then begin
with DataModulel.StudentsTbl do begin
i f State = dsBrowse then
i f MessageDlg('Вы уверены в том, что хотите удалить запись?',
mtConfirmation. [mbYes.mbNo], 0) = mrYes then
Delete;
end;
end;
if PopupMenul.PopupComponent = DBGrid2 then begin
with DataModulel.GradeTbl do begin
if State = dsBrowse then
if MessageDlg('Вы уверены в том, что хотите удалить запись?',
mtConfirmation, [mbYes.mbNo]. 0) = mrYes then
Delete;
end;
end;
end;
{Сохранение изменений}

procedure TForml.PostRecClick(Sender: TObject):
begin
if PopupMenul.PopupComponent = DBGridl then begin
with DataModulel.StudentsTbl do begin
i f State in [dslnsert, dsEdit] then
Post;
end:
end;
if PopupMenul.PopupComponent = DBGrid2 then begin
with DataModulel.GradeTbl do begin
if State in [dslnsert. dsEdit] then
Post;
end;
end;
end;
{Добавление новой записи}
procedure TForml.NewRecClick(Sender: TObject);
begin
if PopupMenul.PopupComponent = DBGridl then begin
with DataModulel.StudentsTbl do begin
if State = dsBrowse then
Insert;
end;
end;
if PopupMenul.PopupComponent = DBGrid2 then begin
with DataModulel.GradeTbl do begin
if State = dsBrowse then
Insert;
end;
end;
end;

Двойным щелчком на каком-либо из компонентов TDBGrid нужно вызвать редактор полей. Командой Add All Fields контекстного меню можно добавить все поля. Лишние поля потом можно будет просто стереть. Данной командой определяются поля, которые будут отображаться в таблице. Вид окна представлен на рис. 3.9.

Рис. З.9. Окно редактора полей

Для выбранного поля можно указать тип шрифта столбца, тип шрифта заголовка, цвет заголовка, название заголовка.

Для изменения названия заголовков достаточно выбрать поле и в свойстве Title > Caption указать новый заголовок. В свойстве PickList можно указать список значений, которые будут доступны из таблицы в данном поле. Основное окно программы показано на рис 3.10.

Рис. 3.10. Окно программы

<< Назад         В начало         Далее >>

Библиотека программиста. 2009.
Администратор: admin@programmer-lib.ru