forum.boolean.name - Таблицы на мобиле ?

forum.boolean.name (http://forum.boolean.name/index.php)

- MidletPascal (http://forum.boolean.name/forumdisplay.php?f=46)

- - Таблицы на мобиле ? (http://forum.boolean.name/showthread.php?t=6405)

Таблицы на мобиле ?

Странно, но нигде не встретил ни слова о таблицах.
У меня задача такая:
Нужна программа для учета долгов. Мне все время кто-то должен, кто 100, кто 500 рублей, я плачу всем знакомым за сотики, ну дак вот.
Программа должна показывать табличку, где 3 калонки:
Сумма, Имя, Дата

Как это правильно сделать ?
Инициализируешь таблицу, указываешь какие поля будут, и указываешь на массив. Таблица сама берет данные из массива и показывает их.
Это полбеды.
Нужно на лету редактировать таблицу и чтобы данные сразу после изменений записывались в массив и хранилище.
Вот так вот. Это примитивный DataSet и Grid
Пока справляюсь так что пишу на бумажке, и эту бумажку таскаю в кошельке.
;)
Кто что может по этому поводу сказать ?
Спасибо

Ответ: Таблицы на мобиле ?

Попробуй Excel для мобил: http://wap.s-c.ru/wap/java/ccxKfV/Ex....ru]YnXzB2.jar

Re: Таблицы на мобиле ?

Цитата:

Сообщение от jkeks (Сообщение 86884)

Я написал для себя "Помощник покупателю", где, когда идешь в магазин, записываешь сначала, что нужно взять, а в магазине - что почем... Попутно для разных категорий учитываешь свои карманные расходы, В качестве такого "счета" можно использовать и долги. Естественно потом присобачилась и статистика по временным периодам, и по счетам. Мне лично нравится ! :)

Re: Таблицы на мобиле ?

Цитата:

Сообщение от ODG (Сообщение 93731)

Как это реализовано можно посмотреть?

Ответ: Таблицы на мобиле ?

это актуально?
сильно не заморачивался...
принцип следующий:
так как необходимо 3 колонки (имя долг дата) то я решил использовать 3 хранилища соответственно
вот вариант черновой (пока создает и проверяет имя уже в базе) кстати имена должны быть уникальными хоть и есть возможность заполнять одинаковыми
необходим как я понимаю режимы еще изменить (долг и дата), просмотр всех должников (а также статичтика) и удалить запись (хотя думаю удалять не нужно так сказать оставить для истории)
не как немогу корректно очистить форму ни clearform не formmremove непомогают - невозможно снова накладовать объекты поэтому сплошником
проверь так или не так я понял

ОЧЕНЬ черновой

PHP код:




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.

Ответ: Таблицы на мобиле ?

смысл есть продолжать или будут идеи другии?