26 Reply by einsteinf5

(11 replies, posted in General)

I tried but I can not find project aims MVDB as in the picture, post it if you are kind to help me much, much project aims MVD Catalog helps me ... I could not rename, configure, little help ... thanks in advance.

Go to forum: General

27 Reply by einsteinf5

(17 replies, posted in General)

Please send me a copy, I tried version posted on the forum and did not work for me, please send MVDB version, thanks in advance.

Go to forum: General

28 Reply by einsteinf5

(17 replies, posted in General)

Te rog trimite-mi si mie o copie, am incercat varianta postata pe forum si nu a functionat pentru mine, te rog trimite varianta cu MVDB, multumesc anticipat.

Go to forum: General

29 Reply by einsteinf5

(24 replies, posted in General)

Great joy here, you and I'm glad if I use this manual and I will make my life more beautiful, thanks to support a great day! smile

Go to forum: General

30 Topic by einsteinf5

(1 replies, posted in General)

It's a bug or a misunderstanding?

I want to use the function of the PageControl with Style Tabs and TabPosition Botton, but I have an impediment to publishing works perfectly, when it comes to TabPosition Top compile if only so save and open the program "wants" to go, but saves the settings Tabs Style with only TabPosition , Top Botton does not work on compilation, I used version 45 47 even 48 beta

and function Form1.PageControl1.Color = clBtnFace; gives me error Undeclared Identifier: 'Color' at 398: 25

Go to forum: General

31 Topic by einsteinf5

(1 replies, posted in Script)

I tried last version 1.47 beta I found a bug, Form1.mniReport.Click; function; gives error >> Undeclared Identifier: 'Click' at 14:22 << but other versions go

Thanks in advance
one day gorgeous

Go to forum: Script

32 Reply by einsteinf5

(12 replies, posted in Script)

Hello Dimitry

I have a little puzzled why the script below does not work, I tried so hard to appeal to your mastery

procedure frmDesign_OnShow (Sender: string; Action: string);
var
   i, c: integer;
   sm: TStringList;
begin
  sm := TStringList.Create;
     sm.Text := GetFilesList('f:\Service\Centralizator\Script\');

     c := sm.Count - 1;
     for i := 0 to c do frmDesign.ComboBox1.dbAddRecord(-1, ExtractFileName(sm[i]) );
      frmDesign.Memo1.Text := sm.Text;
           sm.Free;
end;

procedure frmDesign_ComboBox1_OnChange (Sender: string);
var
sm: TStringList;
sf: TStringList;
sss: string;

begin
  // sss := ('f:\Service\Centralizator\Script\'+'+ frmDesign.ComboBox1.Text +'');
  //  ShowMessage(IntToStr(frmDesign.ComboBox1.dbItemID));

//        ShowMessage('' + frmDesign.ComboBox1.Text + '');
        frmDesign.Label1.Caption :='' + frmDesign.ComboBox1.Text + ''; //works
        frmDesign.Label2.Caption := 'f:\Service\Centralizator\Script\'; //works
  frmDesign.Label3.Caption := ''+frmDesign.ComboBox1.Text+''; //works
   //sf := TStringList.Create;
  sf.LoadFromFile('"'f:\Service\Centralizator\Script\'"+"'IntProtherm.txt'"'); //What is wrong? 
  sf.LoadFromFile('"'f:\Service\Centralizator\Script\'"+"'+ frmDesign.ComboBox1.Text +'"'); //What is wrong? , want to select the file that appears in the combobox
    if sf.Count > 1 then ShowMessage(sf[1]); // your  line nr.2 in sl[1]

  frmDesign.Memo1.Text := sf.Text;
end;

procedure frmDesign_Button1_OnClick (Sender: string; var Cancel: boolean);
var
   sl: TStringList;
begin
  sl := TStringList.Create;
     sl.LoadFromFile('123.txt');
     if sl.Count > 1 then ShowMessage(sl[1]); // your  line nr.2 in sl[1]
     frmDesign.Memo1.Text := sl.Text;
     frmDesign.Caption := 'mision complet';

     sl.Free;

end;

Can you help me with a small example how to use the Delete function (var s: String; from, count: Integer) Copy (s: String; from, count: Integer): String, ReplaceStr (const AText, AFromText, AToText : string): string, to see the methodology of application, thanks in advance.

Go to forum: Script

33 Reply by einsteinf5

(2 replies, posted in Script)

Today before going to bless you every day, ready to receive blessings smile)

