在资料保存前,有些值不能为空的,可是为空了,有些不能有小数点的,结果有了,。。。。 (69分)

  • 主题发起人 主题发起人 蛐蛐
  • 开始时间 开始时间

蛐蛐

Unregistered / Unconfirmed
GUEST, unregistred user!
一、这些值(业务规则如不能为空,最长为6位写在哪里)
二、在保存前如何进行判断。
 
没有人知道。
 
提前思路也可以。
 
自己写程序判呀
 
1. set the edit field MaxLength to 6

2. a bit Code as follows:

procedure TForm3.btnSaveClick(Sender: TObject);
var
s:string;
len:integer;
begin
s:=trim(edtInput.Text);
len:=length(s);
if (len=0) then
begin
beep;
showMessage('Not input value');
end;

if (len>6) then
begin
beep;
showMessage('Input length over 6');
end;
edtInput.SetFocus;
end;
 
多人接受答案了。
 
后退
顶部