 |
26.09.2008, 06:59
|
#1
|
Нуждающийся
Регистрация: 04.10.2007
Сообщений: 64
Написано одно полезное сообщение
|
Таблицы на мобиле ?
Странно, но нигде не встретил ни слова о таблицах.
У меня задача такая:
Нужна программа для учета долгов. Мне все время кто-то должен, кто 100, кто 500 рублей, я плачу всем знакомым за сотики, ну дак вот.
Программа должна показывать табличку, где 3 калонки:
Сумма, Имя, Дата
Как это правильно сделать ?
Инициализируешь таблицу, указываешь какие поля будут, и указываешь на массив. Таблица сама берет данные из массива и показывает их.
Это полбеды.
Нужно на лету редактировать таблицу и чтобы данные сразу после изменений записывались в массив и хранилище.
Вот так вот. Это примитивный DataSet и Grid
Пока справляюсь так что пишу на бумажке, и эту бумажку таскаю в кошельке.

Кто что может по этому поводу сказать ?
Спасибо
|
(Offline)
|
|
26.09.2008, 18:29
|
#2
|
Разработчик
Регистрация: 06.04.2008
Сообщений: 541
Написано 196 полезных сообщений (для 638 пользователей)
|
Ответ: Таблицы на мобиле ?
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
05.01.2009, 20:08
|
#3
|
AnyKey`щик
Регистрация: 29.01.2007
Сообщений: 1
Написано 0 полезных сообщений (для 0 пользователей)
|
Re: Таблицы на мобиле ?
Сообщение от jkeks
Странно, но нигде не встретил ни слова о таблицах.
У меня задача такая:
Нужна программа для учета долгов. Мне все время кто-то должен, кто 100, кто 500 рублей, я плачу всем знакомым за сотики, ну дак вот.
Программа должна показывать табличку, где 3 калонки:
Сумма, Имя, Дата
Как это правильно сделать ?
Инициализируешь таблицу, указываешь какие поля будут, и указываешь на массив. Таблица сама берет данные из массива и показывает их.
Это полбеды.
Нужно на лету редактировать таблицу и чтобы данные сразу после изменений записывались в массив и хранилище.
Вот так вот. Это примитивный DataSet и Grid
Пока справляюсь так что пишу на бумажке, и эту бумажку таскаю в кошельке.

Кто что может по этому поводу сказать ?
Спасибо
|
Я написал для себя "Помощник покупателю", где, когда идешь в магазин, записываешь сначала, что нужно взять, а в магазине - что почем... Попутно для разных категорий учитываешь свои карманные расходы, В качестве такого "счета" можно использовать и долги. Естественно потом присобачилась и статистика по временным периодам, и по счетам. Мне лично нравится ! 
|
(Offline)
|
|
08.01.2009, 15:36
|
#4
|
Оператор ЭВМ
Регистрация: 24.09.2007
Сообщений: 36
Написано 2 полезных сообщений (для 3 пользователей)
|
Re: Таблицы на мобиле ?
Сообщение от ODG
Я написал для себя "Помощник покупателю", где, когда идешь в магазин, записываешь сначала, что нужно взять, а в магазине - что почем... Попутно для разных категорий учитываешь свои карманные расходы, В качестве такого "счета" можно использовать и долги. Естественно потом присобачилась и статистика по временным периодам, и по счетам. Мне лично нравится ! 
|
Как это реализовано можно посмотреть?
|
(Offline)
|
|
11.03.2009, 22:05
|
#5
|
Оператор ЭВМ
Регистрация: 02.03.2009
Сообщений: 26
Написано 2 полезных сообщений (для 2 пользователей)
|
Ответ: Таблицы на мобиле ?
это актуально?
сильно не заморачивался...
принцип следующий:
так как необходимо 3 колонки (имя долг дата) то я решил использовать 3 хранилища соответственно
вот вариант черновой (пока создает и проверяет имя уже в базе) кстати имена должны быть уникальными хоть и есть возможность заполнять одинаковыми
необходим как я понимаю режимы еще изменить (долг и дата), просмотр всех должников (а также статичтика) и удалить запись (хотя думаю удалять не нужно так сказать оставить для истории)
не как немогу корректно очистить форму ни clearform не formmremove непомогают - невозможно снова накладовать объекты поэтому сплошником
проверь так или не так я понял
ОЧЕНЬ черновой

type mas3x1024=array[1..3, 1..32] of string;
var okCommand,okCommand0:command;
nameField,i:integer;
userName:string;
k:boolean;
rs0,rs1,rs2: recordStore;
index: integer;
name: string;
mas: array [0..2] of integer;
label_id, textField_id, formTxt1,formTxt2,formTxt3: integer;
begin
k:=false;
{ Создание формы на экране }
okCommand := createCommand('OK', CM_OK, 1);
showForm;
addCommand(okCommand);
textField_id := formAddTextField('Enter name search', 'Mr.Smith', 20, TF_ANY);
showForm;
while (getClickedCommand <> okCommand) do begin
delay(100); end;
removeCommand( okCommand);
label_id := formAddString('Выполняется запрос');
userName := formGetText(textField_id);
rs0 := openRecordStore('names'); rs1 := openRecordStore('money'); rs2 := openRecordStore('date');
for i:=0 to getRecordStoreSize(rs0) do begin
if formGetText(textField_id) = readRecordStoreEntry(rs0, i) then begin
label_id := formAddString(readRecordStoreEntry(rs0,i)+' $ '+readRecordStoreEntry(rs1,i)+' # '+readRecordStoreEntry(rs2,i)); k:=true; end;
end;
closeRecordStore(rs0); closeRecordStore(rs1); closeRecordStore(rs2);
if k=false then begin
okCommand0 := createCommand('OK', CM_OK, 1);
showForm;
addCommand(okCommand0); repaint;
showForm;
mas[0] := formAddTextField('Enter name', userName, 20, TF_ANY);
mas[1] := formAddTextField('Enter $', ' ', 20, TF_ANY);
mas[2] := formAddTextField('Enter date',
integerToString(getYear(getCurrentTime))+'.'+integerToString(getMonth(getCurrentTime))+'.'+integerToString(getDay(getCurrentTime))+' '+integerToString(getHour(getCurrentTime))+':'+integerToString(getMinute(getCurrentTime)), 20, TF_ANY);
showForm;
while (getClickedCommand <> okCommand0) do begin
delay(100); end;
rs0 := openRecordStore('names');
index := addRecordStoreEntry(rs0, formGetText(mas[0]) );
closeRecordStore(rs0);
rs1 := openRecordStore('money');
index := addRecordStoreEntry(rs1, formGetText(mas[1]) );
closeRecordStore(rs1);
rs2 := openRecordStore('date');
index := addRecordStoreEntry(rs2, formGetText(mas[2]) );
closeRecordStore(rs2);
end;
showForm;
delay(5000);
end.
Последний раз редактировалось ASMjavaC, 11.03.2009 в 23:27.
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
11.03.2009, 22:37
|
#6
|
Оператор ЭВМ
Регистрация: 02.03.2009
Сообщений: 26
Написано 2 полезных сообщений (для 2 пользователей)
|
Ответ: Таблицы на мобиле ?
смысл есть продолжать или будут идеи другии?
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 01:18.
|