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: 35:
| procedure Tfirmdaten.btn_firmpostClick(Sender: TObject); begin firmdaten.firmConnection.Database := System.IOUtils.TPath.GetHomePath + PathDelim +'firmpv.dbp'; try firmdaten.firmConnection.Connected := True; firmdaten.firmConnection.Options.Direct := True; firmQuery.Connection := firmdaten.firmConnection; with firmQuery do begin Close; SQL.Clear; SQL.Text := 'INSERT INTO [firmenliste] '+ ' ( '+ ' [firmname],[firmstrasse],[firmplz],firmort],'+ ' [firmgewerk],[firmkontakt],[firmchef]'+ ' )'+ ' Values ('+ ' :frmnam, :frmstr, :frmplz, :frmort, '+ ' :frmgew, :frmkon, :frmchf '+ ' )'; ParamByName('frmnam').AsString := ed_firmname.Text; ParamByName('frmstr').AsString := ed_firmstrasse.Text; ParamByName('frmplz').AsString := ed_firmplz.Text; ParamByName('frmort').AsString := ed_firmort.Text; ParamByName('frmgew').AsString := cb_firmgewerk.Selected.Text; ParamByName('frmkon').AsString := ed_firmkontakt.Text; ParamByName('frmchf').AsString := ed_firmchef.Text; ExecSQL(); end; finally
ShowMessage('Datensatz wurde neu angelegt !'); end; firmdaten_laden; end; |