请教3层一个问题，急急急急急急急急急急急急急急急急急！(100分)

我们工厂一个3层结构的程序，当把进仓资料输入完，再保存时出现的情况为
Access violation at adress 4DB1A8E9 in module 'USER32.DLL',Read of adress
00F00002.这个程序用了几个月。
大虾们帮帮忙啊！
procedure Tstoreinform.ToolButton4Click(Sender: TObject);
begin
PageControl1.ActivePageIndex:=0;
DBEdit1.SetFocus;
if Trim(DBEdit1.Text)='' then
begin
ShowMessages('名称不能为空');
DBEdit1.SetFocus;
Exit;
end;

if Trim(DBEdit7.Text)='' then
begin
ShowMessages('订单号不能为空');
DBEdit7.SetFocus;
Exit;
end;

if Trim(unitslist.Text)='' then
begin
ShowMessages('单位不能为空');
unitslist.SetFocus;
Exit;
end;

if CdsMaster.State in [DsInsert] then
begin

MainDM.MDatavalid.Close;
MainDM.MDatavalid.CommandText:='select partname from instore where partname='+''''+dbedit1.text+''''+' and ordno='+''''+Trim(dbedit7.text)+'''';
MainDM.MDatavalid.Open;
if not MainDM.MDatavalid.ISEmpty then
begin
if MessageBox(handle,'该订单号的该物料已输入,是否继续保存?',Pchar(Application.title),MB_YESNO)<>ID_YES then
begin
DBEdit1.SetFocus;
Exit;
end;
end;

end;

_savestate:=false;
if CdsMaster.ApplyUpdates(0)=0 then
begin
CdsMaster.Refresh;
SetEnable(True);
btpart.Enabled:=False;
Sbprice.Enabled:=False;
if IorE then
ToolButton1.Click;
end;

end;

系统出问题了，病毒么。既然运行几个月了。

首先可以查查是否有毒；
其次，看看你的中间层是否有问题；
还有是否是数据库服务器日志限制大小造成的

to leonv
中间层没有问题，客户端能打开啊。这个程序能运行，进仓保存，出仓保存，盘店
领料在保存时都出现这样的问题！
因为客户端的操作系统是WIN2K，我到别的机子上找到user32.dll系统文件拷贝
问题还是没有解决

to leonv
还有一些什么可能的问题，能告诉小弟吗？
现在主管天天对着我发火，我刚进这家公司没多久，代码是我来之前的那个人写的
帮帮忙，大哥

跳﹗
先看看薪水合不合﹐他發火的目的就是要你自己走。