Search options (Page 186 of 400)

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    s: string;
begin
    s := InputBox('Caption', 'Enter messave', '');
    ShowMessage('Your message is: ' + s);
end; 

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    s:string;
begin
    if InputQuery('Caption', 'Your message', s) then
    begin
        ShowMessage('Your message is: ' + s);
    end else ShowMessage('User clicked cancel button.');
end;

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    SqliteTr: TDBXSqliteTransaction;
    i: integer;
begin
    SqliteTr := BeginSQLiteTransaction;
    for i:= 0 to 10000 do SQLExecute('INSERT INTO employees (lastname) VALUES(''Smith'')');
    CommitSQLiteTransaction(SqliteTr);
end;

procedure Form1_OnShow (Sender: string; Action: string);
begin
  logo.show;
  Application.ProcessMessages;
  sleep(3000);
  logo.close;
end;

procedure Form1_bScript_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.GridEmployees.dbSQL:='SELECT id, "$autoinc", lastname, firstname, salary FROM employees'; // the id field, want to be able to edit or delete the entry from the table component
    Form1.GridEmployees.dbGeneralTable := 'employees'; // Optional (in the case of complex SQL queries with sub queries, you need to choose the main table of the database, also it need to be able to edit or delete the entry from the table component)
    Form1.GridEmployees.dbListFieldsNames :='delete_col,#,name2,name3,name4'; // If you do not want to see the value of the id in the component table, enter a name for the column delete_col
    Form1.GridEmployees.dbSQLExecute;
end;