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'; // db3 nur umbenannt in 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;