Datenzugriff ohne DBGrid

[Zvoni]

OK, dann mal Butter bei die Fische.

@braunbär
Kannst du mal ein Beispiel hier reinstellen?
Also so sieht ne Datentabelle/-Datei JETZT aus, so sieht ein "Netzwerkdatenbankbefehl" jetzt aus, dieser macht was mit den Daten, und soll in Zukunft wie aussehen?

Weil ich sehe, dass euer Programm JETZT einen "Netzwerkdatenbankbefehl" absetzt (wahrscheinlich an eine Datei), dort was ausliest, und in einem gegebenen Format irgendwo anzeigt.
Heisst: Ihr werdet dann eh nicht daran vorbekommen, das "Ziel" eines solchen "Netzwerkdatenbankbefehls" (habt ihr euch kein kürzeres Wort ausdenken können?) umzubiegen in Richtung eures "Interfaces", und das gleiche Spiel zurück

[braunbär]

Denkst du, dass da ein allgemeiner Echtzeit-Proxy möglich ist, oder musst du jede lesende und schreibende Aktion nachbauen?

Wenn ich jede lesende und schreibende Aktion nachbauen wollte, würde ich Jahre brauchen. Unser Netzwerkdatenbanksystem kennt genau 90 verschiedene Befehle, die ich in SQl umsetzen muss. Viele der Befehle sind in der Umsetzung zum Glück sehr einfach, aber einige werden mir Kopfzerbrechen bereiten

was du möglicherweise nicht berücksichtigst. Eine Neuprogrammierung würde mit einem Ferrari erfolgen und nicht mit dem alten 2CV

Die Programmierung der Schnittstelle erfolgt ja auch zum größten Teil mit dem "Ferrari". Der Teil der Schnittstelle, der unter DOS programmiert werden muss, macht nichts, als die Anfragen über eine Pipe an das Windows Schnittstellenprogramm zu senden und die Antwort an die Anwendung weiterzuleiten.

[braunbär]

OK, dann mal Butter bei die Fische.

@braunbär
Kannst du mal ein Beispiel hier reinstellen?
Also so sieht ne Datentabelle/-Datei JETZT aus, so sieht ein "Netzwerkdatenbankbefehl" jetzt aus, dieser macht was mit den Daten, und soll in Zukunft wie aussehen?

Wenn es euch interessiert, zeige ich hier ein paar Ausschnitte aus der Datenbankdefinitionssprache und ein paar Prozeduren

Recorddefinition:

Code: Alles auswählen

record Firma
item FIRMANREDE string 3
item firmNAME german 35*3 ; Name
item Name german 25 ; Suchkey
item DATUM date
item UPDATED date
item ANREDE string 3
item KONTAKTNAME german 25
item KONTAKTVORNAME german 20
item ADRESSE string 35*2
item PLZ string 8
item ORT string 25
item LAND string 3
item TELEFON string 35
item TELEX string 20
item CODE string 6*20
item BEMERKUNG string 78*5
item email string 60

linkrecord KGRRABATT ;dbKGRRAB.def
item CodeRabatt string 6

Setdefinitionen:

Code: Alles auswählen

set FIRM auto ; Alle Firmen
owner SYSTEM
member Firma
sorted name index 6

set SELFIRM rsm ; Selektierte Firmen
owner SYSTEM
member Firma
sorted name index 5

set KGRRABATTE auto
owner Kundengruppe
member Kgrrabatt

set AGR_KGRRABATTE auto
owner artikelgruppe
member kgrrabatt
keyfrom kundengruppe
sorted code index 3

record ARTIKEL ;dbART.def
item Nummer german 20
item Kurzname string 30
item Name string 60 * 4
item CodeEinh_Vk string 8
item Lagerartikel char
item Rueckstand char
item Sammelartikel char
item aenderbar char
item Lagerstand_Ist1 real comp
item Lagerstand_Ist2 real comp
item Lagerstand_Ist3 real comp
item Lagerstand_Min real * 3
item Lagerstand_Soll real * 3
item Lagerwert real comp
item Reservierungen1 real comp
item Reservierungen2 real comp
item Reservierungen3 real comp
item Bestellungen1 real comp
item Bestellungen2 real comp
item Bestellungen3 real comp
item kalkulat_EkPreis real
item mark char
item eanCode string 20
item FibuKontoNrErl string 10
item FibuKontoNrErl0 string 10 ;Erlöskonto für Ust-freie Umsätze
item FibuKontoNrAufw string 10
item Provisionsklasse byte 1
item gewicht real
item AnteilMaterialP real ;anteil der mat.kosten vom ges.pr. in %
item AnteilMaterialB real ;anteil der mat.kosten vom ges.pr.betrag
item VerbuchenSperre char ;auslaufde artikel nicht mehr verbuchen
item AnzahlLiter real
item Garantie byte 1 ;in monaten; übersteuert art.gruppe.gew.
item Seriennr char ;j=artikel hat seriennummernverwaltung
item DatumEkPreis date ;letzte Eingabe kalkulat. EkPreis
item PreisCodes char *10 ;10 mal J/N für 10 Preislisten
item AutoSnrEingang char ;J=Seriennr bei eingang autom eintragen
item AutoSnrAusgang char ;J=Seriennr bei ausgang autom eintragen
item SnrMitDatum char ;J=Seriennummer kommt ins set SnrDatum
item NrMandant byte 1
item Intrastat string 10
item Abgabeeinheit real
item mitCharge char
item CodeRabatt string 6
item ForceLiefa char
item LagerBeleg char ;darf in LS, Rg, GS verwendet werden
item dummy byte 20 

computation ART_LB
Formel ##Lagerstand_Ist1 := (#lagernummer= 1) * #ZugangAbgang * #Menge
Formel ##Lagerstand_Ist2 := (#lagernummer= 2) * #ZugangAbgang * #Menge
Formel ##Lagerstand_Ist3 := (#lagernummer= 3) * #ZugangAbgang * #Menge

Und so schauen ein paar Datenbankbefehle aus (hier insert member into set, Create record and store data, Delete record base on member, delete record based on owner, remove member from set, remove set members, find first member, find member based on sortkey, get field from Owner), die Einstiegspunkte der Routinen sind alle in Assembler programmiert:

Code: Alles auswählen

PROCEDURE IMS ( Setname: NT; AUFRUF: INTEGER);
EXTERNAL FCM[2539];
PROCEDURE CRS ( Recordname: NT; VAR BUFFER; AUFRUF: INTEGER);
EXTERNAL FCM[2545];
PROCEDURE DRM ( Setname: NT; AUFRUF: INTEGER);
EXTERNAL FCM[2554];
PROCEDURE DRO ( Setname: NT; AUFRUF: INTEGER);
EXTERNAL FCM[2560];
PROCEDURE RMS ( Setname: NT; AUFRUF: INTEGER);
EXTERNAL FCM[2566];
PROCEDURE RSM ( Setname: NT; AUFRUF: INTEGER);
EXTERNAL FCM[2572];
PROCEDURE FFM ( Setname: NT; AUFRUF: INTEGER);
EXTERNAL FCM[2578];
PROCEDURE FMSK ( Setname: NT; VAR BUFFER; AUFRUF: INTEGER);
EXTERNAL FCM[2596];
PROCEDURE GFO ( Feldname,Setname: NT; VAR BUFFER; AUFRUF: INTEGER);
EXTERNAL FCM[2680];