十万火急！答案满意给100分(100分)

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1589048

liushuyou@cchongda.com.cn

up

你的程序一旦运行，一个客户端要打开15个左右的
会话，程序速度肯定受到很大的影响，；如果客户端
较多的话，服务器的压力很大。
给你提供个思路： 尽量使用存储过程.
好处：1、提高程序的运行速度。
2、 减轻网络流量，防止网络风暴
3、减少会话数量
对于重复输入时，使用约束，在提交给数据库后，
由数据库检查，截获数据库的异常

给你一段代码，自己看看，不过最好还是利用存储过程来处理
procedure TF_product.btnAddClick(Sender: TObject);------添加数据按钮
begin
DMSales.adodsother.Close;
DMSales.adodsother.CommandText:='select * from Product';
dmsales.adodsother.Open;
DMSales.adodsproduct.Insert;
SetEnable(True);
dbedtID.SetFocus;
end;

procedure TF_product.btnModifyClick(Sender: TObject);------修改数据按钮
begin
SetEnable(True);
dbedtID.SetFocus;
DMSales.adodsother.Close;
DMSales.adodsother.CommandText:='select * from Product where ProductID not in('+''''+dbedtID.Text+''''+')';
dmsales.adodsother.Open;
DMSales.adodsproduct.Edit;
end;

procedure TF_product.btnSaveClick(Sender: TObject);------保存数据按钮
begin
with DMSales.adodsotherdo
begin
Filter:='ProductID='+dbedtID.Text;
Filtered:=True;
if RecordCount=1 then
begin
showmessage('已存在此产品编号,请重新输入!');
DMSales.adodsproduct.Cancel;
SetEnable(False);
DMSales.adodsother.Filter:='';
SetEnable(False)
exit;
end;
end;

SetEnable(False);
DMSales.adodsother.Filter:='';
btnAdd.Enabled:=True;
btnModify.Enabled:=True;
btnAdd.SetFocus;
DMSales.adodsproduct.Post;
end;