Quasselecke

Zitat von Fletcher

So .... Gespräch vorbei -. i werd wohl übernommen .. ich hab wieder ne klasse Abfrage gecoded ..ach ja, die Welt ist schön ;D

gz

@Max: Du auch Österreicher?

Zitat von Raz'Nagul

Glaubst mir nicht? Virus Hauptattacke

rofl

@fletscher: ? ? worum gehts ?

Edit: ne ^^

viel spaß need!

gz fletcher, ich freu mich für dich!

und raz, ich weigere mich dem link zu folgen, weil da steckt sicher augenkrebs dahinter, wenn virus hauptattacke ist...

EDIT:

ähmm mäxchen...nur zur klarstellung...ich rauch nicht...weder zigaretten noch irgendwas was illegal ist...also spar dir bitte solche aussagen in nem öffentlichen Forum...

Um meine Arbeit und die Übernahme Maxx ;P

Und um das hier

SELECT Freundlichkeit.Tab_Name, Hotline, Hotline_weil, VSP, Freundlichkeit.Tab_Nummer
FROM Freundlichkeit INNER JOIN VSP ON Freundlichkeit.ID = VSP.ID
WHERE Freundlichkeit.Hotline_weil =TRUE  AND (Freundlichkeit.Datum) IN
(
SELECT Max(Freundlichkeit.Datum)
FROM Meeting INNER JOIN Freundlichkeit ON Meeting.ID = Freundlichkeit.ID
WHERE Freundlichkeit.Datum = Meeting.Datum
)
UNION SELECT Kompetenz.Tab_Name, Hotline, Hotline_weil, VSP, Kompetenz.Tab_Nummer
FROM Kompetenz  INNER JOIN VSP ON Kompetenz.ID = VSP.ID
WHERE Kompetenz.Hotline_weil = TRUE AND (Kompetenz.Datum) IN
(
SELECT Max(Kompetenz.Datum)
FROM Meeting INNER JOIN Kompetenz ON Meeting.ID = Kompetenz.ID
WHERE Kompetenz.Datum = Meeting.Datum
)

UNION SELECT Unterstützung.Tab_Name, Hotline, Hotline_weil, VSP, Unterstützung.Tab_Nummer
FROM Unterstützung  INNER JOIN VSP ON Unterstützung.ID = VSP.ID
WHERE Unterstützung.Hotline_weil = TRUE AND (Unterstützung.Datum) IN
(
SELECT Max(Unterstützung.Datum)
FROM Meeting INNER JOIN Unterstützung ON Meeting.ID = Unterstützung.ID
WHERE Unterstützung.Datum = Meeting.Datum
)

UNION SELECT Rückruf.Tab_Name, Hotline, Hotline_weil, VSP, Rückruf.Tab_Nummer
FROM Rückruf  INNER JOIN VSP ON Rückruf.ID = VSP.ID
WHERE Rückruf.Hotline_weil = TRUE AND (Rückruf.Datum) IN
(
SELECT Max(Rückruf.Datum)
FROM Meeting INNER JOIN Rückruf ON Meeting.ID = Rückruf.ID
WHERE Rückruf.Datum = Meeting.Datum
)

UNION SELECT Reaktion.Tab_Name, Hotline, Hotline_weil, VSP, Reaktion.Tab_Nummer
FROM Reaktion  INNER JOIN VSP ON Reaktion.ID = VSP.ID
WHERE Reaktion.Hotline_weil = TRUE AND (Reaktion.Datum) IN
(
SELECT Max(Reaktion.Datum)
FROM Meeting INNER JOIN Reaktion ON Meeting.ID = Reaktion.ID
WHERE Reaktion.Datum = Meeting.Datum
)
ORDER BY Tab_Nummer;

Weil mit sowas schlag ich mich grad r um ^^

sorry - habs weggemacht . *um gnade bettel *

Edit: schön das ich garnix verstehe

moin an alle

@Fletcher,
das sieht stark nach Delphi aus.

Zitat von Monstermax

Edit: schön das ich garnix verstehe

Ach ..so schwer is dit eigentlich nich ;D


Morgen Xzar

mrogen xzarnie!

@mäxchen: ich bin eine frau --> gnadenlos!

ach du schande, fletcher...ich versteh nur zuuuuuuuuuuuuug *gg*

Ach Calli .. stell dich nich an ^^

@Need: Nope, SQL :>

SQL und Delphi lassen sich ja direkt ineinander übertragen;
sind ja quasi verwandte Sprachen.

Sowas hab ich früher immer gemacht:

unit UProjekt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    BManuell: TButton;
    BEinlesen: TButton;
    Label1: TLabel;
    EAuftragsnr: TEdit;
    BBeenden: TButton;
    StringGrid1: TStringGrid;
    BLeeren: TButton;
    OpenDialog1: TOpenDialog;
    procedure FormCreate(Sender: TObject);
    procedure BBeendenClick(Sender: TObject);
    procedure BManuellClick(Sender: TObject);
    procedure BEinlesenClick(Sender: TObject);
    procedure BLeerenClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

type TAuftrag = Record
        ISBN : String[10];
        Stueck : Integer;
     end;
Var Auftrag : TAuftrag;
Var Datei :File of TAuftrag;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 StringGrid1.Cells[0,0]:='ISBN';
 StringGrid1.Cells[1,0]:='Stück';
 StringGrid1.Cells[2,0]:='Prüfsumme';
