Suche nach einem OPEN-Client-Fall und automatische Anzeige von CLOSED-Fällen, wenn OPEN CASE nicht gefunden wurde

Question

SQL NEWBIE auf der Suche nach einer Lösung. Wir haben eine Datenbank von Clients und eines der Felder heißt CLOSED. Wenn es einen Wert enthält, wurde es geschlossen und ansonsten leer. CLOSED-Fälle werden während einer Suche nicht angezeigt, es sei denn, ich führe eine separate Abfrage aus, um sie anzuzeigen. Wenn ich also die Suche starte und nichts auftaucht, wähle ich eine andere Taste in meiner DELPHI-App, um GESCHLOSSENe Fälle anzuzeigen. Ich möchte eine Ein-Knopf-Option, um nach einem Fall suchen zu können, und wenn nichts automatisch gefunden wird, fahre fort oder wiederhole die Suche, um die GESCHLOSSENEN Fälle anzuzeigen. Nicht sicher, was die SQL-Abfrage dafür ist. Aber ich glaube, ich bin an der richtigen Stelle, um eine Antwort zu bekommen ...... Vielen Dank im Voraus Leute ....

Answer 1

Eine Möglichkeit zu tun, was Sie wollen, ist eine SQL-Anweisung in Ihrer Delphi-App zu erstellen und senden Sie es an den Server. Wenn ich Ihre Anforderung richtig verstehe, ist nur eine SQL-Anweisung erforderlich, obwohl zwei Fälle zu berücksichtigen sind. a) alle Kunden sind nahe und b) manche nicht. Wenn Sie jedoch SQL in einer Delphi-App erstellen, müssen Sie sich des Risikos des Risikos von Sql Injection bewusst sein - siehe https://en.wikipedia.org/wiki/SQL_injection.

Ein besserer Weg wäre, einen Stored Procedure auf Ihrem Server zu definieren, um die Datenzeilen abzurufen, die Sie wollen. Zum Beispiel in MS SQL Server, könnten Sie eine Stored Procedure wie diese

create procedure GetClients as 
    if (select count(*) from Clients where Closed is Null) > 0 
    select * from Clients where Closed is Null 
    else 
    select * from Clients 

Grundsätzlich erstellen, die if ... Bedingung verlangt, ist es irgendwelche Zeilen, in denen Closed-ID Null. Wenn es solche gibt, gibt die erste select ... Anweisung sie zurück; Wenn nicht, werden alle Zeilen zurückgegeben.

Sie können es ausführen aus einer Delphi-App wie diese

type 
    TForm1 = class(TForm) 
    ADOStoredProc1: TADOStoredProc; 
    DataSource1: TDataSource; 
    DBGrid1: TDBGrid; 
    DBNavigator1: TDBNavigator; 
    procedure FormCreate(Sender: TObject); 
    public 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    AdoStoredProc1.ProcedureName := 'GetClients;1'; 
    AdoStoredProc1.Open; 
end; 

(Btw, dafür arbeiten Sie im Objektinspektor eine geeignete Connection für AdoStoredProc1 haben müssen einzurichten.

Hinweis dass diese Probe App nicht jede SQL in dem Delphi-app nicht konstruieren, so besteht keine Gefahr von Sql Injection.

Sie nicht gesagt, welche Daten geben Sie Ihre Closed Spalte ist. Für die Prüfung, Ich habe angenommen, dass es eine Integer-Spalte ist, aber jeder andere Typ sollte funktionieren.

Die obige App ist bewusst minimalistisch, im Grunde zu veranschaulichen, dass Sie solche Dinge in serverseitigem Code tun können. In der Praxis könnten Sie die Stored Proc so parametrisieren, dass Sie die Ergebnisse basierend auf anderen Spaltenwerten einschränken können.