[BRESKON]

Помогите кодом в простой ситуации. В DBEdit из базы данных отображает Всегда три числа: 1,2 или 3. Нужно сделать так, что-бы в DBEdit в место этих трех цифр отображались слова, вместо 1-ДА, 2-НЕТ и 3-НЕЗНАЮ. Помогите плиз.

[poli-smen]

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

Помогите кодом в простой ситуации. В DBEdit из базы данных отображает Всегда три числа: 1,2 или 3. Нужно сделать так, что-бы в DBEdit в место этих трех цифр отображались слова, вместо 1-ДА, 2-НЕТ и 3-НЕЗНАЮ. Помогите плиз.

TDBEdit отображает то, что реально хранится в указанном поле таблицы.
Если же нужна расшифровка, то есть много способов это сделать. Например использовать вместо TDBEdit обычный TEdit (или TComboBox) в котором "вручную" расшифровывать. Ещё можно использовать TDBLookupComboBox через временную таблицу расшифровки. А также можно расшифровку поля производить прямо в SQL-запросе.

[BRESKON]

Сообщение от poli-smen

TDBEdit отображает то, что реально хранится в указанном поле таблицы.
Если же нужна расшифровка, то есть много способов это сделать. Например использовать вместо TDBEdit обычный TEdit (или TComboBox) в котором "вручную" расшифровывать. Ещё можно использовать TDBLookupComboBox через временную таблицу расшифровки. А также можно расшифровку поля производить прямо в SQL-запросе.

Вручную неудобно, мне подсказали сделать рядом обычный Edit и включить автозаполнение его при изменении содержимого DBEdit'а. Звучит просто, а на практике как сделать не знаю

[poli-smen]

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

Вручную неудобно, мне подсказали сделать рядом обычный Edit и включить автозаполнение его при изменении содержимого DBEdit'а. Звучит просто, а на практике как сделать не знаю

Под словом "вручную" я это и имел ввиду. Т.е. не компонент автоматически будет расшифровывать, а тебе вручную нужно написать функцию расшифровки.
Для расшифровки удобно использовать событие AfterScroll (и TDBEdit тут не нужен). Примерно так:

Код:

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
  case Table1.FieldByName('Имя поля').AsInteger of
    1: Edit1.Text := 'ДА';
    2: Edit1.Text := 'НЕТ';
    3: Edit1.Text := 'НЕЗНАЮ';
  else
    Edit1.Text := '???';
  end;
end;

[icWasya]

или, например, завести вычисляемое поле

[poli-smen]

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

или, например, завести вычисляемое поле

Это кстати тоже хороший вариант.
Правда у вычисляемых полей есть один минус - их нельзя редактировать.

[BRESKON]

Сообщение от poli-smen

Это кстати тоже хороший вариант.
Правда у вычисляемых полей есть один минус - их нельзя редактировать.

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

[poli-smen]

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

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

Сделай двойной клик по TDataSet и в появившемся окне нажми правой кнопкой мыши. Добавь нужные поля через "Add fields..." или все поля через "Add all fields". Потом вызови это меню ещё раз и выбери "New field..." и в появившемся диалоге введи имя нового поля, его тип (String), размер, отметь опцию "Calculated" и нажми "OK".
Потом прицепи к этому новому полю свой TDBEdit и в обработчике OnCalcFields у TDataSet сделай примерно такой обработчик:

Код:

procedure TForm1.Table1CalcFields(DataSet: TDataSet);
var
  s: String;
begin
  case DataSet.FieldByName('Имя обычного поля').AsInteger of
    1: s := 'ДА';
    2: s := 'НЕТ';
    3: s := 'НЕЗНАЮ';
  else
    s := '???';
  end;
  DataSet.FieldByName('Имя вычисляемого поля').AsString := s;
end;

[BRESKON]

Сообщение от poli-smen

Под словом "вручную" я это и имел ввиду. Т.е. не компонент автоматически будет расшифровывать, а тебе вручную нужно написать функцию расшифровки.
Для расшифровки удобно использовать событие AfterScroll (и TDBEdit тут не нужен). Примерно так:

Код:

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
  case Table1.FieldByName('Имя поля').AsInteger of
    1: Edit1.Text := 'ДА';
    2: Edit1.Text := 'НЕТ';
    3: Edit1.Text := 'НЕЗНАЮ';
  else
    Edit1.Text := '???';
  end;
end;

Вот что получилось (вернее сказать не получилось выдаёт Undeclared identifier: 'FieldByName'):

Код:

unit BuhPrint;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, Grids, DBGrids, StdCtrls, DBCtrls, Mask, DB,
  ADODB;

