OBS/Auswertung/Formular Designer: Unterschied zwischen den Versionen

Aus OBS Wiki
Zur Navigation springen Zur Suche springen
Keine Bearbeitungszusammenfassung
 
Zeile 15: Zeile 15:
  // verfügbare Methoden:
  // verfügbare Methoden:
  //  function  GetSqlExportStr(Parent: TxForm): String;
  //  function  GetSqlExportStr(Parent: TxForm): String;
  //  procedure SetSQlExportStr(Parent: TxForm; cSql: String);
  //  procedure SetSqlExportStr(Parent: TxForm; cSql: String);
  //  function  RunSQlExporter(Parent: TxForm; lAuto:Boolean): Boolean;
  //  function  RunSqlExporter(Parent: TxForm; lAuto:Boolean): Boolean;
  //  function  SaveDataSQlExporter(Parent: TxForm; cFileName: String; nWahl: Integer; lAuto: Boolean): Boolean;
  //  function  SaveDataSqlExporter(Parent: TxForm; cFileName: String; nWahl: Integer; lAuto: Boolean): Boolean;
  //  function  ShowDataSQlExporter(Parent: TxForm): Boolean;
  //  function  ShowDataSqlExporter(Parent: TxForm): Boolean;
  //-----------------------------------------------------------------------------
  //-----------------------------------------------------------------------------
   
   

Aktuelle Version vom 30. April 2019, 11:03 Uhr

Formular Designer

Beispielcode:

//-----------------------------------------------------------------------------
// Author: ???           
// Datum:  ???  
//
// verfügbare Variablen:
//   Form: TForm    -> aktives Formular
//   Parent: TxForm -> Ausgabefenster               
//
// verfügbare Methoden:
//   function  GetSqlExportStr(Parent: TxForm): String;
//   procedure SetSqlExportStr(Parent: TxForm; cSql: String);
//   function  RunSqlExporter(Parent: TxForm; lAuto:Boolean): Boolean;
//   function  SaveDataSqlExporter(Parent: TxForm; cFileName: String; nWahl: Integer; lAuto: Boolean): Boolean;
//   function  ShowDataSqlExporter(Parent: TxForm): Boolean;
//-----------------------------------------------------------------------------

const
    CSV   = 2;                        
    EXCEL = 3;
    HTML  = 4; // nur im Grid möglich

procedure Button1Click(Sender: TObject);
begin
    Form.Edit1.Text := 'Text geändert';
end;

procedure Button2Click(Sender: TObject);
begin
    Form.Close();
end;