Q
QSmile
Unregistered / Unconfirmed
GUEST, unregistred user!
有没有一个这样的控件?数据检测的
在写数据库类的东东时,每天都会写这样的一些代码,如:
edtDepartID.Text := Trim(edtDepartID.Text);
if edtDepartID.Text = '' then
begin
MessageBox(Handle,'部门ID不能为空!','提示',MB_ICONINFORMATION);
edtDepartID.SetFocus;
exit;
end;
edtDepartNo.Text := Trim(edtDepartNo.Text);
if edtDepartNo.Text = '' then
begin
MessageBox(Handle,'部门编号不能为空!','提示',MB_ICONINFORMATION);
edtDepartNo.SetFocus;
exit;
end;
......
一大堆,写得太烦人了, COPY 都不想COPY了
我在想有没有一个这样的控件,把你想检测的控件加入进去,要检测时,用一个函数一下就可以检测了?
实在不行,想自己写一个,再对于如何做在设计时使用的属性编辑器,我还没做过.给我点例子也好呀.
在写数据库类的东东时,每天都会写这样的一些代码,如:
edtDepartID.Text := Trim(edtDepartID.Text);
if edtDepartID.Text = '' then
begin
MessageBox(Handle,'部门ID不能为空!','提示',MB_ICONINFORMATION);
edtDepartID.SetFocus;
exit;
end;
edtDepartNo.Text := Trim(edtDepartNo.Text);
if edtDepartNo.Text = '' then
begin
MessageBox(Handle,'部门编号不能为空!','提示',MB_ICONINFORMATION);
edtDepartNo.SetFocus;
exit;
end;
......
一大堆,写得太烦人了, COPY 都不想COPY了
我在想有没有一个这样的控件,把你想检测的控件加入进去,要检测时,用一个函数一下就可以检测了?
实在不行,想自己写一个,再对于如何做在设计时使用的属性编辑器,我还没做过.给我点例子也好呀.
]