AQBefcl.Close;
AQBefcl.SQL.Clear;
AQBefcl.SQL.Add('UpData tbBefcl Set Fac=:v_Fac,Bm=:v_Bm,SGroup=:v_SGroup,SClass=:v_SClass');
AQBefcl.SQL.Add('where CardNo='''+Trim(AQStuff.fieldbyname('CordNo').asstring)+''' and DMonth>='+Trim(Edit1.Text));
AQBefcl.Parameters.ParamByName('v_Fac').Value:=Trim(DcFac.Text);
AQBefcl.Parameters.ParamByName('v_Bm').Value:=Trim(DcBm.Text);
AQBefcl.Parameters.ParamByName('v_SGroup').Value:=Trim(DcGroup.Text);
AQBefcl.Parameters.ParamByName('v_SClass').Value:=Trim(DcClass.Text);
AQBefcl.ExecSQL;
AQBefcl.SQL.Clear;
AQBefcl.SQL.Add('UpData tbBefcl Set Fac=:v_Fac,Bm=:v_Bm,SGroup=:v_SGroup,SClass=:v_SClass');
AQBefcl.SQL.Add('where CardNo='''+Trim(AQStuff.fieldbyname('CordNo').asstring)+''' and DMonth>='+Trim(Edit1.Text));
AQBefcl.Parameters.ParamByName('v_Fac').Value:=Trim(DcFac.Text);
AQBefcl.Parameters.ParamByName('v_Bm').Value:=Trim(DcBm.Text);
AQBefcl.Parameters.ParamByName('v_SGroup').Value:=Trim(DcGroup.Text);
AQBefcl.Parameters.ParamByName('v_SClass').Value:=Trim(DcClass.Text);
AQBefcl.ExecSQL;
->
AQBefcl.SQL.Add('UpDate tbBefcl Set