Skip to forum content
My Visual Database
A Simple Solution for Creating Databases
You are not logged in. Please login or register.
Active topics Unanswered topics
Search options (Page 162 of 400)
Topics by DriveSoft User defined search
Posts found: 4,026 to 4,050 of 9,999
stas.kodpi wrote:я просто это тоже пробовал, результат тот же.
я уже в свойствах выставлял numeric only , и без него, и цифры, и текст ставил - один и тот ж результат.
но когда убираю хотя-бы одну цифру - то уже грид заполняется нормально.
почему так. (т.е. 9 знаков ставится, а должно быть 10 знаков в ИНН быть, вот с 10 цифрами - и опустошается ячейка в гриде)
Что то вы не то пробовали. Изменил тип поля INN на ТЕКСТ в вашем проекте, теперь все будет работать.
stas.kodpi wrote:правильно. во втором значении ИНН сохраняется, а в ервом - нет.
вторая запись не так важна.
первая - очень важна, потому, что с ней идет сверка с налоговой а также обмен данными между областями и столицей.
Так в чем тогда проблема? )
Как я уже сказал, просто используйте для хранения ИНН поле с типом "ТЕКСТ"
stas.kodpi
Изменения которые были сделаны не могли привести к потери данных в базе, а лишь перестали показываться в гриде, о чем вы сами написали. В базе вашего проекта я вижу только две записи, в которых присутствует ИНН.
akkerhof wrote:The next problem that rises is that I cannot translate the text of the Caption and the Yes and No button
In the next release I will add new version of dialog, where you can change caption, and buttons will be translated automatically depends on regional setting of Windows.
stas.kodpi wrote:это проблемы 3.1 версии? или это просто глюк временный?
разработчик - проясните, пожалуйста, если не сложно
Это не глюк, были сделаны изменения, которые повлияли на это.
An example, how to translate all hints of "image" and "dbfile" on all forms in a project.
procedure TranslateForms (Form: TAForm);
var
i,c: integer;
begin
c := Form.ComponentCount -1;
for i := 0 to c do
begin
if Form.Components[i] is TdbFileToDatabase then
begin
TdbFileToDatabase(Form.Components[i]).LeftButton.Hint := 'Your hint';
TdbFileToDatabase(Form.Components[i]).RightButton.Hint := 'Your hint';
end;
if Form.Components[i] is TToolButton then
begin
if TToolButton(Form.Components[i]).Hint = 'Open an image to save in the database' then
TToolButton(Form.Components[i]).Hint :='Your hint';
if TToolButton(Form.Components[i]).Hint = 'Export image from the database' then
TToolButton(Form.Components[i]).Hint :='Your hint';
if TToolButton(Form.Components[i]).Hint = 'Delete image' then
TToolButton(Form.Components[i]).Hint :='Your hint';
end;
end;
end;
begin
TranslateForms(Form1);
TranslateForms(Form2);
end.
Приветствую.
1. Дело в том, что вы выходите за пределы числа "Целое число" (Integer), которое может быть максимум таким:
2147483647
Т.к. с ИНН обычно не производят никаких математических операций, хранить его в поле с типом "Целое число" смысла нет, для его хранения используйте поле с типом "ТЕКСТ"
2. К сожалению вопроса не понял, где пишите текст?
bemorhona-qt
Попробовал воспроизведи данную ошибку, к сожалению не получилось, приложите пожалуйста свою версию проекта.
Потянет, sqlite поддерживает до 2000 полей.
Но возможно вы неверно продумали структуру БД, обычно такое большое количество полей необходимо в довольно редких случаях.
pt.82
Обычно в базе данных не принято хранить информацию, если ее можно получить из других полей. Иначе можно получить рассогласование данных, т.е. измените одно поле, а второе уже будет не соотвествовать первому.
При необходимости можете вычисляемым полем склеить два поля, затем скриптом сделать преобразование данных.
alduyr wrote:Спасибо что откликнулись.
Файл проекта прилагаю. Использовать только фото 1 или все.
Готово. На главной форме нажмите кнопку "Поиск картинок"
Leonid wrote:Всем здоровья !!! Давно не писал . Увидел сообщение про TPort .
Здорово . А теперь нужен TSocket . Ожидается ли и когда ?
Пока не планируется, вы перый кто упомянул об этом.
Не могли бы вы рассказать для каких целей он был бы вам полезен в MVD?
carlo_dj wrote:Hello. project is send to my shared Dropbox.
thx
I lanuch project, but can't catch any error messages, please describe steps to reproduce the error.
AD1408 wrote:Hi JB,
Thanks for the suggestion...
Unless, I did something wrong it still launches both forms on double click.
procedure Form1_OnShow (Sender: string; Action: string);
begin
Form1.tgSearchSaleInv.dbPopupMenu.Items[0].Enabled := False;
end;
procedure Form1_tgSearchSaleInv_OnCellDoubleClick (Sender: string; ACol, ARow: Integer);
begin
Form1.Button8.Click; // here you can click on necessary button to edit record
end;
delphinsl
Ошибки происходят в событиях
Form1_TableGrid1_OnChange
Form1_TableGrid2_OnChange
где вы раскрашиваете гриды. В настройках TableGrid1 вы выводите только 10 столбцов, но скрипт в данных событиях пытается обратиться к 18 колонке, которой пока не существует, и будет существовать только после данного скрипта, который исполняется в событии OnShow главной формы
но событие Form1_TableGrid1_OnChange вызывается раньше чем событие OnShow у формы.
В принципе данная ошибка должна была возникнуть и в предыдущих версиях, возможно из за существования другой ошибки в MVD данная ошибка не проявилась )
Если тип колонки является числовым, то к сожалению вписать текст туда не получится.
abgroup-artur wrote:Спасибо!!! НО одна задача, сразу же рождает следующую, и она все сложнее. Теперь по Гриду1 с отфильтрованными заказами по Юзеру, нужно отфильтровать Грид2. Проект выслал Вам на почту. Здесь получаются связные списки 3-его уровня. Спасибо.
К сожалению не нашел на почте вашего проекта, отправьте пожалуйста на support@drive-software.com с темой My Visual Database и с ссылкой на данную тему.
motorolla wrote:Дмитрий подскажите, планируется ли поддержка в будущем баз Firebird?
Пока не планируется.
delphinsl wrote:С чистой базой, запуск программы происходит нормально без ошибок, а вот работать с ней нельзя возникает ошибка!
Тогда пришлите пожалуйста ваш проект с описанием действий, которые приводят к ошибке на support@drive-software.com
и в сообщении укажите ссылку на данную тему.
delphinsl wrote:Дмитрий, это и ежу понятно, что при удалении файла БД все пропадает. Я о другом говорю, Вы что-то дорабатываете, а у нас рабочие проекты не работают и дать файл с полной базой я Вам ну никак не могу!
Если ошибка возникнет снова, просто пришлите мне проект с базой, починю )
akkerhof wrote:It seems I cannot make it working. Can you please adapt my aplication, so I can check how it works. Please!
Sorry, I just forgot to attach fixed project.
akkerhof wrote:My application
Done.
In your project you just copy and paste script from forum,but you should create an event OnClick for the button.
Here you can see how to create an event:
http://myvisualdatabase.com/help_en/scr … rview.html
akkerhof wrote:Can you please help me, I'm a beginner and donot understand your solution. I enclosed my application/
Please attach you project (zip file without exe and dll)
Hello.
You can replace this dialog.
Example, how to replace this dialog and a dialog for confirmation of delete record:
You should create event OnClick for a delete button, also you need to disable option "Ask for confirmation to delete the record" in the setting of the button:
procedure Form1_bDeleteButton_OnClick (Sender: string; var Cancel: boolean);
begin
// custom message, when record in tablegrid not selected
if Form1.TableGrid1.dbItemID=-1 then
begin
MessageDlg('Your message here.', mtInformation, mbOk, 0);
Cancel := True;
Exit;
end;
// custom message for confirmation of delete record
if MessageDlg('Your message here.', mtConfirmation, mbYes+mbNo, 0) = mrNo then
begin
Cancel := True;
Exit;
end;
end;
pt.82
Это происходит потому что у вас символ ; уже используйте как служебный в качестве разделителя полей.
Вам необходимо в чтобы в CSV файле был такой символ-разделитель, который не присутсововал бы в данных, а лучше сделать комбинацию символов в качестве разделителя.
Posts found: 4,026 to 4,050 of 9,999