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.