type
  TPrintPD = class(TForm)
    Panel1: TPanel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    Panel2: TPanel;
    Panel3: TPanel;
    DBPD: TDBGrid;
    DBEdit1: TDBEdit;
    DBCheckBox1: TDBCheckBox;
    DBComboBox1: TDBComboBox;
    Label1: TLabel;
    Label2: TLabel;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    Edit1: TEdit;
    procedure N1Click(Sender: TObject);
    procedure TDBGridAfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PrintPD: TPrintPD;

implementation

uses DM;

{$R *.dfm}

procedure TPrintPD.N1Click(Sender: TObject);
begin
close;
end;

procedure TPrintPD.TDBGridAfterScroll(DataSet: TDataSet);
begin
  case TDBGrid.FieldByName('ПлатДок').AsInteger of

    1: Edit1.Text := 'ДА';
    2: Edit1.Text := 'НЕТ';
    3: Edit1.Text := 'НЕЗНАЮ';
  else
    Edit1.Text := '???';
  end;
end;

end.

[poli-smen]

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

Вот что получилось (вернее сказать не получилось выдаёт Undeclared identifier: 'FieldByName'):

Код:

.....
procedure TPrintPD.TDBGridAfterScroll(DataSet: TDataSet);
begin
  case TDBGrid.FieldByName('ПлатДок').AsInteger of

    1: Edit1.Text := 'ДА';
    2: Edit1.Text := 'НЕТ';
    3: Edit1.Text := 'НЕЗНАЮ';
  else
    Edit1.Text := '???';
  end;
end;

end.

Это потому что у TDBGrid нет метода FieldByName и быть его там не должно (да ещё к тому же обращение идёт не к объекту сетки, а к классу).
Тебе нужно обращаться не к сетке, а к таблице - в данном случае это DataSet.
А ещё у TDBGrid события AfterScroll нету и быть не может.

[BRESKON]

Сообщение от poli-smen

Это потому что у TDBGrid нет метода FieldByName и быть его там не должно (да ещё к тому же обращение идёт не к объекту сетки, а к классу).
Тебе нужно обращаться не к сетке, а к таблице - в данном случае это DataSet.
А ещё у TDBGrid события AfterScroll нету и быть не может.

С этим разобрались, а как сделать всё тоже самое, только без вшитых в программу данных, а с использованием БД, а данные отображались в Едите, если можно то пример кода, как сделать выборку из таблицы.

[poli-smen]

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

С этим разобрались, а как сделать всё тоже самое, только без вшитых в программу данных, а с использованием БД, а данные отображались в Едите, если можно то пример кода, как сделать выборку из таблицы.

Выборка из таблицы с помощью TTable (или TADOTable):

Код:

  Table1.Close;
  Table1.TableName := 'Таблица';
  Table1.Open;

Выборка из таблицы с помощью TQuery (или TADOQuery):

Код:

  Query1.Close;
  Query1.SQL.Text := 'SELECT * FROM Таблица';
  Query1.Open;

"всё тоже самое, только без вшитых в программу данных, а с использованием БД":

Код:

  if Table1.Locate('id', DataSet.FieldByName('ПлатДок').AsInteger, []) then
  begin
    Edit1.Text := Table1.FieldByName('Текст').AsString;
  end else
  begin
    Edit1.Text := '???';
  end;

p.s. Только не пойму почему нельзя для этого использовать TDBLookupComboBox.

[BRESKON]

Сообщение от poli-smen

Код:

  if Table1.Locate('id', DataSet.FieldByName('ПлатДок').AsInteger, []) then
  begin
    Edit1.Text := Table1.FieldByName('Текст').AsString;
  end else
  begin
    Edit1.Text := '???';
  end;

p.s. Только не пойму почему нельзя для этого использовать TDBLookupComboBox.

Сразу уточню: if Table1.Locate('id' - id нужно поменять на что-то? Такой же вопрос и с Table1.FieldByName('Текст') - Текст - меняется на что-то? И ещё один, при компиляции выдает: Declaration expected but 'IF' found.

[poli-smen]

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

Сразу уточню: if Table1.Locate('id' - id нужно поменять на что-то? Такой же вопрос и с Table1.FieldByName('Текст') - Текст - меняется на что-то?

Меняешь на имена полей из своей реальной таблицы (которая призвана заменить вшитую расшифровку). 'id' - имя поля с индексом по которому искать, 'Текст' - имя поля с текстом которым нужно подменять этот индекс.

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

И ещё один, при компиляции выдает: Declaration expected but 'IF' found.

Компилятор говорит, что ожидал объявление, а встретил слово 'IF'.

[BRESKON]

Сообщение от poli-smen

Компилятор говорит, что ожидал объявление, а встретил слово 'IF'.

А как исправить?