Announcement

**Andreas Kosch** · 20.03.2003, 08:09

Hallo,

auf der Seite 591 (im Kapitel 18) ist vermerkt, was alles an Vorbereitungen (UDF-DLL und BDE-Alias IB_BuchIBCSDemo) zu erledigen ist. Die dort genannte OSUDF5.DLL wird im Kapitel 16 auf den Seiten 504 bis 512 vorgestellt und ist im Sourcecode auf der CDROM zum Buch im Verzeichnis Kapitel 16\UDFs zu finden.

Da im Datenmodul gleich 2 TDataBase-Instanzen (f�r jeden Thread eine) verwendet werden, greift die Anwendung auf "virtuelle Alias-Namen" (�ber die TDataBase-Eigenschaft DatabaseName) zur�ck, die jedoch immer auf den BDE-Aliasnamen IB_BuchIBCSDemo basieren:
<pre>
object DatabaseMain: TDatabase
AliasName = 'IB_BuchIBCSDemo'
DatabaseName = '_IBCsdMain'
Params.Strings = (
'USER NAME=SYSDBA'
'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
'ENABLE BCD=TRUE'
'WAIT ON LOCKS=FALSE'
'ROLE NAME='
'PASSWORD=')
SessionName = 'SsnMain'
TransIsolation = tiRepeatableRead
OnLogin = DatabaseMainLogin
Left = 112
Top = 8
end
</pre>

>Ich bekomme die Meldung: "Unbekannte Datenbank Alias _IBCSDMain".

Diese Fehlermeldung geh�rt zu der folgenden Zeile in der DFM-Datei IBCSDemoDM.dfm:
<pre>
DatabaseName = '_IBCsdMain'
</pre>
Ich gehe davon aus, das zur Zeit der BDE-Alias IB_BuchIBCSDemo noch nicht eingerichtet wurde (siehe Seite 591)

**Peter Hennek** · 20.03.2003, 12:56

Hallo Herr Kosch, wahrscheinlich bin ich mal wieder zu d�mlich das im Buch geschriebene nachzuvollziehen.
 Im Debug-Modus erhalte ich jetzt die Meldung: IBCSDemo.ExE Excepition... Es ist ein Wert f�r das Feld erforderlich.
 In der Programmzeile Result := True;
 
 function TDM.DBLogin: Boolean;
 begin
 ...
 ...
 Result := True;
 except
 ...

**Andreas Kosch** · 21.03.2003, 13:32

Hallo,

wenn das Programm gestartet wird, blendet es aus dem Datenmodul heraus den Login-Dialog ein, um den Benutzernamen und das Passwort zwischenzuspeichern:
<pre>
...
uses DBLogDlg, IBCSDemoMainForm, IBCS_SdxSearchThrd;

{$R *.DFM}

{
TDatabase.OnLogin wickelt die Abfrage nach dem Pa�wort f�r den
Benutzer SYSDBA ab. Da die zweite TDatabase-Verbindung f�r den
zweiten Thread auch ge�ffnet werden mu�, aber nur eine Pa�wortabfrage
ausreichen soll, speichert das Datenmodul sowohl den Benutzernamen
als auch das Pa�wort in eigenen Objektfeldern, um sp�ter darauf
zur�ckgreifen zu k�nnen.
}

procedure TDM.DatabaseMainLogin(Database: TDatabase;
LoginParams: TStrings);
var
sUser : String;
sPwd : String;
begin
sUser := 'SYSDBA';
sPwd := '';
if LoginDialogEx('IBCSDemo', sUser, sPwd, True) then
begin
FDBUser := sUser;
FDBPwd := sPwd;
LoginParams.Values['USER NAME'] := FDBUser;
LoginParams.Values['PASSWORD'] := FDBPwd;
end;
FDBAlias := DatabaseMain.Aliasname;
end;

{---------------------------------------------------------------}
{ �ffentliche Methoden des Datenmoduls }
{---------------------------------------------------------------}

{
Anwender meldet sich an der Datenbank an -> 2 TDatabase �ffnen.
Beim Aufruf von �DatabaseMain.Connected := True;� wird implizit
das OnLogin-Ereignis aufgerufen und der Login-Dialog wird angezeigt.
Dabei speichert das Datenmodul Benutzername und Pa�wort in eigenen
Objektfeldern, so da� diese Werte f�r die zweite TDatabase-Instanz
einfach wiederverwendet werden.
}

function TDM.DBLogin: Boolean;
begin
Result := False;
try
DatabaseMain.Connected := True;
QueryPROCGetOrt.Prepare;
StoredProcInsertKunde.Prepare;
with DatabaseThread do
begin
Params.Values['USER NAME'] := FDBUser;
Params.Values['PASSWORD'] := FDBPwd;
end;
DBRefreshAnrede;
Result := True;
except
//
end;
end;
...
</pre>

