![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Текстовая база [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]...