1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure TfrmHardware.DruckerdatenLaden(dname: string);
var SQLText,hilfe  : string;
begin
  with frmMain.sqlqryOracle do
    begin
      Close;
      SQLText:='select DRUCKER_SN,DRUCKER_STPSN,DRUCKER_NAME,DRUCKER_DINASNAME,'+
               'DRUCKER_STANDORTID,DRUCKER_ANSCHLUSSID,DRUCKER_TYPID,DRUCKER_IPADRESSE'+
               ' from DRUCKER where DRUCKER_STPSN=:sn';

      SQL.Text:=SQLText;
      ParamByName('sn').AsString:=copy(dname,1,4);

      // ... und raus damit
      Active:=true;

      First;
      // Ergebnis in ListBox füllen
      while not eof do
        begin
          edtName.Text:=FieldByName('DRUCKER_NAME').AsString;
          mskedtSTPSN.Text:=FieldByName('DRUCKER_STPSN').AsString;
          edtSN.Text:=FieldByName('DRUCKER_SN').AsString;
          edtDINAS.Text:=FieldByName('DRUCKER_DINASNAME').AsString;
          hilfe:=FieldByName('DRUCKER_IPADRESSE').AsString;
          cmbxStandort.ItemIndex:=FieldByName('DRUCKER_STANDORTID').AsInteger-1;
          cmbxAnschluss.ItemIndex:=FieldByName('DRUCKER_ANSCHLUSSID').AsInteger-1;
          cmbxDruckertyp.ItemIndex:=FieldByName('DRUCKER_TYPID').AsInteger-1;
          Next;
        end;

      Active:=false;
    end;
end;