🚀 go-pugleaf

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