end;

procedure TForm1.BBeendenClick(Sender: TObject);
begin
 close;
end;

Function Pruefe(ISBN:String):Boolean;
var i,summe, rest:Integer;
Begin
 Summe := 0;
 For i:=1 to 9 do
 Begin
   Summe := Summe + (11-i)* StrToInt(ISBN[i]);
 end;
 rest := Summe MOD 11;
 Rest := 11 - rest;
 If rest = 10 then rest:=0;
 If Rest = StrToInt(ISBN[10]) then Result := True
 else Result := False
End;

procedure TForm1.BManuellClick(Sender: TObject);
var i:integer;
begin
 i:=1;
 If EAuftragsnr.Text = '' then ShowMessage('Bitte geben Sie eine Auftragsnummer ein!')
 else
 Begin
  While StringGrid1.Cells[0,i]<> '' do
  Begin
   if length(Stringgrid1.Cells[0,i])<>10 then showMessage('Eine ISBN-Nummer ist nicht genau 10 Ziffern lang!')
   else
   If Stringgrid1.Cells[1,i] = '' then showMessage('Es wurde keine Stückzahl eingegeben!')
   else
   Begin
   If Pruefe(Stringgrid1.Cells[0,i]) = True then
   begin
    StringGrid1.Cells[2,i]:= 'korrekt';
    Auftrag.ISBN:= StringGrid1.Cells[0,i];
    Auftrag.Stueck := StrToInt(StringGrid1.Cells[1,i]);

    Assignfile(Datei,'C:\OK\'+EAuftragsnr.Text+'.dat');

    If Fileexists('C:\OK\'+EAuftragsnr.Text+'.dat') then reset(datei)
    else rewrite(datei);

    Seek(Datei, FileSize(Datei));
    Write(Datei,Auftrag);
    Closefile(Datei);
   end
   else
   begin
   StringGrid1.Cells[2,i]:= 'fehlerhaft';
   Auftrag.ISBN:= StringGrid1.Cells[0,i];
   Auftrag.Stueck := StrToInt(StringGrid1.Cells[1,i]);

    Assignfile(Datei,'C:\Fehlerhaft\'+EAuftragsnr.Text+'.dat');

    If Fileexists('C:\Fehlerhaft\'+EAuftragsnr.Text+'.dat') then reset(datei)
    else rewrite(datei);

    Seek(Datei, FileSize(Datei));
    Write(Datei,Auftrag);
    Closefile(Datei);
   end;
   end;
   i:= i+1;
  end;                 // ende der while-schleife
 end;

end;

procedure TForm1.BEinlesenClick(Sender: TObject);
var i:integer;
begin
  BLeerenClick(Sender);
  i:=1;
  Opendialog1.execute;
  if fileexists(opendialog1.FileName) then
  begin
   Assignfile(Datei, Opendialog1.Filename);
   Reset(Datei);

   while not eof (Datei) Do
   begin
    Read (Datei, Auftrag);
    StringGrid1.Cells[0,i]:= Auftrag.ISBN;
    StringGrid1.Cells[1,i] := Inttostr(Auftrag.Stueck);
    i:=i+1;
   end;
   closefile(datei);
   end
   else Showmessage('Der Dateiname ist nicht bekannt');
end;

procedure TForm1.BLeerenClick(Sender: TObject);
var i:integer;
begin
 EAuftragsnr.Text := '';

 for i:=1 to 100 do
 begin
   StringGrid1.Cells[0,i]:='';
   StringGrid1.Cells[1,i]:='';
   StringGrid1.Cells[2,i]:='';
 end;  
end;

end.

War aber noch so Delphi PillePalle aus der Berufsschule.
Inzwischen siehts etwas anders/besser aus

Zitat von Fletcher

Ach Calli .. stell dich nich an ^^
...

wat denn??? ich kapier das wirklich nicht...

EDIT:

das von need im überigen auch nicht

Ach Programmierungen....geht mir bloß weg damit XD

moin xzar

@ fletscher : rofl

@callisto : ich sag nur BratPfanne

Hallo Xzar!

@Fletcher: Selber geschieben, oder generiert?

@Need: Nein, Delphi ist eine Programmiersprache (wie Java, C, ...)
SQL ist eine Sprache um Operationen auf Datenbanken zu machen. Innerhalb der Datenbank sehr mächtig und mit PL/SQL können auch komplexe Logiken abgebildet werden. Aber man kann damit nicht außerhalb der Datenbank arbeiten.

@Need:
Ahjoa, nit ganz ^^ - siehe Raz' Erklärung
Ich arbeite auch nit mit Delphi ^^
Sondern mit good old kackenbratzen Access ... und da schreib ich mir die Abfragen halt alle selber zusammen, weil das Klicke-Bunti von Access fürn Arsch is

@Raz: Selb0r natürlich
wobe idas auch nich eine längste Abfrage is

Yeah! Sozialwesenarbeit wieder bekommen!

2+

gz xzar!

gz

gz Xzar!

@Fletcher: Das längst PL/SQL-Package, dass ich je bearbeitet habe, hatt 68 Seiten. Ist zwar nicht alles von mir, aber sich da einlesen und das verstehen, war ne arbeit von vier Tagen.