VPF::Создание новой таблицы - Форум программистов

Mandel

Дата 8.5.2006, 10:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 29.4.2006

Репутация: нет
Всего: нет

У меня такой вопрос:есть таблица *.dbf.Я читаю названия полей (заношу их в ListBox),тип полей (заношу их в Memo).
1)Мне необходимо для каждого поля выбрать цифру из ComboBox и ввести текст для каждого поля в Memo.
2)Таким образом,мне надо создать новую таблицу *.dbf с 4 столбцами:двумя исходными+байтовое поле+memo поле.
Как мне осуществить пункты (1) и (2).Вот что у меня пока есть:

Присоединённый файл ( Кол-во скачиваний: 3 )

first.ZIP 6,22 Kb

sexton

Дата 8.5.2006, 11:38 (ссылка)

(нет голосов)

Загрузка ...

sexton=Пономарь (eng)

Профиль
Группа: Участник
Сообщений: 503
Регистрация: 5.5.2004
Где: Ульяновск

Репутация: нет
Всего: 9

Чем пользуешься для доступа к данным?
Не лучше ли пользовать грид для отображения данных?

--------------------

Поставить +

ЖЖ
Рассылка Рассылок

Mandel

Дата 8.5.2006, 11:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 29.4.2006

Репутация: нет
Всего: нет

Мне именно так надо пользоваться для отображения данными.
Доступ: Paradox/BDE.

Mandel

Дата 8.5.2006, 12:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 29.4.2006

Репутация: нет
Всего: нет

У меня сейчас проблема в том,чтобы каждому полю (например,ФиО,Должность,Зарплата,.....) поставить в соответствие
цифру из ComboBox и текст из Memo.Т.е. щёлкаешь на ФИО->выбираешь цифру из ComboBox и печатаешь текст в Memo,
щелкаешь на Должность->аналогично,........потом жмешь ,например, по Должности и появлятся именно то,что ты вводил
ранее для этого поля.
Вот когда это будет сделано,то проблем с занесением этих данных в базу не будет.
Вот пока такая проблема.

Демо

Дата 8.5.2006, 12:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 2
Всего: 50

Mandel,
Используй Fields[i]

--------------------

Mandel

Дата 8.5.2006, 13:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 29.4.2006

Репутация: нет
Всего: нет

А если поподробнее smile

Savek

Дата 8.5.2006, 15:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 355
Регистрация: 10.4.2006
Где: Воронеж

Репутация: 7
Всего: 7

Цитата(Mandel @ 8.5.2006, 12:21

)

щелкаешь на Должность->аналогично,........потом жмешь ,например, по Должности и появлятся именно то,что ты вводил

Откуда оно должно появиться?
Совсем непонятна задача, и в чем проблема, особенно если вспомнить название темы...

И что конкретно не получается в плане кодирования?

Mandel

Дата 8.5.2006, 15:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 29.4.2006

Репутация: нет
Всего: нет

Цитата

Откуда оно должно появиться?

Что появится?Если должность,ФИо и т.п. то это названия полей (они содержатся в ListBox),а в ComboBox для каждого поля надо будет выбрать число.Т.е. для каждого поля будет определенное число.Вот это и не получается!

Mandel

Дата 8.5.2006, 21:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 29.4.2006

Репутация: нет
Всего: нет

Вообщем,мне надо для каждого поля подключаемой мной таблицей напечатать текст в Memo и уже создать новую таблицу
с полями с предыдущей таблицы+Memo поле.

Mandel

Дата 9.5.2006, 10:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 29.4.2006

Репутация: нет
Всего: нет

Я как вообщем делаю.
1)Копирую таблицу *.dbf в новую: temp.dbf
2)добавляю 2 поля в temp.dbf,но они не добавляются smile

Код


var Table2:TTable;i:integer;Field:TField;str:string;
begin
  if not OpenDialog1.Execute then exit;
  str:=OpenDialog1.FileName;
  Table2:=TTable.Create(self);
  Table2.TableName:=str;
  Table2.Active:=false;
  Table2.FieldDefs.Update;
  with Table2 do begin
      with FieldDefs do begin
        Update;
      with AddFieldDef do begin
        Name := 'Combo';
        DataType := ftInteger;
        Required := True;
      end;
      with AddFieldDef do begin
        Name := 'MemoT';
        DataType := ftMemo;
        Required := True;
      end;
  end;
  end;
  Table2.Active:=true;
end;

Присоединённый файл ( Кол-во скачиваний: 4 )

second.zip 6,79 Kb

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »