[Nat111]

Подскажите пожалуйста как с помощью кнопки удалить запись с компонента DBGrid, чтобы перед удалением он запрашивал "Вы точно хотите удалить запись"?

[windaws]

Сообщение от Nat111

Подскажите пожалуйста как с помощью кнопки удалить запись с компонента DBGrid, чтобы перед удалением он запрашивал "Вы точно хотите удалить запись"?

на кнопку пишешь код:

Код:

procedure TForm1.ToolButton5Click(Sender: TObject);
Var ExB: WORD;
begin
ExB:=MessageBox(handle,pchar('Удалить товар из списка?'),pchar('Подтверждение удаления'),33);
if Exb=IDOK then
dbgrid1.datasource.dataset.Delete else exit;
end;

я так делаю раньше делал через MessageDlg Но там нельзя указывать имя выскакивающего окошка.

[Nat111]

Сообщение от windaws

на кнопку пишешь код:

Код:

procedure TForm1.ToolButton5Click(Sender: TObject);
Var ExB: WORD;
begin
ExB:=MessageBox(handle,pchar('Удалить товар из списка?'),pchar('Подтверждение удаления'),33);
if Exb=IDOK then
dbgrid1.datasource.dataset.Delete else exit;
end;

я так делаю раньше делал через MessageDlg Но там нельзя указывать имя выскакивающего окошка.

СПАСИБО БОЛЬШОЕ!!! ПОМОГЛО ОЧЕНЬ!!!


Подскажите пожалуйста как сделать чтобы при нажатии кнопки Button можно было добавить запись в DBGrid но при этом тоже спросить Вы действительно желаете добавить новую запись?

[windaws]

думаю не так сложно переделать эту процедуру.... тоже самое только метод вызываешь не delete а append

[Nat111]

Сообщение от windaws

думаю не так сложно переделать эту процедуру.... тоже самое только метод вызываешь не delete а append

И вправду не сложно
Перед добавлением выводит сообщение, а как сделать чтобы когда ввел данные он выводил окно Сохранить введенные данные? если нет то он их несохранял. Как этот момент сделать? Подскажите пожалуйста

[Nat111]

Как сделать чтобы при нажатии кнопки Button, программа подсчитывала общее количество записей в DBGrid и выводила общее количество записей в виде сообщения? Помогите пожалуйста с кодом.

[windaws]

Сообщение от Nat111

И вправду не сложно
Перед добавлением выводит сообщение, а как сделать чтобы когда ввел данные он выводил окно Сохранить введенные данные? если нет то он их несохранял. Как этот момент сделать? Подскажите пожалуйста

А это нужно вообще? " сохранить данные или нет" Получается что ты вызываешь append вводишь данные а потом на кнопку сохраняешь их, тогда так -

Код:

procedure TForm1.ToolButton5Click(Sender: TObject);
Var ExB: WORD;
begin
ExB:=MessageBox(handle,pchar('Сохранить данные?'),pchar('Подтверждение сохранения'),33);
if Exb=IDOK then
dbgrid1.datasource.dataset.post else dbgrid1.datasource.dataset.delete;
end;

[windaws]

Сообщение от Nat111

Как сделать чтобы при нажатии кнопки Button, программа подсчитывала общее количество записей в DBGrid и выводила общее количество записей в виде сообщения? Помогите пожалуйста с кодом.

Написать запрос

Код:

select count(поле)
from таблица

и по нажатию на кнопку
application.messagebox(query1.fields.fields[0].asstring,'Количество записей')
попробуй думаю так

[Nat111]

Сообщение от windaws

Написать запрос

Код:

select count(поле)
from таблица

вместо слово ПОЛЕ нужно писать название столбца? например по ФИО можно?

а вместо таблицы Table1 (название моей таблицы)?

и это на форму надо компонент SQL запоса бросаь и в свойствах этого компонента прописывать этот запрос, верно?

[Nat111]

Сообщение от windaws

Написать запрос

Код:

select count(поле)
from таблица

и по нажатию на кнопку
application.messagebox(query1.fields.fields[0].asstring,'Количество записей')
попробуй думаю так

windaws спасибо большое Вам за помощь!


Я сделала немного проще. Расположила на форме компоненты Edit и Button, и написала вот такой код:

Edit5.Text:=IntToStr(Table1.RecordCount);

после нажатии кнопки, он выводит количество записей в DBGrid.


СПАСИБО ВАМ БОЛЬШОЕ!!!

[Nat111]

вот еще хочу сортировку сделать.
помогите пожалуйста с кодом.
думаю лучше сделать при помоши RadioButton.
сортировку по ФИО и по Дате вступления.

подскажите пожалуйста

[windaws]

Код:

Table1.Sort:='ФИО' + ' ASC'; - по возрастанию

Table1.Sort:='ФИО' + ' DESC'; - по убыванию

[Nat111]

Сообщение от windaws

Код:

Table1.Sort:='ФИО' + ' ASC'; - по возрастанию

Table1.Sort:='ФИО' + ' DESC'; - по убыванию

Sort - такую процедуру делфи не видит

[Black Raider]

Использовать SQL
намного будет удобнее работать.

[Nat111]

Сообщение от Black Raider

Использовать SQL
намного будет удобнее работать.

в смысле в коде?