You are not logged in. Please login or register.
My Visual Database → Posts by FMR
Thanks derek
This is a 1st time your solution not fix my problem but you give me a good idea, please check the attached project and let me know if their is any suggestion, just I work for make the month 2 digit on single number like 1 to 01
procedure Form1_OnShow (Sender: TObject; Action: string);
var
Day, Year, Month: Word;
begin
DecodeDate(Form1.DateTimePicker1.DateTime, Year, Month, Day);
Form1.Edit1.Text := (IntToStr(Month));
end;
begin
end. Hello MVDs
I need load my TextBox with the Current month with only 2 Digit like (01) for January, Please help
I try using the Date Time Picker by this code and then copy it to the TextBox but the TextBox show to the full date and I need only the month
procedure Form1_OnShow (Sender: TObject; Action: string);
begin
Form1.DateTimePicker1.Format := 'MM';
Form1.Edit1.Text := DateToStr (Form1.DateTimePicker1.Date);
end;Hello,
You should be sure the problem from your Project side or the Server side.
I recommended you test your project with this free SQL server www.freemysqlhosting.net
If your project run without problem that is means the problem from the server side. maybe you didn't add your IP to the allowed External IP Connection
derek, you are great as always !
cool trick to solve the problem 
Hello,
I'm trying print the login username on printed paper it's should print who the user print it
When I trying use
Application.User.UsernameBut this code it's not supported by FastReport
Any idea how to print the current login user on the paper ?
Hi
Chose the type is numbers and then Change the type of separator from the DisplayFormat > ThousandSeparator (See the attached screenshot)
Thanks, this is solved my problem.
Hello,
How to remove mouse selection from the Tablegrid ?
I try this code
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
Form1.TableGrid1.ClearRows;
end;This will make the tablegrid empty from the data
Hi Both,
There are a couple of anomalies with the 'towords' function (fourty rather than forty is another one).
The easiest thing is probably just to correct them with a couple of lines in your script.
Derek.
I used same procedure to tix the issue.
I wish making a Forum for submitting bugs, maybe someday there is a new version of My Visual Database if the current version not the last version
Hi,
When I used a ToWords() I found a strange spelling with number 12
The number 12 show as Twelwe instead Twelve
Anyone can confirm ? maybe the problem from my system
Sorry for this topic, I forget applying authentications for FTP
Now it's working
Hello again
even when I use file path instead scripting still facing same error
ftp.Put('C:\Users\FMR\OneDrive\Pictures\Persons\img.jpg','Photo.jpg');Hi sparrow
I create a Edit field get the path of file and then copy it by
var
ftp: TIdFTP;
link, name: String;
begin
link := Form1.Edit_Link.Text; // Get File address
name := Form1.Edit_Name.Text; // Get the nameHello,
Any one have information how upload images to FTP instead linked inside computer with using MySQL
Please see my project and show me my mistake
I test my ftp access on FTP it's OK
Hello,
I use MySQL connection code from this link http://myvisualdatabase.com/forum/viewtopic.php?id=1804 (Russian Language)
Can encrypt the sensitive information ?
MySQLConnection.Server
MySQLConnection.Username
MySQLConnection.Password
MySQLConnection.Database
Hi derek
You do a hard job for me, I'm really appreciated your work
Hello,
In attachment example about contacts form with photo stored as LinkFile
How to save the image files as Counter value or Contact Name ? instead keeping original file name
Hi,
Try it like thisprocedure form1_ComboBox1_OnChange (Sender: TObject);
begin
form1.edit1.value := strtoint(form1.combobox1.text);
end;Derek
Derek Superhero !
Thanks a lot, worked perfectly, sorry for my stupid questions, I learn the SQL and scripting in the last 2 month
Hello,
How to complete this code to make it a possible to work ?
Form1.Edit1.Value := Form1.ComboBox1.????I have stored a number of years on table as integer value and then I need read the years that appear on combobox as Value
not easy like handling the data as string Form1.Edit1.Text := Form1.ComboBox1.Text;
Hi FMR,
Not too sure what you're trying to do but perhaps try it like this (see attached).
Derek.
Derek,
Sorry, but I got simi answer. the form1.combobox1.dbItemID := 0; help me alot
Your code keep show me error message
Hi,
I didn't figure out how to make the search, please see my project and show me my mistake, this code what I write:
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
Form1.ComboBox1.Items.Text := Form1.Edit1.Text;
end;
procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
begin
Form1.ComboBox1.dbUpdate;
Form1.Edit1.Clear;
end;the search can find the result but the combobox show the first choice is blank
The second answer was great, work perfect.
Hi,
Can display the result of search as selected item on ComboBox instead TableGrid ?
And Can I create customized list of ComboBox without needs to link in DataBase ?
Here's a workaround, putting password saving function on the mousenter event of the Form1. It seems that the onActivate function runs right after the showing of the login form.
Brian , You are brilliant as usual !
I tried figure out what is problem by my self but when I tired, I ask in the right place and I got the perfect answer from you.
I'm really appreciate you much
Hello,
Sorry for bothering you again, but I facing a strange issue.
When I switch from SQLight to MySQL, the saving username and password will not working if I add a button or any object on From1. When I remove all objects on Form1 the saving password will working.
Please review my project in attachment
Hi FMR, Hi Brian,
Perhaps try it like this (see attached - UserID = admin, Password = admin).
Regards,
Derek
Thank you Derek
It's work
My Visual Database → Posts by FMR
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi