🚀 go-pugleaf

W dniu sobota, 18 maja 2019 12:01:10 UTC+2 użytkownik Roman Wilk napisał:
> > To ja Ciebie teraz poproszę o alternatywne rozwiązanie zagadnienia które przedstawiłem w kodzie. Dwa check-boxy i dwie kontrolki edycyjne.
> > Ciekaw jestem jak to będzie wyglądało "bez drutowania"
> > 
> > Paweł
> 
> Jak cos od poczatku jest "drutem", to rzeczywiscie trudo nie drutowac :-).
> 
> 1. Uzyj komponentow DB, czyli DBCheckBox i DBEdit (dla przykladu)
> 2. Powiaz z lokalnym DataSet, np. ClientDataSet (oczywiscie, moze byc ich wiele ...)
> 3. Uzyj tego co ClientDataSet oferuje z automatu (osobiscie nie uzywam) do zapisu do bazy danych.
> 4. Napisz automatyzacje kodu zapisu do bazy danych (w tym przypadku DB moze byc dowolna) tego co masz w lokalnym DataSeci'e (ja tak robie)
> 5. Przyklad kodu SQL'a automatyzacji dla Firebird'a 
> 
> function CreateUpdateOrInsertCommand(LocalTable: TDataSet; pozycje: TList;
>   tableName: string; MatchingFields: array of string; params: TParams): string;
> var
>   i: integer;
>   poz: string;
>   sqlcomm: string;
>   sep: Boolean;
> 
>   function GetMatchingCondition(MatchingFields: array of string): string;
>   var
>     i: integer;
>     cmd: string;
>   begin
>     cmd := '';
>     for i := 0 to high(MatchingFields) do
>       cmd := cmd + MatchingFields[i] + ',';
>     cmd := Copy(cmd, 1, length(cmd) - 1);
>     Result := cmd;
> 
>   end;
> 
> begin
>   sep := False;
>   sqlcomm := 'UPDATE OR INSERT INTO ' + tableName + ' ( ';
>   for i := 0 to pozycje.Count - 1 do
>   begin
>     poz := PString(pozycje[i])^;
>     if LocalTable.FieldByName(poz).FieldKind = fkData then
>     begin
>       if sep = true then
>         sqlcomm := sqlcomm + ', ';
>       sqlcomm := sqlcomm + poz;
>       sep := true;
>     end;
>   end;
>   sqlcomm := sqlcomm + ') VALUES (';
>   sep := False;
>   for i := 0 to pozycje.Count - 1 do
>   begin
>     poz := PString(pozycje[i])^;
>     if LocalTable.FieldByName(poz).FieldKind = fkData then
>     begin
>       if sep = true then
>         sqlcomm := sqlcomm + ', ';
>       sqlcomm := sqlcomm + ':' + poz;
>       params.Add;
>       params[params.Count - 1].name := poz;
>       params[params.Count - 1].DataType := LocalTable.FieldByName(poz).DataType;
>       if not LocalTable.FieldByName(poz).IsNull then
>         params[params.Count - 1].Value := LocalTable.FieldByName(poz).Value;
>       sep := true;
>     end;
>   end;
>   sqlcomm := sqlcomm + ')';
>   sqlcomm := sqlcomm + ' MATCHING( ' + GetMatchingCondition
>     (MatchingFields) + ')';
>   Result := sqlcomm;
> 
> end;
> 
> Ps.
> Jak Ci 3 osby mowia, ze jestes pijany, to poloz sie spac :-)
> 
> Pozdrawiam 
> ----
> Roman

Człowieku, przecież ty ręcznie ulepiłeś sql-a, podobnie jak ja.

Paweł