Search options (Page 5 of 6)

1. Спасибо!!!
2. Набросал проект если получится с multiselect будет оч неплохо. планируется для канцелярии наподобии документооборота в дальнейшем с напоминаниями, отчетами и т. д.

http://myvisualdatabase.com/forum/viewtopic.php?id=1062

может тут посмотреть http://myvisualdatabase.com/forum/viewtopic.php?id=2124

я извиняюсь за назойливость, например в cvs файле есть записи в поле Lat начинается с символа ";"  этот символ соответсвует кkавиша ж=;
так вот при импорте где присутствует ; запись в поле лат обрывается не импортируется до конца.
например записи в cvs
Nkart                 FIO                                                      SEX    Lat
Ж760001    76    Жукова Пелагея Васильевна            Ж      ;760001  ;erjdf Gtkfutz Dfcbkmtdyf
Ж760002    76    Жиманова Надежда Александровна    Ж    ;760002  ;bvfyjdf Yflt;lf Fktrcfylhjdyf
Ж760003    76    Жиров Никита Андреевич                    М    ;760003  ;bhjd Ybrbnf Fylhttdbx

что получается при импорте
Nkart                 FIO                                                      SEX    Lat
Ж760001    76    Жукова Пелагея Васильевна            Ж      "
Ж760002    76    Жиманова Надежда Александровна    Ж    "
Ж760003    76    Жиров Никита Андреевич                    М    "

также если символ ; стоит в середине слова получается так
cvs
Д780069    78    Долженко Екатерина Андреевна    Ж    L780069  Ljk;tyrj Trfnthbyf Fylhttdyf
при импорте
Д780069    78    Долженко Екатерина Андреевна    Ж    L780069  "Ljk
т.е. доходит до символа ; и обрыв

и при импорт1 тоже самое.
Итого: импорты работают русские символы все без проблем импортируются, но в часности символ ; не импортирует

ну и попутный вопрос как можно прервать импорт какой скрипт нужен

хм вот скрипт вро де все экранировано, этим скриптом загружаю запись где нет никах символов одни лат буквы поле lat все ок, но если встречается символ ";" то запись получается вида например должно получится fdr;tdy, а импортируется fdr т.е. только до символа ";" дальше обрыв, затем начинается обработка следующей записи вот скрипт 1-го импорта

procedure Form1_Button4_OnClick (Sender: string; var Cancel: boolean);

var
   OpenDialog: TOpenDialog;
   sl: TStringList;
   arrStr: array of string;

   i,c: integer;
begin
     SQLExecute('delete from db_main') ;
     OpenDialog := TOpenDialog.Create(Form1);
     OpenDialog.InitialDir := ExtractFileDir(Application.Exename);

     if OpenDialog.Execute then
     begin
          sl := TStringList.Create;
          sl.LoadFromFile (OpenDialog.FileName);


          c := sl.Count - 1;
          for i := 0 to c do
          begin
               arrStr := SplitString(sl[i], ';');

               if arrStr[0] <> '' then arrStr[0] := ''''+ ReplaceStr(arrStr[0], '''', '''''') + ''''
                   else arrStr[0] := 'NULL';

               if arrStr[1] <> '' then arrStr[1] := ''''+ ReplaceStr(arrStr[1], '''', '''''') + ''''
                   else arrStr[1] := 'NULL';
               if arrStr[2] <> '' then arrStr[2] := ''''+ ReplaceStr(arrStr[2], '''', '''''') + ''''
                   else arrStr[1] := 'NULL';
               if arrStr[3] <> '' then arrStr[3] := ''''+ ReplaceStr(arrStr[3], '''', '''''') + ''''
                   else arrStr[1] := 'NULL';
               if arrStr[4] <> '' then arrStr[4] := ''''+ ReplaceStr(arrStr[4], '''', '''''') + ''''
                   else arrStr[1] := 'NULL';


               SQLExecute ('INSERT INTO db_MAIN (Nkart, uch, FIO, SEX, lat) VALUES ('+ arrStr[0] +','+ arrStr[1]+','+ arrStr[2]+','+ arrStr[3]+','+ arrStr[4]+');');


               Form1.Label2.Caption := IntToStr(i+1) + ' of ' + IntToStr(c+1);
               Application.ProcessMessages;
          end;


          sl.Free;
          Form1.TableGrid1.dbUpdate;
     end;
     OpenDialog.Free;
