I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
if ( edit1.Text = '' ) or ( edit2.Text = '' ) or ( edit3.Text = '' ) then showmessage('Du skal udfylde alle felterne for at kunne oprette en bruger') else
with opret do begin
with SQL do begin Clear; Add('Select * from brugere where brugernavn = :onlinegut'); opret.Params.ParamByName('onlinegut').Value := edit1.text; end; opret.Active := True;
if opret.FieldByName('brugernavn').asstring = edit1.text then showmessage('Der blev allerede fundet en bruger med samme brugernavn! Prøv igen med et nyt nick') else begin
with sqlQuery1 do begin
with SQL do begin Clear; Add('insert into brugere (brugernavn,kodeord) Values (:brugerparam,:kodeordparam)'); sqlQuery1.PrepareStatement; sqlQuery1.Params.ParamByName('brugerparam').Value := edit1.text; sqlQuery1.Params.ParamByName('kodeordparam').Value := edit2.text; sqlquery1.Params.ParamByName('brugernavnparam').Value
end; sqlquery1.ExecSQL;
end;
Kan det have noget at gøre med at jeg har en anden Param over her ?
if ( edit1.Text = '' ) or ( edit2.Text = '' ) or ( edit3.Text = '' ) then showmessage('Du skal udfylde alle felterne for at kunne oprette en bruger') else
with opret do begin
with SQL do begin Clear; Add('Select * from brugere where brugernavn = :onlinegut'); opret.Params.ParamByName('onlinegut').Value := edit1.text; end; opret.Active := True;
if opret.FieldByName('brugernavn').asstring = edit1.text then showmessage('Der blev allerede fundet en bruger med samme brugernavn! Prøv igen med et nyt nick') else begin
with sqlQuery1 do begin
with SQL do begin Clear; Add('insert into brugere (brugernavn,kodeord) Values (:onlinegut,:kodeordparam)');
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.