🚀 go-pugleaf

W dniu sobota, 18 maja 2019 12:42:28 UTC+2 użytkownik Roman Wilk napisał:
> W dniu sobota, 18 maja 2019 12:15:28 UTC+2 użytkownik zpksoft napisał:
> > 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ł
> 
> Ty tak serio ?
> 
> Nie widzisz roznicy pomiedzy tym co Ty napisales, a moim przykladem na to, ze kontrolki DB, sa jednak przydatne :-)
> Bo jesli tak, to rzeczywiscie przemysl czy programowanie "zarobkowe" to, to co powinienies robic.
> 
> Pozdrawiam
> ----
> Roman

Krótka analiza:

Mój kod: 38 linii, 109 słów, 923 znaków,
Twój kod: 60 lnii, 227 słów, 1679 znaków,

cytat z mojego kodu (tworzenie sql):
>    if where='' then where:=' where mat=:mat '
>    else where:=where+' and mat=:mat ';
>    sql:=sql+where;

cytat z twojego kodu (tworzenie sql):
>      if sep = true then
>        sqlcomm := sqlcomm + ', ';
>      sqlcomm := sqlcomm + ':' + poz;


To by było na tyle, odłączam się od tego wątku bo to już tylko bicie piany.

Paweł