|
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, время: 00:09.
|