Search options (Page 119 of 400)

//Клиенты
 procedure frmAddClient_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    if CheckDublicate('NewRecord', 'client', 'name', frmAddClient.edName.sqlValue, frmAddClient.Button1.dbGeneralTableId) then
     begin
          frmAddClient.Button12.Click;
     end else
     begin
         frmAddClient.Button10.Click;
     end;
end;

// запрет на дублирование записей
function CheckDublicate (Action, sTable, sField, sValue: string; id: integer;): boolean;
var
   s: string;
begin
     result := False;
     if Action = 'NewRecord' then
     begin
          s := SQLExecute ('SELECT Count(*) FROM '+sTable+' WHERE '+sField+' LIKE ' + sValue);
          if StrToInt(s) > 0 then result := True;
     end;
end;

 procedure frmAddClient_btLogSave_OnClick (Sender: string; var Cancel: boolean);
begin
  if frmAddClient.chNewClient.Checked then
    begin
    //Логирование// при создании нового клиента
     sCurrentDate := '"' + FormatDateTime('yyyy-MM-DD hh:nn', now) + '"';
     sUserName   := '"'+ sUser +'"';
     sOperation := '"Создан новый клиент"';
     sUserPC  := '"'+ GetUserName +'"';
     sClientName  := frmAddClient.edName.sqlValue;
     SQLExecute ('INSERT INTO users_logs (UserPC, datetimeEvent, operation, login, ClientName) VALUES('+sUserPC+',' +sCurrentDate+','+sOperation+','+sUserName+','+sClientName+')');

    end;
    if frmAddClient.chUpdateClient.Checked then
    begin
    //Логирование// при редактировании клиента
     sCurrentDate := '"' + FormatDateTime('yyyy-MM-DD hh:nn', now) + '"';
     sUserName   := '"'+ sUser +'"';
     sOperation := '"Данные по клиенту отредактированы"';
     sUserPC  := '"'+ GetUserName +'"';
     sClientName  := frmAddClient.edName.sqlValue;
     sOldClientName  := frmAddClient.edOldClientName.sqlValue;
     SQLExecute ('INSERT INTO users_logs (UserPC, datetimeEvent, operation, login, ClientName, OldClientName) VALUES('+sUserPC+',' +sCurrentDate+','+sOperation+','+sUserName+','+sClientName+','+sOldClientName+')');

    end;
end;

 frmAddClient.edName.Text

 frmAddClient.edName.sqlValue

 UltimoNumero := SQLExecute( 'SELECT MAX(CAST(Autores.NumDocumentoAutor AS Int)) FROM Autores WHERE Autores.id_TipoDocumentos = ' + IntToStr(Id_TipoDocumento ) );

procedure Form2_ComboBox1_OnChange (Sender: string);
begin
    Form2.Edit1.Text :=  Form2.ComboBox1.Text;
end;

procedure Form2_OnShow (Sender: string; Action: string);
begin
    Form2.ComboBox1.Text := Form2.Edit1.Text;
end;

procedure SendKeyForAllEdits(Form: TAForm; sKey: string);
var
    i,c: integer;
begin
    c := Form.ComponentCount-1;
    for i := 0 to c do
    begin
        if Form.Components[i] is TdbEdit then TdbEdit(Form.Components[i]).Text := TdbEdit(Form.Components[i]).Text + sKey;
    end;

end;

procedure Form1_Button3_OnClick (Sender: string; var Cancel: boolean);
begin
    SendKeyForAllEdits(Form1, '1'); // how to use
end;

Form1.Button1.dbActionType := adbNone;  

if (Form1.GridEmployees.Cells[4,i] <> 'Выполнено') and (StrToDateTime(Form1.GridEmployees.Cells[3,i]) < Now)  then Form1.GridEmployees.Cell[3,i].Color := clRed;