Отсортировать по алфавиту таблицу

@Лидия_3 · Регистрация: 09.02.2016

Author24 — интернет-сервис помощи студентам

Произвести сортировку компонента DBGrid по алфавиту, нажав на кнопку. Не получается. Помогите

@ZfoxAK · 25.10.2016, 11:40

Сообщение от Лидия_3

Произвести сортировку компонента DBGrid по алфавиту, нажав на кнопку.

И где эта кнопка?

Сообщение от Лидия_3

Не получается.

И где эти попытки?

@Лидия_3 · 25.10.2016, 11:42 **[ТС]**

ой, перепутала, в меню-сортировка-по фамилии

@ZfoxAK · 25.10.2016, 11:45

Не с генерированны даже процедуры. Не вижу смысла помогать лентяям.

@Лидия_3 · 25.10.2016, 11:59 **[ТС]**

вот что есть

Delphi

procedure TForm1.FormCreate(Sender: TObject);
Var path:string;
begin
  GetDir(0,path);
  fdm.ADOConnection1.Close;
  fdm.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+path+'\turfirma.mdb;Persist Security Info=False';
  fdm.ADOConnection1.Connected:=true;
 //fdm.ADOQuery1:='SELECT * from main ';
  With fdm.ADOQuery1 do begin
    Close;
    SQL.Clear;
    SQL.Add('select * from dclient ');
    Open;
  end;
  fdm.Tclient.Open;  end;
 
procedure TForm1.DBGrid1CellClick(Column: TColumn);
Var f:string;
begin
  f:= Column.FieldName;
  with fdm.ADOQuery1 do
  begin
     Close;
     SQL.Clear;
     SQL.Add('select * from dclient ');
     SQL.Add('ORDER BY '+f);
     Open;
  end; end;
 
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
Var f:string;
begin
    f:= Column.FieldName;
    fdm.tclient.Sort:=f; end;
 
procedure TForm1.N15Click(Sender: TObject);
begin
 
end;

Добавлено через 1 минуту
этот код у меня не работает поэтому я прошу помощи, чтобы по меню происходила сортирвка

Добавлено через 9 минут
так я прописала:

Delphi

1	fdm.TClient.IndexFieldNames:='фамилия';

@ZfoxAK · 25.10.2016, 12:01

Сообщение от Лидия_3

fdm.tclient.Sort:=f;

tclient -что за компонента?
Пройдитесь по цепочке от DBGrid до ADOConnection
Зачем устанавливать сортировку для ADOTable когда DBGrid отображает набор данных из ADOQuery1?

@Лидия_3 · 25.10.2016, 12:11 **[ТС]**

tclient заменить на ADOQuery1?

@ZfoxAK · 25.10.2016, 12:21

Delphi

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
Var f:string;
begin
  f:= Column.FieldName;//без этой переменной у меня работать не хочет
     fdm.ADOQuery1.Close;
     fdm.ADOQuery1.SQL.Clear;
    fdm.ADOQuery1.SQL.Add('select * from client ');
    fdm.ADOQuery1.SQL.Add('ORDER BY '+ f);
   fdm.ADOQuery1.Open;
end;

Убрал with - не люблих эти конструкции. Но в вашем случае не это вызывало ошибку

SQL

1	('select * from client ');

правильно

SQL

1	('select * from dclient ');

не правильно

@Лидия_3 · 25.10.2016, 12:26 **[ТС]**

ругается вот на эту строку :

Delphi

1	fdm.ADOQuery1:= 'SELECT * from client ';

@ZfoxAK · 25.10.2016, 12:31

Сообщение от Лидия_3

fdm.ADOQuery1:= 'SELECT * from client ';

В предложенным мною коде такой строки нет

@Лидия_3 · 25.10.2016, 12:46 **[ТС]**

вот это убрать?

Delphi

procedure TForm1.FormCreate(Sender: TObject);
Var path:string;
begin
  GetDir(0,path);
  fdm.ADOConnection1.Close;
  fdm.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+path+'\turfirma.mdb;Persist Security Info=False';
  fdm.ADOConnection1.Connected:=true;
  fdm.ADOQuery1:= 'SELECT * from client ';
 fdm.ADOQuery1:='SELECT * from client ';
  With fdm.ADOQuery1 do begin
    Close;
    SQL.Clear;
    SQL.Add('select * from client ');
    Open;
  end;
  fdm.Tclient.Open;
end;

@qwertehok · 25.10.2016, 13:12

Сообщение от Лидия_3

fdm.ADOConnection1.Connected:=true;
* fdm.ADOQuery1:= 'SELECT * from client ';
*fdm.ADOQuery1:='SELECT * from client ';
* With fdm.ADOQuery1 do begin
* * Close;
* * SQL.Clear;
* * SQL.Add('select * from client ');

true нужно делать когда нужно запрос выполнить
запрос нужно присваивать 1 раз

fdm.ADOQuery1:= 'SELECT * from client ';

выдаст ОШИБКУ

нужно Query.sql.Text

@ZfoxAK · 26.10.2016, 04:06

Сообщение от Лидия_3

вот это убрать?

Вы совершенно не понимаете совершаемых вами действий.

Сообщение от Лидия_3

fdm.ADOQuery1:= 'SELECT * from client '; fdm.ADOQuery1:='SELECT * from client ';

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

@kavasaka · 26.10.2016, 08:47

Сообщение от Лидия_3

Произвести сортировку компонента DBGrid по алфавиту

А в чем вообще вопрос? вроде работает сортировка

Сообщение от Лидия_3

вот это убрать?

точняк, это убрать и все. Кстати не понял для чего оно затевалось в TForm1.FormCreate

@Лидия_3 · 26.10.2016, 08:49 **[ТС]**