end;

попробывал из первого поста в cvs файл в имена и фамилии вставить символы ";" "[", при импорте также обрезалось т.е в базу загрузилось только до символов ; или [, не могу разобраться

спасибо! телефоном приложением прочитался, в понедельник попробую сканером, qr код кажется может сразу несколько полей выводить, только я не понял как в properties могу выбрать только 1 поле, несколько полей только скриптом? про несколько полей не срочно это так планы на будущее и для общего развития

Спасибо!
но что то не заработало если просто поставить {DateTimePicker2}, это делается в скрипте при нажатии бутона срабатывает скрипт и открывается другая форма, {DateTimePicker2} находится на тойже форме что и бутон
сделал так

SQLExecute('insert into temp_z (id_osn, id_mkb3, data_uchet1,dead_v_tech) select osn.id, osn.id_mkb3, osn.data_uchet1,osn.id_deadtech from osn where (strftime(''%Y'', data_uchet1, ''+1 years'') = strftime(''%Y'', '''+FormatDateTime('yyyy-MM-dd 00:00:00.000', Reports.DateTimePicker2.DateTime)+'''))');

вроде работает грубовато, но работает

пробывал так

SQLExecute('insert into temp_z (id_osn, id_mkb3, data_uchet1,dead_v_tech) select osn.id, osn.id_mkb3, osn.data_uchet1,osn.id_deadtech from osn where (strftime(''%Y'', data_uchet1, ''+1 years'') = strftime(''%Y'','' {DateTimePicker2}''))');

не заработало, ошибку не выдает, но и результата нет, в temp_z ничего не записывает

вроде разобрался, нашел ошибку, пытаюсь сделать огромную таблицу состоящую из 2000 ячеек, надеюсь он не будет зависать при обработке базы из 5 тыс человек.
вопрос знатокам может есть способ другой, сейчас буду делать, по странично на каждую страничку будет своя кнопка или комбобоксом еще не решил. на странице примерно будет 400 ячеек, соответсвенно и в скрипте будет 400 переменных которые будут ложится в ячейки. Вопрос а надо как то память очищать пр закрытии отчета, значение переменных из памяти тоже чистятся?

или вообще может есть способ более простой реализовать такой отчет?

Дмитрий! Спасибо!
Следом еще вопрос:
В базе поле Age вичисляемое по дате рождения, считает все правильно.
в FastReports делаю так

procedure Cross1OnBeforePrint(Sender: TfrxComponent);
var a10 :integer;
begin
a10:=SQLExecute('SELECT count(*) FROM osn WHERE (osn.id_sex=1)and(osn.id_mkb>=1)and(osn.id_mkb<=500)and(osn.age=30)');
with Cross1 do
begin
AddValue(['C00-C0099 M'], [1], [a10]);
end;
end;
begin
  
end.

получается поле age символьное не считает, выдает ошибка, в AddValue можно запихать только число?
если я убираю osn.age=30 все норм
или может быть можно вычис поле возраст(age) сделать чтоб в базу записывалось не символьное поле, а целое число

вот сейчас понял вычисляемое поле - это поле не записывается в базу? как можно сделать чтобы поле Age при запуске программы или запуске отчета пересчитывалось и значение возраста записывалось в базу, это поле очень нужно, вручную ставить нельзя, возраст у человека изменяемый

или возможно ли сделать на форме кнопку "подсчитать возраст", которая бы высчитывала бы возраст от сегоднешней даты - дата рождения и изменяла бы записи поля age таблицы osn