Der Aufruf erfolgt aus dem Hauptformular heraus, indem der entsprechende Button/Men�eintrag angeklickt wird und somit die TActionList-Komponente ins Spiel kommt:
<pre>
procedure TFormMain.ActionLoginExecute(Sender: TObject);
begin
FLogin := DM.DBLogin;
StatusBar1.SimpleText := Format('BDE-Alias: %s', [DM.DBAlias]);
end;
</pre>
Um nun der Ursache f�r dieses Problem auf die Schliche zu kommen, w�rde ich in der Methode TFormMain.ActionLoginExecute einen Breakpoint in die Zeile FLogin := DM.DBLogin setzen und dann das Programm schrittweise ausf�hren. An welcher Stelle springt der Debugger aus dem vorgesehenen Ablauf

**Peter Hennek** · 21.03.2003, 16:28

Hallo, nachdem ich die Anweisung DBRefreshAnrede auskommentiert habe, kann ich das Programm starten. Das Programm l�uft aber nicht richtig.
Danke Gru� ph

**Andreas Kosch** · 24.03.2003, 08:45

Hallo,

>Das Programm l�uft aber nicht richtig

wenn man in einem Programm eine Programmzeile einfach auskommentiert, kann das Programm anschlie�end nicht mehr richtig laufen :-)

Die folgende Implementierung der Methode DBRefreshAnrede zeigt, dass dort eine TClientDataSet-Instanz mit den Daten aus der InterBase-Tabelle gef�llt werden, um diese lokal auf dem Client-Rechner verf�gbar zu machen:
<pre>
procedure TDM.DBRefreshAnrede;
begin
with ClientDataSetAnrede do
begin
Active := False;
with ClientDataSetAnrede.FieldDefs do
begin
Clear;
Add('ANR_ID',ftInteger,0,True);
Add('Anrede',ftString,10,True);
Add('Hinweis',ftString,50,False);
end;
CreateDataSet;
Active := True;
end;
with QueryAnrede do
begin
Open;
try
while not EOF do
begin
with ClientDataSetAnrede do
begin
Append;
ClientDataSetAnredeANR_ID.Value := QueryAnredeANR_ID.Value;
ClientDataSetAnredeANREDE.Value := QueryAnredeANREDE.Value;
ClientDataSetAnredeHINWEIS.Value := QueryAnredeHINWEIS.Value;
Post;
end;
Next;
end;
finally
Close;
end;
end;
end;
</pre>
An welcher Stelle innerhalb dieser Methode bleibt der Debugger beim schrittweisen Abarbeiten stehen

**Peter Hennek** · 24.03.2003, 16:53

Beim vierten Post in der QueryAnrede und es kommt zu der Meldung:
[Hinweis] IBCSDemoDM.pas(277): Auf 'TDM.DBGetOrtId' zugewiesener Wert wird niemals benutzt. Danke Gru� p

**Andreas Kosch** · 25.03.2003, 08:58

Hallo,

>[Hinweis] IBCSDemoDM.pas(277): Auf 'TDM.DBGetOrtId' zugewiesener Wert wird niemals benutzt.

das ist kein Fehler beim schrittweisen Ausf�hren des Projekts, sondern nur ein Hinweis beim Compilieren des Projekts. Die Methode DBGetOrtId wird ebenfalls im Datenmodul implementiert und wird innerhalb der Unit IBCSDemoFrmKundeExt.pas genutzt (d.h. der Delphi-Compiler irrt sich an dieser Stelle, so dass der Hinweis irrelevant ist):
<pre>
procedure TFormKundeExt.ComboBoxOrtExit(Sender: TObject);
begin
if Length(ComboBoxOrt.Text) = 0 then
raise Exception.Create('Sie haben keinen Ort ausgew�hlt');
with DM do
QueryExtKundenORT_ID.Value := DBGetOrtId(EditPLZ.Text, ComboBoxOrt.Text);
end;
</pre>
Allerdings hat die Methode DBGetOrtId �berhaupt nicht mit der Methode DBRefreshAnrede zu tun. Passiert dies wirklich beim schrittweisen Ausf�hren des Programm im Delphi-Debugger? Wenn ja, wie sehen die einzelnen Arbeitsschritte bis dahin aus

**Peter Hennek** · 25.03.2003, 21:38

Hallo, ich kann das Programm starten und mich einloggen. Es stehen aber keine Programmfunktionen zur Verf�gung(Bis auf Programm beenden). Nach auskommentiern von DBRefresh stehen dann aber die Programmfunktionen zur Verf�gung. Im Debug-Modus erscheint die Meldung wie in Antwort zwei beschrieben. Vielen Dank Gru� ph

**Andreas Kosch** · 26.03.2003, 08:31

Hallo,

>..ich kann das Programm starten und mich einloggen. Es stehen aber keine Programmfunktionen zur Verf�gung.

