请高手帮忙解决这个难题，谢谢

[tfguib]

我想请大家帮我修改一下我的毕业设计。我的数据库名为，ODBC的别名为med_manage,其连接路径为D:\毕业设计2\Data中MYDB.mdb。我主要的问题一是：在frmPartQuery界面中查询不到结果，在其代码中trim(ComboBox4.Text )<>''的值为空；二是：在数据模板DM2中公用函数procedure TDM2.Updatequantyfy不能实现库存数量改变（即在frmmedicinescomein界面中进行药品进货后，其进货数量字段不能加到药品信息表的库存量字段中，当在frmsell界面中进行销售后，其销售数量字段不能加到药品信息表的库存量字段中）。
如果有时间，请帮帮我。
谢谢！！

下载地址：
http://www.dusum.net/毕业设计2.rar

[tfguib]

怎么没有人理我呢？

[g961681]

我喜欢这么做：
if Trim(ComboBox4.Text) <> '' then
begin
DMSale.partqry.SQL.Text := DMSale.partqry.SQL.Text +
' AND medicines.medicinesid = ' + Trim(ComboBox4.Text);
end;

[g961681]

var
sKeyNO: String;
begin
if (not DM2.tblcomeinitem.FieldByName('quantify').IsNull) and
(not DM2.tblcomeinitem.FieldByName('comeinid').IsNull) then
begin
sKeyNO := DM2.tblcomeinitem.FieldByName('comeinid').AsString;
if DM2.tblmedicines.Locate('medicinesid', sKeyNO, []) then
begin
if not (DM2.tblmedicines.State in [dsEdit]) then DM2.tblmedicines.Edit;
DM2.tblmedicines.FieldByName('medicinesstock').AsInteger :=
DM2.tblmedicines.FieldByName('medicinesstock').AsInteger +
DM2.tblcomeinitem.FieldByName('quantify').AsInteger;
DM2.tblmedicines.Post;
end;
end;
end;
这个试试看！

[g961681]

你要主要Locate，是有返回值的，如果能够定位到，那么返回true
如果定位不到，你就算更新了，那也更新错误了！

[tfguib]

谢谢