я сделала сортировку, он сортирует по фамилии и имени

но теперь пропал поиск, не ищет в поле едит фамилии

@Лидия_3 · 26.10.2016, 08:54 **[ТС]**

база:

@kavasaka · 26.10.2016, 08:56

ищет. скачай обратно

Сообщение от Лидия_3

Новая папка.rar

и сделай

Сообщение от Лидия_3

вот это убрать?

и больше ничего там не трогай!

@Лидия_3 · 26.10.2016, 08:58 **[ТС]**

проблема в том, что я уже добавила отчеты в Kursovou

@kavasaka · 26.10.2016, 09:03

добавь их повторно в Новая папка.rar только аккуратно

@Лидия_3 · 26.10.2016, 09:09 **[ТС]**

помогите пожалуста в Kursovou настроить поиск, пожалуйста

так как в Новая папка не соритрует по фамилии и имени

я добавляла эти поля fdm.TClient.IndexFieldNames:='имя'; ничего не меняется

помогите пожалуйста

@kavasaka W 115 / 115 / 33 Регистрация: 16.04.2013 Сообщений: 750
	26.10.2016, 08:47	14
	Сообщение от Лидия_3 Произвести сортировку компонента DBGrid по алфавиту А в чем вообще вопрос? вроде работает сортировка Сообщение от Лидия_3 вот это убрать? точняк, это убрать и все. Кстати не понял для чего оно затевалось в TForm1.FormCreate 0

@kavasaka W 115 / 115 / 33 Регистрация: 16.04.2013 Сообщений: 750
	26.10.2016, 08:56	17
	ищет. скачай обратно Сообщение от Лидия_3 Новая папка.rar и сделай Сообщение от Лидия_3 вот это убрать? и больше ничего там не трогай! 0

@Лидия_3 2 / 2 / 1 Регистрация: 09.02.2016 Сообщений: 254
	26.10.2016, 08:58 [ТС]	18
	проблема в том, что я уже добавила отчеты в Kursovou 0

@kavasaka W 115 / 115 / 33 Регистрация: 16.04.2013 Сообщений: 750
	26.10.2016, 09:03	19
	добавь их повторно в Новая папка.rar только аккуратно 0

@ZfoxAK 669 / 559 / 242 Регистрация: 26.11.2012 Сообщений: 2,191
	25.10.2016, 11:40	2
	Сообщение от Лидия_3 Произвести сортировку компонента DBGrid по алфавиту, нажав на кнопку. И где эта кнопка? Сообщение от Лидия_3 Не получается. И где эти попытки? 0

@Лидия_3 2 / 2 / 1 Регистрация: 09.02.2016 Сообщений: 254
	25.10.2016, 11:42 [ТС]	3
	ой, перепутала, в меню-сортировка-по фамилии 0

@ZfoxAK 669 / 559 / 242 Регистрация: 26.11.2012 Сообщений: 2,191
	25.10.2016, 11:45	4
	Не с генерированны даже процедуры. Не вижу смысла помогать лентяям. 0

@ZfoxAK 669 / 559 / 242 Регистрация: 26.11.2012 Сообщений: 2,191
	25.10.2016, 12:01	6
	Сообщение от Лидия_3 fdm.tclient.Sort:=f; tclient -что за компонента? Пройдитесь по цепочке от DBGrid до ADOConnection Зачем устанавливать сортировку для ADOTable когда DBGrid отображает набор данных из ADOQuery1? 0

@Лидия_3 2 / 2 / 1 Регистрация: 09.02.2016 Сообщений: 254
	25.10.2016, 12:11 [ТС]	7
	tclient заменить на ADOQuery1? 0

@ZfoxAK 669 / 559 / 242 Регистрация: 26.11.2012 Сообщений: 2,191
	25.10.2016, 12:31	10
	Сообщение от Лидия_3 fdm.ADOQuery1:= 'SELECT * from client '; В предложенным мною коде такой строки нет 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	25.10.2016, 13:12	12
	Сообщение от Лидия_3 fdm.ADOConnection1.Connected:=true; * fdm.ADOQuery1:= 'SELECT * from client '; fdm.ADOQuery1:='SELECT from client '; * With fdm.ADOQuery1 do begin * * Close; * * SQL.Clear; * * SQL.Add('select * from client '); true нужно делать когда нужно запрос выполнить запрос нужно присваивать 1 раз fdm.ADOQuery1:= 'SELECT * from client '; выдаст ОШИБКУ нужно Query.sql.Text 0

@ZfoxAK 669 / 559 / 242 Регистрация: 26.11.2012 Сообщений: 2,191
	26.10.2016, 04:06	13
	Сообщение от Лидия_3 вот это убрать? Вы совершенно не понимаете совершаемых вами действий. Сообщение от Лидия_3 fdm.ADOQuery1:= 'SELECT * from client '; fdm.ADOQuery1:='SELECT * from client '; И видя этот код прихожу к мысли, что и не хотите. А копировать чужой код и надеяться, что он заработает не разбираясь, тогда я вам не помощник. 0

@Лидия_3 2 / 2 / 1 Регистрация: 09.02.2016 Сообщений: 254
	26.10.2016, 08:49 [ТС]	15
	я сделала сортировку, он сортирует по фамилии и имени но теперь пропал поиск, не ищет в поле едит фамилии 0

@Лидия_3 2 / 2 / 1 Регистрация: 09.02.2016 Сообщений: 254
	26.10.2016, 09:09 [ТС]	20
	помогите пожалуста в Kursovou настроить поиск, пожалуйста так как в Новая папка не соритрует по фамилии и имени я добавляла эти поля fdm.TClient.IndexFieldNames:='имя'; ничего не меняется помогите пожалуйста 0