Thank you very much

Go to forum: Script

34 Topic by einsteinf5

(2 replies, posted in Script)

Hello Dimitri, If placing the concrete work, but with a variable not working 

procedure Form1_TableGridCent_OnCellClick (Sender: string; ACol, ARow: Integer);
var
id: integer;
c: string;
begin
//meniu.TableMeniu.Color := clLime;
//Form1.TableGridCent.Color := clLime;
Form1.Label4.Caption := 'Id cazan = '+IntToStr(Form1.TableGridCent.dbItemID);
Form1.TableGrid1Piesa.ClearRows;
c := SQLExecute ('SELECT Centralizator.Serie_aparat FROM Centralizator WHERE id = ' + IntToStr(Form1.TableGridCent.dbItemID) );
Form1.Label5.Caption := 'Serie cazan = '+c;
[b]Form1.TableGrid1Piesa.dbFilter := 'piesa.idcazan = "c"';  //not works
[u]//works // Form1.TableGrid1Piesa.dbFilter := 'piesa.idcazan = "21103600100079933100005585N9"';[/b][/u]
Form1.TableGrid1Piesa.dbUpdate;
end;

Thank !!

Go to forum: Script

35 Reply by einsteinf5

(6 replies, posted in General)

Hello Dimitri

I Tried hard, but are functioning only with SQL Report mergeu not with what you proposed "Increm. Search"
I used version 1.43, the proposed forum that can write in capitals "" and does not give error saving
SQL Report use that:

SELECT
piesa.id,
piesa.idcazan,
piesa.denumirecod,
piesa.dataluat,
piesa.delacine,
piesa.datapredat,
piesa.retur,
piesa.achitat,
piesa.pret,
piesa.situatie,
piesa.predatcui,
piesa.obs,
piesa.orasosire,
piesa.oraplecare,
piesa.constatare,
piesa.cauze,
piesa.lucrari,
piesa.valdeplasare,
piesa.valmanopera,
piesa.totalpret,
piesa.recomandari,
piesa.obsutilizator,
piesa.nr_raport,
Centralizator.id,
Centralizator.Nume,
Centralizator.Prenume,
Centralizator.Localitate,
Centralizator.Nr__Certificat,
Centralizator.Tip_Aparat,
Centralizator.Cod_aparat,
Centralizator.Serie_aparat,
Centralizator.Vanzator,
Centralizator.Data_Vanzarii,
Centralizator.Data_PIF,
Centralizator.Nr_Factura,
Centralizator.Tehnician_PIF,
Centralizator.SC_Service,
Centralizator.Telefon,
Centralizator.Adresa,
Centralizator.Data_inregistrarii,
Centralizator.Data_VER_VTP

FROM piesa,Centralizator
WHERE  Centralizator.id=$id AND Centralizator.Serie_aparat=piesa.idcazan

that only works using the search report, in tables do not work because I suppose there is the Options selection in tables that exist in the "SQL report" or am I missing something here

Thanks for your support!

Go to forum: General

36 Reply by einsteinf5

(6 replies, posted in General)

Hello Dimitri

How to create a script to create a SQL search button like using search criteria in the search ID in Table 1 for combining search and the result in Table 2, using:

SELECT *
FROM piesa,Centralizator
WHERE Centralizator.id=$id AND Centralizator.Serie_aparat=piesa.idcazan

Table 1 = Centralizator need id + condition for create search for Table 2 (Piesa)


(Click on table to give me a quest ID to use with SQL)

Thanks for blessings

Go to forum: General

37 Topic by einsteinf5

(1 replies, posted in General)

A simple question, operating system version for android or windows phone? Thanks for everything,

Go to forum: General