You are not logged in. Please login or register.
My Visual Database → Posts by carlo_dj
Hello again Sparrow,
You are a pro! You fixe 2 problems, the chart refresh and the select period functions. I will implemented in my final project. People like you keeps MVDB a live. Thanks. By the way, I know we all people of the community missing Dmitry.
Greetings.
Hoi Sparrow,
Sorry for late respons. Thank you verry much for your support. I shall begin now with the fixed project.
Again thanks and greetings, Carlo
Hello to all,
How to refresh a chart when the combo box and month dt-picker value change?
Thanks in advance.
Thank you Sparrow and CDB,
Chart.Series[0].AddXY(DateValue, StrToFloat(ProfitValue),'',clRed); is ok.
chart line color function is fantastic.
Greeting, Carlo
Hi CDB,
Thank you.
Sorry, Linepen = result is the same error. undeclared identifier.
Linepen settings In fast report no problem.
Hello, How can I change the colour of a line in a TChart
ex.
begin
ChartLine.Series[0].Clear;
ChartLine.Series[1].Clear;
ChartLine.Series[2].Clear;
ChartLine.Series[0].Title := 'Systolic';
ChartLine.Series[1].Title := 'Diastolic';
ChartLine.Series[2].Title := 'HB/Min';
// ChartLine.Series[0].Color := clBlue; Give a undeclared identifier error
// ChartLine.Series[1].Color := clRed;
// ChartLine.Series[2].Color := clGreen;
Thanks in advance, Carlo
Hello,
How to implement the power function in script or via using calculated field? Example pls
Thanks in advance
Hello,
How to calculate BMI (standard formule) and the (new formula) in script? std Formule is : weight / length * lenght. Example 65 kilo / (1,70 x 1,70 meter) = BMI 22,5 value. New more accurate formula is : New BMI: 1.3 * weight(kg) / height(m) ^2.5
Thanks in advance
Hello, try this link - https://buttonoptimizer.com/
Hello Derek,
Lotto app random45.zip not working after mvdb 5.3 b update? Can you check it pls. Next, I want to play with nrs between 5 and 40 X 12 gratings (squares). An example pls
I think a problem with MVDB 5.3 beta - builder.dll-issue
Hello Derek,
Great job! Thanks.
Regards to,
Carlo
Hello, how to do it in MVDB example please? Function fx RandomRange is not implemented. I want to set via TextBoxses a min and max numeric value in script, Example: min. = 1 and max. = 45. Show 6 random numbers in the range 1 to 45, see below. Thanks in advance.
Example code : Generate random numbers in a very small range
// Full Unit code.
// -----------------------------------------------------------
// You must store this code in a unit called Unit1 with a form
// called Form1 that has an OnCreate event called FormCreate.
unit Unit1;
interface
uses
Math, // Unit containing the RandomRange command
SysUtils,
Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm} // Include form definitions
procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
begin
// Show 5 random numbers in the range 652 to 656
for i := 1 to 5 do
ShowMessage('Random number : '+IntToStr(RandomRange(652, 656)));
end;
end.
Hello,
Use Object inspector Form1_OnKeyDown
Change script to...
procedure Form1_OnKeyDown (Sender: TObject; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
if Key=13 then Form1.SetFocusNextControl;
end;
{procedure Form1_Ctrl_OnKeyDown (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
if Key=13 then Form1.SetFocusNextControl;
end; }
begin
end.
Hello,
I'm totally agree with mr_d
Regards, Carlo
Thanks DriveSoft
with best regards.
When Update Manual/Tutorial about My Visual Database?
Hi,
maybe this can help.
Hi,
Sometimes there is a faulty green number selected in the table members? In the example, number 37 is error because In table drawing is no number 37. Attached the script and a snapshot. Thanks in advance
procedure frmMain_tgDrawings_OnChange (Sender: string);
var
i,c: integer;
k,q: integer;
ii,cc: integer;
kk,qq: integer;
begin
q := frmMain.tgMembers.Columns.Count-1;
c := frmMain.tgMembers.RowCount - 1;
qq := frmMain.tgDrawings.Columns.Count-1;
cc := frmMain.tgDrawings.RowCount - 1;
begin
for i := 0 to c do
for k := 0 to q do
for ii := 0 to cc do
for kk := 0 to qq do
begin
frmMain.tgMembers.BeginUpdate;
if (frmMain.tgDrawings.Cells[kk,ii] = '1') and (frmMain.tgMembers.Cells[k,i] = '1') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '2') and (frmMain.tgMembers.Cells[k,i] = '2') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '3') and (frmMain.tgMembers.Cells[k,i] = '3') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '4') and (frmMain.tgMembers.Cells[k,i] = '4') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '5') and (frmMain.tgMembers.Cells[k,i] = '5') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '6') and (frmMain.tgMembers.Cells[k,i] = '6') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '7') and (frmMain.tgMembers.Cells[k,i] = '7') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '8') and (frmMain.tgMembers.Cells[k,i] = '8') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '9') and (frmMain.tgMembers.Cells[k,i] = '9') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '10') and (frmMain.tgMembers.Cells[k,i] = '*10') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '11') and (frmMain.tgMembers.Cells[k,i] = '11') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '12') and (frmMain.tgMembers.Cells[k,i] = '12') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '13') and (frmMain.tgMembers.Cells[k,i] = '13') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '14') and (frmMain.tgMembers.Cells[k,i] = '14') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '15') and (frmMain.tgMembers.Cells[k,i] = '15') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '16') and (frmMain.tgMembers.Cells[k,i] = '16') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '17') and (frmMain.tgMembers.Cells[k,i] = '17') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '18') and (frmMain.tgMembers.Cells[k,i] = '18') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '19') and (frmMain.tgMembers.Cells[k,i] = '19') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '20') and (frmMain.tgMembers.Cells[k,i] = '20') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '21') and (frmMain.tgMembers.Cells[k,i] = '21') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '22') and (frmMain.tgMembers.Cells[k,i] = '22') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '23') and (frmMain.tgMembers.Cells[k,i] = '23') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '24') and (frmMain.tgMembers.Cells[k,i] = '24') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '25') and (frmMain.tgMembers.Cells[k,i] = '25') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '26') and (frmMain.tgMembers.Cells[k,i] = '26') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '27') and (frmMain.tgMembers.Cells[k,i] = '27') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '28') and (frmMain.tgMembers.Cells[k,i] = '28') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '29') and (frmMain.tgMembers.Cells[k,i] = '29') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '30') and (frmMain.tgMembers.Cells[k,i] = '30') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '31') and (frmMain.tgMembers.Cells[k,i] = '31') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '32') and (frmMain.tgMembers.Cells[k,i] = '32') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '33') and (frmMain.tgMembers.Cells[k,i] = '33') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '34') and (frmMain.tgMembers.Cells[k,i] = '34') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '35') and (frmMain.tgMembers.Cells[k,i] = '35') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '36') and (frmMain.tgMembers.Cells[k,i] = '36') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '37') and (frmMain.tgMembers.Cells[k,i] = '37') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '38') and (frmMain.tgMembers.Cells[k,i] = '38') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '39') and (frmMain.tgMembers.Cells[k,i] = '39') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '40') and (frmMain.tgMembers.Cells[k,i] = '40') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '41') and (frmMain.tgMembers.Cells[k,i] = '41') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '42') and (frmMain.tgMembers.Cells[k,i] = '42') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '43') and (frmMain.tgMembers.Cells[k,i] = '43') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '44') and (frmMain.tgMembers.Cells[k,i] = '44') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
if (frmMain.tgDrawings.Cells[kk,ii] = '45') and (frmMain.tgMembers.Cells[k,i] = '45') then frmMain.tgMembers.Cell[k,i].Color := $0000D700;
frmMain.tgMembers.EndUpdate;
end;
end;
end;
Report is ok now,
Thanks Dmitry.
SELECT
members.Paid
,members.firstname
,members.lastname
,members.ClubID
,members.StartBet
,members.EndBet
,members.eMail
,members.GSM
,members.Comments,
members.id FROM members
CASE Paid WHEN 1 THEN 'Yes' WHEN 0 THEN 'No' ELSE '' END
FROM members
My Visual Database → Posts by carlo_dj
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi