为什么我的问题没有人回答啊！！！ ( 积分: 50 )

现在用socket写程序。
服务断的返回是：serversocket1.Socket.Connections[id].SendText('*'+datetimetostr(now)+'==>>-'+'由于该用户投诉，手机号'+user1+'的短信发送被禁止,请删除该注册用户！');

客户端的发送部分程序是： if fm_byfs<>nil then
if not fm_byfs.bsSkinButton1.Enabled then
begin
if fm_byfs.bsSkinListBox1.Items.Count>100 then
begin
for i:=0 to 99 do
begin
with dd.fs do
begin
close;
sql.Clear;
sql.Add('insert into sm_send valuesa,:b,:c,:d)');
parambyname('a').AsString:=fm_byfs.bsSkinListBox1.Items.Strings;
parambyname('b').AsString:=fm_byfs.SUIMemo1.Text;
parambyname('c').AsDateTime:=now;
parambyname('d').AsString:='包月';
execsql;
end;
end;
for i:=99 downto 0 do
begin
fm_byfs.bsSkinListBox1.Items.Delete(i);
end;
end else
begin
if fm_byfs.bsSkinListBox1.Items.Count>0 then
begin
for i:=0 to fm_byfs.bsSkinListBox1.Items.Count-1 do
begin
with dd.fs do
begin
close;
sql.Clear;
sql.Add('insert into sm_send valuesa,:b,:c,:d)');
parambyname('a').AsString:=fm_byfs.bsSkinListBox1.Items.Strings;
parambyname('b').AsString:=fm_byfs.SUIMemo1.Text;
parambyname('c').AsDateTime:=now;
parambyname('d').AsString:='包月';
execsql;
end;
end;
fm_byfs.bsSkinListBox1.Clear;
end;
accessed:=true;
end;
end;
end;
end;

现在的需求是将返回的那个手机号，写进客户端的数据库中，发送标志字段的值变为0，而发送成功的号码，发送标志为1，希望高手给出原代码！！！ 注意发送标志字段（fsbz）在这个程序里面没有，是我准备加的，希望高手指点一下，本人MSN:sun2001win@hotmail.com
是不是我的问题问的不清楚，这是第二次了哦，我刚搞不久，希望看过的留下联系方式帮忙解决一下了。

现在用socket写程序。
服务断的返回是：serversocket1.Socket.Connections[id].SendText('*'+datetimetostr(now)+'==>>-'+'由于该用户投诉，手机号'+user1+'的短信发送被禁止,请删除该注册用户！');

客户端的发送部分程序是： if fm_byfs<>nil then
if not fm_byfs.bsSkinButton1.Enabled then
begin
if fm_byfs.bsSkinListBox1.Items.Count>100 then
begin
for i:=0 to 99 do
begin
with dd.fs do
begin
close;
sql.Clear;
sql.Add('insert into sm_send valuesa,:b,:c,:d)');
parambyname('a').AsString:=fm_byfs.bsSkinListBox1.Items.Strings;
parambyname('b').AsString:=fm_byfs.SUIMemo1.Text;
parambyname('c').AsDateTime:=now;
parambyname('d').AsString:='包月';
execsql;
end;
end;
for i:=99 downto 0 do
begin
fm_byfs.bsSkinListBox1.Items.Delete(i);
end;
end else
begin
if fm_byfs.bsSkinListBox1.Items.Count>0 then
begin
for i:=0 to fm_byfs.bsSkinListBox1.Items.Count-1 do
begin
with dd.fs do
begin
close;
sql.Clear;
sql.Add('insert into sm_send valuesa,:b,:c,:d)');
parambyname('a').AsString:=fm_byfs.bsSkinListBox1.Items.Strings;
parambyname('b').AsString:=fm_byfs.SUIMemo1.Text;
parambyname('c').AsDateTime:=now;
parambyname('d').AsString:='包月';
execsql;
end;
end;
fm_byfs.bsSkinListBox1.Clear;
end;
accessed:=true;
end;
end;
end;
end;

现在的需求是将返回的那个手机号，写进客户端的数据库中，发送标志字段的值变为0，而发送成功的号码，发送标志为1，希望高手给出原代码！！！ 注意发送标志字段（fsbz）在这个程序里面没有，是我准备加的，希望高手指点一下，本人MSN:sun2001win@hotmail.com
是不是我的问题问的不清楚，这是第二次了哦，我刚搞不久，希望看过的留下联系方式帮忙解决一下了。

看过的留下联系方式也好啊。大哥大姐们！！！！

你可以把发送标志字段的值在初始化的时候负值为0，而发送成功后，就把发送标志负值为1。

我也不是很通，顺便说说的啊

看了半天，沒看明白？？？