How to draw guage like dashboars meter.. using short code..
i need a sample for tank guage to measure volume..
In another post Sparrow has provided a gauge version - search for gau2 circ1.rar
My Visual Database → Posts by CDB
How to draw guage like dashboars meter.. using short code..
i need a sample for tank guage to measure volume..
In another post Sparrow has provided a gauge version - search for gau2 circ1.rar
A bit of a cheek, but I've found a defunct (since 2014) RAD database environment mainly for Access called Chammer from Triniti-soft (website no longer exists) using Open Pascal.
The company or website is Bulgarian, and I'm wondering if any one has any knowledge of this software and if so if they have the help file.
The EXE file can be downloaded from Sourceforge https://sourceforge.net/projects/chammerpascal/- it looks quite advanced judging by the IDE and the amount of components it has built in.
I've tried the 'Way Back' machine but that just says
Unified centralized system for orders and exchange of documents - OMV Bulgaria Ltd
Gas station management system - ECO Bulgaria EAD
Specialized school feeding system - French Lycée
An open source application development environment based on open pascal - Chammer
Sales application for Windows Mobile and Linux
Development of extensions and Internet templates to CMS Drupal
Commercial extension (ABIS POS) of ERP Navision - Avenir Telecom EOOD
Integration of ABIS and SAP - OMV Bulgaria OOD
In order for our consultant to contact you and present the project in detail, click HERE.
If you have an idea and would like us to realize it together, fill out the following form: Application form - purpose: funding.
Like MVD it is a shame it is no longer supported.
You forgot the attachment.
MySQL 8.0 supports a new authentication based on improved, stronger SHA256-based password methods.
How To Fix Error Or Custom Script In MVD ?
You can only change it by altering the MySQLsetup security to the legacy setting.
You might want it, but I think a little more information would be useful.
Есть ли разница в номерах версий MySQL? В более поздних выпусках v8 произошли изменения в аспектах безопасности движка. Двигатель Inno по памяти.
Is there a difference in the MySQL version numbers? There was a change in the security aspects of the engine in the later v8 editions.
Inno engine from memory.
Tcoton,
While I would personally read in the country code and then use CASE statements as I wrote above, I think you could do it another way.
First count the length of the string shDate for max_index.
Within a for loop, use dtFormat:= Pos(shDate, ' ')
Then use the loop index, as the position to
Insert(dtFormat, '/', loopIndex);
And perform a similar iteration for the time.
That seems a neater way to do it than my idea Sparrow.
Perhaps TCoton can let us know if that works for his project.
Naturally Sparrow I'm having difficulty getting my registry function to work, but I'll post my general idea.
Registry function.
function ReadReg(thekey, value: string): string;
var
Rg: TRegistry;
begin
//Create the Object
Rg := TRegistry.Create;
with Rg do
begin
RootKey := HKEY_LOCAL_MACHINE;
//False = no write ability
if OpenKey(theKey, false) then
begin
if ValueExists(value) then
//Read the value from the field
Result := Readstring(value)
else
ShowMessage(The value + ' does not exists under ' + theKey);
end
else
//opening the key
ShowMessage('Error opening key : ' + theKey);
CloseKey;
end;
end;
//for demo purposes called by
form1.label1.TagString := ReadReg('\SYSTEM\CurrentControlSet\Control\Nls\Locale', 'Default');
Then from the locale code held in TagString
Do the following SQL Query pseudo code as I can't get the above function to work)
CASE when TagString = 0809 then
format dddd/mm/yyyy
AS thedate
else
CASE when TagString = (whatever the US code is) then
format mm/dddd/yyyy
AS thedate
That is my general idea.
Oh yes, the error the above code keeps throwing is 'Error opening key'. The key exists as I'm looking at in Regedit.
I don't think this is exactly possible using SQLite.
I think the only way to do what you want, is to use MVD to interrogate Windows for the locale code, and then use a SQL iif.... or CASE function to then select the required SQL strftime formatting function.
As an aside I think SQL Server can do what you want.
I
How do you like this?
I think Sparrow, where tcoton was having difficulty, was in trying to work out how to get an Image Click to do what a Button Click can do either by script or from the inbuilt functions for ShowRecord etc.
A trick you could try, is where you can get the ID save it to a 'form_name.tag' then it is available to you everywhere while that ID is needed.
Not tested, but see if this works.
ChartLine.Series[0].linepen.color := clBlue;
Any Weblink for DataExpress? I get only some unrelated advertises via google.
There is the possibility you need to change the Authentication method, I have used v8.0 with MVD some time ago and I had to set the authentication method to the legacy type.
Разница во временной составляющей между кликами?
Или один использует настоящий юлианский календарь, а другой использует григорианский, несмотря на то, что он не должен
Difference in the time component between clicks?
Or one uses the true Julian calendar and the other uses Gregorian, despite it shouldn't
Another option, but not easy to use on a system using MS Exchange is a simple
SendMail('YOUR SERVER NAME','YOUR EMAIL ADDRESS','YOUR EMAIL PASSWORD',PORT # Outlook is on,'RECIPIENT EMAIL ADDRESS','MESSAGE TITLE','MESSAGE TEXT');
A variation on the code in the previous post is below. This is aimed at sending an email on a corporate Outlook server system:
Outlook := CreateOleObject('Outlook.Application');
//vMailItem := Outlook.GetNamespace('MAPI');
vMailItem.Logon;
vMailItem := Outlook.CreateItem(olMailItem);
vMailItem.Recipients.Add('RECIPIENT EMAIL ADDRESS HERE');
vMailItem.Subject := 'What a wonderful test email';
vMailItem.HTMLBody := sList.text; // 'This is a test --> how amazing';
//vMailItem.Send;
vMailItem.Display;
Outlook.free;
Hi
The email test.zip file does not contain any code!
I'm not sure what you mean that no code is in the zip file.
Below is code that works in Windows 10. I developed it on a Windows 10 PC. Note Outlook can be temperamental when using HTML, it may not always display correctly.
This takes information from a tablegrid and attempts to format it as a grid in an Outlook email. The text in red is all that is needed to actually use Outlook. The MAILTO line will work in any modern email client
procedure frmEmail_btnSendEmail_OnClick (Sender: TObject; var Cancel: boolean);
const
olMAILITEM = 0;
var
Outlook: Variant;
vMailItem: variant;
indx : integer;
txt, propName: String;
sList:TstringList;
begin
sList:=TStringList.Create;
sList.Add('<html>');
sList.Add('<head>');
sList.add('<style>');
sList.Add('table, th, td {');
sList.Add(' border: 1px solid #dddddd; text-align: left; padding: 8px');
sList.Add('}');
sList.Add('</style>');
sList.add('</head>');
sList.Add('<body>');
sList.Add('<table>');
sList.Add('<tr><th>Part Number</th>'+ '<th>BSuite#</th>' + '<th>Description'+ '</th>'+'<th>Qty'+'</th>'+'<th>For'+'</th>'+'</tr>');
for indx := 0 to frmEmail.tgEmailList.RowCount-1 do
begin
sList.Add('<tr><td>'+frmEmail.tgEmailList.Cells[0,indx] + '</td>' + '<td>' +frmEmail.tgEmailList.Cells[1,indx] +'</td>'+'<td>'+frmEmail.tgEmailList.Cells[2,indx]+'</td>'+'<td> x '+frmEmail.tgEmailList.Cells[3,indx]+'</td>'+'<td>'+frmEmail.tgEmailList.Cells[4,indx]+'</td></tr>');
end;
sList.Add('</table>');
sList.Add('</body>');
sList.Add('</html>');
if frmEmail.cmbSupplierList.ItemIndex = -1 then
messagebox('You have not selected an order to email. Please select a supplier', 'EMAILING ERROR',0)
else
begin
frmEmail.tgEmailList.dbPopUPMenu.Items.Find('Copy All').click;
txt := ClipboardGet;
try
[color=red] [b]propName := 'https://schemas.microsoft.com/mapi/proptag/0x59020003';
Outlook := CreateOleObject('Outlook.Application');
vMailItem := Outlook.GetNamespace('MAPI');
vMailItem.Logon(null,null,true,null);
vMailItem := Outlook.CreateItem(olMailItem);
vMailItem.Recipients.Add(frmEmail.cmbEmailAddress.Text);
vMailItem.Subject := frmEmail.cmbSupplierList.Text;
vMailItem.HTMLBody := sList.text;
OutLook.SetProperty(propName, EncodingFlag);
vMailItem.Send;
Outlook.free;[/b][/color]
except
openURL('mailto:'+frmEmail.cmbEmailAddress.Text+'?Subject='+frmEmail.cmbSupplierList.Text+' Order'+'&Body='+sList.text);
end;
end;
end;
Hi eserjbrujo,
Is your database installed on a mapped network drive, or your PC has gone to sleep and you've woken the PC up, and tried to access the database almost immediately?
I'm assuming you are using SQLite as the database.
I have had similar error messages when the database is installed on a mapped drive on a network and a cache scraper program is running in the background. The other PCs only have to have a momentary disconnection from the mapped drive and the DB reports itself as locked.
I have posted this in the Russian section as well.
Konstantin - I've translated your 'Clear App' project into English if you are interested.
I haven't translated or updated the 'help' file though.
I should say, if anyone wants the translated version, they'll need to go through K245 to get it.
Константин - Я перевел ваш проект Clear App на английский язык, если вам интересно.
Я не переводил и не обновлял файл справки.
Я должен сказать, что если кому-то нужна переведенная версия, им нужно пройти через K245, чтобы получить ее.
Константин - Я перевел ваш проект Clear App на английский язык, если вам интересно.
Я не переводил и не обновлял файл справки.
Konstantin - I've translated your 'Clear App' project into English if you are interested.
I haven't translated or updated the 'help' file though..
I read your article on Multibase idea.
You could make it multibase and objective database by possibly using either BOLD For Delphi (now open source and being very slowly updated, does work with Firedac) or Mormot which interfaces to most databases but internally uses Sqlite. Mormot probably does more than is ever needed,and has a steep learning curve if you need to get into server based databases REST etc.
If possible the DB adapter and basic object DB files could be compiled into a DLL file one for each of the supported databases, then the developer of myvisual multibase project could at DB table design time, select from a list of supported databases and the correct DLL is then referenced 'behind-the-scenes', the developer continues to design their database as with the current MVD.
I would suggest using a more recent version of a Pascal Script utility if keeping that idea in a revamped program.
Я прочитал вашу статью об идее Multibase.
Вы можете сделать его многобазовой и объективной базой данных, возможно, используя либо BOLD For Delphi (теперь с открытым исходным кодом и очень медленно обновляется, работает с Firedac), либо Mormot, который взаимодействует с большинством баз данных, но внутри использует Sqlite. Mormot, вероятно, делает больше, чем когда-либо необходимо, и у него крутая кривая обучения, если вам нужно попасть в серверные базы данных REST и т. Д.
Если возможно, файлы адаптера БД и базовые объектные файлы БД можно было бы скомпилировать в файл DLL, по одному для каждой из поддерживаемых баз данных, тогда разработчик проекта myvisual multibase мог бы во время проектирования таблицы БД выбрать из списка поддерживаемых баз данных и правильную DLL. затем упоминается «за кулисами», разработчик продолжает проектировать свою базу данных, как и в текущем MVD.
Я бы предложил использовать более новую версию утилиты Pascal Script, если сохраните эту идею в обновленной программе.
SergeiE wrote:Добрый день!
Есть ли способы защитить или зашифровать базу (sqlite.db файл), что бы нельзя было прочитать в какой ни будь программе типа SQLiteStudio и подобных?
Вы можете использовать EncryptRC5(,) и DecryptRC5(,) , перед записью и чением данных
I tried that in a project a few years ago. I hit a problem - encrypt worked fine, but decrypt didn't work and just locked the SqLite database. For a reason I never got to the bottom of, the decrypt key applied provided a different result to the same key used for encryption.
Your value might vary.
In b.is_active, what is b?
b is an alias for the 'bookings' table.
The idea is, you don't have to keep writing the full name of a table (especially if it is a long name), it can be referred to either by a single letter or a shorter name.
It is declared in the line bookings AS b.
Attaching the file will be helpful as mentioned by Derek, but in the meantime, it might be worth checking your antivirus or firewall is not preventing the program from opening correctly.
My Visual Database → Posts by CDB
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi