🚀 go-pugleaf

> 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