Search options (Page 238 of 400)

procedure frmEmployee_Button2_OnClick (Sender: string; var Cancel: boolean);
var
    sFields, sValues: string;
begin
    sFields := 'lastname;firstname;dateofbirth';
    sValues := frmEmployee.edLastName.sqlValue+';'+frmEmployee.edFistName.sqlValue+';'+frmEmployee.dtDateOfBirth.sqlDate;

   if CheckDublicate(frmEmployee.dbAction, 'employees', sFields, sValues, frmEmployee.ButtonSave.dbGeneralTableId) then
   begin
        ShowMessage('Person already exists.');
        Cancel := True;
   end;
end;

procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
var
    dbLabel: TdbLabel;
begin
    dbLabel := TdbLabel.Create(Form1);
    dbLabel.Parent := Form1;
    dbLabel.Caption := Form1.Label1.Caption;
end;

procedure NEON_OnClose (Sender: string; Action: string);
begin
    Form1.Close; // ! you want to close main form (frmLogin)
end;

Form1.TableGrid1.Columns.Delete(0); // удалит первую колонку

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
 nFile,nStr: string;
 sl: TStringList;
    arrStr: array of string;
    i,c : integer;
begin
   nFile:= Form1.Edit1.Text;
   nStr:=HTTPGet(nFile);
   nStr := ReplaceStr(nStr, #10, #13#10);
   Form1.Memo1.Text := nStr;
end;

procedure Form1_bScript_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.GridEmployees.dbSQL:='SELECT id, 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;