Thanks, it works now.
77 2014-09-15 09:15:56
Re: Message Dialog - Confirmation (8 replies, posted in Script)
pls, try again. Thanks
78 2014-09-15 07:36:15
Re: Message Dialog - Confirmation (8 replies, posted in Script)
Hi, I add AC-Test_DEV01.7z file to my schared MVDB TestPerf dropbox folder. Thanks
79 2014-09-15 06:19:33
Re: Message Dialog - Confirmation (8 replies, posted in Script)
Sorry script below not yet work?
Pls, can you check and correct the script below for exit application. Form1_Button7_click ( action again for this project )
Thanks in advance, Carlo
//MessageDlg(Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer
//ShowMessage(Msg: Variant)
// mbYes is 6
// mbNo is 7
// mbCancel is 2
////if 6 = MessageDlg('Really?', mtConfirmation, mbYes + mbNo + mbCancel, 0) then
//// ShowMessage('Yes')
//// else ShowMessage('No');
//procedure Form1_Button7_Click (Sender: TObject);
//begin
// MessageDlg(Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer
// if 6 = MessageDlg('Welcome to my Delphi application. Exit now?',
// mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then
// begin
// Dialogs.MessageDlg('Exiting the Delphi application.', mtInformation,
// [mbOk], 0, mbOk);
// Close;
// end;
//end;
80 2014-09-12 16:33:34
Topic: Message Dialog - Confirmation (8 replies, posted in Script)
Hello, how to create a confirmation box with Yes, no, and Cancel buttons with script?
Thanks
81 2014-09-10 05:43:35
Re: MVDB is slow in processing when the columns in colors are composed. (3 replies, posted in General)
Hi Dmitriy, the application works well now. But I still have a problem. So it automatically print Atlas copco test certificate if the test-Test/OK is
works well. But how can I print a test certificate with script for example, Alup-Test/OK is? Best Regards, Carlo
82 2014-09-08 06:18:54
Topic: MVDB is slow in processing when the columns in colors are composed. (3 replies, posted in General)
Hello, MVDB is slow in processing when all the columns in colors are composed?
Is this script below correct? Thanks.
procedure Form1_TableGrid1_OnChange (Sender: string);
var
i,c: integer;
begin
c := Form1.TableGrid1.RowCount - 1;
for i := 0 to c do
begin
if Form1.TableGrid1.Cells[6,i] = 'WIP/REPAIR' then Form1.TableGrid1.Cell[6,i].Color := clRed;
if Form1.TableGrid1.Cells[6,i] = 'NOK/OTHER' then Form1.TableGrid1.Cell[6,i].Color := clMaroon;
if Form1.TableGrid1.Cells[6,i] = '-TEST/OK' then Form1.TableGrid1.Cell[6,i].Color := clLime;
if Form1.TableGrid1.Cells[6,i] = 'TEST/OK' then Form1.TableGrid1.Cell[6,i].Color := clLime;
if Form1.TableGrid1.Cells[6,i] = 'WIP/TRACE' then Form1.TableGrid1.Cell[6,i].Color := clOlive;
if Form1.TableGrid1.Cells[6,i] = 'OK/INCOMPLED' then Form1.TableGrid1.Cell[6,i].Color := clAqua;
if Form1.TableGrid1.Cells[6,i] = 'OK/AUDIT' then Form1.TableGrid1.Cell[6,i].Color := clTeal;
if Form1.TableGrid1.Cells[6,i] = 'OK/WITNESS' then Form1.TableGrid1.Cell[6,i].Color := clGreen;
if Form1.TableGrid1.Cells[6,i] = 'COMP/KVT' then Form1.TableGrid1.Cell[6,i].Color := clYellow;
// Form1.TableGrid1.Cell[0,i].Color:= clBlack;
//Form1.TableGrid1.Cell[0,i].TextColor:= clAqua;
//Form1.TableGrid1.Cell[1,i].Color:= clBlack;
//Form1.TableGrid1.Cell[1,i].TextColor:= clLime;
// Form1.TableGrid1.Cell[2,i].Color:= clBlack;
// Form1.TableGrid1.Cell[2,i].TextColor:= clLime;
// Form1.TableGrid1.Cell[3,i].Color:= clBlack;
// Form1.TableGrid1.Cell[3,i].TextColor:= clLime;
// Form1.TableGrid1.Cell[4,i].Color:= clBlack;
// Form1.TableGrid1.Cell[4,i].TextColor:= clAqua;
// Form1.TableGrid1.Cell[5,i].Color:= clBlack;
// Form1.TableGrid1.Cell[5,i].TextColor:= clAqua;
// Form1.TableGrid1.Cell[7,i].Color:= clBlack;
// Form1.TableGrid1.Cell[7,i].TextColor:= clAqua;
// Form1.TableGrid1.Cell[8,i].Color:= clBlack;
// Form1.TableGrid1.Cell[8,i].TextColor:= clAqua;
// Form1.TableGrid1.Cell[9,i].Color:= clBlack;
// Form1.TableGrid1.Cell[9,i].TextColor:= clAqua;
// Form1.TableGrid1.Cell[10,i].Color:= clBlack;
// Form1.TableGrid1.Cell[10,i].TextColor:= clAqua;
end;
end;
// TestCertificate MB FS & VSD Series
//var
// isNewMBCompressor: boolean;
83 2014-07-14 18:02:34
Re: How to arrange with script (2 replies, posted in General)
Thanks, everything works fine.
84 2014-07-13 17:20:52
Topic: How to arrange with script (2 replies, posted in General)
Hi, how to arrange with script when a new compressor (combo box value) –TEST/OK is and I click the save record button automatically show a print dialog for print the test certificate by select a compressor brand? I want to change the structure of frmTest because if a user enter all the test data and print the test certificate without save record first then is the date field of table grid1 empty. The testperformance project is available in my DropBox folder. Thanks in advance.
85 2014-06-16 17:31:23
Topic: How to, get a pop up a window, Network drive is offline message (1 replies, posted in General)
Hi,
Sometimes some nw-drives are offline because periodic maintenance or updating. So when user click a command button to open a file/application or intranet/internet link the user must get a message pop up window that the nw-drive or i-link is temporally unavailable. This instead nothing of screen messages appear. How to arrange this with script. pls.
Thanks
86 2014-06-13 23:38:24
Re: open file with associated application (11 replies, posted in General)
Hi, sorry
I was wrong! the NW drives are mapped. So the correct path = Z:\WIP\WIP.accdb in my situation. All server drives here are mapped. Thanks for your time you spend for this project.
87 2014-06-12 09:47:20
Re: open file with associated application (11 replies, posted in General)
Hello,
On my home PC no problem, but I've still a problem connect to network drive on my work place. I did try with this parameters below.
Maybe you have a tip?
Thanks
procedure FrmTest_bWip_OnClick (Sender: string; var Cancel: boolean);
begin
// OpenFile ('Z:\WIP\WIP.accdb'); // Don't work! Start the program or open a file the default program
//Full Path in file explorer is in my situation : AIRMITI$ (\\AIRPF001) (Z:) File try to open is: Z:WIP\WIP.accdb
OpenFile ('\\AIRMITI$\AIRPF001\Z:\WIP\WIP.accdb'); // Start the program or open a file the default program
// OpenFile ('\\Z:\WIP\WIP.accdb'); // Start the program or open a file the default program
end;
88 2014-06-11 09:19:30
Re: open file with associated application (11 replies, posted in General)
Thanks,
This problem is now fixed with ver. 1.41
89 2014-06-11 08:48:33
Re: open file with associated application (11 replies, posted in General)
Hi again,
Now generate MVDB this error. Undeclared identifier: 'Openfile' how to fix this problem?
Thanks
procedure FrmTest_bWip_OnClick (Sender: string; var Cancel: boolean);
begin
OpenFile ('Z:\WIP\WIP.accdb'); // Start the program or open a file the default program
end;
90 2014-06-10 08:34:52
Re: open file with associated application (11 replies, posted in General)
Hi,
No error message.
And with this pascal code below?
uses Process;
var
RunProgram: TProcess;
begin
RunProgram := TProcess.Create(nil);
RunProgram.CommandLine := ‘Path and Name of Program’;
RunProgram.Execute;
RunProgram.Free;
end;
Work also not, because TProcess Classes is not available.
I send the project AC-Test_DEV-Dmitriyj.zip to my dropbox.
Thanks
91 2014-06-10 07:11:05
Re: open file with associated application (11 replies, posted in General)
Hello,
The script below does not work. Is syntax wrong? Maybe you can help?
Thanks
//procedure frmTest_OnShow (Sender: string; Action: string);
//begin
// frmTest.bWip.Default := False;
//end;
procedure FrmTest_bWip_OnClick (Sender: string; var Cancel: boolean);
//procedure frmTest_bWip_OnClick (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
// OpenFile ('Z:\WIP\WIP.accdb'); // Start the program or open a file the default program
OpenFile ('d:\Win7 audit install info.txt'); // Start the program or open a file the default program
end;
begin
end.
92 2014-06-08 05:06:52
Topic: open file with associated application (11 replies, posted in General)
Hello again,
How do I open a file (Microsoft Access 2010) on a local drive or network drive with script?
I try this below but don't work.
Thanks.
procedure FrmTest_bWip_OnClick (Sender: string; var Cancel: boolean);
begin
OpenFile (Path=Z:\WIP\WIP.accdb); // Start Access and open the file WIP.accdb
end;
93 2014-05-29 07:22:45
Topic: Is it possible with script set the property of a textbox field (1 replies, posted in Script)
Hi, Is it possible with script set the property of a textbox field after hit the enter key or automatic go to next tab order in the form? Example: edSerial (enter) then set focus to edProductno. (enter). And then save data button. I mean the form may close after fill in all the data in the fields. Thanks
94 2014-05-02 21:57:08
Re: Fill in the required fields (2 replies, posted in General)
Yup, thanks for the info.
Kind regards, Carlo
95 2014-05-02 07:55:28
Topic: Fill in the required fields (2 replies, posted in General)
Hi,
How do I set the property necessary required fields in a form? The user must fill in the fields that are marked with a (*). I think it's not yet possible.
96 2014-04-18 19:31:35
Re: Timer object (2 replies, posted in General)
Hi,
The timer is to register to avoid disturbances in test. So start time, end time and elapsed time. With best regards
97 2014-04-18 08:49:09
Topic: Timer object (2 replies, posted in General)
Is it possible in a future version of MVD to provide a timer object? Next, a problem in version 1.38. # (auto increment) list in the sort box this ( .# ) not ( # ). The result is a syntax error if you select. With best regards
98 2014-04-16 07:22:13
Topic: Problem with export to Ecxel 2010 (1 replies, posted in General)
Quick Question. Export to Excel 2010 does not work well via the command button? The fonts are different in the table? However Export data to Excel 2010, via the report generator works properly? Is it a problem of msoffice or MVD? Kind regards
99 2014-04-06 13:59:55
Topic: Problem with text box object (1 replies, posted in General)
Hi everybody,
I have a question about the text box. In a form with more text boxes and a save record button. The form close always after I scan or enter text in a text field? Is there a manner to set the property of the text box after enter to go to next tab order or text field in the form? Friendly greetings to all people of the VB-forum.