very nice i like it
3 2021-01-21 11:47:39
Re: PROBLEM previous action keept (4 replies, posted in General)
var
s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,c1,c2,c3,c4,c5,c6,c7,c8,c9,c10,d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,matrr: string;
validted : string ;
begin
matrr := validator.Edit14.Text;
validator.Edit14.Text := validator.Edit12.Text;
validator.Edit15.Text := validator.Edit13.Text;
validator.Edit16.Text := validator.Edit2.Text;
validator.Edit17.Text := validator.Edit3.Text;
validator.Edit18.Text := validator.Edit4.Text;
validator.Edit19.Text := validator.Edit5.Text;
validator.Edit20.Text := validator.Edit6.Text;
validator.Edit21.Text := validator.Edit7.Text;
validator.Edit22.Text := validator.Edit8.Text;
validator.Edit23.Text := validator.Edit9.Text;
validator.Edit24.Text := validator.Edit10.Text;
validator.Edit25.Text := validator.Edit11.Text;
c1 := validator.Edit2.Text;
c2 := validator.Edit3.Text;
c3 := validator.Edit4.Text;
c4 := validator.Edit5.Text;
c5 := validator.Edit6.Text;
c6 := validator.Edit7.Text;
c7 := validator.Edit8.Text;
c8 := validator.Edit9.Text;
c9 := validator.Edit10.Text;
c10 := validator.Edit11.Text;
d1 := sqlexecute('select count(*) from Validated where affected = "'+c1+'" ');
d2 := sqlexecute('select count(*) from Validated where affected = "'+c2+'" ');
d3 := sqlexecute('select count(*) from Validated where affected = "'+c3+'" ');
d4 := sqlexecute('select count(*) from Validated where affected = "'+c4+'" ');
d5 := sqlexecute('select count(*) from Validated where affected = "'+c5+'" ');
d6 := sqlexecute('select count(*) from Validated where affected = "'+c6+'" ');
d7 := sqlexecute('select count(*) from Validated where affected = "'+c7+'" ');
d8 := sqlexecute('select count(*) from Validated where affected = "'+c8+'" ');
d9 := sqlexecute('select count(*) from Validated where affected = "'+c9+'" ');
d10 := sqlexecute('select count(*) from Validated where affected = "'+c10+'" ');
s1 := sqlexecute('select '+c1+' from cotats ');
s2 := sqlexecute('select '+c2+' from cotats ');
s3 := sqlexecute('select '+c3+' from cotats ');
s4 := sqlexecute('select '+c4+' from cotats ');
s5 := sqlexecute('select '+c5+' from cotats ');
s6 := sqlexecute('select '+c6+' from cotats ');
s7 := sqlexecute('select '+c7+' from cotats ');
s8 := sqlexecute('select '+c8+' from cotats ');
s9 := sqlexecute('select '+c9+' from cotats ');
s10 := sqlexecute('select '+c10+' from cotats ');5 2021-01-21 11:44:48
Topic: PROBLEM previous action keept (4 replies, posted in General)
Hello, I have a problem can you help me.
when i click the field from the table grid
The problem that i create a query to check if the boolean result is true button enabled else button disabled
VALIDATOR.Edit27.Value := strtoint(d1) ;
VALIDATOR.Edit28.Value := strtoint(s1) ;
if strtoint(d1)= strtoint(s1) then
begin
validator.Button2.Enabled := false;
end;
VALIDATOR.Edit29.Value := strtoint(d2) ;
VALIDATOR.Edit30.Value := strtoint(s2) ;
if strtoint(d2)= strtoint(s2) then
begin
validator.Button3.Enabled := false;
end;
VALIDATOR.Edit31.Value := strtoint(d3) ;
VALIDATOR.Edit32.Value := strtoint(s3) ;
if strtoint(d3)= strtoint(s3) then
begin
validator.Button4.Enabled := false;
end;
VALIDATOR.Edit33.Value := strtoint(d4) ;
VALIDATOR.Edit34.Value := strtoint(s4) ;
if strtoint(d4)= strtoint(s4) then
begin
validator.Button5.Enabled := false;
end;
VALIDATOR.Edit35.Value := strtoint(d5) ;
VALIDATOR.Edit36.Value := strtoint(s5) ;
if strtoint(d5)= strtoint(s5) then
begin
validator.Button6.Enabled := false;
end;
VALIDATOR.Edit37.Value := strtoint(d6) ;
VALIDATOR.Edit38.Value := strtoint(s6) ;
if strtoint(d6)= strtoint(s6) then
begin
validator.Button7.Enabled := false;
end;
VALIDATOR.Edit39.Value := strtoint(d7) ;
VALIDATOR.Edit40.Value := strtoint(s7) ;
if strtoint(d7)= strtoint(s7) then
begin
validator.Button8.Enabled := false;
end;
VALIDATOR.Edit41.Value := strtoint(d8) ;
VALIDATOR.Edit42.Value := strtoint(s8) ;
if strtoint(d8)= strtoint(s8) then
begin
validator.Button9.Enabled := false;
end;
VALIDATOR.Edit43.Value := strtoint(d9) ;
VALIDATOR.Edit44.Value := strtoint(s9) ;
if strtoint(d9)= strtoint(s9) then
begin
validator.Button10.Enabled := false;
end;
VALIDATOR.Edit45.Value := strtoint(d10) ;
VALIDATOR.Edit46.Value := strtoint(s10) ;
if strtoint(d10)= strtoint(s10) then
begin
validator.Button11.Enabled := false;
end;6 2021-01-11 14:57:52
Topic: query (0 replies, posted in Script)
hello
i have 1255 entry for every entry i have number 10,11,12,....etc
i want to check every entry value from the big to low and if the condition equaled
if sqlexecute('select count(*) from Validated where name = "'+validator.Edit12.Text +'" ')=1 then
begin
ShowMessage('this data already exist');
form2 on the show need to check if the entry is exist in the second number.
if yes save button turn disabled
7 2020-12-28 19:44:31
Re: I used inno setup to create a install file MVDB program but get error (3 replies, posted in General)
run it as admin. because you installed it in the C partition
8 2020-12-06 14:08:20
Re: Complicated problem (3 replies, posted in General)
I don't yet have a program I am planning to do it. I have only the database
10 2020-12-02 13:13:45
Topic: Complicated problem (3 replies, posted in General)
Here is my issue !!!
I have a table called student with fields
name level choice1 choice2 choice3 ....... til choice10
and another table called classes with fields and max quantity
class1 class2 ....till 10
max10 max7
I want to reorder and insert all of the data based on the level from level1 ......til 100
I mean student-level one has the chance to get his choice ignoring the limit and when the classroom status change to max the next student will get the second choice automatically
I hope I cleared my idea
11 2020-12-01 08:21:59
Topic: print year (1 replies, posted in Script)
Hello i want to use the prop Year of the date
FOR example, I want to make a var equal of the current year
in PHP : $var = date(Y);
in MDV var Year = ????
12 2020-11-19 19:21:07
Re: fetch data from table (2 replies, posted in SQL queries)
tcoton wrote:
You have to use a script, you can put any sort of character between the " " in the middle of the query.
procedure Form1_OnShow (Sender: TObject; Action: string); var name,value:string; begin Form1.Label1.Caption := SQLExecute ('SELECT name ||'' ''|| value FROM test where id = 1'); end;
CAN YOU APPLY the code PLEASE ON THE
TABLE: master
field: name
13 2020-11-19 13:48:44
Topic: fetch data from table (2 replies, posted in SQL queries)
i have the table test
table test has a field name and the value x
how I fetch the name and attribute it to label or text field
14 2020-11-19 13:30:57
Re: select * from ?? (5 replies, posted in Script)
ok how to echo it as fetched result
15 2020-11-19 09:32:55
Re: select * from ?? (5 replies, posted in Script)
Hi CDB and thank you.
i don't use table grid i am using the text fields to have predefined values from the db
16 2020-11-19 08:12:08
Topic: select * from ?? (5 replies, posted in Script)
hello
please i want to know how i can do a simple query to fetch a value from the database and attach it to text field as a default value for my next insert
ex: I have the last id 1 un the field text should have 2 by default.
new id = DB id+1 ??
17 2020-11-18 14:24:53
Topic: rtl in richtext that include richedit value (0 replies, posted in Reports)
how i can set text rtl in richtext that include richedit value in the report
I am writing arabic
18 2020-11-18 13:28:40
Re: Where is the table object in the fast report (2 replies, posted in Reports)
thank you for your answer but please can you show me with more pictures how to creat a table based on the draged content not what available in the dbcross tab
19 2020-11-17 17:30:22
Re: Web Application (2 replies, posted in Database applications)
if i correctly understand what you mean .then yes you can use a remote database on any server online MYSQL
20 2020-11-17 12:02:39
Topic: Where is the table object in the fast report (2 replies, posted in Reports)
Where is the table object in the fast report? I want to create a table but I don't know-how!!!
I checked in the fastreport site and they say there is an icon to create a table?
can you help me, please
21 2020-11-16 12:52:08
Re: html printing as codes in report (9 replies, posted in Reports)
derek wrote:
Hi Salahnecibi,
I think you are meaning the RTF formatting codes.
If so, what is probably happening is that when you are in the Report Designer, you are dragging the datafield directly into the report or selecting the RTF component and then dragging the datafield into the RTF component? In both instances, this will result in you seeing the formatting codes rather than the actual text..
You must first place an RTF component into the report.
Then you must specify the dataset and the data field USING THE RTF object's properties (don't drag and drop it from the list of available datafields).
Please have a look at the screenshot (screenshot1.jpg) in the attached example which shows the steps to go through.
Derek.
I read your previous replies and the problem now solved thank you so much.
one more thing how creat a dynamic table in the fast report
22 2020-11-16 09:59:27
Re: html printing as codes in report (9 replies, posted in Reports)
ok i can explain more
i am using the richedit instead of textbox
when i save the data and again when I fetch it
it show codes not text
see the image
23 2020-11-15 14:52:23
Topic: html printing as codes in report (9 replies, posted in Reports)
Hello
i faced a problem with the result from the HTML editor
when the data is stored then requested in the report(SQL)
the result show the HTML code not the text
the field I save in is TEXT