Announcement

**Andreas Kosch** · 23.08.2001, 07:21

Hallo,

l�sst sich dieser Effekt mit einem kleinen Beispielprojekt reproduzieren? Wenn ja, wie sieht dieses Beispiel und die dazugeh�rende CREATE TABLE-Anweisung aus?

Wie unterscheidet sich SelectSQL von RefreshSQL f�r diese TIBDataSet-Instanz?
&#10

**G�nter Forster** · 23.08.2001, 07:32

Hallo,

die SQL lauten :
select : select id,messort,w1,w2,w3,w4,w5 
from messwert where id = :Wert order by messort 
refresh : select id,messort,w1,w2,w3,w4,w5 
from messwert where id = :OLD_ID and messort = :OLD_Messort
 
die tabelle : 
id integer, messort varchar(30), w1-w5 integer
ohne schl�ssel, da die ID jeweils 4 - 6 mal vorkommt

gru� G�nte

**Andreas Kosch** · 24.08.2001, 07:03

Hallo,

ich habe das Ganze einmal nachgebaut (Delphi 5.01; IBX 4.62; InterBase 6; Windows 2000 Professional):

1. Datenbanktabelle:
<pre>
CREATE TABLE forster (
id integer not null primary key,
messort varchar(30),
w1 integer,
w2 integer,
w3 integer,
w4 integer,
w5 integer)
</pre>
2. TIBDataSet: SelectSQL:
<pre>
select ID, MESSORT, W1, W2, W3, W4, W5 from FORSTER
</pre>
3. TIBDataSet: DataSet-Editor generiert die restlichen SQL-Anweisungen automatisch (Button SQL generieren anklicken, nachdem die Prim�rschl�sselspalte ausgew�hlt wurde).

4. Programm starten: Datensatz anlegen, alle Werte werden im TDBGrid angezeigt.

PAS:
<pre>
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, IBCustomDataSet, ExtCtrls, DBCtrls, Grids, DBGrids, IBDatabase;

type
TForm1 = class(TForm)
IBDatabase1: TIBDatabase;
IBTransaction1: TIBTransaction;
IBDataSet1: TIBDataSet;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
DBNavigator1: TDBNavigator;
IBDataSet1ID: TIntegerField;
IBDataSet1MESSORT: TIBStringField;
IBDataSet1W1: TIntegerField;
IBDataSet1W2: TIntegerField;
IBDataSet1W3: TIntegerField;
IBDataSet1W4: TIntegerField;
IBDataSet1W5: TIntegerField;
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

end.
</pre>
DFM:
<pre>
object Form1: TForm1
Left = 279
Top = 108
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object DBGrid1: TDBGrid
Left = 24
Top = 104
Width = 641
Height = 120
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object DBNavigator1: TDBNavigator
Left = 24
Top = 80
Width = 320
Height = 25
DataSource = DataSource1
TabOrder = 1
end
object IBDatabase1: TIBDatabase
Connected = True
DatabaseName = 'C:\Database\IB6\NEU6D3.GDB'
Params.Strings = (
'user_name=sysdba'
'password=masterkey'
'lc_ctype=ISO8859_1')
LoginPrompt = False
DefaultTransaction = IBTransaction1
IdleTimer = 0
SQLDialect = 3
TraceFlags = []
Left = 24
Top = 16
end
object IBTransaction1: TIBTransaction
Active = True
DefaultDatabase = IBDatabase1
AutoStopAction = saNone
Left = 24
Top = 48
end
object IBDataSet1: TIBDataSet
Database = IBDatabase1
Transaction = IBTransaction1
BufferChunks = 1000
CachedUpdates = False
DeleteSQL.Strings = (
'delete from FORSTER'
'where'
' ID = :OLD_ID')
InsertSQL.Strings = (
'insert into FORSTER'
' (ID, MESSORT, W1, W2, W3, W4, W5)'
'values'
' (:ID, :MESSORT, :W1, :W2, :W3, :W4, :W5)')
RefreshSQL.Strings = (
'Select '
' ID,'
' MESSORT,'
' W1,'
' W2,'
' W3,'
' W4,'
' W5'
'from FORSTER '
'where'
' ID = :ID')
SelectSQL.Strings = (
'select ID, MESSORT, W1, W2, W3, W4, W5 from FORSTER')
ModifySQL.Strings = (
'update FORSTER'
'set'
' ID = :ID,'
' MESSORT = :MESSORT,'
' W1 = :W1,'
' W2 = :W2,'
' W3 = :W3,'
' W4 = :W4,'
' W5 = :W5'
'where'
' ID = :OLD_ID')
Active = True
Left = 72
Top = 16
object IBDataSet1ID: TIntegerField
FieldName = 'ID'
Origin = 'FORSTER.ID'
Required = True
end
object IBDataSet1MESSORT: TIBStringField
FieldName = 'MESSORT'
Origin = 'FORSTER.MESSORT'
Size = 30
end
object IBDataSet1W1: TIntegerField
FieldName = 'W1'
Origin = 'FORSTER.W1'
end
object IBDataSet1W2: TIntegerField
FieldName = 'W2'
Origin = 'FORSTER.W2'
end
object IBDataSet1W3: TIntegerField
FieldName = 'W3'
Origin = 'FORSTER.W3'
end
object IBDataSet1W4: TIntegerField
FieldName = 'W4'
Origin = 'FORSTER.W4'
end
object IBDataSet1W5: TIntegerField
FieldName = 'W5'
Origin = 'FORSTER.W5'
end
end
object DataSource1: TDataSource
DataSet = IBDataSet1
Left = 112
Top = 16
end
end
</pre>
Warum wird f�r RefreshSQL OLD_xyz verwendet

