Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Текстовая база [D6]


001 ©   (2006-12-03 20:47:00) 


 Table1.TableType:=ttASCII;
 Table1.DatabaseName:=ExtractFilePath(ParamStr(0));
 Table1.TableName:='spr.dat';
 Table2.TableType:=ttASCII;
 Table2.DatabaseName:=ExtractFilePath(ParamStr(0));
 Table2.TableName:='order.dat';
 //---
 Table1.FieldDefs.Add('id_mash',ftInteger,0,false);
 Table1.FieldDefs.Add('naim_mash',ftString,30,false);
 Table1.FieldDefs.Add('god_mash',ftInteger,0,false);
 Table1.FieldDefs.Add('rasst_mash',ftFloat,0,false);
 Table1.FieldDefs.Add('cena_mash',ftFloat,0,false);
 Table1.CreateTable;
 //---
 Table2.FieldDefs.Add('id_ord',ftInteger,0,false);
 Table2.FieldDefs.Add('id_mash',ftString,30,false);
 Table2.FieldDefs.Add('data_ord',ftDate,0,false);
 Table2.FieldDefs.Add('act_ord',ftString,30,false);
 Table2.CreateTable;


создаются две базы. с описанной структурой полей в .sch файлах.
но при подключении к сетке и попытке ввода данных заполняется только первый столбец.

нужно создать 2 текстовых файла. бызу-справочник и базу, использующую этот справочник (хранящую в т.ч. его id).


Anatoly Podgoretsky   (2006-12-04 15:12:00) [1]

> 001  (04.12.2006 14:17:11)  [11]

> не на ней, родной

Сочувствую.


001   (2006-12-04 14:17:00) [2]


> Так ты не на Дельфи пишешь?

Да..
не на ней, родной..... (


Anatoly Podgoretsky   (2006-12-04 13:57:00) [3]

> 001  (04.12.2006 13:34:07)  [7]

Так ты не на Дельфи пишешь?
В Дельфи просто WriteLn(F, список переменных);


Anatoly Podgoretsky   (2006-12-04 13:56:00) [4]

> 001  (04.12.2006 13:23:05)  [5]

Вот видишь сколько у тебя вопросов, так вот у драйвера еще больше.


ANB   (2006-12-04 13:35:00) [5]


> НУу..  нада.
> хотел избавить себя от написания процедур чтения-записи
> в builder.
> не люблю эти корявые преобразования .c_str() и т.п. :(

И обрести еще больше геморроя :)


001   (2006-12-04 13:34:00) [6]


> зачем такой изгал ?


НУу..  нада.
хотел избавить себя от написания процедур чтения-записи в builder.
не люблю эти корявые преобразования .c_str() и т.п. :(


ANB   (2006-12-04 13:27:00) [7]


> нелогично как-то, читать можем и писать не можем.

Текстовый файл вообще то намного проще записать в виде текста - зачем такой изгал ?


001   (2006-12-04 13:23:00) [8]


> Anatoly Podgoretsky ©   (04.12.06 13:14) [4]


а это?
http://www.delphirus.net.ru/modules.php?name=Pages&pa=showpage&pid=84

ну даже если эта статья лажа, то как прочитать структуру из текстового файла в несколько полей?
как занести их в текстовый файл изначально, чтоб потом считать? вручную?
через что разделять? через tab?

нелогично как-то, читать можем и писать не можем.


Anatoly Podgoretsky   (2006-12-04 13:14:00) [9]

> 001  (04.12.2006 12:51:03)  [3]

Тип базы Текстовые файлы - только для чтения.


001   (2006-12-04 12:51:00) [10]

>> Таблички создались со всеми полями ?
Не... ну когда создаются то, то заполнены только файлы .sch
А сами dat-файлы базы данных пусты.

>> Открываются и поля видны ?
нет, в том то и дело

>> Где код заполнения таблиц ?
Да не надо кодом... ты бы так попробовал...
Налепи на форму два стола, две сетки и две дата сурс и кнопку.
Свяжи это последовательно. Создай кнопкой таблицы и попробуй че-нить добавить...........

 Table1.TableType:=ttASCII;
 Table1.DatabaseName:=ExtractFilePath(ParamStr(0));
 Table1.TableName:='spr.dat';
 Table2.TableType:=ttASCII;
 Table2.DatabaseName:=ExtractFilePath(ParamStr(0));
 Table2.TableName:='order.dat';
 //---
 Table1.FieldDefs.Add('id_mash',ftInteger,0,false);
 Table1.FieldDefs.Add('naim_mash',ftString,30,false);
 Table1.FieldDefs.Add('god_mash',ftInteger,0,false);
 Table1.FieldDefs.Add('rasst_mash',ftFloat,0,false);
 Table1.FieldDefs.Add('cena_mash',ftFloat,0,false);
 Table1.CreateTable;
 //---
 Table2.FieldDefs.Add('id_ord',ftInteger,0,false);
 Table2.FieldDefs.Add('id_mash',ftInteger,0,false);
 Table2.FieldDefs.Add('data_ord',ftDate,0,false);
 Table2.FieldDefs.Add('act_ord',ftString,30,false);
 Table2.CreateTable;
 //---
 Table1.Open;
 Table2.Open;


ANB   (2006-12-04 11:35:00) [11]

Таблички создались со всеми полями ? Открываются и поля видны ?
Где код заполнения таблиц ?


001   (2006-12-04 09:34:00) [12]

...


Наверх

Титульная страница Поиск, карта сайта Написать письмо