Обучающие курсы:

Обучение профессии "Разработчик C#" + стажировка в Mail.ru
Обучение профессии "Разработчик Python" + трудоустройство
Обучение профессии "Веб-разработчик" + стажировка в Mail.ru


Главная страница
Библиотека (скачать книги)
Скачать софт
Введение в программирование
Стандарты для C++
Уроки по C#
Уроки по Python
HTML
Веб-дизайн
Ассемблер в среде Windows
ActiveX
Javascript
Общее о Линукс
Линукс - подробно
Линукс - новое
Delphi
Паскаль для начинающих
Турбопаскаль
Новости
Партнеры
Наши предложения
Архив новостей





Листинг 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