procedure TadduserForm.Button1Click(Sender: TObject); begin if (useredit.Text='')then begin application.MessageBox('用户名和密码不能为空','注意',mb_iconquestion+mb_ok); end else adotable1.Insert; adotable1.FieldByName('username').asinteger := strtoint(userEdit.Text); adotable1.Post; end;匹配问题又是不对,帮我瞧瞧,谢谢了
begin
if (useredit.Text='')then
begin
application.MessageBox('用户名和密码不能为空','注意',mb_iconquestion+mb_ok);
end
else
adotable1.Insert;
adotable1.FieldByName('username').asinteger := strtoint(userEdit.Text);
adotable1.Post;
end;匹配问题又是不对,帮我瞧瞧,谢谢了