liebe leute!
ich habe das programm in Entweicklersystem getestet und alles funktioniert problemlos, aber nur bei einen funktion in echt system, kriege ich die fehlermeldung: "Operation fehlgeschlagen"
bitte schaut mein code an und vielleicht könntet ihr mir dann sagen, wo ich was falsch machen.
da ich in entwicklerumgebung keinen fehler kriege weiss ich nicht, worum es wirklich geht.
und ich habe in echtsystem kein delphi oder zugang um zu schauen, was dort los ist.
lg lnaemi
Delphi-Quellcode:
procedure TfrmMain.grdFormbalttDblClick(Sender: TObject);
var
vWert,
SQL, vUser, vUser_nr, vRole, vAssign,sText:
String;
i: Integer;
begin
TRY
vWert := grdFormbaltt.SelectedField.Value;
SQL := '
';
SQL := '
select Distinct WORKGRP.WORKGRP_ID from WORKGRP, WORKGRP_TEMPLATE, TEMPLATE where';
SQL :=
SQL + '
TEMPLATE.TEMPLATE_NR = WORKGRP_TEMPLATE.TEMPLATE_NR';
SQL :=
SQL + '
and WORKGRP.WORKGRP_ID = WORKGRP_TEMPLATE.WORKGRP_ID';
SQL :=
SQL + '
and TEMPLATE.NAME = '+ QuotedStr(vWert) + '
ORDER BY UPPER(WORKGRP.WORKGRP_ID)';
DM.qryGrid2.active := false;
DM.qryGrid2.SQL.clear;
try
DM.qryGrid2.SQL.add (
SQL);
except
on E: EDatabaseError
do ShowMessage(E.
Message);
on X:
Exception do ShowMessage(X.
Message);
end;
DM.qryGrid2.active := true;
DM.srcGrid2.Enabled := True;
EXCEPT
on X:
Exception do ShowMessage(X.
Message)
else
Application.MessageBox('
Operation fehlgeschlagen!', '
Fehler!');
END;
end;