**G�nter Forster** · 24.08.2001, 22:09

Hallo,

zur Erkl�rung des Projektes :
Drei Tabellen : 
a. Adresse : ID primary key,NAme varchar(50),Strasse varchar(50),etc 
b. Materialeinsatz : id (nicht primary),artikelnummer,anzahl 
c. Messwert: id (nicht primary),messort,w1,w2,w3,w4,w5 

Wird ein neuer a. angelegt, so wird gleichzeitig 3-10 Zeilen von b. und c. angelegt, je nach Geb�udeart.(Messpunkte Kabelfernsehen) 

Die Auftragsseite rufe ich �ber die ID auf (Auftragsnummer), die vom laufenden programm in eine integervariable des Auftragsformulars �bergeben wird. Im OnShow �ffne ich die TAbellen : 
IBDatasetauftrag.params[0].asinteger := aktuell, 
IBDatasetauftrag.open; 
IBDatasetmesswert.params[0].asinteger := aktuell;
IBDatasetmesswert.open. 

Der Datensatz a. wird angezeigt, b. und c. selectiert mit 'where ID : Wert'. 

Alles wird korrekt angezeigt. Im refresh steht : 
select messort,w1,w2,w3,w4,w5 from messwert
where id = :ID
and messort = :Messort
order by messort da ich 3 - 10 Zeilen pro Auftrag habe mu� ich mit ID und Messort die aktuelle Zeile erreichen. 

Das gleiche bei Tabelle Materialeinsatz.

Als Fehler ist auch nach Neuanlage �ber den Editor und erweiterung des Textes (s.o.)der Wert w5 unsichtbar, wenn ich die Tabellenzeile nach dem editieren verlasse. 
Schlie�e ich das Blatt und �ffne wieder,dann ist der Wert da.

Die Materialtabelle hat nur 3 Spalten, hier tritt der Effekt nicht auf. 

Gibt es eine elegantere L�sung ?

Gru� G�nte

**G�nter Forster** · 24.08.2001, 22:46

Nochmal Hallo,

Try and error ! Der Fehler war in der DBGRid-Komonente. Ich wollte eine neue Datset anschlie�en und hatte beim Aufruf des Feldeditors die Meldung : 'Fehler, private Anweisung.' Ich konnte auch keine Felder zur Liste des Editors hinzuf�gen.

Grid gel�scht, neu. Jetzt geht es. Kann die Meldung aus Win2000 kommen ? Oder sollte ich mal Delphi neu installieren ? Da ich die Ursache nicht kenne, ist das nat�rlich unbefriedigend.

Sch�nen Abend noch. G�nte

Announcement

Leeres Feld im DBGrid

Leeres Feld im DBGrid

Comment

Comment

Comment

Comment

Comment