Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Использование текстовых таблиц [D6]

Страницы: < 1 2
Officeman © (2003-04-01 20:48:00)
Доброе время суток!

Необходимо написать базу данных. Которая будет весить меньше
(1.44 Mb) ирабоать на любом обычном офисном компьютере без установленной на нем (BDE). Какие варианты можете предложить?!
База. включает ограниченный набор данных(500 записей).
нужен только просмотр информации, возможно -организация поиска в базе. вывод базы(таблицы) на принтер.

Мне лезит в голову
1. Использование текстовых таблиц. Что-то немогу нормально отобразить текст. как сделать чтобы правильно воспринимались русские буковки?!

2. Писать всё ручками с использованием обычныйх компонентов тпа TListView, MEMO и др. а вот как через всё это вывести на принтер. ума не приложу =/

Просто базы получаются громозкими. программа с базами 1 мегабайт + BDE(delphi6) "6 и >" Мб. это плохо!

с УВажением, ОфисМен!

Pat (2003-04-02 00:34:00) [21]
>Где мне взять все необходие dll для работы только с PARADOX-ом
BANTAM.DLL
CHARSET.CVB
IDAPI32.DLL
IDBAT32.DLL
IDDBAS32.DLL//Это для dBase..можно выкинуть, если используешь только PDox
IDODBC32.DLL
idpdx32.dll
IDR20009.DLL
IDSQL32.DLL
OTHER.BTL

>что такое UPX и с чем его едят
Упаковщик exe,dll,ocx-файлов. Уменьшает объем, но есть и свои минуса..особенно для dll"к

>За что это мнечделаеют харакири. главное чтоб работало...
Другие программы, которые используют BDE могут не работать

Officeman (2003-04-01 22:37:00) [22]
Спасибо за ответы:

//Pat © (01.04.03 21:48)
//Правда за это харакири тебе сделают.. :)
За что это мнечделаеют харакири. главное чтоб работало...
Где мне взять все необходие dll для работы только с PARADOX-ом,
что такое UPX и с чем его едят. =)

//zacho ©
У нас тоже почти 1 ночи. Я из Башкирии.

Вопросик тут родился.
Раньше для простоты использовал SysUtils.dcu, под delphi6 соответственно она не идёт =( предназначалась для удобного разбиения строк. У меня простенькая база. с вот такими вот
полями. текстовый документ:

akl-0020|Лак НЦ-218 мебельный|1.8 кг|6|Литекс

Соответственно нужно всё загрузить в TListView(я решил туда)
Получилось ваот такое вот недописаное извращение. помойму кудато нетуда уехал. подскажите как лучше разбить строку "|"

procedure TForm1.N2Click(Sender: TObject);
var
s: String;
tPos: integer;
tL: TStringList;
begin
listView1.Items.Clear;
AssignFile(ff,"basex.txt");
Reset(ff);
i := 0;
while not Eof(ff) do begin
Readln(ff,s);
Inc(i);
tL := TStringList.Create;
tPos := Pos("|",s);
tL.Add(Copy(s,1,tPos-1));
Delete(s,1,tPos);
listView1.Items.Add.Caption:=s;
tPos := Pos("|",s);

//=)) вот здесь я застрял. сейчас нужно вывести строку всеголишь. забыл чё писать надо =(
надо вывести начти строк в поля TListView: поле1,поле2,поле3,поле4

listView1.Items.Add.Caption:=inttostr(tpos);
end;
tL.Add(s);
tL.Free;
end;

с Уважением, ОфисМен.

zacho (2003-04-01 21:53:00) [23]

> Officeman (01.04.03 21:30)
> ау...

Да просто спят все :-) У нас, например, уже почти час ночи :)
Imho, для твоей задачи никакие СУБД вообще не нужны. Используй файл любой подходящей тебе структуры (да хоть текстовый).
По поводу печати - RTFM TPrinter и т.п. Кстати, у TRichEdit есть метод Print

Pat (2003-04-01 21:48:00) [24]
Если только одна таблица или, по крайней мере, нет связей между таблицами, можно и через текстовые файлы...а лучше свой формат+криптография+сжатие.
Если поставить ограничение - нужен офис для 9х, можно Access+ADO
P.S. А можно извратиться - все упаковать UPX"ом и таскать BDE"шные DLL"ки с собой - примерно 1 метр, так что на дискету залезет. Правда за это харакири тебе сделают.. :)

Officeman (2003-04-01 21:30:00) [25]
ау...

Страницы: < 1 2

Наверх

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