我写了一个名片管理小软件,欢迎大家使用(10分)

  • 主题发起人 主题发起人 苍鹰
  • 开始时间 开始时间

苍鹰

Unregistered / Unconfirmed
GUEST, unregistred user!
我写了一个名片管理小软件,欢迎大家使用,如果需要,请留下Email.
 
sxdan@mail.sxptt.zj.cn
 
lvzuoguang@163.com
 
zweny@vip.sina.com
 
sspanzer301@163.com
 
发贴时间很久了哦,还有吗,给一个我:)
weily44@21cn.com
 
rockxu@yeah.net
 
来一份吧!
hjinfor@163.com
 
为什么不发到 www.playicq.com啊
 
我要,wyj2@eyou.com
 
netfphuang@sohu.com
 
planetike@tom.com
 
liuyaoliusos@hotmail.com
 
with Fielddo
begin
if not (State in dsWriteModes) then
DatabaseError(SNotEditing, Self);
GetActiveRecBuf(RecBuf);
if FieldNo > 0 then
begin
if ReadOnly and not (State in [dsSetKey, dsFilter]) then
DatabaseErrorFmt(SFieldReadOnly, [DisplayName]);
Validate(Buffer);
if FModifiedFields.IndexOf(Field) = -1 then
FModifiedFields.Add(Field);
end;
if Buffer = nil then
Data := Null else
BufferToVar(Data);
PVariantList(RecBuf+SizeOf(TRecInfo))[Field.Index] := Data;
if not (State in [dsCalcFields, dsInternalCalc, dsFilter, dsNewValue]) then
DataEvent(deFieldChange, Longint(Field));
end;
end;
 
zikun@greatbit.com
 
killme6115@sina.com
 
我要,多谢了!lvzuoguang@163.com
 
jcreate@sina.com.cn谢谢
 
yzdafe@hotmail.com
 
b3411080@163.com
 
后退
顶部