How to find any exe runnung or not
102 2020-11-19 09:56:06
Re: select * from ?? (5 replies, posted in Script)
Form1.edit1.value := SQSExecute('select max(id) from table') + 1;
Use this queery on form onshow event or button on click
103 2020-11-18 17:34:44
Re: Open a pdf file (4 replies, posted in General)
Use this on button on click button on click event
Openfile('filename.pdf');
104 2020-11-18 11:05:51
Topic: Exe file running (11 replies, posted in General)
How to implement a condition like this
If notapad.exe is running then
Begin
My script
End...
And if notepad.exe not running then system check condition while system got notepad.exe running true then execute My script... is this possible in mvd
105 2020-11-16 09:05:30
Re: Application already running (6 replies, posted in General)
Bundle of Thankssssss ehwagner]
106 2020-11-15 10:49:09
Re: Application already running (6 replies, posted in General)
thanks for help CDB.. but i need application Already running notification... can anyone help .please
107 2020-11-15 09:19:52
Topic: Application already running (6 replies, posted in General)
hello friends.. i need script to close application if already running...
108 2020-11-10 08:30:44
Re: please help, Can the project be connect with Microsoft sql server? (9 replies, posted in General)
another option
var
Conn, rs: Variant;
NxTextColumn: TNxTextColumn;
//---------------------------------------------procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
i: Integer;
begin
rs.Open (' Select name,fathername,mobileno', Conn);
try Form1.TableGrid1.Columns.Clear; except end;
try Form1.TableGrid1.Columns.Add(TNxTextColumn); except end;
try Form1.TableGrid1.Columns.Add(TNxTextColumn); except end;
try Form1.TableGrid1.Columns.Add(TNxTextColumn); except end;
Form1.TableGrid1.Columns[0].Header.Caption := 'name';
Form1.TableGrid1.Columns[1].Header.Caption := 'fathername';
Form1.TableGrid1.Columns[2].Header.Caption := 'mobileno';Form1.TableGrid1.Columns[0].Color := ClWhite;
Form1.TableGrid1.Columns[1].Color := ClWhite;
Form1.TableGrid1.Columns[2].Color := ClWhite;Form1.TableGrid1.Font.Color := ClBlack;
Form1.TableGrid1.SelectedRow := -1;
i := 0;
while not rs.Eof do begin
Form1.TableGrid1.AddRow(1);
Form1.TableGrid1.Cells[0,i]:= rs.Fields['name'];
Form1.TableGrid1.Cells[1,i]:= trim(rs.Fields['fathername']);
Form1.TableGrid1.Cells[2,i]:= trim(rs.Fields['mobileno']);Inc(i); // i := i+1
rs.movenext
end;
rs.close;
end;procedure Form1_OnClose (Sender: TObject; Action: string);
begin
Conn.close;
end;//-------------------Connection to database-----------------------------////
begin
Conn :=createoleobject('ADODB.Connection') ; //
rs := createoleobject('ADODB.recordset');
Conn.Open('Provider=SQLOLEDB;Server=localhost;database=yourdatabaename;UID=username;PWD=userpassword');
// you can access database using ipaddress .replace localhost with ipaddress
Form1.Button1.Click;
end.
109 2020-11-09 16:46:56
Re: please help, Can the project be connect with Microsoft sql server? (9 replies, posted in General)
procedure frm_main_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
Conn, rs : Variant;
db_settings, a,b,c: String;
i,j: int;
var NxTextColumn: TNxTextColumn;
begin
{*** create database objects **** }
Conn :=createoleobject('ADODB.Connection') ; //
rs := createoleobject('ADODB.recordset');
{** open database connection *** }
db_settings:='Provider=SQLOLEDB;Server=localhost;database=DatabaseName;UID=UserName;PWD=password'; //connection to database
Conn.Open(db_settings); //connection to database
{ query to get data}
rs.Open ('Select name,dob,address from tablename', Conn); // sql query
//create table information
try frm_main.TableGrid1.Columns.Clear; except end;
try frm_main.TableGrid1.Columns.Add(TNxTextColumn); except end;
try frm_main.TableGrid1.Columns.Add(TNxTextColumn); except end;
try frm_main.TableGrid1.Columns.Add(TNxTextColumn); except end;
//header name
frm_main.TableGrid1.Columns[0].Header.Caption := 'Name';
frm_main.TableGrid1.Columns[1].Header.Caption := 'DateofBirth';
frm_main.TableGrid1.Columns[2].Header.Caption := 'Address';
//initialized i
i:=0;
//while loop to get data from db
while not rs.Eof do
begin
Application.ProcessMessages;
//retrieve data and stored them in variables
a:= trim(rs.Fields['Name']);
b:= trim(rs.Fields['dob']);
c:=trim(rs.Fields['Address']);
//generate the data in Table Grid
frm_main.TableGrid1.AddRow(1);
frm_main.TableGrid1.Cells[0,i]:=a;
frm_main.TableGrid1.Cells[1,i]:= b;
frm_main.TableGrid1.Cells[2,i]:=c;
i:=i+1; //increment i
rs.movenext ; //next record
end;
//close connection
rs.Close;
Conn.Close;
end;
110 2020-10-27 13:46:39
Re: Sum Function ........ (8 replies, posted in Reports)
hello... you have to assign column type as "Real"
Data Types for Database Columns
"Real" (for decimal Numbers)
"Integer" (for Simple numbers)
"Text" (for Name,Address etc)
"Currency" (for Currency Value)
111 2020-10-27 12:14:47
Re: Images (2 replies, posted in General)
thanks for help ... can we draw image using pascal script???
112 2020-10-26 13:09:43
Re: What is the programming language used in script? (6 replies, posted in General)
Pascal
113 2020-10-23 13:23:30
Topic: Images (2 replies, posted in General)
how to draw this type of graphics using MVD script
114 2020-10-22 16:46:07
Topic: graphics (1 replies, posted in General)
how to create this type of graphics in mvd forms...
please see uploaded jpg file
115 2020-09-16 14:53:30
Topic: Pointer Curser (1 replies, posted in General)
hello MVD.. i am using MySQL and Using
Timer.interval := 500 ;
on main screen
how to disable pointer's(Mouse Arrow) background working SQL indicator??
116 2020-08-26 14:20:39
Re: give access for other users in buttons (4 replies, posted in General)
try it...
if (Application.User.is_admin = true) then Form1.Button1.Enabled := True else Form1.Button1.Enabled := false;
or
if (Application.User.Role = 'Your Added Role') then Form1.Button1.Enabled := True else Form1.Button1.Enabled := false;
or
if (Application.User.is_admin = true) or (Application.User.Role = 'Your Added Role') then Form1.Button1.Enabled := True else Form1.Button1.Enabled := false;
117 2020-08-26 13:05:48
Topic: firebird (1 replies, posted in General)
hello ...
how to connect mvd with firebird database...
118 2020-08-16 06:55:07
Topic: SQL Condition (1 replies, posted in General)
how to apply a condition if connection is not connected then show message
119 2020-08-15 13:41:50
Topic: Mysql Connect Form (1 replies, posted in General)
how to disable Connect Form for mysql..
how can i connect directly to mysql database using script
120 2020-07-30 15:24:23
Re: Need Help (12 replies, posted in SQL queries)
check it out
form1.edit1.Text:= SQLExecute('Select Sum(svalue) from Sale where sdate >= '+form1.datetimepicker1.sqldatetime+' and sdate <='+form1.datetimepicker2.sqldatetime+' ');
if not works then change
sqldatetime to datetime
121 2020-07-07 11:23:15
Topic: MySQL (0 replies, posted in General)
Hello Friends.. How to Connect Database From PC2 to PC1 using MySQL. Which Version you recommend ti install on XP..
122 2020-06-12 07:49:43
Topic: script quick print (0 replies, posted in Reports)
how to get quick print using script..
begin
SQLQuery('My SQLQUERY',Results1);// create first DataSet
frxDBDataset1 := TfrxDBDataset.Create(Main);
frxDBDataset1.UserName := 'Report1';
frxDBDataset1.CloseDataSource := True;
frxDBDataset1.OpenDataSource := True;
frxDBDataset1.DataSet := Results1;// set up report
Main.frxReport.Clear;
Main.frxReport.DataSets.Clear;
Main.frxReport.DataSets.Add(frxDBDataset1);// DESIGN MODE
//Main.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName)+'Report\ARP.fr3');
// Main.frxReport.DesignReport;// PREVIEW MODE
frxDBDataset1.DataSet.Close;
Main.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName)+'Report\ARP.fr3');
//Main.frxReport.ShowReport;
Main.frxReport.PrintOptions.Printer:= SQLExecute('select Printer from Pumps where id = (select Pumpid from Entry where id=(select max(id) from entry))');
frxDBDataset1.Free;
end;
123 2020-06-10 12:14:26
Re: Need Help (2 replies, posted in Database applications)
Send Email Address
124 2020-06-01 10:12:11
Re: Store name in all Forms and Report (5 replies, posted in General)
Use script in Designer's Pascal Code
Memo1.text := SQLExecute('select Name from Store where id = 1');
Memo2.text := SQLExecute('select Address from Store where id = 1');
Memo3.text := SQLExecute('select Contact from Store where id = 1');
125 2020-04-24 09:35:17
Re: 3 datasets (6 replies, posted in General)
i tried this Barcode_onchange but got error
now i am using this script Tablegrid1.on_change and working properly