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 146 of 400)
Topics by DriveSoft User defined search
Posts found: 3,626 to 3,650 of 9,999
Hello.
Please open an example:
MyDocuments\My Visual DataBase\Examples\Phone Book
On form "frmAbonent" there is TableGrid named "GridNumbers", it shows child records, phone numbers belongs to person.
About sub records, you can see sub records only in another tablegrid, example:
http://myvisualdatabase.com/forum/misc. … download=1
попробуйте так
procedure Form1_TableGrid2_OnKeyUp (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
Form1.Image1.Picture.LoadFromFile(Form1.TableGrid2.Cells[0,Form1.TableGrid2.SelectedRow] );
end;
попробуйте Кат Руз взять в кавычки, т.е.
Hello.
Fixed project.
Also I have added possibility to change offset of clock in minutes.
Please download latest beta version again
https://www.dropbox.com/s/xf20ksdbdgj6w … b.zip?dl=0
instead:
Form1.Memo1.SaveToFile(AppPath+'readme.txt');
you should use method
Form1.Memo1.SaveToFileUTF8(AppPath+'readme.txt');
Check out this script to store a file from datanase to disk:
procedure Form1_Button6_OnClick (Sender: string; var Cancel: boolean); //GET STORED FILE BACK TO DISK
var
sFileName: string;
sTempFile: string;
SaveDialog: TSaveDialog;
begin
SaveDialog := TSaveDialog.Create(Form1);
SaveDialog.FileName := ExtractFileName( SQLExecute('SELECT somefile_filename FROM test WHERE id='+Form1.TableGrid1.sqlValue) );
if SaveDialog.Execute then
begin
sFileName := SaveDialog.FileName;
sTempFile := SaveFileFromDataBase ('test','somefile', Form1.TableGrid1.dbItemID);
CopyFile(sTempFile, sFileName);
DeleteFile(sTempFile);
end;
SaveDialog.Free;
end;
6katran6 wrote:спасибо то что нужно а с xlsx возможно что бы ссылка была скачать указать путь где он лежит
Скачать с интернета? Где будет расположен файл?
Hello.
You found a bug. Thank you.
Fixed, please download latest beta version
https://www.dropbox.com/s/xf20ksdbdgj6w … b.zip?dl=0
Hello.
I have added function GetFileSize to get file size.
Please download latest beta version:
https://www.dropbox.com/s/xf20ksdbdgj6w … b.zip?dl=0
Also I have attached an example, how to store file to database using script:
Unfortunately I can't find any API documentation for this printer on official web site..
Hello.
Sorry for delay.
All project was made of trial version MVD, also have trial period.
Please download latest beta version.
https://www.dropbox.com/s/xf20ksdbdgj6w … b.zip?dl=0
Now Memo uses UTF8 to save file.
In the current version RTF editor not exists, but planned.
Hello.
Check out this script:
procedure frmStudent_btnCancel_OnClick (Sender: string; var Cancel: boolean);
begin
if (frmStudent.dbAction = 'NewRecord') and (frmStudent.btnSave.dbGeneralTableId<>-1) then
begin
SQLExecute('DELETE FROM student WHERE id='+IntToStr(frmStudent.btnSave.dbGeneralTableId));
end;
end;
Uses button with action "Open in Excel" not provide any options to customize output format.
You should use for that button with action "Report" to design report then you can export it to excel.
Sorry for delay.
Please explain your question in more detail.
In the section const I have added some params to customize clock
const
R = 70; // radius of clock
RN = 85; // radius of numbers
color_clock = clBlack;
color_numbers = clBlack;
numbers_font = 'Arial';
numbers_size = 10;
Please download the example again
http://myvisualdatabase.com/forum/viewt … 279#p19279
Здравствуйте.
Сделал для вас проект с примером
AD1408 wrote:Thanks a lot Dmitry.............
Script is beyond me in most parts. How can I change clock face, size, use numbers such as 9-3 12-6 or IX-III XII-VI etc. instead of o? And resizing pens length according to clock face?
Please download the example again, from my previous post.
line 2 in script to change clock size
R = 75 ; // radius of clock
Hello.
Try to use one trick.
Open settings of TableGrid, add some fields and set up footers.
And check, that you have option "Show child records"
Also you can do it using script:
procedure Form1_TableGrid1_OnChange (Sender: string);
begin
Form1.TableGrid1.Columns[0].Footer.FormulaKind := fkSum; // for first column
Form1.TableGrid1.CalculateFooter;
end;
begin
Form1.TableGrid1.Options := Form1.TableGrid1.Options + goFooter;
end.
all formulas
fkSum
fkCount
fkAverage
fkMaximum
fkMinimum
fkDistinct
AD1408
Please download latest beta version
https://www.dropbox.com/s/xf20ksdbdgj6w … b.zip?dl=0
Then you can use this example to draw analog clock
К сожалению MVD никак не сможет помочь создать приложение для мобильной платформы.
Разве что создать WebGrid используя программу, затем открыть его через мобильный браузер.
Example, how to hide some columns in a TableGrid
procedure Form1_TableGrid1_OnChange (Sender: string);
begin
Form1.TableGrid1.Columns[0].Visible := False;
Form1.TableGrid1.Columns[2].Visible := False;
end;
Posts found: 3,626 to 3,650 of 9,999