In diesem Fall war der Login-Vorgang nicht erfolgreich! Wurde wirklick der Login-Dialog mit dem Benutzernamen und dem Passwort angezeigt, richtig ausgef�llt und beendet? Denn nur dann, wenn das Objektfeld FLogin auf True gesetzt wird, schaltet die TActionList-Komponente auf dem Hauptformular die Programmfunktionen frei:
<pre>

{--------------------------------------------------------------}
{ ActionList-Steuerung und OnExecute-Ereignisbehandlung }
{--------------------------------------------------------------}

procedure TFormMain.ActionList1Update(Action: TBasicAction;
var Handled: Boolean);
begin
ActionNeuerKunde.Enabled := FLogin;
ActionBearbeitenKunde.Enabled := FLogin;
ActionShowAll.Enabled := FLogin;
ActionEditTQuery.Enabled := FLogin;
ActionEditTTable.Enabled := FLogin;
ActionFrmChild.Enabled := FLogin and FPrgIdle;
ActionFrmModal.Enabled := FLogin;
ActionFormThreadInit.Enabled := FLogin;
ActionLogin.Enabled := not FLogin;
ActionLogout.Enabled := FLogin;
Handled := True;
end;

</pre>
Das Objektfeld FLogin wird nur dann auf True gesetzt, wenn der Login-Vorgang �ber die Datenmodul-Methode DBLogin erfolgreich war:
<pre>

procedure TFormMain.ActionLoginExecute(Sender: TObject);
begin
FLogin := DM.DBLogin;
StatusBar1.SimpleText := Format('BDE-Alias: %s', [DM.DBAlias]);
end;

</pre>

Die Methode DBLogin aus dem Datenmodul liefert nur dann der Wert True zur�ck, wenn 
a) der Login-Vorgang erfolgreich war, und 
b) keine andere Exception aufgetreten ist
<pre>

function TDM.DBLogin: Boolean;
begin
Result := False;
try
DatabaseMain.Connected := True;
QueryPROCGetOrt.Prepare;
StoredProcInsertKunde.Prepare;
with DatabaseThread do
begin
Params.Values['USER NAME'] := FDBUser;
Params.Values['PASSWORD'] := FDBPwd;
end;
DBRefreshAnrede;
Result := True;
except
//
end;
end;

</pre>
Um die Ursache f�r das Problem einzugrenzen, w�rde ich zum Test das Schlucken der Exception deaktivieren und die Methode DBLogin wie folgt �ndern:
<pre>

function TDM.DBLogin: Boolean;
begin
Result := False;
DatabaseMain.Connected := True;
QueryPROCGetOrt.Prepare;
StoredProcInsertKunde.Prepare;
with DatabaseThread do
begin
Params.Values['USER NAME'] := FDBUser;
Params.Values['PASSWORD'] := FDBPwd;
end;
DBRefreshAnrede;
Result := True;
end;

</pre>
Welche Exception-Meldung zeigt das Programm nun zur Laufzeit �ber eine MessageBox an?
&#10

**Peter Hennek** · 27.03.2003, 11:50

Es erscheint in der MessageBox:" Es ist ein Wert f�r das Feld erforderlich". Nach bet�tigen der Anmeldefunktion erscheint die Datenbank-Login-Box.
Benutzername SYSDBA nach Eingabe von masterkey erscheint der
SQL-Cursor(Sanduhr) und danach kommt nun die oben beschriebene Meldung.
�ber den Interbase Server-Manager, Interactive SQL kann ich mit der Datenbank arbeiten.
Danke Gru� ph

**Andreas Kosch** · 31.03.2003, 06:47

Hallo,

> �ber den Interbase Server-Manager, Interactive SQL kann ich mit der Datenbank arbeiten.

weil dieses Tool nicht �ber die BDE auf den InterBase zugreift, k�nnte der Grund f�r die geschilderten Probleme auch in einer nicht korrekte Konfiguration des BDE-Aliases liegen. Ich w�rde daher als n�chsten Test im SQL-Explorer (alias Datenbank-Explorer) der BDE pr�fen, ob �ber den eingerichteten BDE-Alias die Datenbank ge�ffnet werden kann. Tauchen im SQL-Explorer/Datenbank-Explorer der BDE die Tabellen der Datenbank nach dem Anklicken des +-Zeichens vor dem Aliasnamen in der TreeView-Darstellung auf?
&#10

**Peter Hennek** · 01.04.2003, 09:35

Hallo, im SQL-Explorer sind nach erfolgten Login (SYSDBA, masterkey) alle vier Tabellen sichtbar

**Peter Hennek** · 22.04.2003, 11:21

Hallo, Information das Programm l�uft jetzt. Ich habe den Interbase 6 installiert und das Programm von der CD aus dem Buch Interbase Datenbankentwicklung... genommen

Announcement

Anwendung IBCSDEMO aus A. Kosch C/S Buch

Anwendung IBCSDEMO aus A. Kosch C/S Buch

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment