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 117 of 400)
Topics by DriveSoft User defined search
Posts found: 2,901 to 2,925 of 9,999
antonfender wrote:Продукт скачал, пользуюсь, видосы на русском все пересмотрел и ни в одном про скрипты не рассказывается:( А мне очень бы хотелось сдедать БД сочной:)
Вот и прошу помощи у вас:) Может документацией подробной подсабите или видио какое нить скините.
И расскажите, где в этой программе скрипт писать?
Скрипты используют синтаксис языка Object Pascal (Delphi), здесь можете найти материалы
http://myvisualdatabase.com/forum/viewt … 462#p13462
Вы можете создать полноценную базу данных без использования скриптов, поэтому просто начните делать, и как только вы заметите необходимость использования скриптов, просто задайте конкретный вопрос, "как это сделать?"
Check it out
procedure MenuClick1 (Sender: string);
begin
frmInvoice.ShowRecord('Invoice', Form1.tgMainInv.dbItemID);
end;
procedure MenuClick4 (Sender: string);
begin
ClipboardSet( Form1.tgMainInv.Cells[Form1.tgMainInv.SelectedColumn, Form1.tgMainInv.SelectedRow] );
end;
procedure MenuClick2 (Sender: string);
var
s: string;
i,c: integer;
begin
s := '';
c := Form1.tgMainInv.Columns.Count-1;
for i := 0 to c do s := s + Form1.tgMainInv.Cells[i, Form1.tgMainInv.SelectedRow]+ ' | ';
ClipboardSet(s);
end;
procedure MenuClick3 (Sender: string);
var
s: string;
iCol,c: integer;
iRow,q: integer;
begin
s := '';
q := Form1.tgMainInv.RowCount-1;
c := Form1.tgMainInv.Columns.Count-1;
for iRow := 0 to q do
begin
for iCol := 0 to c do
begin
s := s + Form1.tgMainInv.Cells[iCol, iRow]+ ' | ';
end;
s:= s + #13#10;
end;
ClipboardSet(s);
end;
procedure MenuClick5 (Sender: string);
begin
// not support
end;
It's look like some problem with firewall in your system.
can you attach your project? I will test it.
К сожалению пока не ясно, нужно более подробное описание.
Что мешает просто вводить в базу с помощью одного компонента Edit числа в базу?
попробуйте так
procedure Form1_TableGrid1_OnChange (Sender: string);
var
i, c: integer;
begin
c := Form1.TableGrid1.Columns.Count - 1;
for i := 0 to c do
Form1.TableGrid1.Columns[i].Options := Form1.TableGrid1.Columns[i].Options + coAutoSize ;
end;
kovalenko wrote:DriveSoft wrote:Лучше расскажите, какая цель всего этого? Возможно смогу предложить более правильный способ.
Ок. Есть разные статусы заказов и панельки помогают фильтровать вывод заявок со статусами - всё кроме, или только выбранне. Хочется чтобы можно было выбрать вывод всех статусов кроме, например "закрыто" и оно (это состояние отфильтрованного статуса) при необходимости сохранялось до последующего изменения. Если о фильтрации вывода "только выбранные статусы", то их сохранение(статуса фильтрации) не актуально.
У компонента ComboBox есть свойство MultiSelect, установите его значение True, таким образом вы сможете выбирать при поиске, с какими статусами заказы показывать.
omarovaasya5 wrote:Добрый день.Подскажите пожалуйста я не могу импортировать данные где текст на русском ,на английском записи переводит в базу а вот с русским не отображает
Здравствуйте.
Скорей всего ваш csv файл имеет кодировку отличную от UTF-8 (unicode), просто перекодируйте ваш файл например с помощью программы Notepad++
если не получиться, приложите пожалуйста ваш проект с csv файлом.
Здравствуйте.
Скорей всего ваш csv файл имеет кодировку отличную от UTF-8 (unicode), просто перекодируйте ваш файл например с помощью программы Notepad++
если не получиться, приложите пожалуйста ваш проект с csv файлом.
Скачайте пожалуйста последнюю бета версию 3.7
https://www.dropbox.com/s/eef9rf7u08k63 … b.zip?dl=0
Поставьте галочку напротив нового свойство Searchable, что даст возможность искать записи непосредственно в ComboBox, в т.ч. и при использовании связанного списка.
К сожалению подобного примера нет, его разработка займет слишком много времени.
По второму вопросу, к сожалению не очень понимаю его.
All forms stored in file forms.xml, check this file. Also you can attach your project.
Лучше расскажите, какая цель всего этого? Возможно смогу предложить более правильный способ.
RZ-007
Думаю тут явно какая то ошибка в принципах проектирования, лучше расскажите, какая цель всего этого? Возможно есть более правильный способ.
Victor51ru wrote:Дмитрий огромное спасибо!!!
Дмитрий не подскажите как еще сделать вот Это
С главной формы по кнопке платежка переходим на форму платежи. Делаем платеж, хотелось что бы этот платеж отображался на форме "Основная" у конкретного водителя или машине. Я так понимаю там скорей всего надо делать SQL запрос на открытие формы или как то по другому и с этим проблема!!!
Пожалуйста описывайте вопрос подробней. Что значит отображался на форме Основная? Как именно? где? Что значит "конкретного водителя или машине"
Check it out
var
gl_ImageFileName: string;
gl_FileExists: boolean;
procedure Affichage_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
gl_ImageFileName := Affichage.DBImage1.dbFileName;
gl_FileExists := FileExists( ExtractFileDir(Application.ExeName)+ Affichage.DBImage1.dbCopyTo+'\'+ExtractFileName(gl_ImageFileName) );
end;
procedure Affichage_Button1_OnAfterClick (Sender: string);
Var
i : Integer;
sFile: string;
begin
Form1.Grille_Armen.dbUpdate;
i := Form1.Grille_Armen.RowCount;
Form1.Label2.Caption := 'Il y a ' + IntToStr(i) + ' fiches';
if (Affichage.DBImage1.dbImageIsChanged) and (gl_FileExists) then
begin
sFile := ExtractFileDir(Application.ExeName) + Affichage.DBImage1.dbCopyTo+'\'+ExtractFileName(Affichage.DBImage1.dbFileName);
DeleteFile(sFile);
SQLExecute('UPDATE Armen SET Couverture_filename="'+Affichage.DBImage1.dbCopyTo+'\'+ExtractFileName(gl_ImageFileName)+'" WHERE id='+ IntToStr(Affichage.Button1.dbGeneralTableId) );
end;
end;
Project:
Please attach your project, with steps to repeat this bug.
manixs2013 wrote:Sir prahousefamily!
Pls help. there is a problem in the details in every table.. All data has not yet display.
Only one record was display
Thanks!
Check it out:
Check out height of field (Notes)
Form1.GridSearch.Columns[3].SlideBounds.Height := 50;
I think you should reduce height of field.
Victor51ru
Как правило из базы данных недолжно ничего удаляться, тем более в вашем случае, когда водитель имеет связанные с ним документы, которые должны быть сохранены.
В таблице бд где хранятся записи о водителях, создайте поле с типом ДА/НЕТ, с именем archived, со значением по умолчанию: 0
На форме расположите компонент CheckBox, с надписью например "В архиве".
Данное поле будет означать, находится ли водитель в архиве, либо просто уволен. На форме поиска водителей можете разместить также CheckBox, чтобы при желании можно было просматривать водителей в архиве.
Thank you for the example!
var
d: int64;
i: integer;
begin
d := GetFileSize(application.exename);
i := d;
Form1.Caption := IntToStr(i); // bytes
Form1.Caption := FloatToStr(i/1024); //kb
Form1.Caption := FormatFloat('0.00', i/(1024*1024)); //mb
Form1.Caption := FormatFloat('0.00', i/(1024*1024*1024)); //gb
К сожалению пока такой возможности нет. Попробую реализовать встроенный поиск в ComboBox, чтобы работал без скриптов и со связанными списками.
kovalenko
К сожалению кнопки не могут изменять цвет. Это можно сделать например в компонентом Panel.
Панелей будет какое то конкретное количество? Или нужен скрипт для разного количества панелей?
Posts found: 2,901 to 2,925 of 9,999