validar un dbedit

[[basti]]

Empezado por moyo18

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject); var  M,N :Integer;  SubCadena :String; begin   M:=Pos(DBEdit9.Text, '@');   if (M > 1) then   begin     SubCadena:=Copy(DBEdit9.Text,M,Length(Edit1.Text));     N:=Pos(SubCadena, '.') ;     if ((N>2) and (Length(SubCadena)<>N) ) then   begin    ADOTable1.Edit;     DBEdit2.text := Maskedit1.Text ;     DBEdit6.text := Maskedit2.Text ;     DBEdit8.text := Maskedit3.Text ;     DBEdit10.text := Maskedit4.Text ;     ADOTable1UserID.AsString := DBEdit2.text;     ADOTable1LastName.AsString := DBEdit3.text;     ADOTable1Name.AsString := DBEdit4.text;     ADOTable1Address.AsString := DBEdit5.text;     ADOTable1PostalCode.AsString := DBEdit6.text;     ADOTable1City.AsString := DBEdit7.text;     ADOTable1Phone.AsString := DBEdit8.text;     ADOTable1Email.AsString := DBEdit9.text;     ADOTable1Birthday.AsString := DBEdit10.text;    ADOTable1.Post;   end;  end; end;

No necesitas asignar los DBEdit a los campos, eso ya lo hacen los controles por sí mismos si tienen asignada la propiedad Datafield.

Empezado por moyo18

Código Delphi [-]
            insert;
             FieldByName('UserID').Value := '9999999';
             FieldByName('LastName').Value := 'LastName';
             FieldByName('Name').Value := 'Name';
             FieldByName('Address').Value := 'Address';
             FieldByName('PostalCode').Value := 'Postal Code';
             FieldByName('City').Value := 'City';
             FieldByName('Phone').Value := '8787878';
             FieldByName('Email').Value := 'Email';
             FieldByName('Birthday').Value := '12/31/1900';
            post

Aquí añades ya el registro con los valores, por eso te salen esos valores y los guarda al hacer el post. Te bastaría con hacer el Insert, o Append y no dar valores a los campos, excepto a los que quieras que tengan un valor por defecto, y no hacer el post.


Ej:

Código Delphi [-]
procedure TForm1.BtnNuevoClick(Sender : TObject);
begin
  if not (AdoTable1.State in [dsEdit, dsInsert]) then
    AdoTable1.Insert; // o AdoTable1.Append
end;

procedure TForm1.BtnGuardarClick(Sender : TObject);
begin
  if AdoTable1.State in [dsEdit, dsInsert] then
    AdoTable1.Post;
end;