QryDept.Active:=true;
QryDept.locate('deptname',combobox3.Text ,[]);
deptcode:=QryDept.fieldbyname('deptcode').asstring;
QryDept.Locate('deptname',combobox4.Text ,[]);
newdeptcode:=QryDept.fieldbyname('deptcode').asstring;
QryDept.Active:=false;
QryDept的Sql的内容 :select * from c_deptname